Commit 6f90f7d2 by PLN (Algolia)

sessions: Baba;raph+clem

parent 959648c4
...@@ -20,6 +20,8 @@ a d f ...@@ -20,6 +20,8 @@ a d f
g ef g g ef g
fs ef fs fs ef fs
once $ "giorgio_syn:"
-- Pas commencer avec piano trop aigu, trop Filtered -- Pas commencer avec piano trop aigu, trop Filtered
-- basse bienvenue plus tot? -- basse bienvenue plus tot?
...@@ -35,7 +37,7 @@ fs ef fs ...@@ -35,7 +37,7 @@ fs ef fs
-- TOTAL 64 -- TOTAL 64
do do
resetCycles -- resetCycles
setcps (80/60/4) 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 "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
...@@ -46,18 +48,18 @@ let gM2 = gMask . gMute2 ...@@ -46,18 +48,18 @@ let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ whenmod 128 64 (# silence) $ whenmod 128 64 (# silence)
$ superimpose ((# lpf 500)) -- $ superimpose ((# lpf 500))
$ mask "<t!7 f>" -- Orchestration $ mask "<t!7 f>" -- Orchestration
$ "k . k([<3!3 5> <1 <3 5>>],8)" $ "k . k([<3!3 5> <1 <3 5>>],8)"
# "[808bd:11]" -- 6,11 # "[808bd:3,808bd:11]" -- 6,11
-- # lpf 1400 -- # lpf 1400
# note "1" # note "1"
-- # room 0.4 # sz 0.8 -- # room 0.4 # sz 0.8
-- # dry 1.1 -- # dry 1.1
# gain 1.4 # gain 1.3
-- # att 0.034 -- # att 0.034
d2 $ gF1 $ gM1 -- Submarine snare sable mouvant inspired d2 $ gF1 $ gM1 -- Submarine snare sable mouvant inspired
$ whenmod 128 64 (# silence) -- $ whenmod 128 64 (# silence)
$ mask "<f!8 t!32 t!32 t!32 f!8>" -- Orchestration $ mask "<f!8 t!32 t!32 t!32 f!8>" -- Orchestration
$ "~ s ~ [s*<1 2> <~ [~ s] ~ [~ s] ~!3 [~ s]>]" $ "~ s ~ [s*<1 2> <~ [~ s] ~ [~ s] ~!3 [~ s]>]"
# "[snare:8]" --8 # "[snare:8]" --8
...@@ -66,8 +68,10 @@ d2 $ gF1 $ gM1 -- Submarine snare sable mouvant inspired ...@@ -66,8 +68,10 @@ d2 $ gF1 $ gM1 -- Submarine snare sable mouvant inspired
-- # lpf 4000 -- # lpf 4000
-- # octersub 2 -- # octersub 2
# cut 2 # cut 2
# gain 1.3 # room 0
d3 $ gF1 $ gF1 # gain 1
# lpf 4000
d3 $ gF1 $ gM1
$ whenmod 128 64 (# silence) $ whenmod 128 64 (# silence)
$ mask "<t!7 f>" -- Mask permanent $ mask "<t!7 f>" -- Mask permanent
-- Orchestration -- Orchestration
...@@ -78,28 +82,40 @@ d3 $ gF1 $ gF1 ...@@ -78,28 +82,40 @@ d3 $ gF1 $ gF1
-- # att 0.03 -- # att 0.03
-- # rel 1 -- # rel 1
-- # hpf 1500 -- # hpf 1500
|* gain (fast 4 $ range 0.85 1 perlin) |* gain (0.8 * (fast 4 $ range 0.85 1 perlin))
-- # room 0.4 # dry 0.8 # sz 0.2 -- # room 0.4 # dry 0.8 # sz 0.2
# pan (range 1 0.6 saw) # pan (range 1 0.6 saw)
# gain 0.9
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ whenmod 128 64 (# silence) $ whenmod 128 64 (# silence)
$ midiOn "^89" (ply 2) $ midiOn "^89" (ply 2)
$ superimpose ( $ superimpose (
(# crushbus 41 (range 16 2.5 "^53")) . (# hpf 500) (# crushbus 41 (range 16 5 "^53")) . (# hpf 500) . (|* gain 0.8)
) )
$ note ("<[g4, d5] [fs4, d5] [f4, d5] [ef4, bf4]>" - 12) $ someCyclesBy "<1!8 1!8 0!8 1!8 0!8 1!8 0!8 1!8>" -- Prog Couplet
(|+| note ("<g3 <f3 af3> <ef3 [ef3 f3]> <d3 bf3>>")) -- v3
$ someCyclesBy "<0!8 0!8 1!8 0!8 1!8 0!8 1!8 0!8>" -- Prog Refrain
(|+| note ("<[ef4] [d4] <bf3 [bf3 f3]> <g3 bf3>>" - 12)) -- Original v1
$ note 0
-- "<g3 <f3 af3> <ef3 [ef3 f3]> <d3 bf3>>" -- COUPLET v3
-- "<[ef4] [d4] <bf3 [bf3 f3]> <g3 bf3>>" - 12 -- Refrain mi bemol
-- )
# "bassWarsaw" |- note 0 # "bassWarsaw" |- note 0
# octersub 1
# room 0.8 # sz 0.4 # dry 0.3 # room 0.8 # sz 0.4 # dry 0.3
# bandf 300
# pan 0.35
# gain 1.4
d5 $ gF3 $ gM3 -- v1: Avec deux progs incertaines, pas d'arp d5 $ gF3 $ gM3 -- v1: Avec deux progs incertaines, pas d'arp
$ whenmod 128 64 (# silence) $ whenmod 128 64 (# silence)
-- $ ply 2 $ struct "t*4" $ arp "up" -- $ ply 2 $ struct "t*4" $ arp "up"
$ someCyclesBy "<1!8 1!8 0!8 1!8 0!8 1!8 0!8 1!8>" -- Prog Couplet -- $ note ("<[g4, bf5, d5, f5] [af5, c5, ef5, f5] [ef4, g4, bf4, d5] [d4, fs4, bf4, c5]>") -- CouPLET v3
(|+| note ("<[g, bf, d] [fs, bf, d] [f, bf, d] [ef, g, bf]>")) $ note ("<[ef4] [d4] [bf4] [g4]>") -- Refrain v3
$ someCyclesBy "<0!8 0!8 1!8 0!8 1!8 0!8 1!8 0!8>" -- Prog Refrain -- $ someCyclesBy "<1!8 1!8 0!8 1!8 0!8 1!8 0!8 1!8>" -- Prog Couplet
(|+| note "<[bf4, d5, f5] [a4, d5, fs5] [g4, d5, g5] [fs4, ef5, fs5]>") -- Original -- (|+| note ("<[g, bf, d] [fs, bf, d] [f, bf, d] [ef, g, bf]>")) -- v2
-- (|+ note "<[bf4, d5, f5] [a4, d5, fs5] [g4, <as4!3 c5>, d5] [fs4, ef5, <fs5!3 c5>]>") -- Mix variation -- $ someCyclesBy "<0!8 0!8 1!8 0!8 1!8 0!8 1!8 0!8>" -- Prog Refrain
$ note ("0"- 12) -- (|+| note "<[bf4, d5, f5] [a4, d5, fs5] [g4, d5, g5] [fs4, ef5, fs5]>") -- Original v1
-- (|+ note "<[bf4, d5, f5] [a4, d5, fs5] [g4, <as4!3 c5>, d5] [fs4, ef5, <fs5!3 c5>]>") -- Mix variation v2
-- $ note ("0"- 12)
# "FMRhodes1" # "FMRhodes1"
# modIndex (range 0 3 "^54") # modIndex (range 0 3 "^54")
# gain 1.1 # gain 1.1
...@@ -107,6 +123,7 @@ d5 $ gF3 $ gM3 -- v1: Avec deux progs incertaines, pas d'arp ...@@ -107,6 +123,7 @@ d5 $ gF3 $ gM3 -- v1: Avec deux progs incertaines, pas d'arp
# att 0.1 # att 0.1
# rel 4 # rel 4
# lpf 4000 # lpf 4000
# pan 0.55
# delay 0.2 # delayfb 0.5 # delayt 0.125 # delay 0.2 # delayfb 0.5 # delayt 0.125
# room 0.2 # dry 0.9 # sz 0.4 # room 0.2 # dry 0.9 # sz 0.4
-- d5 $ gF3 $ gM3 -- V2: Avec arpege et prog validee -- d5 $ gF3 $ gM3 -- V2: Avec arpege et prog validee
...@@ -124,11 +141,20 @@ d5 $ gF3 $ gM3 -- v1: Avec deux progs incertaines, pas d'arp ...@@ -124,11 +141,20 @@ d5 $ gF3 $ gM3 -- v1: Avec deux progs incertaines, pas d'arp
-- # lpf 4000 -- # lpf 4000
-- # delay 0.2 # delayfb 0.5 # delayt 0.125 -- # delay 0.2 # delayfb 0.5 # delayt 0.125
-- # room 0.2 # dry 0.9 # sz 0.4 -- # room 0.2 # dry 0.9 # sz 0.4
-- d5
-- $ arp "up"
-- - 12) -- PROG1 OLD Session a deux
-- # "FMRhodes1"
-- # modIndex 1
-- # lpf 5000
-- # gain 1.3
-- # att 0.05
-- # rel 2
d7 $ gF3 $ gM3 -- Rhodes arpege pour couplet d7 $ gF3 $ gM3 -- Rhodes arpege pour couplet
$ whenmod 128 64 (# silence) $ whenmod 128 64 (# silence)
$ somecyclesBy "<0!8 0!32 0!32 0!32 1!8>" (|* gain (range 1 0.5 (slow 8 $ saw))) $ somecyclesBy "<0!8 0!32 0!32 0!32 1!8>" (|* gain (range 1 0.5 (slow 8 $ saw)))
$ somecyclesBy "<1!8 0!32 0!32 0!32 0!8>" (|* gain (range 0.5 1 (slow 8 $ saw))) $ somecyclesBy "<1!8 0!32 0!32 0!32 0!8>" (|* gain (range 0.5 1 (slow 8 $ saw)))
$ mask "<t!8 t!8 f!8 t!8 f!8 t!8 f!8 t!8>" -- $ mask "<t!8 t!8 f!8 t!8 f!8 t!8 f!8 t!8>"
-- $ mask "<t!8 f!16>" -- $ mask "<t!8 f!16>"
$ note ( -- A B C <D1 D2> $ note ( -- A B C <D1 D2>
"<[bf g d5 bf g d5 bf5 c6]!1 [a5 fs d5 a4 d5 fs a fs]!1 [g5 d5 bf4 g5 d5 bf4 bf5 g5]!1 <[a5 fs5 ef5 bf4 g4@4] [c6 bf5 a5 fs5 d5@4]>!1>" -- Le rhytme arpeggie vers le bas, plus variante montee "<[bf g d5 bf g d5 bf5 c6]!1 [a5 fs d5 a4 d5 fs a fs]!1 [g5 d5 bf4 g5 d5 bf4 bf5 g5]!1 <[a5 fs5 ef5 bf4 g4@4] [c6 bf5 a5 fs5 d5@4]>!1>" -- Le rhytme arpeggie vers le bas, plus variante montee
...@@ -144,29 +170,39 @@ d7 $ gF3 $ gM3 -- Rhodes arpege pour couplet ...@@ -144,29 +170,39 @@ d7 $ gF3 $ gM3 -- Rhodes arpege pour couplet
# lpf 2000 # lpf 2000
# delay 0.8 # delayfb 0.5 # delayt 0.125 # delay 0.8 # delayfb 0.5 # delayt 0.125
# room 0.47 # dry 0.8 # sz 0.4 # room 0.47 # dry 0.8 # sz 0.4
# gain 1.2
d8 $ gF1 $ gM1 d8 $ gF1 $ gM1
$ whenmod 128 64 (# silence) $ whenmod 128 64 (# silence)
$ mask "<f!7 [f . t f] t!32 t!32 t!32 [t f . f] f!7>" -- Orchestration $ mask "<f!7 [f . t f] t!32 t!32 t!32 [t f . f] f!7>" -- Orchestration
$ midiOn "^92" (ply 2) $ midiOn "^92" (ply 2)
$ chop 8 $ chop 16
$ loopAt 2 $ loopAt 2
$ midiOn "^36" (loopAt 1 . (>| "jungle_breaks:48")) $ midiOn "^36" (loopAt 1 . (>| "jungle_breaks:48"))
-- $ slice 4 ("0 1 2*<1 2> 3*<1!3 2>") -- $ slice 4 ("0 1 2*<1 2> 3*<1!3 2>")
$ midiOn "^56" (# "break:9") $ midiOn "^56" (# "break:9")
$ "break:13" $ "break:13"
# room 0.3 # dry 0.9 # sz 0.4 -- # room 0.3 # dry 0.9 # sz 0.4
d9 $ gF3 $ gM3 d9 $ gF3 $ gM3
-- $ whenmod 128 64 (# silence) $ whenmod 128 64 (# silence)
$ mask "<f!8 f!32 t!32 t!32 t!8>" $ midiOn "^89" (ply 2)
$ note ("<<g4 d5> <fs4 d5> <f4 d5> <ef4 bf4>> ~" - 0) $ someCyclesBy "<1!8 1!8 0!8 1!8 0!8 1!8 0!8 1!8>" -- Prog Couplet
# "moogBass" (|+| note ("<g3 <f3 af3> <ef3 [ef3 f3]> <d3 bf3>>" + 12)) -- v3
# legato 1.8 $ someCyclesBy "<0!8 0!8 1!8 0!8 1!8 0!8 1!8 0!8>" -- Prog Refrain
# att 0.25 (|+| note ("<[ef4] [d4] <bf3 [bf3 f3]> <g3 bf3>>")) -- Original v1
# rel 4 $ note 0
# room 0.4 -- "<g3 <f3 af3> <ef3 [ef3 f3]> <d3 bf3>>" -- COUPLET v3
# sz 0.9 -- "<[ef4] [d4] <bf3 [bf3 f3]> <g3 bf3>>" - 12 -- Refrain mi bemol
# hpf 1500 -- )
-- # octersubsubbus 91 0.8 # "moog:2" |+ note 12
# gain 0.5
# lpf 1400
-- # legato 1.8
-- # att 0.25
-- # rel 4
-- # room 0.4
-- # sz 0.9
-- # hpf 1500
d10 $ gF3 d10 $ gF3
-- Orchestration -- Orchestration
$ mask "<f!7 t f!15 t f!15 t f!15 t f!15 t f!15 t f!15 t f!7 t>" $ mask "<f!7 t f!15 t f!15 t f!15 t f!15 t f!15 t f!15 t f!7 t>"
......
...@@ -20,11 +20,13 @@ d1 $ gF1 $ gM2 ...@@ -20,11 +20,13 @@ d1 $ gF1 $ gM2
"" ""
] ]
# "[techno:1,jazz]" # "[techno:1,jazz]"
# cps ((range 60 180 "^29")/60/4)
d2 $ gF1 $ gM1 d2 $ gF1 $ gM1
$ midiOn "^43" (<|"~ s ~ s") $ midiOn "^43" (<|"~ s ~ s")
$ midiOff "^43" (<| "~ s") $ midiOff "^43" (<| "~ s")
$ "[rampleM9:6]" $ "[rampleM9:6]"
-- # note "-2" -- # note "-2"
# gain 1.4
d3 $ gF1 $ gM1 -- Cymbales sol d3 $ gF1 $ gM1 -- Cymbales sol
$ midiOn "^44" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>") $ midiOn "^44" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>")
$ midiOff "^44" (<| "~!7 <~ <cy ~> ~ cy>") $ midiOff "^44" (<| "~!7 <~ <cy ~> ~ cy>")
...@@ -51,7 +53,6 @@ d5 $ gF3 $ gM3 -- Piano nostalgique, temps inexorable ...@@ -51,7 +53,6 @@ d5 $ gF3 $ gM3 -- Piano nostalgique, temps inexorable
# "rhadamanthe_melo:1" # "rhadamanthe_melo:1"
# crushbus 51 (range 16 2.7 "^54") # crushbus 51 (range 16 2.7 "^54")
# room 0.4 # room 0.4
d6 $ gF1 $ gM1 $ chop 8 d6 $ gF1 $ gM1 $ chop 8
$ loopAt 1 $ loopAt 1
$ "breaks165" $ "breaks165"
......
-- BLUE GOLD - SUNS OF GOLD LIVECODING REMIX
-- Original by Leifur James :pray:
do
setcps(140/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 "^30" (# "hardkick_rha:29")
$ midiOn "^42" (<| "k k k <k!3 <[~ k] k*2>>")
$ midiOff "^42" (<| "<k ~>")
$ "[techno:0,808bd:2,909,kick:4]"
-- $ "[jazz,kick:4]"
-- # octersub 0.5 # lpf 4000
d2 $ gF1 $ gM1
$ fix (# lpf 1300) "cp"
$ midiOn "^43" (<| "~ cp*<1!3 <2 [4 2]>> ~ cp" )
$ midiOff "^43" (<| "~ . cp")
$ "[snare:32,cp]"
d3 $ gF1 $ gM1
$ fix (|* gain (slow 16 $ range 0.5 1 saw)) "ccc"
$ "hh(3,8) hh(<3!3 <4 5>>,8)" # "[ccc:0,h2ogmhh:3]" # n "3!3 [<3!3 5> <3 5>]"
# cut 3
d4 $ gF2 $ gMute3 -- Caring bass
$ midiOn "^57" (|+ note "[0,12]")
$ midiOn "^89" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
$ superimpose (
(# cut 41) .
(# crushbus 41 (range 10 3.5 "^53"))
)
$ note (
"<b5!3 <g d>>@7 <c6 c6 cs6 a6>" -- This is caring
- 12
)
# "moog:0"
# legato 1
# bandf 500
# bandq 0
# octerbus 42 (range 0 0.9 "^33")
# cut 7
# gain 1.4
d5 $ gF2 $ gMute3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
$ midiOff "^58" (
-- (|+ note "<0 12>") .
mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>")
$ stack [
n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^54" + "^34")),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^54"),
"vec1_acid:39" # hpf 200 # gain (range 0 1.1 "^34"), -- TODO BONUS ACID
-- # octer 1.1
-- ,
""
]
# crushbus 41 (range 16 1 "^53")
-- # legato 1
# legato (range 0.39 0.7 (1 - "^17"))
>| note ("[b d6 b cs6 d6 b cs6 b]*2"
- "<0!32 12!32>" -- Alternance
-- + "<0!24 7!8 0!48 1!16>" -- Note variation tension???
)
-- # att 0.1 # sus 0.2 # rel 4
-- # cut 4
# octersub 2
-- # octerbus 41 (range 0 1 "^17")
-- # crushbus 42 (range 16 4.2 "^53")
d11 $ gF2 $ gMute3 -- Caring cello
$ midiOn "^57" (|+| note "[0 12 0 12 0 12 0 12]")
$ midiOn "^89" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
-- $ superimpose (
-- (# cut 41) .
-- (# crushbus 41 (range 10 3.5 "^53"))
-- )
$ note (
"<b5!3 <g d>>@7 <c6 c6 cs6 a6>" -- This is caring
)
# "cpluck:0"
# cut 11
# gain 1.4
d7 $ gF1 $ gM1
$ midiOn "^91" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 0.5 . (# "breaks165")
-- . (# octer 0.4) . ( octersubsub 4)
. (# lpf 2500)
. (# room 0)
)
$ midiOff ("^59" + "^91") (ply "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO
$ midiOn "^55" ((loopAt 1) . (# "jungle_breaks:60")) -- Clochettes?
$ chop 16
$ loopAt 2
$ "jungle_breaks:45"
# cut 8
# att 0.04
# rel 2
# gain 1.6
# hpf 1200
d8 $ gF1 $ gM1
$ midiOn "^92" (ply "4 <8>")
$ chop 16
$ loopAt 8
$ "ccc:2"
# gain (slow 16 $ range 1.4 2.2 saw)
# room 0.4 # dry 1.1
# cut 8
d9 $ striate 16 $ "ccc:1"
# cut 1 # room 0.4 # dry "<1 1 1.2 1.3>"
# octer 0.6
# octersubbus 91 (range 0 1 "^19")
# squizbus 92 (range 0 2 "^19")
d10
$ chop 16
-- $ mask "<f!24 t!8>"
$ loopAt 8
$ "risers:10"
# cut 10
# hpf 2000
# octer 0.5
do
-- resetCycles
setcps (160/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
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 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^30" ((# "hardkick_rha:40") . (|- note 1) . (|* gain 0.8))
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ k ~ <~!3 <k ~>>")
$ "[jazz,kick:4]"
# gain 1.2
-- # midiG' "^78" 0 1.5
d2$ gMute1 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp [~!3 <~!3 cp>] cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[cp,snare:22]"
# pan 0.65
-- # legato 0.22
d3 $ gM1 $ gF1
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "snare:34"
# hpf 7000
-- # midiG' "^80" 0 1.5
d8 $ gF1 $ gM1
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36" ((# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165")
-- . (# octer 0.4) . ( octersubsub 4)
. (# lpf 2500)
. (# room 0)
)
$ chop 16
$ "breaks165"
# cut 8
# octersub 0.5
# gain 1.2
d4 $ gF2 $ gM3 -- BASSLINE
$ midiOn "^89" (|+| note "[0,12*4]")
$ midiOff "^89" (|+| note "[0,[<7 7 4 7>(3,8,1)]]" )
$ superimpose ((# hpf 200) . (# crushbus 41 (range 16 3.5 "^53")))
$ note ("<e3 fs3 <gs3 d4> <a3 df4>>" - 12)
# "bassWarsaw"
# gain 1.12
# room 0.7
# dry 1 # sz 0.8
d7 $ gF2 $ gM3 -- ACID BASS TODO REWORK WITH RAPH
$ midiOff "^59" (
-- (|+ note "<0 12>") .
mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>")
$ stack [
-- n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^55" + "^35")),
-- "vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^55"),
"vec1_acid:39" # hpf 200 # gain (range 0 1.4 "^35"), -- TODO BONUS ACID
-- # octer 1.1
-- ,
""
]
# crushbus 41 (range 16 1 "^53")
-- # legato 1
# legato (range 0.39 0.7 (1 - "^17"))
>| note ("[e gs e fs gs e fs e]*2"
- 12
)
# gain 1.12
# room 0.7
# dry 1 # sz 0.8
d6 $ gF1 $ gM1 -- HAWKS
$ superimpose (# hpf (slow 8 $ range 5000 "<8000!32 800!32>" saw))
-- $ mask "<f!16 t!16>"
$ "~ [s s*2] ~ [s*<1!3 2> <~!3 s*<1 2>>]"
# "armora:1"
# legato "<0.5>"
# note "<c10!3 d10 d10 d10 e10 [e10!3 c10]>"
-- # pan 0.9
# room 1.0
# octersubsub 2
# octersub 2
# sz 0.01
# gain 1.5
# dry 1.025
d5 $ gM3 $ gF3
$ midiOn "^18" (# n "6")
$ midiOn "^58" (mask "<t f f f>" . (# n "<4 5!2 4!6>") . (|* speed 1.05))
$ midiOn "^90" (struct "f(3,8)" . ply 4 . chop 2)
$ someCyclesBy (1 - "^34") (mask "<t f f f>")
$ "ghost" # n (slow 4 $ "<0 1 2 3>")
# cut 5
# lpf 3000
# room 0.4 # sz 0.8 # dry 1.2
d11
-- $ mask "<f!8 t!8>"
$ stack [
-- SELF-DESTRUCT SEQUENCE --
whenmod 8 6 (# silence) $ slow 4
$ whenmod 32 24 ((# begin 0.44) . (# end 1) . (# n 45)) -- Activated!
$ ("~!2 rhadamanthe_vocal:45" # gain 1.1
# begin "<0!2 0.44!2>" # end "<0.435!2 1!2>" # pan 0.1) # cut 110,
-- SYSTEM OVERLOAD
mask "<t!8 f!56>" $
"<~!7 [~ rhadamanthe_vocal:46]>" # cut 111,
-- Cigarette Luck
mask "<f!24 t!8>" $
n "<<14!3 6> ~ ~ <12 23>>" # "movie_wolf" # end "<0.55!8 1!8>"
# gain 0.7
# cut 112
# gain 1.2
]
d9 $ gF2 $ gM3
$ midiOn "^89" (ply "<2 4 8 [8 16]>")
$ note ("<e3 fs3 <gs3 d4> <a3 df4>>" + 24)
# "moog"
# cut 9
# room 0.3 # dry 0.5
# gain 1.6
# crushbus 91 (range 16 3.5 "^19")
...@@ -16,8 +16,9 @@ d1 $ gF1 $ gMute2 ...@@ -16,8 +16,9 @@ d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>") $ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ <~!4 k!12> ~ ~") $ midiOff "^42" (<| "k . ~ <~!4 k!12> ~ ~")
$ fix ((# lpf 1400)) "kick:4" $ fix ((# lpf 1400)) "kick:4"
$ "[techno:0,kick:4]" -- $ "[techno:0,kick:4]"
# gain 2 $ "jazz"
# gain 1.2
# room 0.2 # room 0.2
# dry 1 # dry 1
d2 $ gF1 $ gM1 d2 $ gF1 $ gM1
...@@ -49,7 +50,7 @@ d4 $ gF2 $ gMute3 -- BASSLINE VIOLENTE PAR VALENTIN <3 ...@@ -49,7 +50,7 @@ d4 $ gF2 $ gMute3 -- BASSLINE VIOLENTE PAR VALENTIN <3
$ fast (4/3) -- Le fameux $ fast (4/3) -- Le fameux
$ midiOff "^57" -- L'attente $ midiOff "^57" -- L'attente
(sometimesBy "<1!3 [0 <0 1>]>" (mask "t(<5!3 <5 8>>,8) t(<5!3 5>,8)")) (sometimesBy "<1!3 [0 <0 1>]>" (mask "t(<5!3 <5 8>>,8) t(<5!3 5>,8)"))
$ ("e" ~>) -- Decalage $ ("e" ~>) -- Decalagelue
$ note ("<[fs4 <a5!2 gs!4 fs5!4 <[a6 gs6 fs6]!3 [fs6 gs6 a6]>>@3]*4>") $ note ("<[fs4 <a5!2 gs!4 fs5!4 <[a6 gs6 fs6]!3 [fs6 gs6 a6]>>@3]*4>")
# "bassWarsaw" |- note 24 # "bassWarsaw" |- note 24
# pan 0.4 # pan 0.4
...@@ -57,7 +58,7 @@ d4 $ gF2 $ gMute3 -- BASSLINE VIOLENTE PAR VALENTIN <3 ...@@ -57,7 +58,7 @@ d4 $ gF2 $ gMute3 -- BASSLINE VIOLENTE PAR VALENTIN <3
# octerbus 43 (range 0 0.52 "^33") # octerbus 43 (range 0 0.52 "^33")
# gain 2 # gain 2
# legato "[0.8 0.5]*4" # legato "[0.8 0.5]*4"
d5 $ gM3 $ gF3 -- Suns of Gold Keys, sampled and reworked d5 $ gM3 $ gF3 -- Suns of Gold Keys, samples
$ midiOn "^90" (ply "2 <2 <4 8>>") $ 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)") $ 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>") $ midiOff "^58" (slice 8 "<0 1 2 3 4 5 6 7>")
......
...@@ -26,7 +26,7 @@ d2 $ gF1 $ gM1 $ "~ s ~ s*<1 2>" ...@@ -26,7 +26,7 @@ d2 $ gF1 $ gM1 $ "~ s ~ s*<1 2>"
-- # lpf 2000 -- # lpf 2000
-- # room 0.5 # sz 0.8 # dry 1.1 -- # room 0.5 # sz 0.8 # dry 1.1
# gain 1.2 # gain 1.2
d3 $ gF1 $ gM1 $ "dr:2*8" # "hh27:3" # cut 3 # gain 1.8 d3 $ gF1 $ gM1 $ "~ d ~ d ~ d ~ d*<1 <2 [2 4]>>" # "dr:2" # "hh27:3" # cut 3 # gain 1.8
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOn "^89" (ply 8) $ midiOn "^89" (ply 8)
$ note ("<c <ef <[ef@7 g] [ef [g ef g]]>> f@2>" - 24) $ note ("<c <ef <[ef@7 g] [ef [g ef g]]>> f@2>" - 24)
...@@ -38,6 +38,7 @@ d4 $ gF2 $ gM3 ...@@ -38,6 +38,7 @@ d4 $ gF2 $ gM3
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ midiOff "^58" (mask "t f") $ midiOff "^58" (mask "t f")
$ loopAt 2 $ loopAt 2
$ chop 2
$ midiOn "^58" (# n 14) $ midiOn "^58" (# n 14)
$ "nujazz_keys120:13" $ "nujazz_keys120:13"
# room 0.5 # room 0.5
...@@ -92,8 +93,7 @@ d11 ...@@ -92,8 +93,7 @@ d11
. (# end 0.7) . (# end 0.7)
) )
$ midiOn "^30"( $ midiOn "^30"(
(stutWith 4 0.5 (# begin "0.53") . (ply "<2 4 4 8>")) (stutWith 4 0.5 (# begin "0.53") . (ply "<2 [1 2] [1 4] 8>"))
. (# "movie_cat:23")
. (# begin "0.4") . (# begin "0.4")
. (# end 0.6) . (# end 0.6)
) )
......
do
-- resetCycles
setcps (142/60/4)
let modIndex = pF "modIndex"
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
$ whenmod 32 24 (# lpf (slow 8 $ range 50 500 saw))
$ midiOn "^30" ((# "gtkick:1") . (# bandf 993). (|* gain 1.2))
-- $ mask "<f!16 t!4 f!8 t!36>"
$ midiOn "^42" (<| "k k*<1 1 2 <1 4>> k k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ <k!12 ~!4> ~ <~!7 k>")
-- $ superimpose ((# "hardkick_rha:3") . (# lpfbus 12 80))
$ stack [
"[techno:0,jazz]"
]
# gain 1.7
-- # room 0.2
d2 $ gM1 $ gF1 -- Snare contretemps DNB Techno-compatible
-- $ fix ((|- note 2) . (# lpf 1200)) ""
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^43" (<| "~!3 s")
-- $ "[snare:35,<snare:43!4 snare:40!4>]"
$ "vec1_claps:45" # legato 0.25
# gain 1.44
d6 $ gM1 $ gF1 -- HAWKS
-- $ mask "<f!16 t!16>"
$ "~ [s <~!3 s*2>] ~ [s <~!3 s>]"
# "armora:1"
# legato "<0.5>"
# note ("f10" - 12)
# pan 0.9
# lpf 1300
-- # hpf (slow 8 $ range 5000 "<8000!32 800!32>" saw)
# room 1.0
# sz 0.8
# gain 1.4
# dry 1.02
d3 $ gM1 $ gF1-- DrumRoll
$ midiOn "^76" (ply 2)
-- $ mask "<f!20 t!44>"
$ whenmod 8 "<7!4 6!3 4>" (juxBy 0.93 rev)
-- $ whenmod 4 2 (rarely (ply 2))
$ "~ d ~ d ~ d*<1!4 2!4> ~ d*<1 2>"
-- # "[drum:2,cpu2:3]" -- Drums
# "[h2ogmhh:2]" # note 4
# delay 0.5
# delayt "s" # delayfb 0.3
# gain 0.96
d9 $ gF3 $ gM3 -- BASSLINE FONDEMENT
$ superimpose (
(# crushbus 41 (range 16 4.5 "^53")) . (# hpf 200) . (# hpq 0.23)
)
$ midiOn "^89" (off 0.5 id)
$ note "<[f3 f3 gs3 f3@5] [<gs3!3 f3> gs3 g3 f3@5]>"
# "bassWarsaw"
# att 0.3
# rel 1.4
# cut 4
# gain 1.8
d4 $ gF2 $ gM3 -- LA BASSE REBONDISSANTE
$ superimpose (mask "[f t]*4" . (|+| note (12 + "0 12 <0!3 <12!3 0>>" + 3))
. (# "vec1_acid:6") . (|* gain (range 0.35 1 "^33")). (# cut 41))
$ midiOn "^57" (off "-0.125" (|- note 12))
$ note ("~ f ~ f . ~ <f!3 ef> <~!3 f> <f!3 ~>" - 24)
# "bassWarsaw"
# gain 1.3
# octersubsubbus 42 (range 0 0.8 "^17")
# octerbus 43 (range 0 0.8 "^17")
# crushbus 41 (range 16 3.5 "^53")
# room 0.4 # sz 0.5
d5 $ gF2 $ gM3 -- Keys
$ mask "t <f!4 t!12>"
$ midiOn "^90" (ply 8 . chop 4)
$ midiOn "^58" (slice 16 ("[~ <4!4 3!4 2!4 1!4>]*4"))
-- $ someCyclesBy (slow 16 $ range 0 0.2 saw) (degradeBy "0 0.5!15")
$ slow 4
$ "sogood"
# n "<0!4 1!4 2!4 3!4>"
# cut 5
# octersubbus 51 (range 0 0.9 "^34")
# crushbus 52 (range 16 4.5 "^54")
# gain 1.8
# lpf 2000
-- # room 0.4
d7 $ gF3 $ gM3 -- VOICES TODO Refine loops
-- $ midiOn "^91" (ply "<2>" . off 1 id . off 2 id . chop "<1!3 4>" . (# cut 7))
$ midiOn "^91" (ply "8 4" . chop "<1 2>". (# cut 7))
$ midiOn "^19" ( -- FIXME Intro
(slice 2 "<~!3 [~ 0 ~]>") . (|> n "11"))
$ midiOn ("^59"-"^19") ((>| n "<<7 8 9 10> ~ <~!7 11> ~>") . (|* gain 1.1)) -- CHORUS
$ midiOff ("^59"+"^19") (>| n "<<4 5 <5 6> 6> ~ ~ <~!3 11> ~>") -- LEAD
$ "sogood"
# gain 1.6
-- # cut 7
-- # delay "<0!3 [0.5]>" # delayt 0.125 # delayfb 0.5
# octersubbus 71 (range 0 1.9 "^35")
d11 $ gF2 $ gM3
$ note ("<gs4 f4 gs4 f4 c5 gs4 c5 gs4 f5 ef5 cs5 c5 bf4 gs4 g4 f4>"
+ "0 5@3 . 0 <-2 <2 5>>"
- 12
)
# "moogBass" -- FIXME: Maybe I don't like this synth ANYMORE
# room 0.4 # dry 1 # sz 0.8
# gain 1.8
d12 $ gF1 $ gM3
$ note ("<gs4 f4 gs4 f4 c5 gs4 c5 gs4 f5 ef5 cs5 c5 bf4 gs4 g4 f4>"
-- + "0 5@3 . 0 <-2 <2 5>>"
)
# "cs80leadMH"
# room 0.4 # dry 1 # sz 0.8
# gain 1.8
d8 $ gF1 $ gM1
$ midiOn ("^60" - "^92") (ply "1!2 <1!3 <2 1 1 2>>!2" . mask "f(4,8)")
$ midiOn ("^36" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:45")) -- Clochettes?
$ midiOn ("^56" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:30")) -- Clochettes?
$ midiOn ("^92") ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!7 [0 1 . [2 3]]>"
. loopAt 0.5 . (# "breaks165") . (# octersub 2)
)
$ chop 16
$ loopAt 2
$ "jungle_breaks:74"
# room 0
# gain 1.2
d10 $ mask "<f!24 t!8>" $ loopAt 8 $ "risers" # cut 10
-- Released as "l'ACID d'abord"
do do
-- resetCycles -- resetCycles
setcps (135/60/4) setcps (135/60/4)
...@@ -33,7 +34,7 @@ d2 $ gF1 $ gM1 -- Basic clap ma gueule ...@@ -33,7 +34,7 @@ d2 $ gF1 $ gM1 -- Basic clap ma gueule
$ "cp" $ "cp"
# note "0!3 -1" # note "0!3 -1"
# lpf 4000 # lpf 4000
# room 0.4 # sz 0.8 # dry 1.1 # room 0.4 # sz 0.4 # dry 1.1
d3 $ gF1 $ gM1 d3 $ gF1 $ gM1
-- $ jux (rev) -- $ jux (rev)
-- $ whenmod 8 6 (mask "f t" . rev) -- $ whenmod 8 6 (mask "f t" . rev)
...@@ -77,6 +78,7 @@ d4 $ gF2 $ gMute3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme" ...@@ -77,6 +78,7 @@ d4 $ gF2 $ gMute3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
"" ""
] ]
# crushbus 41 (range 16 1 "^53") # crushbus 41 (range 16 1 "^53")
-- # legato 1
# legato (range 0.39 0.7 (1 - "^17")) # legato (range 0.39 0.7 (1 - "^17"))
>| note ("[b d6 b cs6 d6 b cs6 b]*2" >| note ("[b d6 b cs6 d6 b cs6 b]*2"
- "<0!32 12!32>" -- Alternance - "<0!32 12!32>" -- Alternance
...@@ -85,7 +87,7 @@ d4 $ gF2 $ gMute3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme" ...@@ -85,7 +87,7 @@ d4 $ gF2 $ gMute3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
-- # att 0.1 # sus 0.2 # rel 4 -- # att 0.1 # sus 0.2 # rel 4
-- # cut 4 -- # cut 4
# octersub 2 # octersub 2
# octerbus 41 (range 0 1 "^17") -- # octerbus 41 (range 0 1 "^17")
-- # crushbus 42 (range 16 4.2 "^53") -- # crushbus 42 (range 16 4.2 "^53")
d5 $ gF3 $ gM3 -- Piano lead acidule d5 $ gF3 $ gM3 -- Piano lead acidule
$ fix (# bandf 800) "FMRhodes1" $ fix (# bandf 800) "FMRhodes1"
......
-- 1. Choeurs
-- 2. 10 + d3
-- 3. Beat1
-- 4. Snare
-- 5. Drop your number
-- 6. Drop the breaks
-- 7. Mask the breaks!
-- 8. Drop the bass
-- 9. Enjoy the vibe
-- 10. Drop second kick
-- 11. AirDrop the choir
-- 12. Bring back breaks
-- 13. Bring back bass!
-- 14. Drop d7 scatman
-- 15. Hide him as choir leave
-- 16. Drop d11 and d12 scatters
-- 17. Enjoy the vibe
-- 18. Drop the bass friends
-- 19. Slice the Number
-- 20. Combine that with Drums funsies
-- 21. Mask the Number until next choir
-- 22. Hold choir
-- 22. kill scats
-- 23. Fade out on choir
do
-- resetCycles
setcps (99/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
$ midiOn "^42" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ "[808bd:4,808bd:2]"
# gain 1.51
# lpf 2000
-- # cps ((range (99 - 20) (99 + 20) "^29") / 60/ 4) -- TODO CPS MAGIC??
d2 $ gF1 $ gM1
$ whenmod 8 15 (# silence)
$ midiOn "^42" (# "vec1_snare:21")
$ "~ s [~!3 <~ s>] s*<1!7 2>"
# lpf 5000
# octersub 0.6
# "[snare:40,snare:421,bssnare:2]"
# gain "1 1 0.93 1"
d3 $ gF1 $ gM1
$ whenmod 8 15 (mask "t t t f")
$ "hh*[8 <16!6 8!2> <8!7 16>]"
# "h2ogmhh:3" # cut 3 # gain (1.2 * "1 1 0.9 1 0.9 0.85 0.9 1")
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t*[8 <8!3 16>]")
-- $ off 0.5 id
$ note "<[f4@5 <c5!7 ef5>] <bf4!3 cs5>>"
# "bassWarsaw" |- note 24
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# lesliebus 43 (range 0 0.95 "^17") # lrate 2 # lsize 2.2
# gain 1.3
d5 $ gF3 $ gM3 $ chop 4
$ midiOn "^90" (ply "4 <4 8>") -- That's all folks!
$ midiOn "^58" (# n "<1!3 2>") -- That's all folks!
$ "rob_cross_riff" # n "<0!8 <3 3 3 <[3 4] 4>>!8 >"
-- # n "<0!7 1>"
# cut 5
# crushbus 51 (range 16 3.5 "^54")
d8 $ gF1 $ gM1
-- $ midiOn "^92" (ply 2)
$ midiOff "^60" (mask "t(4,8,1)" . chop 4)
$ chop 8
$ midiOn "^36" (loopAt 0.5 . (|> "jungle_breaks:40"))
$ midiOn "^56" (loopAt 0.5 . (|> "jungle_breaks:20"))
$ loopAt 2
$ "jungle_breaks:45"
do do
-- resetCycles resetCycles
setcps (112/60/4) setcps (170/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
...@@ -14,14 +14,14 @@ let gM2 = gMask . gMute2 ...@@ -14,14 +14,14 @@ let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick d1 $ gF1 $ gM2 -- Kick
$ midiOff "^42" (<| "k k k k*<1!3 2>") $ midiOn "^42" (<| "k k k k*<1!3 2>")
$ midiOn "^42" (<| "k . ~ k ~ ~ ") $ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ "[kick:4]" $ "[kick:4]"
# gain 1.2 # gain 1.2
d2 $ gF1 $ gM1 -- Snare melancolie fromagere d2 $ gF1 $ gM1 -- Snare melancolie fromagere
$ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>") $ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>") $ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ "[snare:39]" $ "[hardkick_rha:1]"
# gain 1.45 # gain 1.45
d3 $ gF1 $ gM1 d3 $ gF1 $ gM1
$ midiOn "^44" (ply 2) $ midiOn "^44" (ply 2)
...@@ -31,7 +31,9 @@ d3 $ gF1 $ gM1 ...@@ -31,7 +31,9 @@ d3 $ gF1 $ gM1
-- # midiG' "^80" 0 1 -- # midiG' "^80" 0 1
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw) # room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 $ gM3 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)") $ 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) $ superimpose ((|* gain "^33") . (# n 12)
-- . (# cut 41) -- . (# cut 41)
) )
...@@ -40,11 +42,11 @@ d4 $ gF2 $ gM3 ...@@ -40,11 +42,11 @@ d4 $ gF2 $ gM3
) )
# "vec1_acid:11" # "vec1_acid:11"
# room 0.5 # sz 0.5 # room 0.5 # sz 0.5
# crushbus 41 (range 16 3.5 "^53") # crushbus 41 (range 16 1.5 "^53")
-- d5 $ gF3 $ gM3 -- d5 $ gF3 $ gM3
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ superimpose ((# hpf 500) . (ply "<1!3 <2 4>>") $ superimpose ((# hpf 500) . (ply "<1!3 <2 4>>")
. (# crushbus 51 (range 16 3.5 "^54")) . (# crushbus 51 (range 16 3 "^54"))
) )
$ note ("a(3,8) . as*<1 2> af" + "<0!8 12!8>") $ note ("a(3,8) . as*<1 2> af" + "<0!8 12!8>")
# "cpluck:1" # "cpluck:1"
...@@ -52,35 +54,37 @@ d5 $ gF3 $ gM3 ...@@ -52,35 +54,37 @@ d5 $ gF3 $ gM3
# octerbus 52 (range 0 0.8 "^34") # octerbus 52 (range 0 0.8 "^34")
# octersubbus 53 (range 0 0 "^34") # octersubbus 53 (range 0 0 "^34")
# octersubsubbus 54 (range 0 0 "^34") # octersubsubbus 54 (range 0 0 "^34")
d7 $ gF3 $ gM3 d6
$ note ("0 12 0 12 0 <12 12 24 24> 0 12" $ loopAt 2
+ "a . as af" $ slice 2 "<0 1>"
+ "<0!8 12!8>" - 24) $ "meth_bass:9"
# "moogBass" # delay "<0!8 0.5!8>"
# room 0.4 # delayt 0.5
# sustain 2 # delayfb "<0!4 0.4!4 0.6!4 0.8!4>"
# att (range 0.01 0.13 "^55") # room 0.2
# chorus 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 d8 $ gF1 $ gM1
$ loopAt 2 $ loopAt 2
$ midiOff "^60" (mask "f(4,8)" . chop 8) $ midiOff "^60" (mask "f(8,16)" . chop 16)
$ midiOn "^56" (# "jungle_breaks:7") $ midiOn "^56" (# "jungle_breaks:7")
$ midiOn "^36" (# "jungle_breaks:37") $ midiOn "^36" (# "jungle_breaks:37")
$ chop 16 $ "jungle_breaks:101" $ chop 16 $ "jungle_breaks:101"
# cut 8 # cut 8
d9 $ gF3 $ gM3 $ note "<a as <a a df5 df5> <d df>>" d9 $ gF3 $ gM3
$ midiOn "^89" (ply "<2 4 8 >")
$ note "<a as <a a df5 df5> <d df>>"
# "moog" # "moog"
# cut 9 # cut 9
# room 0.3 # dry 0.5 # room 0.3 # dry 0.5
# gain 1.3
a as a d # crushbus 91 (range 16 2 "^19")
a as a df
a as df4 df3
a as df4 c
once
$ "vec1_acid:11" |+ note 2
-- $ "superpiano"
# note ("c"
)
do
-- resetCycles
setcps (160/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 ~ ~ ")
$ "[bskick,jazz]"
# gain 1.2
# gain 1.4
d3 $ "dr*8"
once $ "FMRhodes1"
-- 1. Choeurs
-- 2. 10 + d3
-- 3. Beat1
-- 4. Snare
-- 5. Drop your number
-- 6. Drop the breaks
-- 7. Mask the breaks!
-- 8. Drop the bass
-- 9. Enjoy the vibe
-- 10. Drop second kick
-- 11. AirDrop the choir
-- 12. Bring back breaks
-- 13. Bring back bass!
-- 14. Drop d7 scatman
-- 15. Hide him as choir leave
-- 16. Drop d11 and d12 scatters
-- 17. Enjoy the vibe
-- 18. Drop the bass friends
-- 19. Slice the Number
-- 20. Combine that with Drums funsies
-- 21. Mask the Number until next choir
-- 22. Hold choir
-- 22. kill scats
-- 23. Fade out on choir
do
-- resetCycles
setcps (140/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
-- $ mask "<f!8 t!56>" -- Mask regulier
$ midiOn "^42" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^42" (# "hardkick_rha:1")
$ "[808bd:4,808bd:2]"
# gain 1.3
# lpf 2000
d2 $ gF1 $ gM1
$ whenmod 8 15 (# silence)
-- $ midiOn "^42" (# "[cp]") -- Un bon vieux clap
-- $ midiOn "^42" (# "[vec1_snare:33]") -- Un snare vener'
$ midiOn "^42" (<| "~ s ~ s")
$ midiOn "^42" ((|* gain 0.8) . (# "[kick:4]")) -- Le snare s'est fait... kick?!
$ midiOff "^42" (<| "~ s [~!3 <~!3 s>] s*<1 2>")
-- # lpf 5000
$ "[snare:40,snare:421,bssnare:2]"
# octersub 0.6
-- # "vec1_snare:1"
-- # gain "1 1 0.93 1"
d3 $ gF1 $ gM1
-- $ whenmod 8 15 (mask "t t t f")
$ midiOn "^42" (mask "t(4,8,1)")-- Le snare s'est fait... kick?!
$ "hh*[8 <16!6 8!2> <8!7 16>]"
# "h2ogmhh:3" # cut 3 # gain (1.2 * "1 1 0.9 1 0.9 0.85 0.9 1")
d8 $ gF1 $ gM1
-- $ midiOn "^92" (ply 2)
$ midiOff "^60" (mask "t(4,8,1)" . chop 4)
$ chop 8
$ midiOn "^36" (loopAt 0.5 . (|> "jungle_breaks:40"))
$ midiOn "^56" (loopAt 0.5 . (|> "jungle_breaks:20"))
$ loopAt 2
$ "jungle_breaks:45"
# gain 1.4
d4 $ gF2 $ gM3
$ note (
"<f f e@2>"
+ "0(3,8) 0(3,8)"
-- - 24
)
# "vec1_acid:35"
-- # sz 0.4
-- # room 0.3
# gain 1.2
# crush 6
d5 $ gF3 $ gM3
$ fix ((|* gain (range 1 0 ("^34" + "^54"))) . (# "FMRhodes1")) "a"
$ fix ((|* gain (range 0 0.8 "^54")) . (|* gain 1.1) . (# "vec1_acid:28")) "b"
$ fix ((|* gain (range 0 0.8 "^34")) . (|* gain 1.1) . (# "vec1_acid:34")) "c"
$ midiOn "^58" (slice 4 "0 1 0 0*4")
$ superimpose ((|* gain (slow 16 $ range 0 1 saw)) . (|+ note 12) . (|+ pan 0.2))
$ note (
"<[f4@3 a4 b4@4] [f4 a4 b4 e5 d5@2 b4 c5] [b4 g4 e4@4 ~ d4] [e4 g4 e4@5 ~] >"
-- + 12
)
# "[a,b,c]" -- 26
-- # gain 1.2
# room 0.1 # sz 0.1
# legato 1
# att 0.07 # rel 2
-- # modIndex 3
...@@ -40,13 +40,15 @@ d4 $ gF2 $ gM3 ...@@ -40,13 +40,15 @@ d4 $ gF2 $ gM3
# room 0.5 # sz 0.5 # room 0.5 # sz 0.5
# crushbus 41 (range 16 3.5 "^53") # crushbus 41 (range 16 3.5 "^53")
# octerbus 42 (range 0 0.85 "^33") # octerbus 42 (range 0 0.85 "^33")
# octersubbus 43 (range 0 1.5 "^33")
d8 $ gF1 $ gM1 $ chop 8 d8 $ gF1 $ gM1 $ chop 8
$ midiOn "^60" (mask "t(4,8,1)") $ chop 8
-- TODO PR#EMIER JET -- TODO PR#EMIER JET
$ loopAt 2 $ "jungle_breaks:30" # cut 8 $ loopAt 2 $ "jungle_breaks:30" # cut 8
d9 $ gF3 $ gM3 d9 $ gF3 $ gM3
$ note ("<c4 ef4 gs3 g3>") $ note ("<c4 ef4 gs3 g3>")
# "moogBass" # "moogBass"
# room 0.5 # sz 0.5 # room 0.15 # sz 0.15
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ midiOn "^90" (|+| note "[12 0]*[8 . <8 16>]") $ midiOn "^90" (|+| note "[12 0]*[8 . <8 16>]")
$ note ( $ note (
......
do
setcps (120/60/4)
d1 $ "jazz*4"
d2 $ gF1 $ "~ cp"
d4 $ gF2
$ note ("[c4 g4 c4 d4]*4"
- "<12!16 0!16>"
)
# "acidOto3091"
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