-- Steps: Baby dub steps, trying out some delay
-- TODO Elaguer pause delay piano drums only
-- TODO Autre pause delay hammond

resetCycles

do
let chords = "<e5 d5>"
setcps (120/60/4)
d1
  $ "k . <k!16 ~!16> [~ <~ k>]" # "reverbkick" # lpf 1500
  # gain 0.8
  # release 0.8
d2
  $ fix (mask "f t") ("hh27:3")
  $ superimpose (
    sometimesBy "0 <0 0.2!3>!2 <0!3 [0 0.5]>" (fast 2)
    . (<| "k*[8 <8!3 4>]") . (# n 2) . (# cut 31) . (|* gain 0.65)
  )
  $ "h h" # "hh27:3" # cut 3 # gain 1
d4
  $ juxBy 0.5 ((# cut 41) . (# octave 4))
  $ struct "t*2 t . t*<2 [4 2] 4 [2 4]>"
  $ note (arp "up . <up!3 downup>" (chords + "c'min7"))
  # "bass3:1"
  # cut 4
  # room 0.15
  # gain (slow 8 $ range 0.55 0.75 cosine)
d5
  $ every' 16 15 (# silence)
  $ mask "<t!8 t f!7>"
  $ every' 16 8 (
    (|+ note 12)
    . (# delay 0.75)
    . (# delayfb 0.8)
    . (# delaytime 1)
  )
  $ "~ p ~ p" # "superpiano"
  # note (chords + "<c4'min a4'min>")
  # room 0.3 # sz 0.6
  # velocity 0.7
  # gain 0.75
d6 -- Skank Hammond
  $ mask "<f!4 t!4 t f!3 t f f t t>"
  $ mask "[<f!4 t?!4 t!4> <t? f!4 t!4> t?] . f <~!8 t!8> f f"
  $ fast 2
  $ note (("[0 12 0 <~!6 12!2>]" |+ (slow 2 chords)))
  # "superhammond"
  # gain (0.68 * "[1 0.85 1 0.85]")
  # voice 6
  # octave 6
  # sustain 0.25
d9
  $ "hh*[8 . 8 8 <8 16> <8 8 4 16>]"
  # gain "<0.5!4 0.7!4 0.6!4 0.7!4>"
d7
  $ note "<[2 . ~ <2!3 4>] [0 . <~ 0> <0 0 1 4>]>" # "brass:20"
  # gain (slow 8 $ range 0.3 0.47 saw)
  # pan 0.25 # room 0.3
  # cut 7