resetCycles

do
setcps(120/60/4)
d1 $ gF1 $ gM1
  $ midiOn "^41" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
  $ midiOff "^41" (<| "k ~ ~ [~ <~ k>]")
  $ "[jazz,house]"
d2 $ gF1 $ gM2 -- Surprise fourth fast snare
  $ midiOn "^42"  (<| "~ c ~ c")
  $ midiOff "^42" (<| "~ . ~ c*<1!3 <2!3 4>>")
  $ "[cp:1,rampleM1:10]"
  # gain 0.9
  # pan 0.6
  # room 0.84 # dry 0.95 # sz 0.1
  # lpf 4650
d3 $ gF1 $ gM2 -- Highest hats
  $ midiOff "^43" (slow 2)
  $ arp "up"
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 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 d3's own control with gSel.
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 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 d3's own control with gSel.
  $ midiOn "^76" (ply 2)
  -- $ "d(<8 10 12 <14 [16 32 [16 <16 32>]]>>,16,1)" -- FIXME IRREGULIER
  $ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
  -- # "[h2ogmsn:14]"
  # "[rampleS57:2]"
  # note (-12 + "3.5" + "e6")
  -- # cut 3
  # gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
  # pan 0.3
d4 $ gF2 $ gM3
  $ whenmod 32 16 (# legato "<h!4 q!4 e!6 s!2>")
  $ midiOn "^44" (off "e" (|+ note 12))
  $ note "<[e3@3 b2@2] [a3@3 e3@2] [f3@3 <c3 c4>@2] <[d3@3 b2@2] [b2@3 f3@2]>>"
  # "bassWarsaw"
  # crushbus 41 (range 16 2 "^32")
  # octerbus 42 (range 0 1.92 "^52")
  # pan 0.4
  # room 0.4 # sz 0.4
-- e b...a e4! f3 c4.. d3 b3
d5 $ gM3 $ gF3
  $ midiOn "^57" (# n "12")
  $ midiOn "^89" (superimpose ((# cut 51) . (|* gain 0.8) . ply 8 . chop 8))
  $ n "<10!3 11 10!3 11 10!3 11 10!3 11>"
  # "nujazz_guitar120"
  # cut 5
  # pan 0.56
  # room 0.9 # sz 0.3
  # dry (range 0.1 1.9 "^33")
  # crushbus 51 (range 16 2 "^53")
d8 $ gF1 $ gM2
  -- $ midiOn "^60" (mask "t(8,16)")
  $ chop 16
  $ midiOn "^92" (ply "<2!3 [2 4]>")
  $ midiOn "^36" (loopAt 0.5 . (# n "50"))
  $ midiOn "^56" (loopAt 2 . (# n "<0!3 1 0 0 1 1>"))
  $ loopAt 2 $ "jungle_breaks:60"
  # gain 0.8
  # pan 0.7
d10 $ gM3 $ gF3
  $ mask "[t!3 f!2]"
  $ superimpose (|+ note 12)
  $ arp "<up!3 down>"
  $ note (
    "<[e3@3 b3@2] [a3@3 e4@2] [f3@3 c4@2] <[d3@3 b3@2] [b2@3 f3@2]>>"
    + "[0 12 <0!2 7 0> <12 24>]*4"
    + 0)
  # "moogBass"
  # legato 1
  # gain 0.5
  # room 0.9 # sz 0.8 # dry 0.4
  # pan (slow 4 $ range 0.05 0.33 saw)
d11 $ gM3 $ gF3
  $ superimpose (|+ note 12)
  -- $ arp "<pinkyup>"
  $ note (
    "<[b3@7 e3] [e4@7 a3] [c4@7 d4] <[b3@7 d3] [f3 b2]>>"
    -- + "[0 12 <0!2 7 0> <12 24>]*4"
    + 12)
  # "moogBass"
  # legato 1
  -- # gain 0.5
  # room 0.9 # sz 0.8 # dry 0.4
  # pan (slow 4 $ range 0.95 0.66 saw)
