setcps 1 d1 $ s "<kick [~ kick ~ ~]>" # n 4 # gain 0.8 d2 $ every 4 (off 0.25 id) $ s "~ kick:1" # gain 0.9 d3 -- $ every' 4 3 (off 0.25 id) $ s "~ <clap clap clap [clap clap]>" # gain 0.8 d4 $ whenmod 64 32 (swing 2) $ whenmod 16 12 (|- note 3) $ whenmod 16 8 (|- note 2) $ s "b <~ b b ~> <~ ~ b <~ ~ ~ b>>" # s "bass3" # note (scale "minor" "0 2 4") # gain 0.9 # room 0.3 d5 $ whenmod 32 31 (|- note 2) $ whenmod 32 30 (|- note 2) $ whenmod 32 29 (|- note 2) $ whenmod 32 28 (|- note 1) $ whenmod 32 24 (|+ note 7) $ whenmod 8 4 (|+ note 1) -- $ sometimes (swing 3) $ degrade $ off 0.25 (|+ note 5) $ s "[<[~ p] [p ~]> p]" # s "superpiano" # n (scale "aeolian" "[0,3] [0,5]") # gain 0.5 # velocity 0.8