do
-- resetCycles
-- once $ note "a3" # "bassWarsaw" # pan 0.35 # cut 6 # gain 0.4 # room 0.8 -- IntroBass Base
setcps (70/60/4)
let g = (# djfbus 1 (0.27))
d1 $ g -- Kick somewhat RubaDub
  $ mask "<f!4 [t f]!4 t!54>" -- Intro
  $ "k . ~ [~ k] <k ~ ~ k> <~ [<k ~> <~ k>]>"
  # "[cpu2,jazz,808bd:3,808bd:7]"
  # lpf 5000
  # room 0 # sz 0
  # orbit 1 -- Does this fix the weird first room ?!
  # gain 1.2
d2 $ g -- Drums semi-clave pattern
  $ "~ ~ ~ d ~ ~ d <~ d*<1 2 4>>"
  # "[drum:2,auto:9]"
  # gain 0.9
d3 $ g -- Clap snare: phantom agora
  $ whenmod 4 3 (juxBy 0.4 (# lpf 4000)) -- Side time-travel echoes
  $ "~ ~ <~ <[~ c]!3 ~>> ~ <~!2 [~ c] ~> c ~ ~"
  # "clap:2"
  # hpf 2000
  # room "<0.64!7 1>"
  # sz 0.3
  # dry 0.98
  # gain 0.65
d4 $ g -- Surprise, breakbeat!
  $ rarely (juxBy 0.8 (ply "[2|2|<2 4>|<2!3 4>]"))
  $ whenmod 64 48 (|* gain (slow 16 $ range 1 0.5 saw))
  $ someCyclesBy "<0!16 1!16 0!32>" (|* gain (slow 16 $ range 0.65 1 saw))
  $ mask "<f!16 t!48>"
  $ slice 4 "0 1 <2!4 0!4> 3 0 <1!6 ~ ~> <2!6 ~ 2> <3!3 <2 [2 3]>>"
  $ loopAt 0.5
  $ "breaks165"
  # pan 0.65
  # gain 0.9
d5 $ g
  $ (0.125 ~>) -- Bien calé!
  $ mask "<f!16 t!48>" -- Intro/64
  $ whenmod 4 3 (slow "<2 4>") -- Break-ish
  $ mask "<t(1,4)!4 t(2,4)!4 t!8 t(<4!3 3>,4,<0!3 1>)!16>" -- Dégradé
  $ chop 4
  $ slice 4 "<0!3 1>"
  $ loopAt 4
  $ "rootsGuitar:7"
  # room (slow 32 $ range 0.2 0.65 saw)
  # dry 1
  # sz 0.9
  # pan (0.75 + 0.25 * (slow 8 perlin))
  # gain (0.8 - 0.1 * perlin + 0.2 * (slow 16 $ saw))
  # cut 5
d6 $ g -- Bass Base
  $ whenmod 32 16 (superimpose ((# cut 61) -- Crushed cousin
    . (# crushbus 61 (range 6.5 4.85 (fast 8 perlin)))
    . (|+ pan 0.2)
    . (|* gain (slow 32 $ range 0.5 1 saw))
    ))
  $ note (
    "<a af gf <af!3 e>>"
    + "0 0(<3!3 5>,8)"
    |+ "0 . 0 <0!3 7> 0"
    - 24
    )
  # "bassWarsaw"
  # pan 0.35
  # cut 6
  # gain (slow 8 $ range 0.45 0.56 cosine)
  # room 0.8
d7 -- Forks of love
  $ mask "<f!32 t!96>"
  $ superimpose (struct "t*[8 <8 <16 <[32 16] [16 32 16]>>>]" . arp "up")
  $ note "<[cs,e,a5] [cs,e,af5] [cs,e,gf] <[cs,e,af5] [b4,cs,af5]>>"
  -- $ note "<[b4,cs,af5]>"
  # "superfork"
  # gain (slow 64 $ range 0.24 0.73 saw)
  # dry 1 # room 0.8 # sz 0.9




once
  -- $ (arp "up pinkyup")
  $ note "<[cs,e,a5] [cs,e,af5] [cs,e,gf] [cs,e,af5]>"
  # "superfork"
  -- # voice 8
  # gain 0.85
  -- # velocity 0.7