setcps 0.3 d1 $ whenmod 16 12 (degradeBy "0 0.5 0.75 0") $ n "0 . <~ [0 0?]> [0? 1]" # s "kick:5" # lpf 200 # gain 0.8 d2 -- Snares plus ou moins reguliers $ fast 2 $ sometimes (hurry 2) $ s "~ <~ s?> . s s?" # "snare" # n "[2|3] . <4 6>" # gain (slow 32 $ range 0.5 0.9 cosine) d3 -- roll $ whenmod 16 8 (degrade . fast 2) $ rarely (fast 2) $ s "dr*8" # s "drum:8" # gain (slow 32 $ range 0.5 1 sine) d4 $ n (stack [ "0(3,8,<0 4>)" ,"[2, 3?](3,8,<0 0 0 0 2 2 2 4>)" ]) # s "hh" # gain 0.8 d5 $ every 2 (often (slow 2)) $ juxBy 0.2 (# crush 5) $ arp (slow 4 $ "<pinkyup updown downup speedupdown speeddownup>") $ whenmod 16 8 (someCyclesBy 0.75 rev) $ note (scale "aeolian" ( "f4'maj d4'min d4'maj c4'maj" - 7 )) # s "supersaw" # voice 0.05 # gain 0.5 d5 $ superimpose (swing 2 . arp "downup") . (|+ note 7) $ note (scale "aeolian" "<d4'maj e4'maj f4'min <d f>4'maj>" - 21) # s "supersaw" # voice 0.05 # gain 0.5 d7 $ every 2 (superimpose ((swing 2) . (arp "[updown|downup]") . (# room 0.5))) $ note (scale "aeolian" "<d4'maj e4'maj f4'min <d f>4'maj>") # s "toys" # begin 0.3 # end 0.5 # gain 0.6 -- Sandbox d4 -- basse tension chelou $ whenmod 32 18 (# gain 0.8) $ whenmod 32 17 (# gain "0.8 0") $ whenmod 32 16 (# gain 0) $ note "0 . 0*<1 2 4 2> . 0*<1 1 4 1>" # note (scale "aeolian" "0 .. 5" + "[0,7]" + (slow 4 $ "<-7 0>") - 21) # s "supersaw" # voice 0.05 # gain 0.7 d8 $ s "s/4" # note (scale "aeolian" (slow 4 $ "<-2 -5>")) |- note 24 # s "supersiren" # voice 0.1 # gain 0.8 d2 -- $ euclid "<7 3 4 7>" 8 $ n "0? <~ <0? 0>> 0? 0" # s "sn:[2|8]" # room 0.5 # dry 1.1 # size 0.5