-- Le DR0NE AVEUGLE -- Intro weird superchip: is this even music? -- Pont superchip crushed+plyed do setcps (100/60/4) let slide x = acceleratebus 01 (2**(x/12)) let g = (# djfbus 1 (range 0.1 0.9 "^49")) let g2 = (# djfbus 2 (range 0.05 0.95 "^29")) d1 $ g -- KICK $ midiOn "^41" (<| "k k k [k <~!3 k>]") -- Attente Chaloupée $ midiOff "^41" (<| "k . ~ ~ ~ <k!3 [~ k]>") -- Cours toujours $ "[jazz,808bd:3]" # midiG' "^78" 0 1.2 d2 $ g2 -- Snare minitel -- $ midiOn "^43" (<| "~ s ~ s*<1!3 <[2 <2 2 4 4>] [4!3 16]>>") $ fix (ply "1 <1!3 <2 4>>" . (|* gain 0.9) . (# legato "<0.4!6 0.5!2>")) "glitch" $ fix ((|* gain 0.85) . (# "realclaps:2")) "cp" $ fix (|* gain 0.8) "snare" $ midiOn "^43" (fast 2) $ "~ . [glitch:5,snare:11,<~!8 cp!24 cp!8 ~!8 cp!16>]" # midiG' "^79" 0 1.4 d3 $ g -- Fight hats -- FIXME Rework? Could be loved <3 $ midiOn "^44" (fast "4!3 <8 [<4 8> <4!3 8>]>") -- RUN $ "h2ogmhh(3,8)" # n "<1 <2!3 1 2!2 1 1>>" # midiG' "^80" 0 1 d4 -- Frequency-modulated hopes $ g2 $ midiOn "^89" (chop 16) $ superimpose (|+ note (cat [ 2,2,2,3, 3,3,4,5, 4,5,4,5, 5,6,7,8 ])) $ note ("d" - 12) # "superfm" # crushbus 41 (range 10 0.95 "^53") -- Harmonics of destruction # midiG' "^81" 0 (0.75 - 0.2 * "^17") d5 $ g2 -- BASSLINE $ midiOn "^58" (chop 4) $ arp "up" $ n (scale "aeolian" "<0 <2 [<2 0> . ~ <~ 2> 4 2]>>" -- V1: Love the end Pattern -- "<<[0] [0*4]> <[2 . ~!4 2] [2 2 4 2] 2 [<2 0> . ~ <~ 2> 4 2]>>" -- V1.1: Noisy :/ + "<0!8 [0,12]!24>" -- "<d'maj11'8!3 [d'maj11'i'6]>" - 24) # s "superchip" # voicebus 51 (range 0.75 0.05 "^34") # crushbus 52 (range 16 2 "^54") # midiG' "^82" 0 (0.8 - 0.1 * "^54") # room 0.4 # dry 1.02 # sz 0.8 d6 $ g2 -- Sirene apocalyptico-commerciale $ midiOn "^91" ( slice 4 (mask "t" $ fast 8 $ run "<4!3 [4|2]*8>")) $ midiOff "^59" (slow 8) $ n ( scale "aeolian" "[0 <[<5 6> <4 5>]>]/2" - 36) # "supersiren" # crushbus 62 (range 10 2.5 "^55") # midiG' "^83" 0 0.6 # panbus 63 (range 0.4 0.8 (sine - 2 * (fast "<2!3 4 4!3 0.25>" $ perlin))) d7 $ g -- Down Break $ midiOn "^60" (chop 4) $ midiOn "^92" (ply 4) $ slice 4 "0 1 <2 [2|1]> <1 2 3 7*<1 <2 4>>>" $ loopAt 2 $ "break:15" # speed (range 0 2 "^56") # midiG' "^84" 0 0.8 # cut 7 # pan 0.35 once $ loopAt 2 $ "fbass:1" # cut 5