-- Drone in D
do
setcps (105/60/4)
let mel = ("<d'five'3!4 d'five'4!4 d'five'3!4>")
let maskB = mask "<t!12 [t f!3] f f [f!15 t]>"
d1
  -- $ degradeBy "0 0.9!7"
  $ maskB
  $ loopAt 2
  $ slice 8 (iter 4 $ run 8)
  $ "fbreak100"
  # gain (slow 8 $ range 0.45 0.8 saw)
  # cut 1
d3
  $ stut 4 0.85 0.25
  $ mask "t f!7" $ note mel
  # "supersquare"
  # voice 1.4
  # gain (slow 32 $ range 0.15 0.28 sine)
  # crush (slow 64 $ range 16 3 isaw)
  # legato 2
d2
  -- $ maskB
  $ off "e" (|+ note "7 <7 12>")
  $ slow 2
  $ arpeggiate $ note mel
  # "superpiano"
  # octave 3
  # velocity 0.5
  # crush 8
  # lpf (slow 64 $ range 0 2000 saw)
  # gain 0.85
  # pan 0.6
d4
  $ superimpose (chop 8 . (# octave 3) . (# gain 0.85)) -- BOURDON
  $ arp "updown"
  $ note ("<d3'maj d3'min>/2")
  # "bassWarsaw"
  # legato 2
  # pan 0.4
  # gain (slow 40 $ range 0.65 0.8 sine)
d8
  $ juxBy 0.75 (|+ note 12)
  $ mask "<f!32 t!32>"
  $ note ("<[0,2] [0,2] [0,1,2] [0,2]>")
  # "supergong"
  # accelerate 0.1
  # room 0.4
  # octave 6
  # legato 1
  # gain 0.45
d9
  $ superimpose ((|- note 12) . (# legato 2))
  $ "g g(3,8,<3!3 0>)"
  # "glitch:1"
  # release 0.9
  # room (slow 16 $ range 0.1 0.6 sine)
  # sz (slow 32 $ range 0 1 saw)
  # gain 0.8