Commit 959648c4 by PLN (Algolia)

live: Septieme armee, creme, something about drums

parent 770a4b6c
...@@ -32,6 +32,7 @@ d4 $ gF2 $ gM3 ...@@ -32,6 +32,7 @@ d4 $ gF2 $ gM3
$ 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)
# "bassWarsaw" # "bassWarsaw"
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^53")
# octerbus 42 (range 0 0.85 "^33")
# room 0.4 # room 0.4
# gain 1.5 # gain 1.5
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
......
...@@ -13,14 +13,6 @@ let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) ...@@ -13,14 +13,6 @@ 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"))
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide d1 $ gMute2 $ gF1 -- Kick solide
-- $ fix ( -- Rumble
-- . (# att 0.2) . (# rel 2)
-- . (# gain 2)
-- . (# delay 0.125) . (# delayt "q") . (# delayfb 0) -- Smear
-- . (# smear 0.85)
-- . (# room 0.12) . (# sz 0.1) . (# dry 0.2)
-- . (# 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>") $ 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]>") $ midiOff "^42" (<| "k . ~ k ~ <~!3 k*[4 1]>")
$ stack [ $ stack [
...@@ -93,7 +85,7 @@ d4 $ gF2 $ gMute3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme" ...@@ -93,7 +85,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 "^33") # 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"
......
...@@ -32,15 +32,19 @@ d3 $ gF1 $ gM1 ...@@ -32,15 +32,19 @@ d3 $ gF1 $ gM1
# gain 1.8 # gain 1.8
# pan 0.2 # pan 0.2
# cut 3 # cut 3
d4 $ gF2 d4 $ gF2 $ gM3
$ midiOn "^89" (ply "1 1 1 <4!3 1>" . slice 4 ("0*<4!4 8!4 16!4 32!4>" + "<0 1 2 3>")) $ midiOn "^89" (ply "1 1 1 <4!3 1>" . slice 4 ("0*<4!4 8!4 16!4 32!4>" + "<0 1 2 3>"))
$ midiOn "^57" ((# freeze 0.2) . ply 4) $ midiOn "^57" ((# freeze 0.2) . ply 4)
$ loopAt 4 $ chop 4 $ loopAt 4
$ "bass_nes:1" $ "bass_nes:1"
# cut 4 # cut 4
# pan 0.3 # pan 0.3
# octersubbus 42 (range 0 1.5 "^17") # room 0.4
# squizbus 42 (range 0 1.5 "^33") # sz 0.9
# gain 1.5
-- # octerbus 42 (range 0 1.5 "^17")
# octersubbus 43 (range 0 1.5 "^17")
# squizbus 44 (range 0 1.5 "^33")
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^53")
# gain 1 # gain 1
d5 $ gF3 $ gMute3 d5 $ gF3 $ gMute3
...@@ -58,6 +62,22 @@ d5 $ gF3 $ gMute3 ...@@ -58,6 +62,22 @@ d5 $ gF3 $ gMute3
# lpfbus 53 (range 3000 200 "^34") # lpfbus 53 (range 3000 200 "^34")
# cut 5 # cut 5
# pan 0.66 # pan 0.66
d9 $ gF3 $ gM3
$ note ("<c4 ef4 <bf3 <g3 g4>> <af3 f4 af3 af4>>")
# pan 0.7
# room 0.2
# "moogBass"
d6 $ gF3 $ gM3
$ note ("0@3 0 . <gs4 f4 ef4 d4>" + "<g4!3 f4> . 0"
+ "[0,12]")
# att 0.15 # rel 0.5
# "superfork"
# pan 0.4
# room 0.4 # dry 1.4
# room (slow 32 $ range 0 0.6 saw)
# delay 0.3
# delayt 0.25
# delayfb 0.25
d7 $ gM3 $ gF3 d7 $ gM3 $ gF3
$ n ("<0 0 0 ~>" + "<41!10 42 42>") # "fsynth" $ n ("<0 0 0 ~>" + "<41!10 42 42>") # "fsynth"
# crushbus 72 (range 16 2.05 "^35") # crushbus 72 (range 16 2.05 "^35")
......
do
-- resetCycles
setcps (90/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
$ midiOff "^42" (<| "k k k k*<1!3 2>")
$ midiOn "^42" (<| "k . ~ k ~ ~ ")
-- $ "[bskick,kicklinn:2]"
$ "reverbkick"
# lpf 3000
# att 0.01 # rel 0.5
# gain 1.1
d2 $ gF1 $ gM1 -- Snare melancolie fromagere
$ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ "[snare:39]" # note "-2" # lpf 4000
# gain 1.45
d3 $ gF1 $ gM1
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
$ "d*[16 <12 <16 [12 24]>> . 8]" # "dr"
# gain 1.2
-- # midiG' "^80" 0 1
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)")
$ note ("<[c3@3 c3 . <ef3!0 [ef3 . c3 bf2]>] [<gs2 [gs2 bf2 gs2]> g2]>")
# "bassWarsaw"
# room 0.5 # sz 0.5
# crushbus 41 (range 16 3.5 "^53")
# octerbus 42 (range 0 0.85 "^33")
d8 $ gF1 $ gM1 $ chop 8
-- TODO PR#EMIER JET
$ loopAt 2 $ "jungle_breaks:30" # cut 8
d9 $ gF3 $ gM3
$ note ("<c4 ef4 gs3 g3>")
# "moogBass"
# room 0.5 # sz 0.5
d5 $ gF3 $ gM3
$ midiOn "^90" (|+| note "[12 0]*[8 . <8 16>]")
$ note (
"<~ <[c3 c3 c3 ef3 c3 c3@3] [c3 c3 c3 bf2 <bf2 c3> c3@3]>>"
)
# "FMRhodes1"
# modIndex (range 0 12 "^54")
# room 0.4
# octer 0.5
# gain (1.4 - 0.3 * "^54")
do
-- resetCycles
setcps (93/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
$ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOn "^42" (<| "k . ~ <~!2 k!2> ~ <~!3 k*<1 2>>")
$ "[808bd:4,jazz]"
# lpf 400
# gain 1.2
-- # gain 1.4
d2 $ gF1 $ gM1 -- Snare melancolie fromagere
$ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
$ midiOn "^43" (<| "~ . s*<1!4 2!3 [4 2]> ~")
$ "[rampleM12:3]"
# gain 1.2
d3 $ gF1 $ gM1
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
$ "d d d <d [<d ~> d]>" # "drum:2"
# gain 0.8
d4 $ gF2 $ gM3
$ note "<f3 c3 cs3 f3>"
# crushbus 41 (range 16 3 "^53")
# octerbus 42 (range 0 0.93 "^33")
# octersubbus 43 (range 0 1.93 "^33")
# "bassWarsaw"
d5 $ gF3 $ gM3
$ note ("<[f4 [~ g4] [gs4 ~] as4 c5@4] [f5 [~ f5] . ef5 df5 c5@2] [bf4@3 bf4 . gs4 g4 f4@2] f4>" + 12)
# "superfork"
# room 0.3
d7 $ gF3 $ gM3
$ struct "t*[8 . <8!3 16>]"
$ note (
"<[f4@3 g4 . gs4 as4 c5@2] [f5@3 f5 . ef5 df5 c5] [bf4@3 bf4 gs4 g4 f4] f4>"
+"[0,12]" )
# "pluck"
d8 $ gF1 $ gM1
$ chop 8
$ loopAt 1
$ midiOn "^60" (mask "f(4,8)" . chop 8)
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:19") . (|* gain 1.2)) -- Pure COMEON!
$ midiOn "^56" (# "jungle_breaks:20")
$ midiOn "^92" ( -- Bouton Nassim <3
slice 8 (run 16)
. loopAt 0.5 . (# "breaks165")
-- . (# octer 0.4) . ( octersubsub 4)
. (# lpf 2500)
. (# room 0)
)
$ "break:8" # cut 8
-- -- # midiG' "^80" 0 1
-- # room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
-- d4 $ gF2 $ gM3
-- $ midiOn "^89" (ply 2)
-- $ slow 2
-- $ note (
-- struct "t(3,8) t(3,8)" $
-- arp "converge" $
-- cat [
-- "[bf3, d4, f4, a4]", -- Bbmaj7
-- "[a3, c4, e4, g4]", -- Am7
-- "[d4, f4, a4, c5, <e5 e4>]", -- Dm9
-- "[g3, b4, d5, <f5 ~>]" -- <G7 G>
-- ] - 12)
-- # "bassWarsaw"
-- # crushbus 41 (range 16 4 "^53")
-- # room 0.2
-- # legato 0.5
-- # gain 1.4
-- d7 $ gF2 $ gM3
-- $ midiOn "^89" (ply 2)
-- $ slow 2
-- $ note (
-- struct "t(3,8) [t(<3!3 5>,8)|t|t*2]" $
-- arp "up" $
-- cat [
-- "[bf3, d4, f4, a4]", -- Bbmaj7
-- "[a3, c4, e4, g4]", -- Am7
-- "[d4, f4, a4, c5, <e5 e4>]", -- Dm9
-- "[g3, b4, d5, <f5 ~>]" -- <G7 G>
-- ])
-- # "moogBass"
-- # cut 7
-- # room 0.2
-- # legato 0.5
-- # delay 0.7
-- # delayt 0.125
-- # delayfb 0.5
-- d5 $ gF2 $ gM3 $ slow 2 -- V2
-- -- $ superimpose ((arp "up") . (|+ note 12))
-- $ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
-- $ note (cat [
-- -- PARTITION ORIGINALE
-- "[bf3, d4, f4, a4]", -- Bbmaj7
-- "[a3, c4, e4, g4]", -- Am7
-- "[d4, f4, a4, c5, <e5 e4>]", -- Dm9
-- "[g3, b4, d5, <f5 ~>]" -- <G7 G>
-- ]
-- - 12
-- )
-- # "FMRhodes2"
-- -- |- note 12
-- |+ note 2 -- Adjust to C
-- # modIndex (range 0 2 "^54")
-- # room 0.4
-- -- # midiG' "^81" 0 1.6
-- d8 $ gF1 $ gM1
-- $ midiOff "^60" (mask "f(4,8)" . chop 8)
-- $ midiOn "^92" (ply 4)
-- $ midiOn "^36" (# "jungle_breaks:45")
-- $ midiOn "^56" (# "jungle_breaks:30")
-- $ iter "1 <1!4 4!4>"
-- $ chop 8
-- $ loopAt 2
-- $ "break:2"
-- -- # n 4
-- # cut 8
-- # gain 0.7
C ASH
R ULES
E VERYTHING
A ROUND
M E
...@@ -16,7 +16,7 @@ let modIndex = pF "modIndex" ...@@ -16,7 +16,7 @@ let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick d1 $ gF1 $ gM2 -- Kick
$ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>") $ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOn "^42" (<| "k . ~ k ~ ~ ") $ midiOn "^42" (<| "k . ~ k ~ ~ ")
$ "[808bd:4,jazz]" $ "[bskick,jazz]"
# gain 1.2 # gain 1.2
# gain 1.4 # gain 1.4
d2 $ gF1 $ gM1 -- Snare melancolie fromagere d2 $ gF1 $ gM1 -- Snare melancolie fromagere
...@@ -31,8 +31,6 @@ d3 $ gF1 $ gM1 ...@@ -31,8 +31,6 @@ d3 $ gF1 $ gM1
# gain 0.8 # gain 0.8
-- # 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
$ midiOn "^89" (ply 2) $ midiOn "^89" (ply 2)
$ slow 2 $ slow 2
...@@ -50,6 +48,25 @@ d4 $ gF2 $ gM3 ...@@ -50,6 +48,25 @@ d4 $ gF2 $ gM3
# room 0.2 # room 0.2
# legato 0.5 # legato 0.5
# gain 1.4 # gain 1.4
d7 $ gF2 $ gM3
$ midiOn "^89" (ply 2)
$ slow 2
$ note (
struct "t(3,8) [t(<3!3 5>,8)|t|t*2]" $
arp "up" $
cat [
"[bf3, d4, f4, a4]", -- Bbmaj7
"[a3, c4, e4, g4]", -- Am7
"[d4, f4, a4, c5, <e5 e4>]", -- Dm9
"[g3, b4, d5, <f5 ~>]" -- <G7 G>
] - 12)
# "moogBass"
# cut 7
# room 0.2
# legato 0.5
# delay 0.7
# delayt 0.125
# delayfb 0.5
d5 $ gF2 $ gM3 $ slow 2 -- V2 d5 $ gF2 $ gM3 $ slow 2 -- V2
-- $ superimpose ((arp "up") . (|+ note 12)) -- $ superimpose ((arp "up") . (|+ note 12))
$ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0))) $ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
......
...@@ -39,7 +39,7 @@ d3 $ gF1 $ gM1 -- Highest hats ...@@ -39,7 +39,7 @@ d3 $ gF1 $ gM1 -- Highest hats
# "[rampleS57:2]" # "[rampleS57:2]"
# note (-12 + "3.5" + "e6") # note (-12 + "3.5" + "e6")
-- # cut 3 -- # cut 3
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin))) # gain (0.9 * (range 0.85 1.05 (fast 4 perlin)))
# pan 0.3 # pan 0.3
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOn "^57" (mask "t(4,8)") $ midiOn "^57" (mask "t(4,8)")
......
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