

do
-- resetCycles
setcps (80/60/4)
let g = (whenmod 32 24 (# djf (slow 8 $ range 0.12 0.5 sine)))
let modIndex = pF "modIndex"
let maskDrums = mask "<t [f!3 t] t [t f]>"
d1 $ g -- BEAT
  $ mask "<f!4 t!28>"
  $ "<~!4 k!28> . <~!4 k!4 k(<1 3 5>,8)!24>" # "jazz"
d2 $ g -- BREAK
  $ maskDrums
  $ mask "<f f t(1,8) f t(<1 2 3 4>,8)!4 t!20>"
  $ slice 8 "0 1*<1!3 2> 2 <3 2 2 3>"
  $ loopAt 2
  $ "break:7"
  # cut 1
d3 $ g -- DRUMROLL
  $ mask "<f!7 t t!24 f!16 t!16>"
  $ maskDrums
  $ fast "<[16!2 [16 8] <8 [<16 32> 16]>] [16 8]>"
  $ "drum:2"
  # gain 0.9
d4 $ g
  $ mask "<f!8 t!24 f!16 t!16>"
  $ note ("<<d3 [d3@3 [d3 e3]]> b3>")
  # "bassWarsaw"
  # crushbus 4 (slow 32 $ range 10 3.5 saw)
  # room 0.2
  # gain 0.95
d5 -- Side trombones
  $ g
  $ mask "<f!16 t!16>"
  $ mask "<t!3 f>"
  $ "rootsTromb:3"
  # cut 5
  # gain 0.9
d6 $ g -- Hats contretemps décalés
  $ ("s" ~>)
  $ mask "<t(<0 1 2 3 4>,8)!8 t!24>"
  $ maskDrums
  $ n "3!6 2 1"
  # "h2ogmhh"
  # gain (slow 16 $ range 0.5 0.8 saw)
d7 $ g
  $ whenmod 32 4 (superimpose (
    (|+| note (
    arp "<up <up!3 down> <converge diverge> <down up>>"
    $ "c'maj'4"))
    . (whenmod 32 8 (# modIndex (slow 16 $ max 0 (range "-15" "<1!8 15!8 50!8 150!8>" perlin))))
  ))
  $ note ("<<d [d@3 [d e]]> b>")
  # "FMRhodes1"
  # gain 1
  # room 0.8 # sz 0.4 # dry 1.1
d10
  $ "noir_radio:1"
  # cut 10
  # room 0.2
  # begin (slow 4 perlin)
  # gain (slow 32 $ range 0.5 0.25 cosine)
