do resetCycles setcps (170/60/4) 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")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMute = (midiOn "^73" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16")) let gMute3 = (midiOn "^75" (mask "f*16")) -- let gMute = (midiOn "^73" (mask "f*16")) let gM1 = gMask . gMute let gM2 = gMask . gMute2 let gM3 = gMask . gMute3 let modIndex = pF "modIndex" d1 $ gF1 $ gM2 -- Kick $ midiOn "^42" (<| "k k k k*<1!3 2>") $ midiOff "^42" (<| "k . ~ k ~ ~ ") $ "[kick:4]" # gain 1.2 d2 $ gF1 $ gM1 -- Snare melancolie fromagere $ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>") $ midiOn "^43" (<| "~ s ~ s*<1!3 2>") $ "[hardkick_rha:1]" # gain 1.45 d3 $ gF1 $ gM1 $ midiOn "^44" (ply 2) $ midiOn "^76" (ply 2) $ "d*[16 <12 <16 [12 24]>> . 8]" # "dr" # gain 1.2 -- # midiG' "^80" 0 1 # room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw) d4 $ gF2 $ gM3 $ fix (|* gain (range 1 0.5 ("^17" + "^35"))) "vec1_acid:11" $ midiOn "^89" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)") $ superimpose ((|* gain "^17") . (# n 10) . (# legato 0.8)) $ superimpose ((|* gain "^33") . (# n 12) -- . (# cut 41) ) $ note ("d*<3 4 3 2> . ds ds df" + 2 -- Calage ) # "vec1_acid:11" # room 0.5 # sz 0.5 # crushbus 41 (range 16 1.5 "^53") -- d5 $ gF3 $ gM3 d5 $ gF3 $ gM3 $ superimpose ((# hpf 500) . (ply "<1!3 <2 4>>") . (# crushbus 51 (range 16 3 "^54")) ) $ note ("a(3,8) . as*<1 2> af" + "<0!8 12!8>") # "cpluck:1" # room 0.3 # octerbus 52 (range 0 0.8 "^34") # octersubbus 53 (range 0 0 "^34") # octersubsubbus 54 (range 0 0 "^34") d6 $ loopAt 2 $ slice 2 "<0 1>" $ "meth_bass:9" # delay "<0!8 0.5!8>" # delayt 0.5 # delayfb "<0!4 0.4!4 0.6!4 0.8!4>" # room 0.2 # sz 0.8 # cut 6 -- d7 $ gF3 $ gM3 -- FIXME CHORUS -- $ note ("0 12 0 12 0 <12 12 24 24> 0 12" -- + "a . as af" -- + "<0!8 12!8>" - 24) -- # "moogBass" -- # room 0.4 -- # sustain 2 -- # att (range 0.01 0.13 "^55") -- # chorus 2 d8 $ gF1 $ gM1 $ loopAt 2 $ midiOff "^60" (mask "f(8,16)" . chop 16) $ midiOn "^56" (# "jungle_breaks:7") $ midiOn "^36" (# "jungle_breaks:37") $ chop 16 $ "jungle_breaks:101" # cut 8 d9 $ gF3 $ gM3 $ midiOn "^89" (ply "<2 4 8 >") $ note "<a as <a a df5 df5> <d df>>" # "moog" # cut 9 # room 0.3 # dry 0.5 # gain 1.3 # crushbus 91 (range 16 2 "^19")