-- Monday fairy do setcps (120/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 gM = gMask . gMute let gM2 = gMask . gMute2 let maskDrum = "t(5,8) . t(9,16)" let maskDrumI = "f(5,8) . f(9,16)" d1 $ gF1 $ gMute2 $ midiOn "^42" (<| "k k k k") $ midiOff "^42" (<| "k . k(3,8)") $ "[techno:0,808bd:2,jazz]" # midiG' "^78" 0 1 d2 $ gF1 $ gM $ midiOn "^43" (<| "~ c ~ c") $ midiOff "^43" (<| "~ c") $ "cp" # midiG' "^79" 0 1 d3 $ gF1 $ gM $ mask "<f!8 t!24>" $ midiOn "^44" (const -- JIUUUUUUNGLE $ midiOn "^76" (# n 70) $ sometimesBy "^52" (ply "<2 <4 [4 8]>>") $ loopAt 4 $ chop 8 $ "jungle_breaks:10" # midiG' "^80" 0 1 ) $ "~ h ~ h*<1 1 2 1> ~ h ~ h*<1 2>" # "808cy" # n "<7!12 [7,8] [7,9] [7,10] [7,1]>" # legato 1 # room 0.1 # dry 1.1 # midiG' "^80" 0 1 d4 $ gF2 -- the bassy fright $ fix (|* gain 0.8) "bass2" $ note "<0 2 5 <7 8>>(<3 [3 5] 3 <3 5>>,8)" # "[bass2:4,bass3:0]" # att "<0.25 0.2 0.15 <0.125!3 0.5>>" # rel 10 # lpf 200 # room 0.4 # sz 0.8 # midiG' ("^81" - 0.35 * "^53") 0 1.2 # distortbus 41 (range 0 1 "^53") -- FIXME: Meileur effet # lpfbus 42 (range 4000 500 "^53") # roombus 43 (range 0.4 0.14 "^53") d5 $ gF3 -- The starry night $ whenmod 64 32 (superimpose ( -- Star rain (|+| note "0 12 0 <12 24>") . slice 4 "0 1 2 3 0 1 2 3*4" . (ply 2) . fast 2 )) $ note ( "<e5 a4 c5 <[d5 <d5 e5>]>>" -- Mélodie -- + 2 -- Calage + "0([3 5],8, [0 <6 0>])" -- Structure ) # "organTonewheel4" # midiG' "^82" 0 0.8 # room 0.4 # sz 0.8 # pan 0.7 d7 $ gM $ gF1 $ midiOn "^59" (mask (cat [maskDrumI,maskDrumI,maskDrumI,maskDrum])) $ slice 4 "0 <1!8 0 0 0 1 0 1 0 1*2> 2 <3*<1 2 4 8> 3*<2 4 8 16> 3 [~ 3*<1 2>]>" $ "break:1" # cut 1 # midiG' "^83" 0 1 d8 $ gM $ gF1 $ midiOn "^92" (struct "t . t(<3 <5 [5 8]>>,8)") $ midiOn "^60" (ply "<[4 2 2 4] [4 8 4]> <8 8 16 [16 32]>") $ midiOn ("^59" - "^60") (mask (cat [maskDrum,maskDrum,maskDrum,maskDrumI])) $ chop 16 $ loopAt 4 $ "break:3" # midiG' "^84" 0 1 # cut 2 d12 $ gF3 -- Vocals with delay :sunglasses: $ whenmod 128 (128-16) (# n "<~ <37 38>>") -- Help me! $ whenmod 128 32 (# n "<~ <5 4>>") -- Mutters $ n "<~ <50!3 [50@1 51@2]>>" -- Ways to die / souls # "jungle_vocals" # cut 12 # delay (slow 16 $ range 0.1 0.8 perlin) # delayfb 0.8 # delaytime "<0.25!3 0.5>" # midiG' "^17" 0 0.48 d9 $ gF3 -- Ambiance: verre entier $ note "<a3@2 <c4@2 [c4@3 d4]>>" # "90s_glassatm" # cut 9 # pan 0.2 # midiG' "^18" 0 0.45 d10 $ gF1 -- Ambiance: JUNGLE NOISES $ fix ( (ply "<1 [1 [2 [4 [8 16]]]]>") . (# "jungle_fx:13") . (|* gain 0.8) ) "j3" $ fix (# "jungle_fx:14") "j2" $ fix (# "jungle_fx:8") "j1" $ stack [ "<~!7 j1>", "<~!8 j3 j3 ~!3>", "<~!12 j2 ~!4>" ] # cut 10 # midiG' "^19" 0 0.5 d11 -- Nappes background -- $ (0.125 ~>) $ note "<e4 <d4 [d4 c4]>>/2" # "jungle_pads:9" # legato 2 # cut 6 # midiG' "^20" 0 0.6