-- 2 Aight     'Aa'
-- 3 Hey bro   ' b'
-- 4 Monney-ee 'ni'
-- 5 That's right
-- 56 Cheeky basterd
--
--
--

C C D C F E
C C D C G F
C C C A F E D
A# A# A F G F F

do
setcps (120/60/4)
d1 $ "k . <~!4 k!4 k(<3 3 5 3>,8)!4>"
  # "reverbkick"
  # gain 0.8 # djf 0.2

d3
  $ fix (|* gain "<0!16 1.2!16>") ("bogdan")
  $ fix ((# "superpiano")
  . (# velocity 0.75)
  ) ("arpy")
  $ (>| note (cat [
    "c  ~ [c d ] ~ c f e ~",
    "c  ~ [c d ] ~ c g f ~",
    "c  ~ [c a ] ~ f e d ~",
    "as ~ [as a] ~ f g f ~"
    ]))
  $ slice 6 "0 1 2 <~!3 1> 3 4 5"
  $ "[arpy,bogdan:11]"
  # gain (slow 16 $ range 0.65 1 saw)

-- BIRTHDAY DUST
do
resetCycles
setcps (90/60/4)
d1
  $ sometimesBy "<1!8 0!240>" (mask "t f!7")  -- TODO INTRO
  $ whenmod 8 7 (mask "f!3 t")
  $ s "h*<2 1 1 2> ~ . ~ h . ~ h . h <~!3 h*2>"
  # lpf 2000
  # legato 1
  # "reverbkick"
  # gain 0.7
d2 --DUSTY
  $ mask "<f!8 t!240>" -- TODO INTRO
  $ (0.02 ~>) -- Fix decalage?
  $ loopAt 4
  $ slice 4 "0 <1!3 0> 2 3"
  $ "dusty:0"
  # gain 0.8
  # lpf 2000
  # pan 0.35
  # cut 2
d3
  $ mask "<t(4,16)!4 t(3,8)!2 t(10,16) t t!240>" -- TODO INTRO
  $ "d d d*<1 2> d*<4 [8 4 <8 8 4 8> <4 8>]>"
  # "[drum:2,cpu:4]"
  # pan (slow 4 $ sine)
  # gain 0.65
d4
  $ mask "<f!8 t!240>" -- TODO INTRO
  $ fix (
    (every' 2 1 $ ply 2)
  ) (n 5)
  $ fix ("q" <~) (n 6)
  $ n "~ ~ ~ <5!3 <6 3>>"  -- Right cheeky right bro
  # "bogdan"
  # pan 0.9
  # gain 0.8
  # cut 4


once $ "bogdan:2" # end 0.2
once $ "bogdan:4" # begin 0.2 # end 0.4
once $ "bogdan:15" # begin 0.358 # end 0.362 # cut 1