do
solo 1 -- Kick
solo 2 -- Snare contretemps/rush
solo 3 -- Snare roll
solo 4 -- Sax
solo 5 -- Vibe


-- Didgeri do it
do
setcps (140/60/4)
d1 -- Kick techno morphant transe
  $ mask "t(<0!4 1!12 2!12 3!12 0!4 1!20>,3)!4"
  $ "k*<1!8 3!8> k*[1|3] k*<1 3> k"
  # "[jazz,reverbkick]"
  # lpf 5000 # lpq "<0!4 0.2!4>"
  # gain (slow 16 $ range 0.8 1 saw)
d2 -- Snare contretemps/rush
  $ fast "1 <~!8 1!4 4 4 8 8>"
  $ "snare:24" # gain 0.8
d3 -- Snare roll
  $ mask "<f!3 t!29 f!32>"
  $ mask "t([1,2],<1 2!2 4!4>)"
  $ fast "4 <8!3 16>"
  $ "snare:23"
  # note "<0!8 -2!4 -4!2 -8!2>"
  # gain (slow 16 $ range 0.65 1.2 sine)
  # pan (slow 4 $ range 0.2 0.8 sine)

d4 -- Saxeridoo
  $ juxBy 0.8 rev
  $ whenmod 64 8 (slice 8 (run "<2!4 8!3 16>"))
  $ whenmod 4 2 (often (swing 4))
  $ whenmod 128 64 (iter 4 $)
  $ note (-18
     + (arp "<up downup>" "<g'min7 g'min7'4>")
  )
  # "sax"
  # gain (slow 16 $ range 0.9 1.25 perlin)
  # room (slow 64 $ range 0.1 0.4 sine) # sz 0.3
  # cut 4

d5
  $ superimpose (off "h" (|+ note "<0!4 12!4>"))
  $ note ("c3'maj" + "<c!3 <<c6!4 g!12> g>>")
  # "supervibe"
  # gain 0.5


-- Sandbox

d6 -- Piano rise up
  $ whenmod 8 6 (swing 2)
  $ superimpose (arp "<up!7 down>" . (|+ note 12))
  $ note ("c4'maj" + "<c!3 <<c6!4 g!12> g>>")
  # "superpiano"
  # velocity 0.3
