do setcps (80/60/4) -- resetCycles 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 gM1 = gMask . gMute let gM2 = gMask . gMute2 let gM3 = gMask . gMute3 d1 $ gF1 $ gM2 $ midiOn "^42" (fast 2 . (<| "k k k <k k*2 k [<~!3 k*2> k*<1 2>]>")) $ midiOff "^42" (<| "k ~ . ~ k ~ <~!3 <k k*2>>") $ "[jazz,808bd:3]" # gain 1.8 d2 $ gF1 $ gM1 $ midiOn "^43" (<| "~ s ~ s ~ s ~ <s? s*2>") $ midiOff "^43" (<| "<[~ s]!12 [~ s ~ [s*<1 2> ~]]!4>") $ "snare:21" # gain 1.3 d3 $ gF1 $ gM1 $ "dr*[8 8 8 <4 12 12 [<12 32> 16]>]" # gain 1.2 d4 $ gF2 $ gM3 $ midiOn "^89" (ply 8) $ (|- note 24) $ midiOn "^58" ((|> note "<d b a b>") . (|* gain 0.8)) $ note ( "<g e a d>" + "[0,7] . 12 0" -- "<d b a d>" ) # "bassWarsaw" # bandf 200 # bandq 1 -- # octersub 0.5 -- # room 0.64 -- # sz 0.3 # dry 1.2 # gain 1.2 d5 $ gF3 $ gM3 $ midiOn "^58" ((|> note "<[f4, a4, c5, d5] [fs4, a4,d4]>"). (|* gain 0.8)) $ note ( ( -- arp "up" $ "<[g4, b4, d5] [g4, b4, d5, e5] [a5, c5, e5] [a5,c5,d5,fs5]>" + "0 ~ ~ 0 ~ ~ 0 ~ ~ 0 ~ ~ 0 ~ ~ 0" ) ) # "FMRhodes2" # modIndex (range 0 32 "^54") # legato 1 # room 0.2 # gain 1.1 d9 $ gF3 $ gM3 $ superimpose (arp "pinkyup" . slow 4 . struct "t*4") $ midiOn "^58" (|> note "<[f4, a4, c5, d5] [fs4, a4,d4]>") $ note (( "<[g4, b4, d5] [g4, b4, d5, e5] [a5, c5, e5] [a5,c5,d5,fs5]>" -- + "0 ~ ~ 0 ~ ~ 0 ~ ~ 0 ~ ~ 0 ~ ~ 0" )) # "moogBass" # octave "<6!4 5!4 3!5 2!4>" -- # "superpiano" # legato 1 # room 0.2 # gain 1.1 d7 $ gF1 $ gM1 $ ply "1 <1 <2 [2 4]>>" $ "[~ hh]*8" # gain 1.4 d8 $ gF1 $ gM1 $ loopAt 1 $ midiOn ("^60"- "^92") (slice 8 "~ 0 ~ <1 3(<1 3 3 5>,8) 5 7*<1!3 2>>") $ midiOn "^92" ( -- Bouton Nassim <3 slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>" . loopAt 1 . (# "breaks165") -- . (# octersubsub 1.4) . (# lpf 2500) . (# room 0) ) $ whenmod 8 7 (slice 4 "0 1 2 3 0 1 2*2 3*2") $ chop 8 $ "jungle_breaks" # n "<104!3 105>" -- d4 $ gF2 $ gM3 -- BASSE QUI DONNE DES AILES <3 -- $ midiOn "^57" (|- note 12) -- $ midiOn "^89" (ply "1 . <8 <12!3 24>>") -- $ whenmod 128 64 ( -- Echoes of triplets -- off 0.5 (struct "~ t(3,8)" . (|+ note 12) . ( |* gain 0.93))) -- $ whenmod 64 48 (>| note "<d4 f4 a3 g3 d4 a3 <g3!0 [g3@3 [g3 a3]]> d3>") -- $ note "<d4 a3 g3 d3 g3 f3 [b2@3 [b2 f3]] d3>" -- # "bassWarsaw" -- # crushbus 41 (range 16 3.5 "^53") -- # gain 1.5