Commit efafcd5c by PLN (Algolia)

Collab: Josh & algorythm

parent c8d0ff4b
......@@ -12,23 +12,24 @@ d1 $ g
-- $ mask "<t!12 f!4>"
$ fix ((|* gain 0.9) . (# lpf 5000)) "kick"
$ "k ~ ~ k . ~ ~" # "[ifdrums,kick]"
# midiG' "^78" 0 1.3
-- # midiG' "^78" 0 1.3
# pan 0.4
d2 $ g
$ superimpose (const $ g
$ "~ ~ ~ ~ ~ <~!4 s!4> ~ <~!7 s>" # "snare:5" # pan 0.8
# midiG' "^79" 0 1)
-- # midiG' "^79" 0 1
)
$ mask "<f t!15>"
$ "~ s ~ <s!3 ~>"
# "[snare:10,drum:2]"
# midiG' "^79" 0 1
-- # midiG' "^79" 0 1
d3 $ g
$ midiOn "^76" (ply 2)
-- $ mask "<f!16 t!16>"
$ "hh*[8 8 8 <8!3 [16 8]>]"
# att 0.01 # rel 0.5 # cut 3 # hpf 5000
# midiG' "^80" 0 1.3
d7 $ gDJF
-- # midiG' "^80" 0 1.3
d4 $ gDJF
$ midiOn "^92" (ply 2)
$ note ("0*8" + "<b3 b3 d3 [cs3 bs2]>")-- BASS Riff
# "bassWarsaw"
......@@ -37,10 +38,10 @@ d7 $ gDJF
# sz 0.1
# cut 7
# crushbus 71 (range 16 1.5 "^53")
# midiG' "^81" 0 1
-- # midiG' "^81" 0 1
d8 $ gDJF -- CUE Toxic Theme
$ midiOff "^91" (mask "<f!7 t>")
$ midiOn "^59" (rev)
$ midiOff "^92" (mask "<f!7 t>")
$ midiOn "^60" (rev)
$ note ("fs7@4 cs7@4 d7@4 b7@4" + "[0,12]" - 24)
# "FMRhodes1"
# legato 4
......@@ -50,4 +51,4 @@ d8 $ gDJF -- CUE Toxic Theme
# rel 2
# sz 0.5
# pan 0.9
# midiG' "^83" 0 1.1
-- # midiG' "^83" 0 1.1
do
setcps (92/60/4)
-- resetCycles
setcps (100/60/4)
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 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 gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let modIndex = pF "modIndex"
let gF = gF1 . gF2
d1 $ gF1 -- Kick
$ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^42" (<| "k ~ ~ <~ k> . <k ~>")
$ "jazz"
# midiG' "^78" 0 1.3
d1 $ gF1 $ gM2 -- Kick
$ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOn "^42" (<| "k ~ ~ <~ k> . <k ~>")
$ "[jazz,kick:5]"
-- # midiG' "^78" 0 1.3 -- FIXME Remove after unplugging direct SC->output line
# pan 0.8
d2 $ gF1
$ midiOn "^43" (<| "~ s ~ s*<1!4 2!3 1>")
$ midiOff "^43" (<| "~ ~ ~ k")
# gain 1.4
d2 $ gF1 $ gM
$ midiOff "^43" (<| "~ s ~ s*<1!4 2!3 1>")
$ midiOn "^43" (<| "~ ~ ~ k")
$ "[drumtraks:9]"
# midiG' "^79" 0 1.45
d3 $ gF1
-- # midiG' "^79" 0 1.45
d3 $ gF1 $ gM
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
$ "d d d <d [<d ~> d]>" # "drum:2"
# midiG' "^80" 0 1
# gain 0.8
-- # midiG' "^80" 0 1
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 -- V2
-- $ superimpose ((arp "up") . (|+ note 12))
$ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
$ note (cat [
"[bf3, d4, f4, a4]", -- Bbmaj7
"[a3, c4, e4, g4]", -- Am7
"[d4, f4, a4, c5, <e5 e4>]", -- Dm9
"[g3, b4, d5, <f5 ~>]" -- <G7 G>
-- "[cs4, b4, d5, <f5 ~>]" -- <G7 G>
])
-- 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>
-- TRANSPOSE POUR SP <3
"[d4, fs5, a4, cs5]", -- Dmaj7
"[gs4, b4, cs5, es5]", -- Csm7
"<[fs4, a4, cs5, e5, gs5] [fs4, b5, cs5, e5, gs5]>", -- Fsm9/Fsm11
"[b4, d5, fs5, <a4 a5>]" -- <B7 B>
]
- 12
)
# "FMRhodes2"
-- |- note 12
|+ note 2 -- Adjust to C
# modIndex (range 0 2 "^53")
# midiG' "^81" 0 1.6
-- # midiG' "^81" 0 1.6
d5 $ note ("<[d3@1.25 e3@0.25 ~@0.75 f3@2 ~] [e3@1.25 f3@0.25 ~@0.75 g3@2 ~] [f3@1.25 g3@0.25 ~@0.75 a3@2 ~] [a3 g3 g3 f3 f3 d3 c3 d3]>")
# "bassWarsaw"
# cut 1
d8 $ gF1 $ gM
$ midiOn "^92" (ply 4)
$ iter "1 <1!4 4!4>"
$ chop 8
$ loopAt 2
$ "break:2"
-- # n 4
# cut 8
# gain 0.7
d10
$ (0.5 <~)
$ n "<1 2 3 4 5 6 7 8>"
# "numbers"
# crush 8
# hpf 1250
once $ "ho:5"
# gain 0.5
once $ "jungle_breaks:27" # cut 1
once $ note "a3" # "superpiano"
......@@ -2,46 +2,92 @@
do
-- resetCycles
setcps (90/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"))
-- Modified blues to add a seventh with bflat
let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "bf", "c"]
let gDJF = (# djfbus 1 (slow 32 $ range 0.2 0.8 saw))
let gDJF = id
d1 $ gDJF
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k k*2>")
$ midiOff "^42" (<| "k . k(3,8)")
$ fix ((|* gain 0.6) . (# hpf 200)) "jazz"
$ "<k!16 k*2!16 k*4!16 [k . k(3,8)]!16>" # "[jazz,cpu]" # gain 1
d2
-- $ gDJF
-- $ mask "<f!16 t!48>"
$ note ("~ ~ ~ <~ ~ -2 -2>. 0" - 8)
# "[snare:60,snare:21]"
# gain 0.46
-- $ "<k!16 k*2!16 k*4!16 [k . k(3,8)]!16>"
$ "[jazz,cpu]" # gain 1
-- # midiG' "^78" 0 1.5
d2 $ gF1 $ gM1
$ midiOff "^43" (<| note ("~ ~ ~ <~ ~ -2 -2>. 0" - 8))
$ midiOn "^43" (<| note ("~ 0 ~ 0"))
$ "[snare:60,snare:21,snare:51]"
# gain 0.56
# pan 0.3
-- # room 0.2 # dry 1.1 # sz 0.8
d8 $ gDJF
d3 $ gF1 $ gM1
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
$ "drum:2*[4 <4 <8 16>>]"
-- $ "drum:2*[6 12]"
# att 0.03
# rel 0.9
# pan 0.3
# gain 0.55
d3 $ gDJF
$ mask "<f!16 t!48>"
$ mask "t(<1 1 4 2 2 2 4 <2 4>>,4)"
$ chop 8 $ loopAt 1 $ "break:1"
# cut 4 # gain 0.4
# gain 0.85
d8 $ gF1 $ gM1
$ midiOn "^92" (ply 2)
$ chop 8
$ midiOn "^36" (loopAt 1 . (# "break:5"))
$ midiOn "^56" (loopAt 1 . (# "break:9"))
$ loopAt 2
$ "jungle_breaks:8"
# gain 0.8
# pan 0.7
d4
$ superimpose (|+| note "[0 0(<3!3 5>,8)]")
d4 $ gF2 $ gM3
$ midiOn "^57" (|+| note "0 <7 7 12 12>(3,8) 0 <7 12>([5 <3 2>],8)")
$ midiOn "^89" (superimpose (|+| note "[0 0(<3!3 5>,8)]"))
$ note (
cat blues + "[0]"
)
-- # "bass3:4"
-- # "modalMarimba" |+| note "0*4"
# "bassWarsaw" |- note 24
# octersubbus 41 (range 0 2 "^53")
# pan 0.3 # crush 16
-- # room 0.1
-- # voice 0.8
-- # cut 1
# gain 1.075
# lpf 300
d5 $ gF3 $ gM3
$ swing 4 -- TODO Replace with sampled guitar wahwah
$ arp "updown"
$ note (
cat (blues) + "c'maj'4"
+ 12
)
# "cpluck:2"
# pan 0.3
# cut 5
# gain 1.075
# lpf 300
d10 $ gF3 $ gM3
-- $ superimpose (|+| note "[0 0(<3!3 5>,8)]")
$ note (
cat blues + "[0*4]"
)
# "moogBass"
# pan 0.7 # crush 16
# cut 10
# gain 0.75
# lpf 300
-- TODO Recover this guitar and make it midi-agnostic
d5 $ gF3 $ note (
"<0 [0, [~@3 <2 0 0 2>@3 0@2]] [0@4 0@2] 0([1 3],8)>"
......@@ -56,3 +102,6 @@ d5 $ gF3 $ note (
# crushbus 51 (range 16 3 "^54")
# "come_guitar:0"
# midiG' "^82" 0 1.7
once $ "cpluck:3"
......@@ -3,9 +3,8 @@ once $ "nujazz_beats120"
-- It's a nuday
-- It's a new sample
resetCycles
do
resetCyclesm
setcps(125/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"))
......
once $ "nujazz_beats120"
-- It's a nuday
-- It's a new sample
resetCycles
do
setcps(125/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
$ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
$ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
$ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
$ "[kick:5,tech:5,jazz]"
# gain 1
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ . c*<1!3 <2!3 4>> ~")
$ "[cp:1,rampleM1:10]"
# gain 0.9
# lpf 4650
d3 $ gF1 $ gM1 -- Highest hats
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
-- $ (0.125 ~>) -- decalage
-- $ whenmod 32 16 (sometimesBy "0 0.2!6 0" (ply 2))
-- $ whenmod 64 8 (struct "t*<8 <4 <2 <1 [1 8]>>>>")
-- $ "d*<8 [8 [16 <8 16> 16 <8 4 <16 32>>]]>"
$ sometimesBy "0!3 <0 0.5>" (# n 12)
$ sometimesBy "0!3 <0.1 0>" (# n 13)
$ "d*[4 2]"
# "h2ogmsn:14"
# cut 3
# legato (range 0.28 1 sine)
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
# room 0.14 # sz 0.4 # dry 1
# pan 0.8
d4 $ loopAt 4
$ "nujazz_bass125:1"
# cut 4
d6 $ gF1 $ gM1 -- Highest hats
$ (0.125 ~>) -- decalage
$ whenmod 32 16 (sometimesBy "0 0.2!6 0" (ply 2))
$ whenmod 64 8 (struct "t*<8 <4 <2 <1 [1 8]>>>>")
$ "hh:7"
# cut 3
# gain (0.7 * (range 0.75 1.1 (fast 4 perlin)))
# legato (range 1.1 0.25 (fast 4 perlin))
# room 0.4 # sz 0.4
# pan 0.8
d4 $ gF2 $ gM3 --
$ midiOn "^57" ((off "0.125" (
(|+| note "0 <7 12>") . (|- pan 0.1) . (# cut 41)
)))
$ midiOn "^89" (ply "<4!3 8>")
$ note ("<[a4@4 c5 <c5 d5 c5 fs4>] a4>"
+ "[0,12]"
- 36
)
# "bassWarsaw"
# cut 4
# gain 1.1
# pan 0.3
# octersub 0.5
# octerbus 41 "^53"
# squizbus 42 "^33"
d5 $ gF3 $ gM3 -- Piano guide premier
$ midiOn "^58" (juxBy 0.9 ( -- Piano reflet second
mask "<<f t> [<f t> t]>" .
(# begin 0.5)
. rev
. (|+ note 12)
. (|+ pan 0.2)
. (|* gain 0.87)
. (# cut 55))
)
$ slice 4 "<0 1 2 3 0 1 2 3 1 2 1 3 1 2 1 <~ 3>>"
$ "nujazz_keys120"
# n "<54!16 53!16>"
# pan 0.8
# freezebus 51 (range 0 0.7 "^34")
# cut 5
# gain 0.9
d7 $ gF2 $ gM3 -- Guitare egaree
$ midiOn "^59" (ply 2)
$ midiOn "^91" (ply 2)
$ chop 4
$ n "<0!3 1 0!3 1 3!3 4 3!3 5 6!3 7 6 6 7 7 6 7!3 7!4>"
-- $ n "<>"
# "nujazz_wahwah125"
# cut 7
# pan 0.8
# room 0.24 # sz 0.5 # dry 0.5
# octersubbus 71 (range 0 2 "^55")
# octersubsubbus 72 (range 0 3 "^55")
# gain 1
d8 $ gF1 $ gM1 -- JazzyBelle JazzyBreak
$ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
$ chop 16
$ midiOn "^36" (loopAt 0.5 . (# "jungle_breaks:24"))
$ midiOn "^56" (# "jungle_breaks:24")
$ loopAt 4
$ n "<0!4 1!3 0 2!4 3!3 <2 3>>"
# "nujazz_beats120"
# pan 0.26
# gain 0.7
# octersub 1.2
# octersubsub 2
# cut 8
d10 $ gF3 -- Pads
$ whenmod 64 132 ( -- ELECTRIFICATION
# octerbus 101 (slow 32 $ range 0.1 1.9 cosine)
)
$ n "<47 <48!3 46>>"
# cut 10
# "nujazz_keys120"
# room 0.5 # sz 0.8 # dry 0.5
# pan 0.4
# gain 0.75
d9 $ gM3 $ gF3 -- La chorale du jugement
$ jux rev
$ note "<[a4@3 <c5 f5>] e5 [<d5!3 f5>] <a5!3 c6>>"
# "moogBass"
# chorus 0.2
# gain 0.5
# att 0.3
# rel 2
# room 0.8
# sz 0.8
# pan 0.8
once $ "jungle_vocals:28" # cut 6
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