-- A LA VOLETTE setcps 0.5 d1 $ someCycles (degradeBy "0 0.5 1 0" . fast 2) $ whenmod 8 6 (degradeBy "1 1 1 1 1 1 1 0") $ s "<k [k*2 ~]> . k ~ <~ k?> <k? k>" # s "reverbkick" # lpf 500 # gain 1.5 d2 $ whenmod 8 6 (juxBy 0.2 (# crush 4)) $ someCycles (jux $ hurry 2) $ sometimes ((# n 3) . stut 4 0.75 0.125) $ s "~ s? ~ s?*2" # s "808sd:1" # gain 0.8 # pan 0.2 d3 -- Drumroll baby! $ whenmod 16 15 (# gain 0.8) $ whenmod 16 10 (# gain 0) $ whenmod 16 0 (# gain 0.8) $ fix ( (stut "[2|3]" 0.5 (1/32) . (|- gain (slow 8 $ sine * 0.3)) . (# n "[6|1|[1, 9]]") )) (n "1") $ (# n "0 . 0 0 0 1") $ whenmod 64 2 (fast "<2 1> <1 2>") $ whenmod 16 0 (fast 2) $ fast "8 <1 2 4>" $ s "dr" # pan (slow 32 $ sine / 2) d4 $ someCycles (degrade . (# sustain 0.25)) $ someCycles (slow 2) $ bite 4 "<[0 1 2 3] [0 1 1 1] [0 3 2 1] [[0|0 0] 2 1*2 <3 3 0 3>]>" $ note ("5 6 8 ~ 8 [6 5] 6 ~" - "[24,36]" ) # s "supersaw" # voice 0.05 # resonance 0.1 # decay (slow 32 $ range 0 0.5 cosine) # lfo (slow 16 $ range 0 1.8 sine) # gain 0.8 -- Apris à - à la volette d5 $ (|- note 8) $ whenmod 32 16 (superimpose ((# s "superfork") . (|+ gain 0.2))) $ degradeBy ("<0.75 0 0 0.5 0 0.9 0 0>") $ whenmod 8 7 (sometimes (# room 0.3)) $ whenmod 8 6 ( >| note "1 5 3 ~ . 0 1" -- APRIS À VOLER ) $ whenmod 8 4 ( |> note "3 5 6 ~ 6 [5 3] 5 ~" -- A LA VOLETTE! ) $ note "5 6 8 ~ 8 [6 5] 6 ~ " -- Apris à - à la volette # s "superfork" # voice 0.25 # accelerate (0.025) # gain 0.7 # room 0.1 # size 0.1 # pan 0.8 once $ note "0 .. 4" # s "supersquare" # voice 0.25 # accelerate (-0.02) # gain 0.7 d4 $ (# n 0) $ fix ( -- mon petit / mon petit oiseau every 4 ( superimpose ( const -- oiseau scratch $ degradeBy "<0 .. 0.5 0.5 .. 0.2 0.2 .. 0.6 0.6 .. 0>" $ n "0*16" # s "birds3" # n (choose [0,0,2]) # pan (slow 8 $ sine) ) . (# end 0.08) . (stut 2 1 0.25) ) . (# end 0.2) ) (n 0) $ fix ( (# begin 0.2) . (# end 0.4) ) (n 1) $ n "<~ <0 1>>" # s "kaamelott" # gain 0.6 once $ note (scale "major" 1 - (run 4)) # s "kaamelott:1" # end 0.04 # cut 1 # gain 0.8