E b d e once $ "dr" -- V2: Reboot base mi tension si do let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF2 = (# djfbus 2 (range 0.15 0.85 "^50")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMute = (midiOn "^73" (mask "f*16")) let gM = gMask . gMute let modIndex = pF "modIndex" let scale = getScale (scaleTable ++ [("snow", [4,6,7,9,11,12,15])]) setcps (90/60/4) d1 $ gF $ gMute -- HEARTBEAT TODO: Allege? $ superimpose (# "kick:5") $ midiOn "^74" (ply 2) $ midiOff "^42" (<| "k . ~ ~ ~ <~!7 k*<1 2>> <~!3 k>") $ midiOn "^42" (<| "k k k <k [<k ~> k]>") $ "tek_strange:1" # legato "e" # room 0.2 # lpf 1000 # note "<-3 <-1!3 -5>>" # midiG' "^78" 0 1.4 d2 $ gF $ gM $ "~ cp ~ cp" -- FIXME: Change le snare # gain 0.8 # room 0.9 # sz 0.8 # lpf 5000 # dry 1 # midiG' "^79" 0 1.4 d3 $ gF $ gM -- Drums juxés - FIXME DRUMROLL <3 $ fix ( struct "~ t ~ t ~ t ~ t*2" . (# "[dr,tek_hh:0]") . (|* gain 0.66) . (# room 0.4) ) "juxed" $ fix ( struct "~ t ~ t*2 ~ t ~ t" . (# "[tek_hh:0]") . (|* gain 0.7) ) "base" $ jux ( ((# "juxed")) ) $ "base" # midiG' "^80" 0 1.4 # room 0.2 # dry 1 d4 $ gF2 $ gMask -- BASSLINE - TODO Sometimes double hit $ note (scale "snow" ("<[0@7 <-2!3 1>] <[-3@7 -1]!3 -3>>") - 12 ) # "bassWarsaw" # midiG' "^81" 0 1.2 # room 0.4 # sz 0.8 # dry 1 # lpf 3000 d5 $ gF2 -- MadKeys - Todo allege? $ midiOn ("^58") (off "e" id) $ note (-24 + scale "snow" ("[0(3,8)]*4" + ("[0 1 2 3]" + "4 4 4 <3 4>") -- + "<0!4 4!4>" )) # "FMRhodes1" -- # hpf 500 # modIndex (range 0 12 "^34") # crushbus 51 (range 16 4 "^54") # legato 0.5 # midiG' "^82" 0 1.5 d6 $ gF $ gM -- Break salvateur -- $ chop 4 $ midiOff "^20" (mask "<f!32 t!32>") $ slice 4 "<[<0 2>]!8 [<0 2> <1 3>]!8 [0 1 <2!3 0> <3!3 1*<1 2>>]!8 [0 1 2 3 [0 1] [1 2] [2 3] [2 3]]!8>" $ loopAt 1 $ "breaks165" # cut 6 # pan 0.2 # octersub 0.8 # octersubsub 0.9 # lpf 4000 # midiG' "^84" 0 1.5 d8 -- TODO Finir Choeurs glitchés $ slice 8 (run "<4 4 8 16>") $ "voice/2" -- # "voices_balkan:2" # "voices_celtic" # n "<2 3>" # pan 0.8 # midiG' "^83" 0 1 # cut 8 d9 $ note (scale "snow" ("0 1 2 3 0 1 2 3" + "0 <0!3 3>")) # "moogBass" # legato 0.2 # midiG' "^83" 0 1 -- V1: Yay, voices do let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMute = (midiOn "^73" (mask "f*16")) let gMutePont = (mask "<t!14 f [t f!3]>") let gM = gMask . gMute . gMutePont setcps (100/60/4) d1 $ gMute $ gF $ midiOn "^42" ( superimpose (const $ "<[k k k <k!3 [~ k]>]!64 [[k . k(<3!3 <5 [5 8]>>,8)],[~ . k(<0 1 3 1>,8,4)]]!64>" # "jazz:0" # room 0 # midiG' "^78" 0 1.6 ) ) $ "<k ~> . ~!3 <~ k>" # n "[6,7,20]" # room 0 # "808bd" # midiG' "^78" 0 1.4 d2 $ gMute $ gF -- Snare n.r.v. $ "<[~ s]!8 [~ s ~ s]!8>" # "snare:70" # octer 0.8 # octersub 4.2 # pan 0.6 # midiG' "^79" 0 1.4 d3 $ gF $ gM $ midiOn "^44" (fast "2 <2 <4 [4 8 4 16]>>") $ midiOn "^76" (fast "2 <2 <4 [4 8 4 16]>>") $ "dr dr dr dr" # "[dr,drum:2]" # hpf 500 # midiG' "^80" 0 1.4 d5 $ gF $ gM -- Break nuageux $ chop 16 $ loopAt 1 $ "breaks165" # lpf 3000 # cut 5 # midiG' ("^80" * "^52") 0 1.4 d4 $ gF2 -- BassLine $ superimpose ( -- ELECTRICITY (# cut 41) . (# crushbus 41 (range 16 4 "^53")) . (# legato 4) . (# room 4) . (|* gain 0.8) . (# panbus 42 (range "<0.5!3 0.9>" "<0.9!3 0.5>" saw)) ) $ note ("<e [~!7 <d d g a>]>" - 24) # "bassWarsaw" # legato 1 # cut 4 # room 0.4 # dry 0.9 # sz 0.8 # midiG' "^81" 0 1.4 d6 $ gF2 -- Heyah! $ whenmod 4 3 (mask "t . t f") $ slice 4 "0 0 1 [3 ~]" $ chop 4 $ "voices_persian:2/2" # speed 0.8 # octersubsubbus 61 (range 0 2.4 "^56") # cut 6 # midiG' "^84" 0 1 d10 -- READY FOR THIS MAN? $ mask "<f!14 t <f t>>" $ someCyclesBy "<f!32 t!32>" (ply "<1 2>" . (slice 5 0)) $ someCyclesBy "<f!16 t!16 f!32>" (slice 3 1) $ "voices_reggae:7" # cut 9 # midiG' "^83" 0 1 -- TOO GOSPEL? d5 -- Chorus 1 $ whenmod 64 48 (-- MYMYMY -- (ply "<1!4 2 [2 4] [2 8 4] [8 4 16]>") . (# n "<5 6 7 8 5 6 5 6 7 8 7 8 9 10 9 10>") -- . (superimpose ((# cut 51) . (# crush 4))) ) $ n "<0!4 0 1 2 3>" # "g_gospel3" # cut 5 # pan 0.13 # room 0.4 # dry 1 # midiG' "^83" 0 1 d6 -- Chorus 2 $ slice 3 "<0!4 1!4>" $ "g_gospel3:23" # room 0.58 # dry 1 # legato 2 # hpf 600 # pan 0.8 # midiG' "^84" 0 0.9