resetCycles


-- Michael: lounge piano/brass tech/break
do
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let g = gDJF
setcps (120/60/4)
d1 $ g
  $ midiOn "^41" (struct "t t t*<2 1 1 2> t*<1 2>")
  $ midiOff "^41" (struct "t*<1!3 2> . t(3,8)")
  $ "jazz"
  # room 0.5 # sz 0.5
  # dry 1
  # midiG' "^78" 0 1.6
d2 $ g
  $ superimpose (const
    $ midiOff "^42" (# silence)
    $ mask "<f!8 t!24>"
    $ "~ . cp*<1!3 2> ~"
    # lpf 2000
    # midiG' "^79" 0 1.2)
  $ whenmod 8 6 (ply "2 <2 4>")
  $ "~ s . ~ <s!7 ~> <~!7 s> <~!3 s>" # "snare:20"
  # midiG' "^79" 0 0.8
  # note (range "-12" 12 "^51")
d3
  $ sometimesBy "^31" (ply 2)
  $ g
  $ midiOn "^43" (slow 2)
  $ "~ h ~ h ~ <h h*2> ~ h" # "hh27:2"
  # note (
    whenmod 4 3 (2 -)
    "0 . 2 0"
    )
  # midiG' "^80" 0 1.3
d4 $ g -- Synth brass choir
  $ midiOn "^44" (# crushbus 4 6)
  $ fix (
    (# "fsynth:3")
    . slice 8 "0 1*<1 2 2 1> 2*<<1 2> 1 2 1> 3*<<1 2> 4>"
    . arp "pinkyup"
    . (|+ pan 0.1)
    . (>| note ("c'maj'3" - 7))
    . (|* gain ("^32" * 0.9))
  ) "a"
  $ fix (
    (# "fsynth:3")
    . (|- note 12)
    . whenmod 4 2 (often (ply 2))
    . (# pan (perlin))
    . (|* gain "^52")
  ) "b"
  -- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^53 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^53 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
  -- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^53 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^53 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
  $ fix (
    (# "fsynth:3")
    . (|- note 24)
    . (|+ pan 0.1)
    . (|* gain "^53")
  ) "c"
  $ slice 4 "<0 1 2 3>"
  $ "[a,b,c]"
  # midiG' "^81" 0 1
  # crushbus 41 (range 16 1.6 "^13")
  # room 0.3
  # pan 0.6
  # sz 0.6
d5 $ g -- Jumpy Piano
  $ midiOff "^57" (struct "t(2,4)")
  -- $ degradeBy ("0 0.95!7 0" - "^34")
  $ juxBy 0.8 (rev . (# cut 51))
  $ mask "f <f!8 t!8>!3 .  t"
  $ slice 8 (run ("4 <4 8>" * "<1!3 2>"))
  $ "fpiano:3"
  # cut 5
  # pan 0.2
  # crush (range 12 3 "^33")
  # room 0.5
  # sz 0.7
  # midiG' "^82" 0 1
d7 $ g
  $ midiOn "^91" (ply "<1 1 2 2>")
  $ midiOn "^59" (ply "<2!3 4>")
  $ slice 8 (run (
    "<2!3 4>"
    * "<1!4 2!4 [2 1]*4 [2 4]*4>"
    ))
  $ "forgan:17" # cut 7
  # midiG' "^83" 0 (1.2 - 0.5 * "^35")
  # crushbus 7  (range 10 1.5 "^35")
d8 $ g
  $ midiOn "^60" (iter 4)
  $ midiOn "^92" (ply 2)
  $ loopAt 2
  $ degradeBy ("0 0.9!7 0" - "^36")
  $ scramble 2
  $ slice 8 (run 8)
  $ "fbreak120"
  # pan 0.7
  # speed (range 0 2 "^56")
  # midiG' "^84" 0 1.35
  # cut 6
