,-.-.          ,-.-.        ,-.-.        ,-.-.
`. ,'          `. ,'        `. ,'        `. ,'
  `__            `__   ___    `__   ___    `___  __   __
  /__` |__|  /\  |__) |__     /  \ |__     |__  /  \ /  \
  .__/ |  | /~~\ |    |___    \__/ |       |    \__/ \__/
     ,-.-.           ,-.-.           ,-.-.          ,-.-.
     `. ,'           `. ,'           `. ,'          `. ,'
       `               `               `              `

do
setcps (160/60/4)
let mMask = midiOn "^73" (# silence) -- Take your time
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ gF1 $ mMask
  $ midiOn "^42" (struct "t <t t*2 t [~ t]>") -- We push
  $ midiOff "^42" (struct "t . ~ <~!4 t!4> ~ ~") -- We pull
  $ "[cpu2,jazz,808bd:3]"
  # midiG' "^78" 0 2
d2 $ gF1 $ mMask
  $ mask "<t!3 [<t f> f]>"
  $ "~ ~ ~ s ~ ~ s <~!3 s> "
  # "808sd:11"
  # midiG' "^79" 0 1.4
d3 $ gF1 $ mMask -- Break it down
  $ midiOn "^44" (ply "<2!3 <4 4 [4 . 1 2] <4 8>>>")
  $ splice 4 "0 1 2 3"
  $ loopAt 8
  $ "fbreak80"
  # cut 3
  # midiG' "^80" 0 1.2
d5 $ gF2
  $ someCyclesBy ("^17") (-- We unite
    superimpose (# note ("<gs cs4 e fs>" - 12))
  )
  $ midiOn "^57" (mask "t(1,4)" -- Dreamstate
  . (# legato 8)
  . (# room 2)
  . (# phasr 0.8) . (# phasdp 1.9)
  . (# leslie 0.8) . (# lrate 0.7) . (# lsize 0.8)
  )
  $ midiOn "^89" (|+ legato 2)
  $ mask "<t!7 [t f!3]>"
  $ note ("<cs!3 ds> ~ ~ <e!3 cs> ~ ~ <cs!3 b4> ~" - 12)
  # "bassWarsaw"
  # legato 2
  # crushbus 51 (range 16 3.2 "^53")
  # room 0.8 # sz 0.56 # dry 0.98
  # pan 0.33
  # midiG' "^81" 0 2
d4 $ gF2
  $ sometimesBy "^18" ( ( -- FIXME
    (|+ note (12 + 2))
    . (# "cbow:8") . (# cut 41) . (|* gain 0.8)
    ))
  $ midiOn "^58" (mask "t f f f" . (# room 0.5))
  $ note ("<cs!3 ds> ~ ~ <e!3 cs> ~ ~ <cs!3 b4> ~"
    -1 -- Drift back to unison
  ) #  "808mc:3"
  # crushbus 41 (range 16 1.2 "^54")
  # midiG' "^82" 0 2
  # dry 0.95
  # sz 0.9
d6 $ gF2 -- CHOIR
  $ midiOn "^59" (superimpose (
    whenmod 32 24 (ply 4)
    . struct ("t@3 t@3 <t [t ~]>@2") -- Longer
    . (|+ note 12) -- Higher
    . (|* gain 0.85) -- Lighter
    . (|+ pan 0.2) -- Righter
    )
  )
  $ note ("0 ~ ~ 0 ~ ~ 0 ~"
    + "[<cs fs a b>, <gs cs3 e fs>]"
    - 24)
  # "moogBass"
  # midiG' "^83" 0 2
  # legato 2
  # room 0.83 # sz 0.4  # dry 1
d7 --  Dem Maracas
  $ mask "t(16,32)"
  $ midiOn "^60" (slow 2)
  $ midiOn "^92" (ply "<2!3 4>")
  $ whenmod 16 8 (often $ fast 2)
  $ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
  $ "hh27*8"
  # n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
  # crushbus 51 (range 16 4.2 "^20")
  # room "^36"
  # note (range "-24" "0" "^56")
  # midiG' "^84" 0 1.3