do -- resetCycles setcps (160/60/4) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMute1 = (midiOn "^73" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16")) let gMute3 = (midiOn "^75" (mask "f*16")) let gM1 = gMask . gMute1 let gM2 = gMask . gMute2 let gM3 = gMask . gMute3 let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) d1 $ gMute2 $ gF1 -- Kick solide $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz" $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4" $ midiOn "^30" ((# "hardkick_rha:40") . (|- note 1) . (|* gain 0.8)) $ midiOn "^42" (struct "t t t t*<1!6 2 2>") $ midiOff "^42" (<| "k . ~ k ~ <~!3 <k ~>>") $ "[jazz,kick:4]" # gain 1.2 -- # midiG' "^78" 0 1.5 d2$ gMute1 $ gF1 -- snare contretemps variable $ fix ((|* gain 0.8) . (# legato 0.05)) "cp" $ midiOn "^43" (<| "~ cp [~!3 <~!3 cp>] cp*<1 1 2 <1 2>>") $ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]") $ "[cp,snare:22]" # pan 0.65 -- # legato 0.22 d3 $ gM1 $ gF1 $ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>" # "snare:34" # hpf 7000 -- # midiG' "^80" 0 1.5 d8 $ gF1 $ gM1 $ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask $ midiOn "^36" ((# "jungle_breaks:22")) -- Raise COMEON! $ midiOn "^56" (loopAt 2 . (# "jungle_breaks:23")) -- Raise COMEON! $ midiOn "^92" ( -- Bouton Nassim <3 slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>" . loopAt 1 . (# "breaks165") -- . (# octer 0.4) . ( octersubsub 4) . (# lpf 2500) . (# room 0) ) $ chop 16 $ "breaks165" # cut 8 # octersub 0.5 # gain 1.2 d4 $ gF2 $ gM3 -- BASSLINE $ midiOn "^89" (|+| note "[0,12*4]") $ midiOff "^89" (|+| note "[0,[<7 7 4 7>(3,8,1)]]" ) $ superimpose ((# hpf 200) . (# crushbus 41 (range 16 3.5 "^53"))) $ note ("<e3 fs3 <gs3 d4> <a3 df4>>" - 12) # "bassWarsaw" # gain 1.12 # room 0.7 # dry 1 # sz 0.8 d7 $ gF2 $ gM3 -- ACID BASS TODO REWORK WITH RAPH $ midiOff "^59" ( -- (|+ note "<0 12>") . mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>") $ stack [ -- n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^55" + "^35")), -- "vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^55"), "vec1_acid:39" # hpf 200 # gain (range 0 1.4 "^35"), -- TODO BONUS ACID -- # octer 1.1 -- , "" ] # crushbus 41 (range 16 1 "^53") -- # legato 1 # legato (range 0.39 0.7 (1 - "^17")) >| note ("[e gs e fs gs e fs e]*2" - 12 ) # gain 1.12 # room 0.7 # dry 1 # sz 0.8 d6 $ gF1 $ gM1 -- HAWKS $ superimpose (# hpf (slow 8 $ range 5000 "<8000!32 800!32>" saw)) -- $ mask "<f!16 t!16>" $ "~ [s s*2] ~ [s*<1!3 2> <~!3 s*<1 2>>]" # "armora:1" # legato "<0.5>" # note "<c10!3 d10 d10 d10 e10 [e10!3 c10]>" -- # pan 0.9 # room 1.0 # octersubsub 2 # octersub 2 # sz 0.01 # gain 1.5 # dry 1.025 d5 $ gM3 $ gF3 $ midiOn "^18" (# n "6") $ midiOn "^58" (mask "<t f f f>" . (# n "<4 5!2 4!6>") . (|* speed 1.05)) $ midiOn "^90" (struct "f(3,8)" . ply 4 . chop 2) $ someCyclesBy (1 - "^34") (mask "<t f f f>") $ "ghost" # n (slow 4 $ "<0 1 2 3>") # cut 5 # lpf 3000 # room 0.4 # sz 0.8 # dry 1.2 d11 -- $ mask "<f!8 t!8>" $ stack [ -- SELF-DESTRUCT SEQUENCE -- whenmod 8 6 (# silence) $ slow 4 $ whenmod 32 24 ((# begin 0.44) . (# end 1) . (# n 45)) -- Activated! $ ("~!2 rhadamanthe_vocal:45" # gain 1.1 # begin "<0!2 0.44!2>" # end "<0.435!2 1!2>" # pan 0.1) # cut 110, -- SYSTEM OVERLOAD mask "<t!8 f!56>" $ "<~!7 [~ rhadamanthe_vocal:46]>" # cut 111, -- Cigarette Luck mask "<f!24 t!8>" $ n "<<14!3 6> ~ ~ <12 23>>" # "movie_wolf" # end "<0.55!8 1!8>" # gain 0.7 # cut 112 # gain 1.2 ] d9 $ gF2 $ gM3 $ midiOn "^89" (ply "<2 4 8 [8 16]>") $ note ("<e3 fs3 <gs3 d4> <a3 df4>>" + 24) # "moog" # cut 9 # room 0.3 # dry 0.5 # gain 1.6 # crushbus 91 (range 16 3.5 "^19")