do
-- resetCycles
setcps (124/60/4)
d1 $ gF1 $ gM1 
  $ midiOn "^41" (<| "k k k <k [<~!3 k> k]>")
  $ midiOff "^41" (<| "k . <[~ k] k(<3 5>,8)>")
  $ "[techno:0,808bd:2,909,kick:4]"
  -- $ "kick:5" 
  # gain 1.7
  # lpf 400
d2 $ gF1 $ gM2 -- Clap Technocratique
  $ midiOn "^42" (mask "[t <f t!3>] [t <f t>]" . fast 2)
  $ "~ s ~ [s*<1 2> <~ s*<2 [4 2]>>]"
  # "vec1_claps" # n 10
  # gain 1.3
  # lpf 2000
d3 $ gF1 $ gM2 
  $ midiOn "^43" (<| "[~ h*<1!3 <1 2 [4 2] 1?>>]*4" )
  $ midiOff "^43" (<| "h(3,8) h([3 1 3],8)")
  $ "h2ogmhh" 
  # gain 1.4
  # room 0.3 
  # dry (slow 16 $ range 0.2 1.8 perlin)
  # legato (range 0.05 2 "^31")
  # sz 0.4
d4 $ gF2 $ gM3 
  $ midiOn "^44" (struct "t . t(<1 3 5>,8)")
  $ midiOn "^76" (struct "t*16")
  $ midiOff "^76" (struct "<t!3 t*[<4 8> [8 <8 16>]]>")
  $ note (
    "<bf2 bf2 bf2 [bf2@7 cs3]>" 
    + "[0,12]"
    + (arp "up" "c'min'4")
    )
  # "bassWarsaw" 
  -- |+ note 12.
  # room 0.3 
  # crushbus 41 (range 16 3.5 "^32")
  # octerbus 42 (range 0 1.85 "^52")
  # room 0.2 # dry 1.2 # sz 0.7
  # gain 1.4
  # cut 4
d5 $ gF3 $ gM3  -- LE PIMENT BRESILIEN
  $ midiOn "^89" (ply "<4!3 8>")
  $ midiOn "^57" (striate "2" . chop 8)
  $ slice 8 "<[0 1] [2 3] [4 5] <[6 7] 5*<2 4 4 8>>>"
  -- $ slice 4 "<0 1 2 3>" 
  -- $ slice 4 "<0 1 2 3>" 
  $ "gfunk_lead:2" # cut 5
  # gain 1.7
  # room 0.3
  # octerbus    51 (range 0 1.4 "^33")
  # octersubbus 52 (range 0 4 "^53")
d7 $ gF3 $ gM3
 -- PLN: "on 59 a different progression, maybe going updowndown rather than
 -- upupup?". E7, d7's own gate. The octave line below climbs 0 +12 +24 +36 over
 -- 16 cycles — three steps UP, always. Held, ^59 adds 0 0 -24 -48 on top, which
 -- lands the same 16 cycles on 0 +12 0 -12: up, then down, then down. Written as
 -- an OFFSET rather than a second progression so the two can never drift apart
 -- if you edit the notes. TODO @PLN verify.
 $ midiOn "^59" (|+ note "<0!4 0!4 -24!4 -48!4>")
 $ midiOn "^91" (ply 2)
 $ note ("[f3 cs3 c3 cs3 f3 cs3 <c3 f3> <cs3 fs3>]"
 -- + "[0,12]" 
 +"<0!4 12!4 24!4 36!4>"
 )
 # "FMRhodes2"
 # gain 1.8
 # modIndex (range 0 16 "^35")
 # octersubbus 71 (range 0 2 "^55")
 -- # cut 9
d9 $ gF3 $ gM3 -- Menace
 $ note "<bf3 ~ ~ <~ <[~!7 b3] [f4 cs4 c4 cs4 f4 cs4 c4 cs4]>>>"
 # "90s_synatm:10"
 # room 0.3 # sz 0.8
 # gain 2
 # att 0.10
 # rel 10
 # crushbus 101 (range 16 3.5 "^17") -- A6 = d10's effect (was ^14, now Ardour's d10 LEVEL)
 # legato 2
 # octersub 1
 # cut 9
d8 $ gF1 $ gM2 -- La Boite à breaks de ParVagues <3
  $ midiOn "^92" (ply "1 <2!3 4>")
  $ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
  $ midiOn ("^36" - "^56") ((# n "22")) -- Hmmm Break
  $ midiOn "^56" ((# n "23")) -- Raise COMEON!
  $ chop 16
  $ loopAt 2
  $ "jungle_breaks:45"
  # cut 8
  # gain 1.4
  # pan "0.5!3 <0.2 0.8>"
-- 
-- 
-- 
-- 
-- 
-- 
-- 
-- 
-- 
-- 
