Commit 3c4cecdf by PLN (Algolia)

updates: Envahisseur, breaks, brouillards

parent df5475c5
do
let gLPF = ((# djfbus 1 (slow 8 $ range 0.2 0.5 saw)))
let gHPF = ((# djfbus 2 (slow 8 $ range 0.5 0.85 saw)))
let gPont2 = (someCyclesBy "<0!32 1!16 0!16>" gHPF)
let gPont1 = (whenmod 32 24 gLPF)
let g = gPont1
let g = (# djfbus 1 (range 0.05 0.95 "^49"))
let modIndex = pF "modIndex"
setcps (110/60/4)
d1 $ g
$ midiOn "^41" (<| "k k k <k k*2>")
$ midiOff "^41" (<| "k ~ <~ k> k . ~ ~ <~ k> ~")
$ "jazz"
# midiG' "^78" 0 1.3
d2 $ g
$ "~ s" # "[dr55:3,snare:4]"
# midiG' "^79" 0 1.3
d3 $ g
$ midiOff "^44" (slow "2!3 <1 <2 [4 1]>>")
$ "d*[8 . 8 <8 [16 <8 16>]>]" # "electro1:0"
# midiG' "^80" 0 (1.3 * "1.2 1!6 <1 1 1.1 <1.2 1>>")
# room 0.3
# dry 0.95
d4
$ g
$ midiOn "^60" ( -- Aerial mask
mask "t <f t> <f f t f> <t t f t> f <f t> <f!3 t> t"
)
$ sometimesBy ("0 1!7" * "^56") (iter 4)
$ chop 16
$ loopAt 2
$ "break:3"
# cut 4
# midiG' "^84" 0 1.3
d5 $ g $ gPont2
-- $ whenmod 64 32 (# crushbus 41 (range 16 2.5 (slow 32 saw)))
$ slice 2 "<0!3 1>"
$ "fbass:51"
# cut 5
# room 0.4
# sz 0.9
# crushbus 51 (range 10 1.61 "^53")
# midiG' "^81" 0 1.3
d7 $ g
$ superimpose (|+| note "<[0 12 0]!3 [0 12 0 12]>")
$ note "<d <d a> <gf> c>"
# "supermandolin"
# pan 0.8
# midiG' "^83" 0 1.3
d6 -- RHODES FOLIE
$ g
$ mask "t(<[12!3 16] [12!3 8] <12 12 8 16> <4!3 [4 <8 16>]>>,16)"
$ swing (1 + ("0 2" * "^58") + (2 * "^90"))
$ note ("d4/2" + scale "<augmented!6 diminished2!2>" (run 16))
# "FMRhodes1"
# room 0.5
# crushbus 61 (range 10 4.4 "^54")
# modIndex (range "-0.1" 100 "^34")
# midiG' "^82" 0 1.3
once $ "dr" # gain 2
once $ "dr"
resetCycles
do
setcps (80/60/4)
let g1 = (whenmod 32 24 (# djf (slow 8 $ range 0.5 0.1 saw)))
let g2 = (someCyclesBy "<32!0 8!1 24!0>" (# djf (slow 8 $ range 0.5 0.9 saw)))
let g = g1 . g2
d1 $ g -- KICK
$ mask "<t(1,4)!4 t!28>"
$ "k ~ ~ [~ k] . ~"
# "[jazz,kick:9,cpu2]"
# gain 1.2
# room 0.7 # sz 0.9 # dry 0.9
d2 $ g -- Snare classique
$ mask "<f!3 t f f t t t!24>"
-- Contretemps/2, puis /4, puis re/2
$ "~ <~!8 s!7 ~> <s!8 ~!7 s> <~!8 s!7 <~ [~ s]>>"
# "sn:8"
# gain 1
d3 $ g-- LET THE DRUM ROLL
$ sometimesBy (slow 4 $ range 0 0.25 sine) (ply "1 2 2 1")
$ ply "2 2 2 [<2 4 8 2 2 4 4 8 8> <4 8 16>]"
$ "drum:2*4"
# gain 1.1
d4 $ g
$ n "<9!3 10 9!3 10 12!3 13 9 12 9 10 9 12 9 13>"
# "celtic_guitar80"
# cut 4
# gain 0.8
d5 $ g
$ mask "<f!8 t!24>"
$ note ("<[e@7 f] [e@15 g] e <g [g@6 b c6]>>" -24)
# "bassWarsaw"
# gain 1.3S
-- Jardin d'hiver
do
-- resetCycles
setcps (90/60/4)
let gLPF = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.15 0.8 saw)))
let gHPF = (whenmod 64 48 (# djfbus 2 (slow 8 $ range 0.5 0.8 saw)))
let maskDrumsDrop = whenmod 32 24 (mask "<t!3 [f t] t!2 [t f] f>")
d1
$ gLPF
$ mask "<f!8 t!56>" -- Intro
$ maskDrumsDrop
$ "k [~ <~ k ~ ~ k!3 k*2>] [~ <~ k>] [~ <~!3 k>]"
# "[bd:1,h2ogmbd:2,jazz,cpu2]"
# gain 1.8
# legato 2
d2
$ gLPF $ gHPF
$ mask "<f!12 t!52>" -- Intro
$ maskDrumsDrop
$ "~ s ~ <s!3 <~ s*2>>"
# "[snare:15,sn:3,house:7]"
# gain 1.2
d3
$ gLPF $ gHPF -- Square drum roll
$ someCyclesBy "<1!8 0!120>" (|* gain (slow 8 $ range 0.65 1 saw))
$ whenmod 8 6 (ply "<2 [4 2]>")
$ maskDrumsDrop
$ superimpose (const
$ mask "<f!3 t(5,8) t!62>"
$ mask "<t!4 f!16 t!12 t!4 t!6 f f t!4 f!3 t t!12>"
$ "<d <[~ d] d>> d*<1 <2 [2 4]>> d*<1!7 4> d*<1 [1 4]>"
# "dr"
-- # "h2ogmhh" # n "<<3!6 2!6> 4 [4|3]>"
# pan 0.7
# gain 1.1
)
$ ("<d!8 ~!24> d <d!8 ~!24> d <d!8 ~!24> d <d!4 ~!3 d>*<1 2 1 <1 2>> d")
-- $ ("~ d ~ d ~ d <d!4 ~!3 d>*<1 2 1 <1 2>> d" + "<d!4 ~!28>*8")
# "drum:2"
# pan 0.55
# gain 1.2
d4 $ gHPF -- Piano lead
$ mask "<t!32 f!16 t!16>"
$ whenmod 128 8 (slice 8 "<[0 0] <[1 1] [1 2]> [[0 ~ ~ 0] . 2] <[2 3] [2 [3 1 <0 3>@2]]>>")
$ someCyclesBy "<1!4 0!124>" (slice 4 "<0 1 2 3>")
$ "fpiano:14"
# pan 0.4
# cut 4
# gain 0.8
# sz 0.7
# room 0.4
d5 $ gLPF $ gHPF -- Break Clochettes
$ mask "<f!16 t!48>"
$ mask "<t!3 t(<1!3 2>,4)>"
$ maskDrumsDrop
$ slice 4 "0 1*<1 2 4> <2 [~ 2]> 3*<1 <1!2 4!2> <2!4 4!4> <1 [1 4]>>"
$ loopAt 1
$ "break:4"
# pan 0.8
# cut 1
# gain 1.4
# room 0.3 # sz 0.5 # dry 0.8
d6 $ gLPF $ gHPF -- West coast vibe!
$ mask "<t!32 t!16 f!16>" -- Mask Second pont
$ mask "<<f t>!8 f!2 <t f>!8 t!8>"
$ whenmod 16 12 (
(# squizbus 61 (slow 4 $ range 0 3.5 saw))
. (# att 0.1)
. (# rel 3)
. (|* gain (slow 4 $ range 0.9 0.8 saw))
)
$ slice 4 "<0 0 <1 2> <1 2> 0 <1 2> 0 1*<1 <4 [4 2]>>>"
$ "fsynth:13"
# gain (slow 16 $ range 0.85 0.9 saw)
# room 0.2
# pan 0.8
# hpf "<0!16 500!16>"
# sz 0.4
# cut 6
d7 $ gLPF $ gHPF -- Dub endings
$ mask "<t!64 f!32 t!32>" -- Mask Second couplet
$ mask "<f!8 t!24>" -- No intro
$ mask "<f!3 <t f t t>>" -- Only end of bars
$ slice 2 0
$ "forgan" # n "<15!3 14>"
# gain 0.9
# pan 0.2
# cut 7
# room 0.5
# sz 0.5
d10 $ gHPF
$ chop 16
$ "[~ igor:11]/8"
# cut 10
# speed (0.5 + 0.7 * (slow 4 perlin))
# end (0.5 + 0.25 * (slow 10 perlin))
# begin (range 0 0.5 perlin)
# gain (slow 16 $ 0.7 + 0.15 * perlin)
d9 $ gHPF
$ fix (rarely (ply "1 2 <1 2> 2") . (|* gain 0.8)) (n 1)
$ fix (# speed (range 0.75 1.8 perlin)) ("foley:5")
$ n (stack [
"1*[12 12 <12 4> 4]",
"~ ~ ~ 5*<1!3 4>",
""
])
# "foley"
# cut 9
# room 0.3 # dry 0.7
# gain (slow 16 $ range 0.6 0.4 saw)
resetCycles
do
setcps (80/60/4)
let mel = "<[ef, gf, bf, df6,f6,af6]!2 [d,f,a,c6,e6,g6]!2>"
let modIndex = pF "modIndex"
let maskDrums = mask "t t . t <t!3 <f [f t]>>"
d1
$ maskDrums
$ "k . k(<3 1 3 3>,8)" # "[bd,jazz,808bd:3]"
# lpf 2000 # gain 1.1
d2
$ maskDrums
$ fast 2
$ "~ s*<1!6 2 4>" # "sn:20"
# gain 0.9
-- # hpf 4000
d3
$ maskDrums
$ "drum:2*4" # gain 0.8
d4 -- Broken break
$ maskDrums
$ someCyclesBy (slow 8 "<0 0 0 1>") (slice 4 "0 1*<1!3 [4 <4 1>]> 2 <1 3>*<1 <2 4>>")
$ someCyclesBy (slow 8 "<0 0 1 0>") (slice 4 "0 1 <2 [~ 2]> 1*<1 <2 4>>")
$ someCyclesBy (slow 8 "<0 1 0 0>") ((fast 2) . (slice 4 "<0 1 2 <1 3>>"))
$ someCyclesBy (slow 8 "<1 0 0 0>") (slice 4 "<0 0 1 1>")
$ loopAt 2
$ chop 8
$ "break:32"
# cut 1
# room 0.5
# sz 0.39
# dry (1 + (slow 8 $ range 0 0.5 saw))
d5
$ note ("~ [0,12]" + mel - 24)
# "FMRhodes1"
# att 1 # rel 9
# modIndex 0.2
# room 0.8
# sz 0.8
# dry 1
# legato 2
# gain 1
d6 -- Bassline ténébreuse
$ note (
"<[ef,bf]!2 <[d,a]!3 [c6,e6,g6]>!2>"
- 24)
# "bassWarsaw"
# gain 0.9
d7 -- SUB CRUSH FIGHT
$ mask "<f!16 t!16>"
-- $ note "<[ef,bf]!2 <[d,a]!3 [c6,e6,g6]>!2>"
$ note "ef . ef@3 <bf!2 d!2>*2 <ef!3 g>"
-- $ note "ef bf d a c6 e6 g6"
# "bass2:1"
# lpf 2000
# pan 0.4
# gain 0.68
d8
$ maskDrums
$ "[~ <~!4 h!12> h*<1!4 <2 4>!4>]*4"
# "h2ogmhh"
# gain (slow 64 $ range 0.5 0.75 saw)
# pan (slow 16 $ range 0.8 0.55 sine)
......@@ -3,14 +3,14 @@
do
-- TODO TRIGGER INTRO
-- resetCycles
-- once $ "90s_synatm:8" # gain 0.64 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94
resetCycles
once $ "90s_synatm:8" # gain 0.84 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94
let g = (whenmod 64 32 (# djfbus 2 (slow 32 $ range 0.5 0.18 cosine)))
let gF = 1.01
let f = (# djfbus 1 (range 0.05 0.95 "^49"))
let maskLoops = (mask "<t!4 [t!3 f]>" . mask "<t!14 f [f!3 t]>")
setcps (90/60/4)
d1 $ f
d1 $ f -- TODO: Rework kick
$ midiOn ("^42" - "^41") (slow 4)
-- $ mask "<f!32 f!8 t!16 t f!6 [t f] t!64>"
$ midiOff "^41" (maskLoops)
......@@ -83,19 +83,19 @@ d6 -- High lead: Winds of truth
d10 $ f -- RANDOM FOREST NOISES
$ fix (
struct "t t t t t*<1 2> [<t!2 ~ t> <t!2 ~ t>] t t"
. (# "future:1")
. (# "[future:1]")
. (# midiG' "^13" 0 2)
) ("n1")
$ fix (
struct "<t!8 [~ t]*2!8>"
. (# "snare:34")
. (# midiG' "^14" 0 1.2)
. (# midiG' "^14" 0 1.5)
) "n2" -- tchak reverb phantome
$ fix (
struct "t([3 <3!3 5>],8,<0!8 3!8>)"
. (# n "<3!3 [3 2]>")
. (# "amencutup")
. (# midiG "^15")
. (# midiG' "^15" 0 1.5)
) "n3" -- amen excerpt
$ fix (
(# "gretsch:10")
......
......@@ -16,6 +16,7 @@ d2 $ g2 -- Snare minitel
$ fix (ply "1 <1!3 <2 4>>" . (|* gain 0.9) . (# legato "<0.4!6 0.5!2>")) "glitch"
$ fix ((|* gain 0.85) . (# "realclaps:2")) "cp"
$ fix (|* gain 0.8) "snare"
$ fix (|* gain 0.9) "glitch"
$ midiOn "^43" (fast 2)
$ "~ . [glitch:5,snare:11,<~!8 cp!24 cp!8 ~!8 cp!16>]"
# midiG' "^79" 0 1.4
......@@ -49,15 +50,17 @@ d5 $ g2 -- BASSLINE
# voicebus 51 (range 0.75 0.05 "^34")
# crushbus 52 (range 16 2 "^54")
# midiG' "^82" 0 (0.8 - 0.1 * "^54")
# room 0.4
# room 0.7
# dry 1.02
# sz 0.8
d6 $ g2 -- Sirene apocalyptico-commerciale
-- FIXME: Peu mélodieuse
$ midiOn "^91" (
slice 4 (mask "t" $ fast 8 $ run "<4!3 [4|2]*8>"))
$ midiOff "^59" (slow 8)
$ n (
scale "aeolian" "[0 <[<5 6> <4 5>]>]/2"
scale "aeolian"
"[0 <[<5 6> <4 5>]>]/2"
- 36)
# "supersiren"
# crushbus 62 (range 10 2.5 "^55")
......
once $ "dr"
do
setcps (90/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^29"))
d1 $ g1
$ midiOn "^41" (<| "k*4")
$ midiOff "^41" (<| "k . k(<3 [5 3] 3 <5 [5!3 8]>>,8)")
$ "jazz"
# midiG' "^78" 0 1.5
d2
$ fast "<2!6 [4 8] 8>"
$ "~ snare:5"
# midiG' "^79" 0 1.5
d3 $ g1
$ chop 16
$ loopAt 1
$ "noir_beats:6"
# speed (range 0 2 "^51")
# midiG' "^80" 0 1.5
# cut 1
d4 $ g2-- CHOIR BASS
$ mask "t(<4 <2 8>>,8)"
$ slice 8 ("0 1 2 3 <4 ~> 5 <6!3 6?> <7 7 <7 3> 3>")
$ "noir_choir:7"
# cut 4
# crushbus 41 (range 14 2 "^53")
# midiG' "^81" 0 1.5
# room 0.3
-- d4 $ -- Noir Bass!
d5 $ g2
$ chop 16
$ "noir_angels:1/4"
# midiG' "^82" 0 1.5
# cut 1
d6
$ loopAt 2
$ slice 4 (run 8)
$ "fguitar"
# n "<12!32 13!16 12!16>"
# cut 6
# midiG' "^83" 0 1
once $ "noir_warp:5"
# gain 0.8
# cut 5
......@@ -20,10 +20,10 @@ d1 $ f1 $ gF -- KICK
# room 0.3 # sz 0.5 # dry 0.9
d2 -- Breakbeat
$ f1 $ gF
$ midiOn "^43" (fast "[1|2|0.5]" . loopAt 1)
-- $ midiOn "^43" (fast 4 . often (scramble 2))
$ midiOn "^43" (fast 4 . often (scramble 2))
-- $ sometimesBy "0 <0.5!3 0.95>" (ply "``[2|4]")
$ slice 8 "0 <1 ~> 2*<2 1> 3" $ "break"
# cut 2
# midiG' "^79" 0 1.75
d3 $ f1 $ gF
$ midiOn "^44" (fast 2)
......@@ -32,7 +32,7 @@ d3 $ f1 $ gF
# speed (range 0.5 1.5 "^52")
# midiG' "^80" 0 2
d4 $ f1 -- Bassline
$ superimpose (
$ superimpose ( -- la caution? :)
(# crushbus 41 (range 10 4.5 "^53"))
. (# legato 4)
. mask "t f!7"
......
......@@ -3,6 +3,8 @@
once $ "dr" # gain 1
-- TODO: Ajoute une basse !
do
setcps (110/60/4)
let modIndex = pF "modIndex"
......
......@@ -109,7 +109,7 @@ d11 $ f2 -- Sirene indépendante
# crushbus 110 (range 10 0.1 "^35")
# ampbus 111 (range 0 0.5 "^19")
# pan "<0.2!16 0.8!16>"
# midiG' "^19" 0 0.5
# midiG' "^19" 0 0.75
# room 0.4 # sz (slow 32 $ range 0.125 0.9 saw)
# dry (slow 32 $ range 0 2 perlin)
# cut 11
......
......@@ -18,16 +18,16 @@ d1 -- TODO: Improve kick. Sound? Rhythm?
$ midiOn "^41" (<| "k <k!4 ~ k!3> k <k [~ k] k [<k!4 ~!3 k> k]>") -- Run & stumble
$ midiOff "^41" (<| "k . ~ k ~ ~") -- L'attente
$ "[jazz,reverbkick,kick:5]"
# midiG' "^78" 0 1.3
# midiG' "^78" 0 1.5
d2 $ gF $ gM -- Snare glitch high
-- $ midiOn "^43" (superimpose (<| )) FIXME LATER SNARE MOD
$ fix ((|* gain 0.9)) ("snare:40")
$ "~ s ~ <s!3 <s*2 s*<1 2>>>" # "[snare:31,snare:40]"
# midiG' "^79" 0 1.2
# note (range "-12" 12 "^51")
# pan 0.46
# room 0.74 # sz 0.2 # dry 1
d3 $ gF2 $ gM -- Breaks du Marathon
# midiG' "^79" 0 1.2
d3 $ gF $ gM -- Breaks du Marathon
$ midiOn "^76" (scramble (8 - 4 * "^44"))
$ midiOn "^44" (slice 16 (run "8 . <8 8 <8 16> <16!3 [32 <32 16>]>>"))
$ midiOff "^44" (slice 8 ("0 1 2 3 . 4 5 6 <7!3 6>"))
......@@ -36,7 +36,7 @@ d3 $ gF2 $ gM -- Breaks du Marathon
# cut 2
# pan 0.4
# speed (range 0 2 "^52")
# midiG' "^80" 0 1.2
# midiG' "^80" 0 1.5
d4 -- BASSLINE BRULANTE
$ gF
$ midiOn "^57" ( -- Ritournelle
......@@ -56,12 +56,13 @@ d4 -- BASSLINE BRULANTE
# pan 0.15
# room 0.5 # dry 0.2 # sz 0.8
# crushbus 41 (range 16 1.9 "^53")
# lesliebus 42 (range 0 2 "^33")
# lesliebus 42 (range 0 2.2 "^33")
# lratebus 43 (range 6.7 0.6 "^17")
# lsize (slow 8 $ range 2 6 saw)
# midiG' ("^81" - 0.3 * "^33") 0 0.99
# midiG' ("^81" - 0.3 * "^33") 0 1.5
# cut 4
d5 $ gF2 $ gM -- Ritournelle Rhodes TODO: Variations mélodie?
$ midiOn "^58" (off "e" (+ note 12))
$ note (
"<[c ~ c d ~ d <ef!3 f> ~]!0 [f ~ f g ~ <g!3 f> <gs!3 f> ~]!8>"
- "<24!12 12!4>")
......@@ -69,7 +70,7 @@ d5 $ gF2 $ gM -- Ritournelle Rhodes TODO: Variations mélodie?
# pan 0.7
# modIndex (range 0 100 "^54")
# crushbus 41 (range 10 4.5 "^34")
# midiG' "^82" 0 1.2
# midiG' "^82" 0 1.5
d6 $ gF2 -- Voices from the st0rm
$ midiOn "^91" ((# cut 6) . slow 8)
$ swingBy 0.125 8
......@@ -88,3 +89,6 @@ d6 $ gF2 -- Voices from the st0rm
# room 0.42 # dry 1 # sz 0.8
# pan 0.6
# midiG' "^83" 0 1
d8
$ "dr*<4!3 2 4!3 8 <16!3 8>!16>"
# midiG' "^84" 0 1
......@@ -21,7 +21,7 @@ do
$ midiOn "^42" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
$ midiNo "^41" "^42" (<| "<k <k*2 k(3,8)>>")
$ "[jazz,kick:5]"
# midiG' "^78" 0 1.5
# midiG' "^78" 0 1.75
d2 $ g -- Break
$ midiOn "^43" (scramble 4 . often (ply 2))
$ midiOn "^75" (struct "t*[8 16]")
......@@ -57,6 +57,7 @@ do
# pan 0.2
# midiG' "^81" 0 1.8
d6 $ g --Rhodes arps
$ midiOn "^58" (+| note (arp "converge up" "[0,12,0,12]*8"))
$ juxBy 0.8 (
(# modIndex 15)
. (# cut 61)
......
......@@ -23,7 +23,7 @@ d4
# room 0.5 # sz 0.8
# cut 5
d5
$ note "~ c5 ~ <c5 <g5 f5>>"
$ note "~ c5 ~ <c5 <g5 f5>>"
# "superpiano"
# pan 0.7
# velocity 0.7
......
......@@ -26,7 +26,7 @@ d2 $ g1 -- Snare cloc fantome
$ whenmod 32 8 (fast 2)
$ fix ((# rel "<0.18!7 0.45>") . (|* gain "<0.7!7 0.5>")) ("glitch")
$ fix ((# begin 0.02) . (|* gain 0.84)) ("snare")
$ "~ sn" # "[808lc,cpu:8,tech:5,snare:5,glitch:2]"
$ "~ sn" # "[cpu:8,tech:5,snare:5,glitch:2]"
# room ("<0.25!3 0.5>" + (slow 4 $ range 0 0.25 perlin))
# dry 0.98
# sz 0.9
......@@ -43,11 +43,11 @@ d7 $ g2 -- BREAKBEAT <3
$ loopAt 2
$ midiOn "^76" (mask "t(<3<5 8>>,8) t(<1 2>, 4) t?" . iter 4 . splice 8 (run 32) . (|> "breaks165"))
$ midiOn "^44" (slice 8 (run 8))
$ midiOff "^44" (slice 8 (run 4))
$ midiOff "^44" (slice 8 ("0 1 [2 5] <3 7*2>"))
$ "break" # n "<21!32 22!8>"
# midiG' "^80" 0 (range 0 1.4 "^32")
# midiG' "^80" 0 1.4
# speed (range 0 2 "^52")
d4 $ g2
d4 $ g2 -- Bassline sub base
$ note "[c3(<3!3 <1 5>>,8),[~!7 <<b3 ~> b3 b3 ~ ~ ~ b3>]] <c3 g3>"
# "ikedaBass"
# legato 2
......@@ -59,13 +59,16 @@ d4 $ g2
# panbus 42 (range 0.4 0.2 saw)
# harmonic (range "-25" 25 (fast 8 saw))
# cut 4
d5 $ g2
$ note "<c3 [c3@2 ~ c3 . <~ bf2> ~ ~ bf2 c3 bf2 g2@2]>"
d5 $ g2 -- Bassline melodie
$ note (
"<c3 [c3@2 ~ c3 . <~ bf2> ~ ~ bf2 c3 bf2 g2@2]>"
+ 12
)
# "bassWarsaw"
# legato 2
# lfobus 50 (fast 4 sine)
# midiG' "^82" 0 1
# crushbus 51 (range 16 3.5 "^54")
# crushbus 51 (range 16 2.95 "^54")
# octerbus 52 (range 0 "<0.4 0.5 0.9 1.2>" (fast "<4!3 8>" sine))
# octersubbus 53 (range 0 8 ("^34" + 0.5 * (fast 16 cosine)))
# panbus 54 (range 0.6 0.8 saw)
......@@ -88,3 +91,22 @@ d6 $ g2 -- Skank organ
# room 0.85
# sz 0.8
# dry 1
d7 -- Dub piano un peu fou
$ whenmod 16 8 (superimpose (|+ note "<7!7 <5 4>>"))
$ note ("~ 0 ~ 0 ~ 0 ~ 0" + "[c <c!1 <bf <d g4>>>]")
-- <c3 [c3@2 ~ c3 . <~ bf2> ~ ~ bf2 c3 bf2 g2@2]>"
# "superpiano"
# velocity 0.5
# pan 0.8 # room 0.2 # dry 1.3
# midiG' "^84" 0 1.3
-- TODO: Why not?
d2 $ f1 $ m -- Clave de l'été
$ midiOn "^43" (fast 2)
$ midiOn ("^75"-"^43") (fast 2)
$ (|* gain ("0.75 1 1 1 0.75 1 1 1" * 1.7))
$ "d ~ ~ d d ~ d <~!3 d>"
# "snare:22"
# midiG' "^79" 0 1.4
# speed (range 0 2 "^51")
do
-- resetCycles
setcps (80/60/4)
let g = (whenmod 32 24 (# djf (slow 8 $ range 0.12 0.5 sine)))
let modIndex = pF "modIndex"
let maskDrums = mask "<t [f!3 t] t [t f]>"
d1 $ g -- BEAT
$ mask "<f!4 t!28>"
$ "<~!4 k!28> . <~!4 k!4 k(<1 3 5>,8)!24>" # "jazz"
d2 $ g -- BREAK
$ maskDrums
$ mask "<f f t(1,8) f t(<1 2 3 4>,8)!4 t!20>"
$ slice 8 "0 1*<1!3 2> 2 <3 2 2 3>"
$ loopAt 2
$ "break:7"
# cut 1
d3 $ g -- DRUMROLL
$ mask "<f!7 t t!24 f!16 t!16>"
$ maskDrums
$ fast "<[16!2 [16 8] <8 [<16 32> 16]>] [16 8]>"
$ "drum:2"
# gain 0.9
d4 $ g
$ mask "<f!8 t!24 f!16 t!16>"
$ note ("<<d3 [d3@3 [d3 e3]]> b3>")
# "bassWarsaw"
# crushbus 4 (slow 32 $ range 10 3.5 saw)
# room 0.2
# gain 0.95
d5 -- Side trombones
$ g
$ mask "<f!16 t!16>"
$ mask "<t!3 f>"
$ "rootsTromb:3"
# cut 5
# gain 0.9
d6 $ g -- Hats contretemps décalés
$ ("s" ~>)
$ mask "<t(<0 1 2 3 4>,8)!8 t!24>"
$ maskDrums
$ n "3!6 2 1"
# "h2ogmhh"
# gain (slow 16 $ range 0.5 0.8 saw)
d7 $ g
$ whenmod 32 4 (superimpose (
(|+| note (
arp "<up <up!3 down> <converge diverge> <down up>>"
$ "c'maj'4"))
. (whenmod 32 8 (# modIndex (slow 16 $ max 0 (range "-15" "<1!8 15!8 50!8 150!8>" perlin))))
))
$ note ("<<d [d@3 [d e]]> b>")
# "FMRhodes1"
# gain 1
# room 0.8 # sz 0.4 # dry 1.1
d10
$ "noir_radio:1"
# cut 10
# room 0.2
# begin (slow 4 perlin)
# gain (slow 32 $ range 0.5 0.25 cosine)
......@@ -15,14 +15,14 @@ d1
$ "k k k <k!3 ~>"
# "[909,jazz,kick:5]"
# lpf 5000
# gain 0.7
# gain 0.8
d2 $ g -- Shadow's applause
$ mask "<f!16 t!48>"
$ whenmod 64 32 (# crush (slow 32 $ range 16 3 (saw + 0.2 * perlin)))
$ "~ cp"
# crush "<16!7 3.4>"
# lpf 3500
# gain 0.9
# gain 1.1
# room "<0!3 0.6>"
# dry 1 # sz 0.9
d3 $ g -- HiHats fuyants : THE GRID
......@@ -30,13 +30,13 @@ d3 $ g -- HiHats fuyants : THE GRID
$ n "<2!6 <2 3 3>>"
# "h2ogmhh"
# pan 0.3
# gain 0.6
# gain 0.75
d4 $ g -- MATRIX NOISE
$ fix (
mask "<f!16 t!16>"
. ( -- ORAGE
mask "<f!16 t!16>" .
( -- ORAGE
juxBy 0.5 (
(# crush 4) . ("<e!3 h>" ~>) . (|* gain 0.8)
(# crush 4) . ("<e!3 h>" ~>) . (|* gain 0.95)
))
. slice 8 "<3 3 <2 3> <3 2>>"
. (# "90s_matrix:1")
......@@ -56,7 +56,7 @@ d4 $ g -- MATRIX NOISE
# room 0.84
# sz 0.6
# dry 1
# gain 0.65
# gain 1.05
d5 $ g2 -- Supersaw bassline
$ mask "<f!8 t(1,2)!8 f!16 f!8 t!24>"
$ someCyclesBy "<1!16 0!112>" (|* gain (slow 16 $ range 0.2 1 saw)) -- Intro fade-in
......@@ -68,7 +68,7 @@ d5 $ g2 -- Supersaw bassline
# "supersaw"
# voice 0.05
-- # crushbus 51 (range 8 4.5 sine)
# gain 0.45
# gain 0.8
# pan 0.2
d6 $ g2 -- Melopée rassurante
$ mask "<f!8 <f!8 t!7 f> t f t!6 f!8 f!8 t f t!22>"
......@@ -82,7 +82,7 @@ d6 $ g2 -- Melopée rassurante
))
# "FMRhodes1:0"
# modIndex "<0!64 1!32 2!32>"
# gain 0.9
# gain 1.25
# room 0.64
# dry 1
# sz 0.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