resetCycles

-- Electro-jazz grille du blues snakish
do
setcps (70/60/4)
let f2 = (# djfbus 2 (range 0.1 0.9 "^29"))
let f1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"]
let chord = "c'maj"
let chordAug = "c'maj'8"
d1 -- Kick rarement doublé
  $ f1
  $ midiOn "^41" (fast 2) -- Cause this is REPETITIVE MUSIC
  -- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 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 d1's own control with gSel.
  -- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 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 d1's own control with gSel.
  $ midiOn  "^42" ((<| "k*4") . (superimpose (# "909")))
  $ midiOff  "^42" (<| "k . k(<1 3 1 3 1 3 3 5 1 3 1 3 1 3 3 5 3 5 3 5 1 3 3 5>,8)")
  $ "jazz"
  # legato 2
  # room 0.2
  # midiG' "^78" 0 1.1
d2 $ f1
  $ midiOn "^42" (fast 4)
  $ "~ [jazz:4,cp]"
  # hpf (slow 4 $ range 0 10000 perlin)
  # room 0.6  # sz 0.6 # dry 0.99
  # midiG' "^79" 0 1.9
d3 $ f1 -- Snakes
  $ midiOn "^43" (fast 2) -- Cause this is REPETITIVE MUSIC
  $ juxBy (slow 8 $ range 0.1 0.9 sine) rev
  $ fast 2
  $ "s . s <s!3 ~> <~!3 s>"
  # "hh*6"
  # pan 0.7
  # midiG' "^80" 0 1.5
d4 $ f2
  $ midiOn "^76" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
  $ midiOn "^44" (juxBy 0.2 (
    ply "<2 4 [4 8] 8>" .
    arp "pinkyup"
    . (often (ply 2))
    -- . (|* gain 0.8)
    -- . (# pan 0.6)
    -- . (# crush 16)
    -- . (|+ note 12)
  ))
  $ superimpose (|+ note "[0,7]")
  $ note (
    cat blues
    - 24
  )
  # "bassWarsaw"
  # pan 0.3
  # room 0.1
  # voice 0.8
  # crushbus 41 (range 10 3 "^32")
  # midiG' "^81" 0 1.3
d5 $ f2 -- Choeurs
  $ juxBy 0.5 (
  (0.5 ~>) . midiOn "^89" (superimpose (
    arp "<converge!8 diverge!4>"
    . (|+ note ("[0,12]"))
    . (|+ pan 0.05)
    -- . (|* gain 0.85)
    )
  . (|* gain 0.95)
  . (# legato 0.5)
  . (|+ pan 0.05))
  )
  $ note (cat blues)
  # "moogBass"
  # octave 3
  # midiG' "^82" 0 1.4
  # room 0.4²
  # size 0.7 # dry 1.05
d9 $ f1
  $ loopAt (2 + (2 * "^92"))
  $ midiOn "^60" (slice 8 (run ("<8!4 [8!3 16] [8 16] [16 8] [16 32 8 ~]>"))) -- Rush
  $ midiOff "^60" (slice 8 (run ("<8!4 16 [8 . 32 16] [8 . 16 8] [8 4]>"))) -- Decroissance
  $ "fbreak80"
  # cut 42
  # midiG' "^84" 0 1.8
  # pan 0.3
