Commit ee0fbd2c by PLN (Algolia)

Sessions: Fabuleux to Belle Pluie

parent 5a471246
......@@ -33,7 +33,7 @@ d4 $ gM3 $ gF2
$ note ("d" - 2 - 12)
# "90s_synatm:2"
# crushbus 41 (range 12 1.4 "^53")
# octerbus 42 (range 0 1.4 "^33")
# octerbus 42 (range 0 1.4 "^33")
# cut 4
# room 0.4
# pan (slow 32 $ range 0.98 0.7 saw)
......
resetCycles
do
setcps(120/60/4)
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
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 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ fix (|* gain 0.9) "kick:5"
$ "[h2ogmbd:1,kick:5]" -- TODO: Meilleur kick?
# gain 1.2
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ "cp"
# gain 0.9
# pan 0.6
# note "-3"
-- # room 0.84 # dry 0.95 # sz 0.1
d3 $ gF1 $ gM1 -- Highest hats
$ midiOff "^44" (slow 2)
$ arp "up"
$ midiOn "^76" (ply 2)
-- $ "d(<8 10 12 <14 [16 32 [16 <16 32>]]>>,16,1)" -- FIXME IRREGULIER
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
# "[h2ogmsn:14]"
-- # "[rampleS57:2]"
# note (-12 + "3.5" + "e6")
-- # cut 3
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
# pan 0.3
d4 $ gM3 $ gF2
$ midiOn "^89" (superimpose (
(struct "t(8,16)") . (# legato 0.2). (# cut 41))
. (|* gain 0.8)
)
$ note "<<e!3 e4> <~ [~!7 <g g g a g a bf b>]>>"
# "moog"
# crushbus 41 (range 16 2.5 "^53")
# octerbus 42 "^33"
# cut 4 # gain 0.8
d5 $ gM3 $ gF3
$ midiOn "^90" (ply 2)
$ note (arp "down" "c'min'2" + "<<e!3 e4> <b3 [~!7 <g g g a g a bf b>]>>")
# "FMRhodes1"
# crushbus 52 (range 16 2.5 "^54")
# modIndex (range 0 2.5 "^34")
-- # cut 5
# pan 0.7
# gain 1.2
d8 $ gF1 $ gM1 -- Break populaire
$ midiOn "^92" (ply 2)
$ chop 8
$ loopAt 2
$ midiOn "^36" (loopAt "1 <1 0.5>" . (# "jungle_breaks:6"))
$ midiOn "^56" (# "jungle_breaks:24")
$ "jungle_breaks:18"
# gain 0.85
# pan "0.68 0.42 0.42 0.68"
d7 $ gF1 $ gM1 -- SECOND BREAK!!?!
$ midiOn "^91" (ply 2)
$ midiOn "^55" (loopAt 1 . (|> "jungle_breaks:19"))
$ midiOn "^59" (slice 8 (run "8 <8!3 16>"))
$ chop 8
$ loopAt 2
$ "jungle_breaks:22"
# pan "0.8 0.2"
do
setcps(124/60/4)
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
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 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ <~!4 k!12> ~ ~")
$ fix ((|* gain 0.9)) "kick:5"
$ "[jazz,kick:4]"
# gain 1.2
# att 0.04
# rel 2
# room 0.2 # dry 1
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ "clap:1"
# gain 1.2
# pan 0.6
# hpf 5000
# rel (slow 16 $ range 0.6 0.2 saw)
-- # note "-3"
-- # room 0.84 # dry 0.95 # sz 0.1
d3 $ gF1 $ gM1 -- Highest hats
$ midiOff "^44" (slow 2)
$ arp "up"
$ midiOn "^76" (ply 2)
-- $ "d(<8 10 12 <14 [16 32 [16 <16 32>]]>>,16,1)" -- FIXME IRREGULIER
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
# "[h2ogmsn:14]"
-- # "[rampleS57:2]"
# note (-12 + "3.5" + "e6")
-- # cut 3
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
# pan 0.3
d4 $ gF2 $ gM3
$ midiOff "^57" (mask "t . <t f>")
$ note ("<[<fs a>!2 <a gs> fs] [fs(3,8),cs5]> . ~" - 24)
-- $ note (fast 4 "<a b fs@2>" - 12) -- TODO Variations on melody
# "bassWarsaw"
# pan 0.4
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 0.8 "^33")
d5 $ gM3 $ gF3
$ midiOn "^90" (ply "2 <2 <4 8>>")
$ midiOn "^58" (slice 8 "<0 1 2 3>(<3 <5 [5 3]> <3!3 [1]> <8!3 [8 4]>>,8)")
$ midiOff "^58" (slice 8 "<0 1 2 3 4 5 6 7>")
$ "suns_keys" # n "<0 <1 2> 3 3>"
# pan 0.8
-- # room 0.1 # sz 0.5
# cut 5
d7 $ gM3 $ gF3
$ midiOn "^91" (ply "1 . 2 <2 <4 8>>")
$ slice 8 "0 0 0 <0 <1 2>>"
$ "suns_guitar:0/2"
# cut 7
# octersubbus 71 (range 0 1.9 "^55") -- BURN THIS GUITAR
# lpfbus 72 (range 10000 200 "^55")
# crushbus 73 (range 16 2.5 "^35") -- CRASH THIS GUITAR
# pan 0.2
# gain 1.1
d8 $ gF1 $ gM1
$ midiOn "^56" (# "jungle_breaks:46")
$ midiOn "^92" (chop 8 . loopAt 0.5 . (# "breaks165"))
$ loopAt 2
$ midiOff "^92" (slice 16 ("[~ <1!4 2!4>]*8"))
$ "jungle_breaks:45"
# cut 8
# att 0.15 # rel 2
# gain 1.2
# hpf 500
d9 $ gF3 $ gMute3 -- Voice of the Father
$ someCyclesBy "<0!16 1!16>" (slice 10 "<5 5 <2 2 7 2> <7 4>>")
$ someCyclesBy "<1!16 0!16>" (slice 10 "<0 0 2 <4 5 5 4>>")
$ "suns_voice:0"
# octerbus 91 (slow 16 $ range 0.5 0.2 sine)
# hpf 1500
# cut 9
d10 -- Flying triplet guitar
$ slice 8 ("<0 1 2 3>(3,8)")
$ "suns_guitar:2"
# cut 11
# room 0.8
# sz 0.5
# dry 1.2
# pan "<0.3!16 0.7!16>"
# legato 4
d11 -- Falling angel guitar
$ whenmod 16 8 (ply "<4 2 [4 2] [4 8]>")
$ slice 2 ("<0 1>")
$ "suns_guitar:1"
# cut 11
# pan "<0.7!16 0.3!16>"
# room 0.4
# sz 0.5
# dry 1.2
# legato 1.2
once
$ sound "suns_keys:0"
once $ "jazz"
setcps 0.25
d1 $ fastcat ["bd:0*2", "hh()", "dr*4", "[cp*<1 2> . ~]"]
-- # ""
# gain 1.8
-- # hpf 5000
do
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
setcps (80/60/4)
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMask = (midiOn "^41" (mask "f@2 f t [f f]@2 t f f f f f f t t t"))
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
d1 $ gF1 $ gMute2
$ fast 2
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . ~!3 <~!3 k>")
$ "[kick:5,clubkick]"
# cut 1
# cut
1
d2 $ gF1 $ gM1
$ fast 2
$ midiOn "^43" (<|"~ s ~ s*<1 2>" )
$ midiOff "^43" (<| "~ s/2")
$ "snare:42"
$ "rampleM9:4"
# gain 0.9
d3 $ gF1 $ gM1
$ fast 2
$ midiOn "^76" (fast 2)
$ superimpose ((# "hh") . (# cut 31) . (# pan 0.8))
$ "dr*[8 <8 4 8 16>]"
$ "~ d ~ d ~ d ~ d*<1 <2 [4 2]>>"
# "rampleA4:9"
# cut 3
# pan 0.2
d4 $ gF1 $ gM2
$ slice 4 "1"
$ "jungle_bass:52"
d4 $ gF2 $ gMute3
$ midiOn "^89" (ply "2 4")
$ note ("[c4@2 c5 ~ [bf4 c5]@2 ~ bf4 c5 bf4 g4 fs4 f4@4]" - 12)
# "bassWarsaw"
# cut 4
# room 0
# octersub 0.8
# gain 0.8
# pan 0.6
# crushbus 41 (range 16 2.5 "^53")
d9 $ "90s_matrix:0/4"
# cut 9
# room 0.4
# gain 0.8
-- # room 0.4
# gain 0.9
# pan 0.1
# lpfbus 91 (slow 16 $ range 200 2000 saw)
d5 $ gF3 $ gM3
$ whenmod 8 7 (>| note "c@2 c ef@2 ef f g")
$ fast 2 $ note ("[c <c!3 f> c <g fs ef b4>]")
$ fast 4 $ note ("[c <c!3 f> c <g fs ef b4>]")
# "FMRhodes1"
# modIndex (range 0 64 "^54")
# pan 0.2
......@@ -42,8 +55,13 @@ d5 $ gF3 $ gM3
# room 0.2 # sz 0.9
# cut 5
|- note 12
d8 $ gF1 $ gM1
$ midiOn "^60" (ply 2)
$ midiOn "^92" (ply 2)
$ chop 16
$ midiOn "^36" (loopAt 4 . (# "jungle_breaks:24") . (|* gain 1.1)) -- Legerete orleanaise
$ midiOn "^56" ((# "jungle_breaks:45")) -- Legerete orleanaise
$ loopAt 1 $ "jungle_breaks:62" -- Poudreuse epaisse
# cut 8
once $ note "c@2 c ef@2 ef f g" #"FMRhodes1" # orbit 6
ccc a ccc e ccc d ColourD
g fs ef b
do
setcps (80/60/4)
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMask = (midiOn "^41" (mask "f@2 f t [f f]@2 t f f f f f f t t t"))
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
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^42" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
$ "[cpu,jazz]"
# lpf 5000
d2 $ gF1 $ gM1
$ "~ s ~ s*2" # "snare:44"
d3 $ gF1 $ gM1
$ "drum:2*[16 <16 [16 8] 8 [16 32]>]"
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t*8")
-- $ superimpose (ma) . (# cut 41))
$ note ("<c!4 ef ef g g> <c!4 ef ef g g>@3 . ~!7 <~ <b3 d3>>" - 1)
# "bass3:2"
# cut 4
# crushbus 41 (range 16 2.5 "^53")
d5 $ gF3 $ gM3
$ (|+| note (arp "up" "~ 0 ~ 0" + (slow 2 "<g4 as4 c4 <d4 ds4>>") + 6))
$ slice 16 ("0")
$ "rootsGuitar:7"
# lpf 2000
# room 0.4 # dry 1.2
# cut 5
d8 $ gF1 $ gMute
$ midiOn "^56" (loopAt 0.5 . (# "jungle_breaks:45") . (|* gain 0.8))
$ midiOn "^92" (ply "<2!3 4>")
$ loopAt 4
$ chop 16
$ "<trance_loops:0!3 trance_loops:4>"
-- # n "<0!3 4>"
# cut 8
once $ "rootsGuitar:7"
do
-- resetCycles
-- once $ note "a3" # "bassWarsaw" # pan 0.35 # cut 6 # gain 0.4 # room 0.8 -- IntroBass Base
once
$ (0.125 ~>) -- Bien calé!
-- $ mask "<f!16 t!48>" -- Intro/64
$ whenmod 4 3 (slow "<2 4>") -- Break-ish
$ mask "<t(1,4)!4 t(2,4)!4 t!8 t(<4!3 3>,4,<0!3 1>)!16>" -- Dégradé
$ chop 4
$ slice 4 "<0!3 1>"
$ loopAt 4
$ "rootsGuitar:7"
# room (slow 32 $ range 0.2 0.65 saw)
# dry 1
# sz 0.9
# pan (0.75 + 0.25 * (slow 8 perlin))
# gain (0.8 - 0.1 * perlin + 0.2 * (slow 16 $ saw))
# cut 5
......@@ -11,6 +11,7 @@ d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
$ "[techno:0,808bd:2,909,kick:4]"
-- # lpf 200
# gain 1.5
d2 $ gF1 $ gM1
$ midiOn "^75" (ply 4)
$ midiOn "^43" (<| "~ s*<1!7 2> ~ s*<1!3 2>")
......
......@@ -42,7 +42,7 @@ d4 $ gF2 -- Meth == Crash
# room 0.2 # sz 0.3 # dry 1.1
# midiG' "^83" 0 1.2
d5 $ gF2 -- Prendre l'acid bus pour trouver du boulot
$ midiOn "^57" (id)
$ midiOn "^57" (id) show
$ midiOff "^57" (slice 8 "0 0 <~!8 0!8> 0*<1!8 2!8>" )
$ loopAt 16
$ chop 8
......
do
setcps (160/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 ~ ~")
$ "[rampleA2:0]"
d2 $ gF1 $ gM1
$ midiOn "^43" (struct "~ t ~ <t <t*2 [~ t]>>")
$ midiOff "^43" (struct "~ ~ t ~")
-- $ fix (|+ note 2) "snare"
$ "[rampleA2:10]"
# lpf 2000
# rel 0.35
d3 $ gF1 $ gM1 -- Scintillement de claquements de doigts
$ whenmod 8 6 (superimpose ((# n "13") . (# room 0.4) . (|* gain 1.1)))
$ midiOn "^44" (off "<e!4 s!4>" ((|* gain 0.8) . (# hpf 5000)))
$ "~ <~!4 c!4> ~ c ~ <~!3 c ~ c!3> ~ <~!4 c!4>"
# "rampleC5:15"
# hpf 5000
# att 0.0
# rel 0.2
# dry 1
# room 0.2
d7 $ gF2 $ gM3 -- Piano magique guide eternel
$ midiOn "^91" (ply 8)
$ slice 8 (slow 4 $ run 4 + "<0!16 4!16>")
$ "suns_keys"
# n (slow 4 $ "<0 1 2 3>")
# crushbus 71 (range 16 3.3 "^55")
# lesliebus 72 (range 0 1 "^35") # lrate 0.92 # lsize 3.9
# pan 0.7
# cut 7
# gain 0.8
d5 $ gM3 $ gF3
$ midiOn "^58" (superimpose (
arp "<up!4 down!4>"
. someCyclesBy "<0.2!3 0.6 0.2!3 0.6 0.6!3 0.2 0.8!3 0.2>" (mask "t(3,8)")
. (|+ note "[17,24,12,0]"))
. (|* gain 0.7)
. (# pan 0.8)
)
$ note (
"<[fs3@2 gs3] <a3!1 ff3 a3 cs3>>"
+ (arp "up" "c'min'2")
)
# "FMRhodes1"
# modIndex (range 0 5 "^54")
# pan 0.4
# room 0.4
# dry 1.52
# sz 0.7
# gain 1.2
d6 $ gM3 $ gF2
$ midiOn "^89" (striate 2)
$ chop 8
$ "meth_bass:3"
# note ("<<a cs6> fs>"
+ "7" -- calage
- 12)
# cut 6
# gain 0.5
# room 0.3
# pan 0.35
d9 $ gM3 $ gF3
$ mask "t(<1!4 2!4 8!4 2 1 8 8 8 8 2 8 8 1 2 8 8!8>,8)"
$ swingBy "q" 4
$ superimpose ((|+| note ("[0 7 12 <0 0 7 <0 12>>]" + 12)) . (# cut 91))
$ note ("<c fs4 <a4 [a4@3 b4]> fs4>" - 12)
# "moogBass"
# cut 9
# lpf 3000
# chorus (range 0 1.8 "^20")
# room 0.4
# gain 0.5
d8 $ gF1 $ gM1 -- Drums of Love <3
$ chop 16
$ loopAt 2
$ midiOn "^92" (loopAt 0.5 . (# "breaks165")) -- BOUTON NASSIM <3
$ midiOn ("^36" - "^92") (loopAt 2 . (# "jungle_breaks:1"))
$ "jungle_breaks:6"
# gain 0.9
# cut 8
d10
$ someCyclesBy "<1>" (superimpose (
(|+ note 12)
. (0.5 ~>)
. (stut 4 1 0.25)
. (# cut 101) . (# att 0.8) . (# rel 2)
))
$ "suns_voice:2/4"
# crushbus 101 (slow 16 $ range 516 5.5 perlin)
# cut 10
fs gs a x3 fs gs c fs gs g
-- GRAVEYARD FROM STOLEN BITS OF SUNS OF GOOOOOLD
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>")
$ midiOn "^92" (# "breaks165") -- BOUTON NASSIM <3
$ 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
resetCycles
do
setcps (93/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
-- Bm A G D
-- vi V IV I
let prog = "<[d,fs,b4] [cs,e,a4] [d,g,b4] <[d,fs,a4] [d,a4,fs5]>>"
let progMin = "<[d,b4] [cs,a4] [d,b4] <[d,a4] [d,fs5]>>"
d1 $ gF1 $ gMute2 -- Kick resolu
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . ~!3 k*<1!3 4>")
$ "[jazz,rampleA0:1]" # lpf 2000
# lpf 1500
# att 0.02
# rel 2
# gain 2
d2 $ gF1 $ gM1
$ "<[~ s]!16 [~ s*<1!7 4> ~ s*<1!3 <2 4>>]!16>"
# "snare:59"
# hpf 5000
# rel 0.35
d3 $ gF1 $ gM1
$ midiOn "^76" (off "e" id)
$ "hh(3,8) hh(<3!3 <[5] [3 5]>>,8)" # "hh:8" -- Christmas bath
# gain 1.4
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t([<8 16> <16 [16 32]>],8)")
$ note ("[0,7(<3 5 [5 3] <3 [3 5]>>,8,1)]" + "<d b4 g4 fs4>" - 24)
# "bassWarsaw"
# gain 0.8
# crushbus 41 (range 16 2.5 "^53")
# room 0.3
d5 $ gF3 $ gM3
$ midiOn "^90" ( -- Sparkling echoes
(whenmod 4 3 (off "s" ((|* gain 0.9) . (|+ note 12))))
. (off "e" ((|+ note 12))))
$ midiOn "^58" (|+| note "0 12")
$ note ("<0(3,8)!3 0(3,8)*2>" + prog)
# "FMRhodes2"
# modIndex (range 0 16 "^54")
d7 $ gF3
$ midiOff "^59" (>| n "~ <~ <1 2>> ~ ~") -- Intro Fabuleux
$ midiOn "^91" (ply 8)
$ someCyclesBy "<0!32 1!32>" (>| n "<7 <8 [8 <12 13>]> 11 <12 13>>") --
$ someCyclesBy "<0!16 1!16 32!0>" ((>| n "<7*<1 <2 [4 2]>> 8 9(<1 <2 3>>,8) 10>")) -- Promesse/emouvant/douce
$ someCyclesBy "<0!8 1!8 0!16 32!0>" ((>| n "<~ 3 ~ ~> <3!3 <4 5>>")) --
$ someCyclesBy "<1!8 0!8 1!8 0!8 32!0>" (>| n "<0 1 0 <4 6>>") -- Fab/Bonheur/Genial
$ "aoc_fr"
# cut 7
# octerbus 71 (range 0 0.9 "^55")
# gain 1.2
# room 0.4 # sz 0.8 # dry 1
d8 $ gF1 $ gM1
$ chop 8
$ midiOn "^60" (ply "<4 <2 [2 8]>>")
$ midiOn "^92" (ply 2)
$ midiOn "^36" ((>| "jungle_breaks:24"))
$ midiOn "^56" (loopAt 0.5 . (>| "jungle_breaks:25"))
$ loopAt 2
$ "break:3"
# cut 8
# gain 0.8
d9 $ gF2 $ gM3-- Choeur des fans d'AOC
$ note (progMin |+| "0 <~!4 0 12 <0 -5> 12>" - "<0!16 12!16>")
# "moogBass"
# legato 2
# gain 0.8
d10 $ gF3 $ gMute3 -- Sous-marin risque de noyade
$ "feelfx:0"
# note ("<d5 <cs5 a4> <d5!3 g5> fs5>"
+ 1 -- Calage
)
# cut 12
# hpf 500
do
setcps (120/60/4)
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
$ fix (|* gain (0.9 * "^30")) "clubkick"
$ "k k k k*<1 <2 [4 2]>>"
# "[clubkick:0,rampleM1]"
# room 0.3
# dry 1.05
# sz 0.75
# lpf 2000
# gain 1.5
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ s*<1!8 2!3 1 2!3 1> ~ s*<1!3 2>")
$ midiOff "^43" (<| "<s*<1 2> ~> ~!3")
$ "snare:40"
# note "-2"
-- # room 0.4 # dry 0.9
# lpf 2400
-- # legato 0.25
d3 $ gF1 $ gM1
$ midiOff "^44" (mask "t f")
-- $ someCyclesBy 1 (|+ note "0!3 <0 4> 0!3 <4!6 -10!2>")
-- $ "dr*[8!3 <8 <16!3 [8 16]>>]"
$ "~ h ~ h ~ h*<1!6 2 2> ~ h*<1 <2 [4 2]>>"
-- # "rampleD2:3"
# "808cy:10"
# legato "<0.4!3 0.1>"
# cut 3
d4 $ gF2 $ gM3
$ midiOn "^89" (>| note "[e e <g b> e e e <a c7*<1 2 2 4>> e]")
$ midiOn "^57" (stutWith 8 "e" ((|+ note ("0 12 0 12")) . (|* gain 0.95)))
-- $ someCyclesBy (1 - "^33") (mask "t . t(3,8,1)")
$ midiOff "^89" (>| note ("<<[e e g e]!2 [a a g e]!2> ~ <~!4 [a a g e]!4> ~> . ~" - 0))
$ "bass1:10"
# cut 4
# room 0.2
# octerbus 41 (range 0 1 "^33")
# crushbus 42 (range 16 3.5 "^53")
# att 0.23
# pan 0.4
# rel 2
d5 $ gF3 $ gM3
$ midiOn "^58" (ply 2)
$ midiOn "^90" (slice 4 "0 1 2 3 <[0 1 2 3] [0 3]>")
$ chop 8
$ loopAt 4
$ "nujazz_guitar120"
# n "<11>"
# crushbus 51 (range 16 3.5 "^54")
# cut 5
d7 $ gF3 $ gM3 -- La pluie <3
$ midiOn "^59" (|+| note "0 12 0 <12!4 [12 0 12]!4 [0 7 12 0]!8>")
$ superimpose (struct "t(<3!3 [3 5]>,8)" . (|+| note (arp "<down!3 up>" "<c'maj'3!3 c'maj'4>")))
$ note ("<e c b4 <e4 d4>>")
# "moogBass"
# ampbus 71 (range 0.05 0.7 "^83")
# chorus 0.1
# dec 0.9
# rel (slow 8 $ range 0.1 0.4 saw)
# gain 0.9
# room 0.4 # dry 1.2 # sz (slow 8 $ range 0.8 0.2 saw)
d8 $ gF1 $ gM1
$ midiOn "^92" (const $ chop 8 $ whenmod 4 3 (ply "1 . 2 [4 2]") $ loopAt 1 $ "breaks165")
$ midiOff ("^36" + "^92") (slice 8 "~ 1 ~ 3 3*<0 <1 2 <4 [8 2]>>> 5 <~!3 6> 7")
$ midiOn "^36" (loopAt 0.5 . (# n 56) . (# lpf 5000)) -- Morning Mimosa
$ midiOn "^56" (# n 46) -- Low Bass WallRide
$ loopAt 2
$ chop 16
$ "jungle_breaks:45" -- Douceur Orleanaise
-- # cut 8
-- # gain 0.8
d9 $ gF3 $ gM3 -- BROOOOO
$ slice 3 "~ <0!6 1 1> ~ <0 0 0 1>"
$ "bogdan:3"
# cut 9
# gain 1.2
# legato "<0.4!4 0.2!3 0.4 0.2!6 1 1>"
# room 0.4 # dry 0.5 # sz 0.26
d10 -- Atmosphere Humide
$ chop 16
$ note "e2"
# "90s_glassatm:2"
# cut 10
d11 $ gF3 -- Marimba electrique
-- $ mask "<f!16 t!16 f!32 t!32 t!16 f!16>"
$ whenmod 16 12 rev
$ note ("<~ [e <g e> a <b bf>]> . ~" - 12)
# "marimba1"
# gain 1
# ampbus 110 (range 0.05 0.7 "^14")
# octersub "<0!16 0.5!16>"
-- # amp 4
d12 $ gF2 -- ECLAIR ORAGEUX
-- $ whenmod 16 12 (|>| note ("<[e3@3 a3 fs3@2] f3>" + 12))
$ note "<[d4 d4 [d4 e4] ~ e4 ~ ~ ~] <~!3 g4>>" -- DANCE!
# "giorgio_syn:0"
# pan 0.9
# room 0.4
# dry 0.8 # sz 0.7
# gain 0.85
# lpf 4000
# cut 12
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment