setcps 0.5 d1 $ whenmod 16 10 (# gain 0) $ every 4 (sometimes (off 0.125 (# gain "1 0"))) $ every 4 (sometimes (off 0.125 (# gain "0 1"))) $ s "d d" # s "clubkick:7" # gain 0.9 d2 $ whenmod 16 15 (# gain 1) $ whenmod 16 12 (# gain 0) $ sometimesBy "0.1 0.9" (off ("[1/8 1/16]") id) $ s "~ sn:2" # gain 0.9 d3 $ whenmod 16 4 (# gain 1) $ whenmod 16 3 (# gain tri) $ whenmod 16 0 (# gain 0) $ whenmod 8 6 (sometimes (|- gain 0.2)) $ whenmod 8 4 (sometimes (fast 2)) $ whenmod 16 8 (off (1/16) id) $ sometimes (# s "drum:20") $ sometimes (# s "drum:8") $ s "dr*8" -- drum:8 -- drum:20 -- drum:9 maracas d4 -- basse $ s "b(<7 7 7 8>,8,<1 2>)" # s "bassWarsaw" # note (scale "major" ( every 8 rev $ whenmod 8 6 ((7 -) . (|> "0 2 2 4 <7 1>")) -- renversement "0 2 2 4 0" )) # gain (slow 16 $ sine * 0.4 + 0.6) |- note 24 d5 -- noise guitar $ whenmod 64 48 (swing "2 1") $ whenmod 8 6 (swing "1 2") $ sometimesBy "<0 0 0 [0 1]>" ((0/16) ~>) $ whenmod 8 4 (# lpf 3000) $ s "b(<7 7 7 8>,8,<1 2>)" # crush 4 # s "bassWarsaw" # note ( scale "major" ( every 8 rev $ whenmod 8 6 ((7 -) . (|> "0 2 2 4 <7 1>")) -- renversement "0 2 2 4 0" )) # gain 0.9 # release 0.9 d9 $ euclid (slow 16 $ "<1 3 5>") 8 $ s "superfork" # note "<0 <0 <0 1>> 0 <0 1>>" |- note "[<0 0 0? 0>,<12 12?>]" # room 0.9 -- # gain (slow 32 $ sine * 0.4 + 0.5)