resetCycles

-- LA NOVA BOSSERA
-- breakbeat X bossa nova <3
do
let gDJFManuel1 = someCyclesBy "<1!24 0!8>" (# djfbus 1 (range 0.05 0.95 "^49"))
let gDJFManuel2 = someCyclesBy "<1!24 0!8>" (# djfbus 2 (range 0.05 0.95 "^50"))
-- let gDJFPont = (midiOn "^41" (whenmod 32 24 (# djfbus 3 (slow 8 $ range 0.15 0.45 saw))))
let mBreak = ((mask "f . t f!3"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let g1 = gDJFManuel1
let g2 = gDJFManuel2
let modIndex = pF "modIndex"
let m = mBreak
setcps (60/60/4)
d1 $ g1 $ m
  -- $ "k(<3!3 5>,8)"
  $ midiOn "^41" (fast 2) -- Cooldown :')
  $ fast 2 $ "k k k <k [<~ k> k]>" -- TECHNOOOO
  -- $ "k . <~ [k . <k k(<3 [5 3]>,8)>]>"
  # "[808bd:3,cpu2]" -- Bumpy kick
  # midiG' "^78" 0 1.4
d2 $ g1 $ m
  $ fast 2
  $ "~ . <s!4 ~!3 s> <~!4 s!4> ~ ~"
  -- $ "~ . s"
  # "[snare:20,clap]"
  # note "<0!7 <0 -3>>"
  # midiG' "^79" 0 1.4
d3 $ g2 $ m
  $ mask "<t!3 [t!3 f]>"
  $ midiOn "^43" (iter "4 8")
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 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). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 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 "^44" (slice 4 (run "<8!3 <16 32>>"))
  $ loopAt 2
  $ chop 8
  $ "break"
  # pan 0.2
  # cut 3
  # speed (range "0" 2 "^31")
  # midiG' "^80" 0 1.1
d4 $ g2
  $ whenmod 16 14 (# n "<6 ~>")
  $ midiOn "^76" (striate "4 <4 2>" . chop 8)
  $ loopAt 1
  $ "bossa"
  # n "<0 0 0 1 0 1 <2!3 3> <1 0>>"
  # cut 4
  # pan 0.8
  # midiG' "^81" 0 1
d5 $ g2
  $ note (arp "<up down>" "<f'min'4 fs'min'4>*4"
    + "[0,12]"
    - 24
  )
  # room 0.4 # dry 1 # sz 0.9
  # modIndex (range 0 35  ("^33"))
  # crushbus 5 (range 12 3.5 ("^53"))
  # "FMRhodes1"
  # release 4
  # lpf 2000
  # midiG' "^82" 0 1.3
d8 $ g2 -- Clave de l'été pitchable
  $ midiOn "^92" (fast 2)
  $ midiOn ("^60") (scramble 4 . fast 2)
  $ (|* gain "0.75 1 1 1 0.75 1 1 1")
  $ "d ~ ~ d d ~ d <~!3 d>"
  # "[h2ogmhh:13]"
  # speed (range 0.5 1.5 "^36")
  # midiG' "^83" 0 1.5
d9
  $ g2
  $ midiOn "^92" (ply "2 4")
  $ midiOn "^60" (ply 8)
  $ note (
    "<f'min fs'min>"
    + "[0,12]"
    - 12
  )
  # "superhammond"
  # att (range 0.5 1.5 saw)
  # rel 4
  # crushbus 9 (range 10 3.5 (sine))
  # midiG' "^84" 0 1
  # pan 0.8
