do let gKick = 0.65 let gSnare = 0.6 let gDrums = 0.8 let gHats = 0.57 let vPiano = 0.35 let gCloches = 0.7 let gBass = 0.5 let gBrass = 0.5 setcps 0.45 solo 1 -- Kick solo 2 -- Snare solo 3 -- Drumroll solo 4 -- Piano solo 5 -- Bass solo 6 -- Hats solo 7 -- Cloches solo 8 -- Brass d1 $ whenmod 16 14 (slow "<2 [1 0.5]>") $ whenmod 32 24 ( -- Pont solo basse degradeBy "1!7 [1 . 1 0]" ) $ s "k k k k*[1|2]" # s "jazz" # hpf 100 # gain gKick d2 -- Snares decroissants $ whenmod 32 24 ( -- Pont solo basse # silence) $ often ( -- Echos filtre decroissant stut' 4 0.125 (|* lpf 0.8) ) $ fast "<1!7 [2 4]>" $ s "~ snare:20" # lpf 5000 # gain gSnare d3 -- $ whenmod 32 24 ( -- Pont solo basse -- # silence) $ fast "8 <8!4 [8 16]!4> <8!8 16!8> [8 16]" $ s "drum:8" # gain gDrums d4 $ whenmod 32 24 ( -- Pont solo basse |+ gain "<0.1 0.2 0 -0.1 -0.2!4>" ) $ (0.25 ~>) $ off 0.125 (# lpf 250) $ note ( "<f4'maj!3 f4'min f4'min!3 f4'maj>" ) # s "superpiano" # velocity vPiano d5 -- Bassline $ mask "t([1|2|4],8)" $ superimpose -- Accélération 8-bit! (fast 2 . (# crush 6)) $ note ( slowcat [ "0 3 5 ~ <~ 5> <5 ~> 5 ~", "<5 ~> <~ 5> 5 5 <3!3 8> ~ <3!7 7> ~" ] ) |- note 24 # s "supersaw" # voice 0.2 # sustain "0.25!2 0.5 0.25" # pan 0.6 # gain gBass d6 -- Hats open-closing $ s "ho(<1!3 2>,2) hc:2*<1!4 2!4 4!4 8!4>" # n "[0|1] 3" # cut 6 # gain gHats d7 -- Accelerating Bells $ superimpose (slow 2 . arp "<updown!3 downup>") $ someCyclesBy "<0!8 0.5!4 0.75!4>" (fast 2) $ note ("0(1,8)" + "<f3'min!3 f3'maj>" ) # sustain 1 # s "superfork" # gain gCloches d8 -- Brass lancinant $ whenmod 128 64 (# gain gBrass) $ whenmod 32 24 (# note "<0!3 7>") $ whenmod 64 32 (off 0.25 (# begin 0.75)) $ note ("~!7 <0!4 2 3 5 7>") # begin 0.5 # room 0.6 # sz 0.8 # s "brass:6" # gain 0 once $ s "brass" # n 6 # note # begin 0.5 # gain 0.7 -- # speed 1.2 # cut 10