setcps (135/60/4)

do
let maskIntro = mask "<f!6 t!28>"
d1
  $ maskIntro
  $ superimpose ((# "gretsch") . (|* gain 0.8))
  $ "k . ~ k ~ ~"
  # "[jazz,bd]"
  # gain 0.5
d2
  $ maskIntro
  $ superimpose (const -- Tchak
      $ whenmod 16 12 (fast "<2 4 4 8>" . ("q" <~) . mask "t f")
      $ mask "<t!8 f!3 t!5>"
      $ "~ s ~ s*<1!7 2>"
      # "[gretsch:2,sn:2]" # lpf 4000
      # room (slow 4 $ perlin * 0.35)
      # gain 0.55)
  $ whenmod 8 6 (# lpf "<4000 2000>")
  $ splice 8 (run 8) $ "breaks165"
  # gain (slow 16 $ range 0.2 0.55 saw)
d3
  $ someCyclesBy "<1!8 0!28>" (mask "t(<0!4 4!4>,4)")
  $ whenmod 4 3 (degradeBy "0 0.5!6 0")
  $ sometimesBy "0 0.1!6 0.5" (fast 2)
  $ "drum:2*8" # gain 0.5
d4
  $ note ("<a3!4 c4!3 a3>"
   + "<c'maj!3 c'maj'4 c'min!3 c'min'4>"
  )
  # "supersaw" # voice 0.1
  # gain 0.2 # pan 0.9 # room 0.1
d5
  $ someCyclesBy "<1!2 0!14>" (|* gain 1.2)
  $ "day:1/2"
  # gain (slow 16 $ range 0.45 0.5 sine)
  # gain 0.65
  # hpfbus 4 (range "-50" 5000 sine)
  # legato 2
  # cut 5
