Commit 72b90091 by PLN (Algolia)

session: Raph pains au chocolat

parent 3b47e3df
......@@ -13,21 +13,28 @@ let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
$ superimpose ((# cut 11) -- Rumble
-- $ fix ( -- Rumble
-- . (# att 0.2) . (# rel 2)
. (# gain 4)
. (# delay 0.125) . (# delayt "q") . (# delayfb 0) -- Smear
-- . (# gain 2)
-- . (# delay 0.125) . (# delayt "q") . (# delayfb 0) -- Smear
-- . (# smear 0.85)
-- . (# room 0.12) . (# sz 0.1) . (# dry 0.2)
-- . (# legato 0.25)
. (# lpf 600) -- Low-pass show
)
-- . (# lpf 100) -- Low-pass show
-- ) "rumble"
$ midiOn "^42" (struct "t t*<1!3 <1!4 2!4>> t <t <t!4 [~ t]!4> t t*2>")
$ midiOff "^42" (<| "k . ~ k ~ <~!3 k*[4 1]>")
$ "[techno:1,jazz]"
$ stack [
"kick" # cut 11 # gain 1.2 # lpf 10000 # delaybus 11 0,
"rumble" # cut 12 # gain 2 # lpf 200 # delaybus 12 0.25 # delayt "q" # delayfb 0
,
-- # lpf 120
-- # cut 11,
""
]
# "[kick:4]"
# delay 0
-- # gain 0.2
# lpf 2000
# pan 1
# cut 1
-- # cut 1
d2 $ gF1 $ gM1 -- Basic clap ma gueule
$ midiOn "^43" (<| "~ <~!8 cp!8> . cp*<1!3 2> <~!8 [~ cp]!8>" )
$ midiOff "^43" (<| "~ <cp!3 <~ [cp*<2 4>]>>")
......@@ -35,30 +42,31 @@ d2 $ gF1 $ gM1 -- Basic clap ma gueule
# note "0!3 -1"
# lpf 4000
d3 $ gF1 $ gM1
$ jux (rev)
$ whenmod 8 6 (mask "f t" . rev)
-- $ jux (rev)
-- $ whenmod 8 6 (mask "f t" . rev)
$ "h h*2 ~ h ~ h ~ <~!2 h h*2>"
# "rhadamanthe_drum:3"
# "rampleP3:19"
# delay 0.5 # delayt 0.25 # delayfb 0.2
# pan 0.7
# pan 0.7 # cut 3
# legato (range 0.2 0.8 "^52")
d4 $ gF2 $ gM3 -- FROZEN BASS
-- # gain 0.8
d4 $ gF2 $ gM3 -- FROZEN ACID BASS
$ midiOn "^57" (# freeze 0.2)
$ midiOn "^89" (ply 2 . chop 8 . (# legato 0.5))
$ slow 8 $ slice 8 (run 8)
$ superimpose
((# cut 41)
. (# crushbus 41 (range 8 2.5 "^53"))
. (# hpf 500)
. (# gain (slow 32 $ range 0.5 1.2 (saw + "^53")))
-- . (# legato 4)
. (# lpf 10000))
-- $ superimpose
-- ((# cut 41)
-- . (# crushbus 41 (range 8 2.5 "^53"))
-- . (# hpf 500)
-- . (# gain (slow 32 $ range 0.5 1.2 (saw + "^53")))
-- -- . (# legato 4)
-- . (# lpf 10000))
$ stack ["",
"s" -- Base Synth
]
# "synth_commodore"
# squizbus 42 (range 0 0.8 "^33")
# lpf 500
# squizbus 42 (range 0 1.8 "^33")
# lpf 2000
# gain 0.9
# room 0.3
# dry 0.9
......@@ -86,32 +94,72 @@ d9 $ gF3
# octersub 0.5
# octersubsub 0.5
# gain 1.3
d4 $ gF2 $ gMute3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
-- TODO SOUND DESIGN MOI CES ACID BASS
$ midiOff "^57" (
-- (|+ 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 (slow 8 "<31 37>") # "vec1_acid" # pan 0.3, -- Grave
"vec1_acid" # gain (slow 16 $ range 0.1 1.2 saw) # pan 0.6, -- Electrique
-- "vec1_acid:31",
n "<30!7 31>" # "vec2_synth_acid" # gain (range 1.1 0.6 "^53"),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^53"),
-- # octer 1.1
-- # crushbus 41 (range 16 1 "^53")
-- ,
""
]
# 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 "^33")
-- # crushbus 42 (range 16 4.2 "^53")
d5 $ gF3 $ gM3 -- Piano lead acidule
$ midiOn "^58" (stutWith 4 0.125 (|- note 12))
$ fix (# bandf 800) "FMRhodes1"
-- $ fix (# bandf 1050) "FMRhodes2"
$ midiOn "^90" (struct "t(<8 <8 16>>,64)")
$ midiOn "^58" ((stutWith 4 0.125 (|- note 12)) . (|+ note 12))
$ superimpose (# modIndex (range 0 16 "^34"))
$ note ("b ~ ~ b ~ ~ <d!7 e6> <~ d>" - 12)
# "FMRhodes1"
# crushbus 51 (range 16 4.5 "^54")
# room 0.3# sz 0.5
d7 $ gF2 $ gM3 -- Punishment bass
-- $ ply "<1!16 8!16>"
$ midiOn "^91" (ply 4 . (# legato 0.25))
$ note ("<b4 [~!3 <bf4 d4 e4 [e4 f4@3]>]>")
# room 0.4 # dry 2 # sz 0.8
# "moog" # cut 7
# gain 1.2 # cut 7
# octersub 0.5
# octer "<0!7 0.9>"
# delay 0.5 # delayt "e" # delayfb "<0 <0.4 0.9>>"
# crushbus 71 (range 10 2.5 "^55")
$ note ("b ~ ~ b ~ ~ <d!7 e6> <~ d>"
+ "[0,<~!4 7!4>]"
-- + "[0,12]"
- 24)
# "[FMRhodes1]"
# tremdp 4 # tremr 1.8 -- Bouncy droplet
-- # bandf 50 # bandq 0
-- # crushbus 51 (range 16 4.5 "^54")
# gain 1.5
d7 $ gF2 $ gMute3 -- Caring bass
$ midiOn "^59" (|+ note "[0,12]")
$ midiOn "^91" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
$ superimpose (
(# cut 71) .
(# crushbus 71 (range 10 3.5 "^55"))
)
$ note (
"<b5!3 <g d>>@7 <c6 c6 cs6 a6>" -- This is caring
)
# "moog:0"
# legato 1
# bandf 50
# bandq 0
# cut 7
# gain 1.4
d8 $ gF1 $ gM1
$ midiOn "^92" ( -- Bouton Nassim <3
slice 8 "0 1 2 <3!3 ~> <4!3 ~> 5 <6!3 6*2 ~!3 6> 7*<1!3 <2 4>>"
. loopAt 0.5 . (# "breaks165") . (# octersub 2)
. (|* gain 0.8)
)
$ midiOff "^60" (mask "t(4,8,1)" . chop 16)
$ midiOff ("^60" + "^92") (mask "t(4,8,1)" . chop 16)
$ midiOn "^56" (# "jungle_breaks:40")
$ midiOn ("^36" - "^92") (chop 8 . loopAt 4 . (# "trance_loops:4"))
$ midiOn ("^36" - "^92") (chop 8 . loopAt 4 . (# "trance_loops:4") . (|* gain 1.1))
$ chop 8
$ loopAt 2
$ "jungle_breaks:45"
......@@ -126,7 +174,9 @@ d11 $ gF2 $ gM3 -- Synthetique violon
# room 0.4
# pan 0.8
# att 0.5
# lpf 4000
# sustain 0.5
# rel 2
# gain 2
once $ "FMRhodes1"
do
setcps (160/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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 gF4 = (# djfbus 4 (range 0.05 0.95 "^29"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF4 $ gMute2
$ superimpose (
(# "hardkick_rha") .
-- (# n "<14!3 15 <14 15>>")
(# n 14)
. (|* gain (range 0 1 "^30"))
) -- SALE
$ "k k k <k k*2 k [~ k*<1 1 <1 2> <2 4>>]>"
# "[jazz]"
# note ("2") -- Calage
-- # n "<14!3 15 <14 15>>" -- SALE
# gain 1
d2 $ gF1 $ gM1 $ "~ s ~ [s*<1!3 2> ~]"
# "[cp]"
# gain 1.4
d3
$ gF1 $ gM1
$ "d(4,8,1)"
# "h2ogmhh"
# gain 2 # cut 3 -- Drill that Baby
d8 $ gF1 $ gM1
$ midiOn "^92" (ply 4)
$ loopAt 2
$ chop 8
$ midiOn "^56" (loopAt 0.5 . (>| "breaks165"))
$ "jungle_breaks:11"
# cut 8
# room 0.4 # dry 1.1
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4)
$ midiOn "^57" (mask "t([<2!4 4!4 8!4 16!4> 2],16)"
. (# room 0.4) . (# dry 0.9))
-- $ midiOn "^57" (fast 4)
$ chop 64
$ superimpose (# crushbus 41 (range 16 4 "^33"))
$ slice 4 (slow 4 "<0 1 2 3>")
$ "rhadamanthe_melo:15"
# gain 1.2
d5
$ note ("0 . 0(3,8)" +
"<[e4 c4 b3 a3] [e4 c4 b3 a3] [f4 d4 c4 b3] [f4 d4 c4 b3]>"
)
# "FMRhodes1"
# crushbus 51 (range 16 4 "^54")
# modIndex (range 0 4 "^34")
# gain 1.4
# room 0.2
d6 $ gF3 $ gM3
-- $ superimpose (# crushbus 51 (range 16 4 "^54"))
$ midiOn "^90" (ply "<2 3>")
$ midiOn "^58" (slice 4 "<0 4 1 2 <3 <4 1>>>*4")
-- $ n "<0!8 1!3 0 1!3 1*4>"
$ n "0"
# "rhadamanthe_divers:69"
# cut 6
# pan (slow 16 $ range 0.6 0.45 saw)
# gain 1.4
d12 $ gM3 $ gF3
$ note (
"<[~ cs ~ cs] [~ fs ~ fs] [~ bf ~ bf] [~ gs@3 ~ cs@2 [gs fs]]>"
+ "<0 0 0 [0 <0 12>]>" + "<0!14!8 12!8>"
- 24
)
# "moogBass"
# legato 2
# chorus 1.2
# cut 12
-- # tremdp 0.8
-- # tremr "<2 4 4 <8 16>>"
# gain 1.2
d7 $ gF3 $ gM3 -- SCRATCH
$ midiOn "^91" (ply "2 4 <8 8 4 16>")
$ midiOn "^59" (chop 16)
$ midiOff "^59" (chop 4)
$ "rhadamanthe_vocal:1/4"
# cut 7
# pan (slow 16 $ range 0.9 0.6 saw)
# gain 1.2
d10 $ gM3 $ gF3
$ fix (# begin 0.25) "movie_statue:36"
$ stack [
-- I'VE GOT YOU SEVERAL TIMES
mask "<f!24 t!8 f!16 t!16>"
$ "movie_wine:15*<1 1 2 4>"
# begin "<0!3 <<0.04 0.1> 0.25>>"
# room 0.2 # sz 0.1
# end "<0.45!8 0.5!8>" # cut 101, -- ON MY MIND
mask "<f!7 t>"
"<[movie_statue:36 movie_statue:7]>"
# gain 0.9, -- Young lady from China
mask "<t!32 f!8 t!8 f!8>" $
mask "<f!3 t f!4>" $
"[movie_dead:0 movie_vitality:4]" # end "<0 0.25>",
-- just a drift --
mask "<t!8 f!8>"
$ "[movie_vitality:4]" # end "<0.1!2 0.05!2>" # gain 0.9 # room 0, -- Just a drift
"<~!3 [movie_vitality:4]>" # end "<0.25>" # begin "<0.1>", -- WITHOUT CONTROL
""
]
-- # rel 2 # att 0.1
# gain 1.3
# cut 101
-- rhadamanthe_divers:143 -- bien sifllement
resetCycles
do
-- resetCycles
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
......@@ -31,7 +31,7 @@ d3 $ gF1 $ gM1
-- $ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)"
$ "h(3,8) h(3,8)" # pan "0.2 0.8"
# drumFrom "rolandtr909" "hh" # cut 3 # gain 0.9 # legato (range 0.05 0.9 "^32")
d9 -- Bogdan the Grime sample provider
d9 -- Bogdan the Grime sample provider
$ whenmod 16 12 ( -- I'm from Cardiff!
(# "bogdan_grime:1") . (# begin "<0!3 0.25>") . (# end "<0.5!3 0.25>")
)
......@@ -57,6 +57,7 @@ d8 $ gF1 $ gM1 -- Come on breaks!
# cut 8
# gain 0.9
d4 $ gF2 $ gMute3 -- Bassline aqualgorithmique
$ midiOn "^81" ((# tremdp 1) . (# tremrbus 43 "<[8 4] [<4 8> <2 16>]>"))
$ slow 2 $ note (
-- "<0!8 0(3,8)!8> 0" + "<d4!3 a3> <fs4 e4 d4 b3>"
"<<fs <[fs@15 e] [fs@14 cs e]>> b4>"
......@@ -73,7 +74,7 @@ d4 $ gF2 $ gMute3 -- Bassline aqualgorithmique
# crushbus 41 (range 16 3.5 "^53")
# octersubsubbus 42 (range 0 2 "^33")
# gain 0.7
d5 $ gM3 $ gF3
d5 $ gM3 $ gF3 -- Marimba fondamental
$ midiOff "^58" (mask "t(<4 <2 4>>,4) t(<3!7 5>,8)")
$ juxBy 0.4 rev
$ note ("<[b4 [~ d5]. [fs5@3 fs5]] [e5 fs5 e5 fs5. [d5@3 fs5]]>")
......
do
setcps (160/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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 gF4 = (# djfbus 3 (range 0.05 0.95 "^29"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
$ "k k k <k k*2 k [~ k*<1 1 <1 2> <2 4>>]>"
# "hardkick_rha" # n "<14!3 15 <14 15>>" -- SALE
# gain 1.2
d2 $ gF1 $ gM1 $ "~ s ~ [s*<1!3 2> ~]"
# "[cp]"
# gain 1.4
d3
$ gF1 $ gM1
$ "d(3,8) d(<3!3 [8@3 3]>,8)"
# "h2ogmsn"
# gain 2 # cut 3 -- Drill that Baby
d5 $ gF3 $ gM3
$ superimpose (# tremdpbus 51 (range 0 4 "^54"))
$ superimpose (# tremrbus 52 (range 0 4 "^34"))
-- $ superimpose (# crushbus 51 (range 16 4 "^54"))
$ midiOn "^90" (ply "<4 2 1 2> <2 [1 8]>")
-- $ midiOn "^58" (slice 4 "<0 1 2 <3 <2 1>>>*4")
$ gF2 $ gM2
-- $ n "<0!8 1!3 0 1!3 1*4>"
$ n "<<2 3 4 5> ~>"
# "jane_wang"
# cut 5
# pan (slow 16 $ range 0.6 0.45 saw)
-- # crushbus 51 (range 16 2.5 "^54")
# gain 1.8
-- d4 $ gF2 $ gM3 -- Cello bass
-- $ midiOn "^89" (|+| note "[0 12 0]")
-- $ midiOn "^57" (|+| note "0 0 <7 [7 9](3,8) 7 [7 9 12 7]> 0")
-- $ juxBy 0.6 (|+| note ("7([3 1],8)"))
-- $ juxBy 0.6 (|+| note ("7([3 1],8)"))
-- $ note ("<[fs@7 <~ bf>] [fs@7 <~ cs>] <bf ef> <cs!3 bf>>")
-- |* gain "<[1@7 0.9] 1 1 1>"
-- # pan (slow 16 $ range 0.45 0.6 saw)
-- # "cpluck"
d12 $ gM3 $ gF3
$ note (
"<[~ cs ~ cs] [~ fs ~ fs] [~ bf ~ bf] [~ gs@3 ~ cs@2 [gs fs]]>"
+ "<0 0 0 [0 <0 12>]>" + "<0!14!8 12!8>"
- 24
)
# "moogBass"
# legato 2
# chorus 1.2
# cut 12
-- # tremdp 0.8
-- # tremr "<2 4 4 <8 16>>"
# gain 1.2
d7 $ gF1 $ gM1 -- SCRATCH
$ midiOn "^91" (ply "2 4 <8 8 4 16>")
$ midiOn "^55" (# n 15)
$ midiOn "^59" (# n 15)
$ chop 16
$ loopAt 4
$ "scratch_long:12"
# cut 7
# pan (slow 16 $ range 0.9 0.6 saw)
# gain 1.2
d8 $ gF1 $ gM1
$ midiOn "^92" (ply 4)
$ loopAt 2
$ chop 8
$ midiOn "^56" (>| "jungle_breaks:10")
$ "jungle_breaks:11"
# cut 8
# room 0.4 # dry 1.1
d10 $ gM3 $ gF3
$ fix (# begin 0.25) "movie_statue:36"
$ stack [
-- I'VE GOT YOU SEVERAL TIMES
mask "<f!24 t!8 f!16 t!16>"
$ "movie_wine:15*<1 1 2 4>"
# begin "<0!3 <<0.04 0.1> 0.25>>"
# room 0.2 # sz 0.1
# end "<0.45!8 0.5!8>" # cut 101, -- ON MY MIND
mask "<f!7 t>"
"<[movie_statue:36 movie_statue:7]>"
# gain 0.9, -- Young lady from China
mask "<t!32 f!8 t!8 f!8>" $
mask "<f!3 t f!4>" $
"[movie_dead:0 movie_vitality:4]" # end "<0 0.25>",
-- just a drift --
mask "<t!8 f!8>"
$ "[movie_vitality:4]" # end "<0.1!2 0.05!2>" # gain 0.9 # room 0, -- Just a drift
"<~!3 [movie_vitality:4]>" # end "<0.25>" # begin "<0.1>", -- WITHOUT CONTROL
""
]
-- # rel 2 # att 0.1
# gain 1.3
# cut 101
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