once $ "FMRhodes1" fs ds do setcps (94/60/4) let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)")) 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 $ gMute2 -- Kick resolu $ midiOn "^42" (<| "k*4") $ midiOff "^42" (<| "<k [k ~ ~ <k [k k k ~]>]>") $ "[clubkick,jazz]" d2 $ gF1 $ gM1 $ midiOn "^43" (struct "~ t ~ t") $ midiOff "^43" (struct "~ ~ t ~") $ fix (|+ note 2) "snare" $ "[dr55,snare:24]" # rel 0.35 d3 $ gF1 $ gM1 -- Scintillement de claquements de doigts $ midiOn "^44" (off "<e!4 s!4>" ((|* gain 0.8) . (# hpf 5000))) $ "~ <~!4 c!4> ~ c ~ <~!3 c ~ c!3> ~ <~!4 c!4>" # "rampleC5:14" # hpf 5000 # att 0.0 # rel 0.2 # room 0 d4 $ gF2 $ gM3 -- Piano magique guide eternel TODO SPLIT BASS and piano d5 $ midiOn "^57" (const $ gF2 $ gM3 $ slow 2-- ARTIFICIAL BASSLINE <3 $ midiOn "^89" (ply "2 4") $ note ("[b,fs6]@1.5 [a,e6]@1.5 [[<fs!3 fs6>, cs6](3,8) [<fs!3 fs6>, cs6](<1 3 3 5>,8)]@3" - 24) # crushbus 41 (range 16 3.5 "^53") # room 0.2 # "bassWarsaw" # gain 0.7 ) $ midiOff "^57" (# cut 4) $ midiOn "^89" ((ply "2 <4 1 2 4> <2 4 4 2> <2 2 4 8>") . (# room 0)) $ loopAt 8 $ chop 16 $ "suns_keys" # n (slow 4 $ "<0 1 2 3>") # crushbus 41 (range 16 2.5 "^53") # lesliebus 42 (range 0 1 "^33") # lrate 0.92 # lsize 1.9 -- # lsizebus 43 (range 0.8 1.8 "^33") # pan 0.3 # gain 1.0 d11 $ gF3 -- Angels of deception $ slow 2 -- $ mask "<[f f t] t!3>" -- $ mask "<[f f t] t!3>" $ struct "t(<3 5>,8) ~" $ note ("[gs3 g3 fs3] ~" + 12 + "[0,<12!2 7!2>]") -- $ note "<fs3>" # "moogBass" # legato 4 # modIndex (slow 16 $ range 0 5 perlin) # room 0.4 # att 0.24 # rel 2 # gain 0.8 d12 $ gF2 $ gM3 -- Devils of delusion $ someCyclesBy (slow 16 $ range 0 0.8 saw) (ply "1 2!6 <2 1>") $ slow 2 $ struct "t(<3 5>,8) t(5,8)" -- $ superimpose ((|+ note "<12!2 7!2>") . (# cut 121)) $ note ("[cs d fs] <~!4 [fs [d cs6] ~]!12>") -- $ note "0" # "moog:1" # legato 0.8 # pan 0.8 # room 0.2 # crushbus 121 (slow 4 $ range 16 3.5 perlin) # cut 12 # gain 0.9 d8 $ gF1 $ gM1 $ midiOn "^36" (loopAt 0.25 . iter "<1!8 [1 4]!4 4>" . (# "breaks165")) $ midiOn "^56" (struct "t([<4 4 5 4> <4 5 5 8>],8,1)" . (>| n "44 45")) $ midiOn "^60" (loopAt 0.5) $ midiOn "^92" (ply "1 2 <1 2> <2 4>") $ chop 16 $ loopAt 4 $ "jungle_breaks:45" d6 -- $ loopAt 8 $ chop "4 8" $ note "<[fs,a,cs] [gs,c,ds] [g,b,d] [fs,a,cs]>" # "giorgio_syn:43" -- # cut 6 # pan 0.8 -- # crushbus 61 (range 16 4.5 "^31") -- # hpfbus 62 (range 0 1500 "^31") # gain 0.65 d7 $ gF3 $ gMute3 -- La guitare d'Icare $ midiOn "^91"(ply 2) $ midiOn "^59" (# n 1) $ fix (|* gain 0.8) (n "1") $ loopAt 2 $ superimpose ((# lpf 2500) . (# cut 71)) $ chop 8 $ "suns_guitar:0" -- # n "<0!4 2!3 3 2!3 3 3!3 <2 3>>" # n "<0 0 0 1 0 1 0 1 2 2 2 3 2 3 0 3>" # crushbus 71 (range 16 8.5 "^55") # lpfbus 72 (range 20000 5000 "^55") -- # octerbus 73 (range 0 1 "^35") # hpf 1200 # cut 7 # gain 0.9 d9 $ gF3 $ gMute3 -- VOICES OF SUNS $ midiOn "^17" ((>| n "<2 ~>") . (|* gain 1.1)) $ whenmod 64 48 (# n 3) $ slice 2 "<0 <0 1> <0 0 [1 0] 1> 1>/2" $ "suns_voice:0" # end "<0.1 0.3 1 1>" # n "<0!8 1 [1 0] [1 0 0 1] 1 1 [0 1] [1 0 1 1] [1 1 0 1]>" # hpfbus 91 (range 0 5500 "^19") # crushbus 92 (range 16 4.5 "^18") # roombus 93 (range 0.1 0.9 "^18") # sz 0.9 # cut 7 # pan (slow 32 $ sine) d10 -- Decoration $ fix ( (loopAt 4) . gMute . gMute2 . mask "<f!24 t!8>" . (# gain 0.8) . (# speed 0.5) . (# cut 102) ) "risers" -- Riser occasionnel $ fix (mask "<f!3 t f!4 f!3 t f!3 t t!3 f t!2 f f t f!3 t!4>" . (# cut 101) . (# gain 0.2) . (# pan "<<0.2!3 [0.2|0.7]> <0.8!3 [0.8|0.3]>>") . (# speed "<0!24 -1!8>") ) "suns_voice" -- Whisper $ stack ["risers:19/2", "suns_voice:2"] # room 0.2