resetCycles


do
setcps (80/60/4)
let mel = "<[ef, gf, bf, df6,f6,af6]!2 [d,f,a,c6,e6,g6]!2>"
let modIndex = pF "modIndex"
let maskDrums = mask "t t . t <t!3 <f [f t]>>"
d1
  $ maskDrums
  $ "k . k(<3 1 3 3>,8)" # "[bd,jazz,808bd:3]"
  # lpf 2000 # gain 1.1
d2
  $ maskDrums
  $ fast 2
  $ "~ s*<1!6 2 4>" # "sn:20"
  # gain 0.9
  -- # hpf 4000
d3
  $ maskDrums
  $ "drum:2*4" # gain 0.8
d4 -- Broken break
  $ maskDrums
  $ someCyclesBy (slow 8 "<0 0 0 1>") (slice 4 "0 1*<1!3 [4 <4 1>]> 2 <1 3>*<1 <2 4>>")
  $ someCyclesBy (slow 8 "<0 0 1 0>") (slice 4 "0 1 <2 [~ 2]> 1*<1 <2 4>>")
  $ someCyclesBy (slow 8 "<0 1 0 0>") ((fast 2) . (slice 4 "<0 1 2 <1 3>>"))
  $ someCyclesBy (slow 8 "<1 0 0 0>") (slice 4 "<0 0 1 1>")
  $ loopAt 2
  $ chop 8
  $ "break:32"
  # cut 1
  # room 0.5
  # sz 0.39
  # dry (1 + (slow 8 $ range 0 0.5 saw))
d5
  $ note ("~ [0,12]" + mel - 24)
  # "FMRhodes1"
  # att 1 # rel 9
  # modIndex 0.2
  # room 0.8
  # sz 0.8
  # dry 1
  # legato 2
  # gain 1
d6 -- Bassline ténébreuse
  $ note (
    "<[ef,bf]!2 <[d,a]!3 [c6,e6,g6]>!2>"
    - 24)
  # "bassWarsaw"
  # gain 0.9
d7 -- SUB CRUSH FIGHT
  $ mask "<f!16 t!16>"
  -- $ note "<[ef,bf]!2 <[d,a]!3 [c6,e6,g6]>!2>"
  $ note "ef . ef@3 <bf!2 d!2>*2 <ef!3 g>"
  -- $ note "ef bf d a c6 e6 g6"
  # "bass2:1"
  # lpf 2000
  # pan 0.4
  # gain 0.68
d8
  $ maskDrums
  $ "[~ <~!4 h!12> h*<1!4 <2 4>!4>]*4"
  # "h2ogmhh"
  # gain (slow 64 $ range 0.5 0.75 saw)
  # pan (slow 16 $ range 0.8 0.55 sine)