setcps (-1) setcps (0.5) d1 $ whenmod 64 32 (# silence) $ whenmod 32 16 (rev) $ chop "1 4" $ s "cs80leadMH*2" # note (scale "major" "<[0 3] [3 5] [5 7] [7 10]>") # gain 0.9 d2 $ whenmod 64 48 (# silence) $ fast 2 $ every 4 (off 0.75 (|+ 0)) $ off 0.5 (|+ 0) $ s "kicklinn" d3 $ whenmod 64 48 (# gain 0) $ whenmod 64 8 (# gain 1) $ fast 2 $ every 2 (off 0.25 (|+ 0)) $ s "~ cp" # s "realclaps" # pan 0.4 # gain 0 d4 $ someCyclesBy 0.2 (fast 2) $ s "[dr*4 <dr*4 [dr*4 ~]>]" # pan 0.2 d6 $ whenmod 31 24 (|+ note 0) $ whenmod 31 16 (|- note 7) $ whenmod 31 8 (|+ note 0) $ whenmod 31 0 (|+ note 7) $ someCyclesBy 0.2 (off (1/16) (|+ 0)) $ someCycles (off (1/8) (|- 7)) $ swing 4 $ note ( 3 * (-7) + (scale "major" "[0, 3, 5]") + "<0 5 7 12>") # s "cheapPiano1" # gain 0.8 d5 $ whenmod 16 14 (# velocity 0.5) $ whenmod 16 10 (stut 8 0.5 0.1) $ whenmod 16 8 (off 0.25 ((|+ note 7) . rev)) $ whenmod 16 0 (off 0.25 ((|+ note 7))) $ someCyclesBy 0.2 (# release 0.2) $ off 0.125 ((# s "superpiano") . (|- note 7)) $ s "superpiano" # note (scale "major" "<[0 3] [3 5] [5 7] [7 10]>" - 7) # pan 0.8 # velocity 0.5