setcps 0.5 d1 -- vents aigus respiration $ stut "<0 2 4 0>" 0.5 0.125 $ n "[0,1] 9" # s "wind" # gain (slow 64 $ cosine * 0.3 + 0.4) d2 -- beat $ fast 2 $ every 4 (sometimes (off "<0.125 0.25>" id)) $ whenmod 32 30 degrade $ whenmod 32 26 degrade $ s "house" # room 0.8 # size 0.7 # dry 1 # gain (slow 32 $ cosine * 0.25 + 0.7) # lpf 800 d3 -- glitch reseau $ every 4 (someCyclesBy 0.2 (chop 4)) $ s "~ glitch:5" # gain (slow 64 $ sine * 0.7 + 0.2) d5 -- bourrasque space $ whenmod 16 10 ( (swing 2) . (chop 2) ) $ s "space:3" # speed 0.4 # gain (slow 64 $ cosine * 0.5 + (rand / 4)) # room 0.8 d6 -- oiseaux $ sometimes (off 2 (|- gain 0.4)) -- copie mesure d'apres $ sometimes (off 1 (|- gain 0.2)) -- copie mesure suivante $ sometimes (1 ~>) -- decalage mesure suivante $ degradeBy (slow 64 $ sine * 0.8 + 0.2) $ s "birds" # n (irand 10) # gain 0.6 d7 -- moineau roll $ sometimesBy (slow 16 $ sine * 0.95) (off (1/16) id) $ s "birds3(<[3|6] 8>,8)" # gain (slow 64 $ 0.9 - sine * 0.4) d9 -- scratched birds $ fast 2 $ s "~ [b b?]" # s "birds3" # n (wchoose [(9,13),(1,14)]) # gain (slow 64 $ cosine * 0.5 + 0.2) # room (slow 64 $ cosine * 0.8 + 0.05) # size (slow 64 $ cosine * 0.8 + 0.05) # dry 0 d10 -- basse -- $ superimpose -- echos crushes! -- (fast 2) . (chop 4) . (# crush (4 + (irand 10))) . (|- gain 0.2) -- $ jux rev $ whenmod 8 4 (off 0.125 (|+ note "<12 <7 [7 7]> <12 [3 0]>>")) $ every 4 (someCycles (fast 2 . degrade)) $ often (fast 2 . (0.25 ~>)) $ note "<0 <3 [3 3]> <0 [3 0]>>" # s "bassWarsaw" # hpf (slow 64 $ cosine * 900 + 100) # room (slow 64 $ 1 - cosine * 0.9) |- note 24 # gain 0.95 d11 -- cymbale $ whenmod 64 32 (always (# n 3)) -- prolonge $ whenmod 16 8 (# note 4) $ whenmod 16 0 (# note 7) $ almostNever (superimpose (const $ s "~ ~ 808cy:1 ~")) $ swing (slow 64 $ "<3 5>") $ sometimesBy "0 0.05 0.05 0.5 0" ((1/8) ~>) $ sometimes (|- gain 0.1) $ euclid 5 4 $ s "~ cy" # s "808cy" # gain (slow 32 $ sine * 0.4 + 0.3)