setcps 0.8 -- Progressive tuesday: Electronic progressive aeolien aerian d1 -- $ degradeBy 0.15 $ fast 4 $ fast 2 $ every 4 (sometimesBy 0.9 (0.25 ~>)) -- $ sometimesBy (slow 16 $ sine - 0.2) (off 0.125 (# gain 0.6)) $ s "kick:5" d1 $ whenmod 8 4 (sometimes degrade) $ (every 4 (degrade) . (fast 2) . (# n 5)) -- quand tu veux $ s "kick" # n 3 # gain 0.8 d2 -- snares $ fast 2 $ s "~ <~ <~ sn?>> sn <~ ~ ~ sn?>" # s "sn:8" # gain (slow 32 $ 0.5 * cosine + 0.4) d3 -- synth running up $ degradeBy 0.5 $ whenmod 8 4 (|+ note 5) $ note (scale "aeolian" (run 8)) # s "defaultB" # gain 0.9 d4 -- basse $ whenmod 64 32 ( -- seconde aigue every' 8 7 (off 0.25 ((|> note (4 - 12)) . whenmod 16 10 (# crush 6))) . every' 8 5 (off 0.25 (|> note (7 - 12))) ) $ often (off 0.25 id) $ note (slow 2 $ scale "aeolian" "<0 2 4 0>") # s "bassWarsaw" |- note 24 d6 -- electro bass $ stut "<1 2 4 8 4 2 1>" 0.8 0.125 $ often (off 0.25 id) $ note (slow 2 $ scale "aeolian" "<0 2 4 0>") # s "bassWarsaw" # crush 6 |- note 24 d5 -- piano $ someCycles (superimpose (|- note 12)) $ whenmod 16 10 (# size 0.7) . (# dry "0,0.5 .. 3") $ whenmod 16 8 ((swing 2) . (# room 0.5) . (superimpose (# s "FMRhodes1") . (# gain 0.8))) $ whenmod 16 4 (swing 1) $ superimpose (|+ note "7") $ arpeggiate $ note (scale "aeolian" "[0,<3 3 3 3 2 2 2 2>,<5 5 5 5 4 4 4 4>,7]") # s "superpiano" # velocity (slow 8 $ 0.4 * sine + 0.5) # gain (slow 64 $ 0.8 - sine * 0.4) d8 -- Network glitches $ whenmod 8 6 (stut 4 1.1 (1/16)) $ sometimes (off 0.25 (chunk 8 $ rev)) $ someCycles (# crush 6) $ someCyclesBy 1 (fast 2) $ s "glitch:5" # gain 0.8 d9 -- drumroll $ whenmod 64 56 (# gain (slow 8 $ 1 - tri)) $ whenmod 64 48 (degrade) $ whenmod 64 40 (# room 0.6) $ whenmod 64 32 (fast 2) $ whenmod 64 24 (degradeBy "0.2 0.2") $ whenmod 64 16 (degradeBy "0.1 0.1") $ whenmod 64 8 (degradeBy "0 0.1") $ someCycles (fast 2) $ fast 4 $ "dr" d7 -- super fork $ whenmod 128 96 (# gain (slow 32 $ 1- tri)) $ whenmod 128 64 (fast 2) $ whenmod 128 32 (# gain (slow 32 $ tri)) $ whenmod 16 8 (|- note 2) $ whenmod 16 4 (|- note 2) $ note (scale "major" "0 7 0 7") # s "superfork" # gain 0 # room 0.8 # size 0.6 d10 -- claps -- $ degrade $ fast 2 $ s "~ clap:8" # gain (slow 32 $ 0.5 * sine + 0.35)