Skip to content

T
Tidal
Commit 54e81e4a by PLN (Algolia)
Options

Live: Russia, faith in bass, submarine

parent 0d801eab
Showing with 245 additions and 44 deletions
live/collab/hugo/faith_in_bass.tidal 0 → 100644
do
resetCycles
let prog = "<a g f e f e <c d> <d e>>"
let mIntro = (mask "<f!4 t!28>")
let modIndex = pF "modIndex"
let gPreBridge = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.05 saw)))
let gBridge = (someCyclesBy "<0!32 1!8 0!24>" (# djfbus 1 (slow 8 $ range 0.5 0.98 saw)))
let g = (gPreBridge . gBridge)
setcps (110/60/4)
d1 $ g
$ mask "<f!8 t!20>"
$ someCyclesBy "<0!32 1!16 0!16>" (mask "t(<1!4 2!12>,4)") -- Pont
$ struct "t t t [<t!3 ~> <~!4 t!4>]"
$ "jazz" # gain 1.1
d2 $ g $ mIntro $ fast 2 $ "~ snare:22" # gain 1.2
d3 $ g $ mIntro $ "~ d ~ d ~ d*<1 2> ~ d*<1!7 2>" # "drum:2" # gain 1.4
d4 $ g
$ slice 4 ("0 <1!2 ~ 1*2> <2 <~ 2>> 3*<1!3 4>")
$ loopAt 1 $ "break:1"
# gain 0.83
# pan 0.2
d5
$ "faith/8"
# n (slow 32 $ "<0 1>")
# gain 1.1
# pan 0.8
# cut 5
-- # crushbus 51 (slow 16 $ range 10 8.5 (saw + (2.5 * (fast 4 $ perlin))))
d6
$ struct "<t!4 t*2!4 [t t(<3!3 5>,8)]!8>"
$ note (prog - 24)
# "bassWarsaw"
# pan 0.2
# gain (slow 32 $ range 0.5 1.3 saw)
d7 $ g $ arp "up"
$ off "<e!3 <s h>>" id
$ note (prog + "<c'maj'4!7 c'maj'8>" - 12)
# "FMRhodes1"
# pan 0.9
# modIndex (slow 32 $ range 0 4 saw)
# gain (slow 32 $ range 0.8 1.1 saw) |* "<0.8 1!3> 1!7"
# room (slow 16 $ range 0.4 0.8 saw)
d8 $ g
$ struct "~ t ~ t ~ t ~ [<t!7 ~> <~ t>]"
$ "ho:1"
# room (slow 32 $ range 0.4 0.7 saw)
# dry (slow 32 $ range 0.4 1.7 saw)
# sz 0.9
# pan (slow 16 $ range 0.75 0.05 saw)
# gain (slow 8 $ range 0.68 0.55 saw)
live/hip/darkside/russia.tidal 0 → 100644
do
-- resetCycles
setcps (120/60/4)
d1 $ "[jazz,bd]" # gain 0.9
d2
$ mask "<f!8 t!24>"
$ "~ cp"
# gain 0.75
# lpf 2000
# room 0.3
# sz 0.6 # dry 0.9
d3
$ sometimesBy (range 0 0.5 sine) (ply 2)
$ mask "<f!6 t f t!56>"
$ loopAt "<4!8 2!8>"
$ "break:18"
# pan 0.8
# gain 0.8
d4
$ slice 2 "<0!3 [0 1] 0 0 [0 <0 1>]!2>"
$ "bogdan:2"
# n "<23!6 24!2>"
# gain 1
# cut 4
# room (0 + 0.2 * perlin)
# sz 0.4
# pan 0.3
# dry 2
d5
$ mask "<f!16 t!48>"
$ superimpose (
mask "<f!16 t!16>"
. arp "pinkyup . <up down up <down up>>"
. (|+ note 5)
. (|+ note 12)
. (|* gain 0.8)
. (# room 0.4)
. (# pan "<0.4!14 0.6 0.8>")
)
$ note ("<b3'maj!4 b3'min7!3 b3'maj g3'maj!8>")
# "bassWarsaw"
# gain 0.8
# room 0.8
# dry 0.4
# pan 0.1
live/hip/darkside/sub_marine.tidal 0 → 100644
-- Quand les aigus arrivent, il manque qqch qui vient apres
-- Quand les djf baissent, il manque un drop au retour
do
resetCycles
setcps (90/60/4)
let whenPont it = (someCyclesBy "<0!32 1!8 0!32>" it)
let gMask = mask "t!3 <t!7 f>"
let gDJFDown = ((someCyclesBy "<f!24 t!8>" (# djfbus 1 (range 0.5 0.1 saw))))
let gDJFUp = ((someCyclesBy "<f!32 t!16 f!16>" (# djfbus 2 (range 0.15 0.85 saw))))
let g = gDJFDown . gDJFUp
d1 $ g $ gMask -- Kick sub-bass
$ mask "<f!8 t!56>"
$ whenPont (# silence)
$ struct "[t*<1!8 <1 2!3> 1!6 <1 2>> <~ t>] ~!3 . ~ <~!8 t!8> ~ <~!3 <t <~ t>>>"
$ "jungbass"
# cut 1
d2 $ g $ gMask -- Snare adéquat + claps opportuns
$ mask "<f!7 [t f!3] t!56>" -- Intro
$ mask "<t!32 f!7 [t f] t!24>"
$ whenmod 64 0 ( -- claps opportuns
(whenmod 32 8 (ply "<1!3 2>"))
. fix (|* gain 0.85) "cp"
. superimpose ((# "[cp,ab:11]")
. (# lpf "<2000!3 [2500 3000]>") . (# room 0.2) . (# sz 0.9) . (# dry 1)))
$ whenPont (# lpf 2000)
$ whenmod 32 8 (fast 2)
$ "~ . [snare:5,sn:4] ~"
# gain 0.65
d3 $ g $ gMask -- Drumroll structuré
$ mask "<f!7 [t t f t] f!4 [t f] f!3 t!16>" -- Intro
$ degradeBy "0 . 0 <0.33!3 0.25> <0!3 0.38> 0" -- Élaguage
$ whenPont (# hpfbus 31 (slow 8 $ range 4500 0 (saw+sine/2)))
$ whenmod 4 3 (ply "[1|2|<1!3 2>]*4")
$ struct "[t*8 . t*<8!3 <16 [16 8] 16 [16 [32 16 32 [16 8]]]>>]"
$ "drum:2"
# pan 0.3
# room 1.2 # sz 0.2 # dry 1
# gain "<0.65!3 0.75>"
d4 $ g $ gMask -- Bassline de compagnie
$ whenmod 64 32 (# crushbus 41 (slow 4 $ range 12 4 saw)) -- Fade in final
$ whenmod 64 32 (|* gain (slow 32 $ range 0.5 1 saw)) -- Fade in final
$ whenmod 4 3 (off 0.5 (mask "f t"))
$ note "[ef4 c4]@3 [<as3 gs3 gs3 gs4>] . ~!3 <~!3 g4>"
# "bassWarsaw"
# gain 0.55
# lpfbus 41 (slow 32 $ (range 5500 500 saw + perlin)) -- Submarine
# room 0.8
# sz 0.56
# pan 0.8
d5 $ g -- Piano baseline
$ whenmod 64 32 (# speed 0.75)
$ mask "<f!4 t [t f]!3 t!24>"
$ whenmod 64 32 (|* gain (slow 32 $ range 0.5 0.9 saw)) -- Fade in final
$ mask "<t(<1!3 3>,4)!16 t!48>"
$ slice 8 ("0 <0!4 1!4> 2 <3!3 <[4 5] [5 6]>>"
+ "<0!8 4!8> <0!8 [4 <4!12 2!3 4>]!8>")
$ "fpiano:12"
# pan 0.42
# gain 0.6
# room (slow 8 $ range 0.3 0.45 saw)
# sz 0.8
# cut 5
d6 $ g $ gMask -- Breakbeat fidèle
$ mask "<f!64 t!64>"
$ someCyclesBy "<f!16 t!16 f!8 t!24>" (|* gain 0.8)
$ mask "<t(<1 2 3 4>,4)!16 t!16 f!8 t!24>"
$ whenmod 4 3 (ply "<1 2>" . rev)
$ slice 4 ("0 1" + "<0!3 <2 0> <2!3 <0 2>>>")
$ loopAt 2
$ "break:13"
# cut 6
# pan "<0.65!6 0.8 0.9>"
# gain (slow 32 $ range 0.5 0.75 saw)
# room 0.98
# sz 0.4
# dry "<1!3 0.993>"
d7 -- ChOiR
$ mask "<f!32 t!32>"
$ superimpose (+| note (arp "up" (
"<c'maj'8!3 c'min'4 c'man'8!2 c'min'4 g'min'4>"
- 24
)))
$ note "[ef4@4 <c4!3 g4 c4 g4 c4 g4 g4 g4 g4 c4 g4 g4 c4 g4>]"
# "moogBass"
# panbus 71 (range 0.13 "<0.5!3 0.8>" saw)
# gain 0.45
d8 $ g -- Nappes <3
$ mask "<f!8 t!56>"
$ note (
"[ef4 c4]@3 [<as3 gs3 as3 gs4*<1 2>>] . ~!3 <~!3 g4>"
+ 12)
# "moog:4"
# cut 8
# pan 0.96
# att 0.09
# rel 10
# gain 0.35
live/midi/nova/ambient/contre_visite.tidal
......@@ -19,7 +19,7 @@ d1 $ f1 -- TODO: Rework kick
$ midiOff "^41" (<| "<k k ~ k> . ~ ~ ~ <~!3 k>")
$ "[reverbkick,808bd:6]"
# lpf 1000
# midiG' "^78" 0 1
# midiG' "^78" 0 1.3
d2 $ f1
$ mask "<t(<1!3 3>,4)!4 t!28>" -- Intro / break/32
$ midiOff "^75" maskLoops
......
live/midi/nova/ambient/drone_aveugle.tidal
......@@ -8,13 +8,14 @@ let slide x = acceleratebus 01 (2**(x/12))
let g = (# djfbus 1 (range 0.1 0.9 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^29"))
d1 $ g -- KICK
$ midiOn "^41" (<| "k k k [k <~!3 k>]") -- Attente Chaloupée
$ midiOff "^41" (<| "k . ~ ~ ~ <k!3 [~ k]>") -- Cours toujours
$ "[jazz,808bd:3]"
# midiG' "^78" 0 1.2
d2 $ g2 -- Snare minitel
$ fix (|* gain 0.8) "kick"
$ midiOn "^41" (<| "k k k [<k [~ <~!3 k>]> <~ k>]") -- Cours toujours
$ midiOff "^41" (<| "k . ~ ~ ~ <k!3 [~ k]>") -- Attente Chaloupée
$ "[jazz,808bd:3,kick:5]"
# midiG' "^78" 0 1.4
d2 $ g -- Snare minitel
-- $ midiOn "^43" (<| "~ s ~ s*<1!3 <[2 <2 2 4 4>] [4!3 16]>>")
$ fix (ply "1 <1!3 <2 4>>" . (|* gain 0.9) . (# legato "<0.4!6 0.5!2>")) "glitch"
-- $ 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"
......@@ -48,7 +49,7 @@ d4 -- Frequency-modulated hopes
# "superfm"
# voicebus 42 (range 0 8 "^33")
# crushbus 41 (range 10 0.85 "^53") -- Harmonics of destruction
# midiG' "^81" 0 (0.75 - 0.2 * "^17")
# midiG' "^81" 0 (1 - 0.2 * "^17")
d5 $ g2 -- BASSLINE
$ midiOn "^58" (chop 4)
$ arp "up"
......@@ -59,14 +60,13 @@ d5 $ g2 -- BASSLINE
-- "<d'maj11'8!3 [d'maj11'i'6]>"
- 24)
# s "superchip"
# voicebus 51 (range 0.75 0.05 "^34")
# crushbus 52 (range 16 2 "^54")
# midiG' "^82" 0 (1.2 - 0.1 * "^54")
# voicebus 51 (range 0.7 0.05 "^34")
# crushbus 52 (range 16 2.9 "^54")
# midiG' "^82" 0 (1.4 - 0.1 * "^54")
# 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)
......
live/midi/nova/dnb/alerte_verte.tidal
......@@ -46,7 +46,7 @@ d4 $ f1 -- Resolute Bass
$ loopAt 4
$ chop 16
$ "fbass:25"
# pan 0.15
# pan 0.15
-- # room 0.125 # sz 0.1 # dry 1
# crushbus 41 (range 16 1.25 "^53")
# midiG' "^81" 0 1.5
......
live/midi/nova/dnb/break_the_loop.tidal
......@@ -9,7 +9,7 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gM = (midiOn "^42" (mask "t <t!3 <[f t]!2 f [f t!3]>>"))
d1 -- TODO: Improve kick. Sound? Rhythm?
$ gF
$ midiOn "^42" (mask "t(1,4)")
$ midiOn ("^42" - "^41") (mask "t(1,4)")
-- $ mask "<f!4 t(1,2)!3 t!9>"
$ fix ((|* gain 0.8) . (# att 0.05) . (# rel 1)) ("kick")
$ fix ((|* gain 0.75)
......@@ -61,7 +61,7 @@ d4 -- BASSLINE BRULANTE
# lsize (slow 8 $ range 2 6 saw)
# midiG' ("^81" - 0.3 * "^33") 0 1.5
# cut 4
d5 $ gF2 $ gM -- Ritournelle Rhodes TODO: Variations mélodie?
d5 $ gF2 $ gM -- Ritournelle Rhodes
$ midiOn "^58" (off "q" (|+ note 12) . (|* gain 0.85))
$ note (
"<[c ~ c d ~ d <ef!3 f> ~]!0 [f ~ f g ~ <g!3 f> <gs!3 f> ~]!8>"
......@@ -91,6 +91,6 @@ d6 $ gF2 -- Voices from the st0rm
# midiG' "^83" 0 1
d8
$ midiOn "^60" (slow 2)
$ midiOn "^92" (mask "t(<8!3 4>,16)")
$ midiOn "^92" (ply "[2 1]*8")
$ "dr*<4!3 2 4!3 8 <16!3 8>!16>"
# midiG' "^84" 0 1
live/midi/nova/dnb/lucy_rode.tidal
......@@ -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 0.9
# midiG' "^78" 0 1.1
d2 $ g -- Break
$ midiOn "^43" (scramble 4 . often (ply 2))
$ midiOn "^75" (struct "t*[8 16]")
......@@ -33,6 +33,8 @@ do
# speed (range 0 2 "^51")
# cut 2
d3 $ g -- Drumroll
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
$ midiOn "^41" (
(# room 0.4)
. (# dry (slow 64 $ range 0.5 1.5 perlin))
......
live/midi/nova/lounge/top_hats.tidal
......@@ -18,20 +18,22 @@ d1 $ g
((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.8))
)
$ midiOff "^41" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>")
$ "hh27" # n "[5,6]"
# midiG' "^78" 0 2
$ "[jazz,cpu]"
# midiG' "^78" 0 1.4
d2 $ g -- Breathing snare contretemps
$ midiOn "^43" (fast "<2 2 2 2 4 2 2 4 4>")
$ "~ [snare:12,drum:2]"
# midiG' "^79" 0.5 1.8
# midiG' "^79" 0.5 1.3
d3 -- Runny Maracas
$ g
$ midiOn "^76" (ply 2)
$ whenmod 16 8 (often $ fast 2)
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
$ fix ((|* gain 0.9) . (# release 0.8)) (n 9)
$ "hh27*8"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# midiG' "^80" 0.25 1.75
# midiG' "^80" 0.25 1.5
# note (range "-12" 12 "^52")
d6 $ g -- Guitar riffs
$ whenmod 16 12 (off "h" (
chop 4
......@@ -45,10 +47,10 @@ d6 $ g -- Guitar riffs
# "punk"
# cut 6
# attack (range 0.5 1 "^33")
# crushbus 61 (range 10 1.1 "^53")
# crushbus 61 (range 16 1.1 "^53")
# pan 0.9
# room 0.3
# sz 0.9
# room "<0.13!3 0.05>"
# sz "<0.6!3 0.9>"
# midiG' "^81" 0.4 1.5
d4 -- Rhodes base + chords
$ g
......@@ -69,14 +71,27 @@ d4 -- Rhodes base + chords
# "FMRhodes1"
# modIndex "[0,5,10]"
# pan 0.8
# crushbus 4 (range 10 4 "^54")
# crushbus 41 (range 10 4 "^54")
# roombus 42 (range 0 0.8 "^54")
# szbus 43 (range 0.45 0.9 "^54")
# midiG' "^82" 0.3 1.9
d8 $ g -- Electrified laggy moog
$ midiOn "^92" (ply 2)
$ midiOn "^59" ((|- note 12))
$ midiOn "^91" (segment "4 <4 <8 [8 16]>>")
$ note (prog + "0 <12!4 12 12 16 <12 16>>")
# "moog:2"
# crushbus 8 (range 10 3.4 "^55")
# midiG' "^83" 0 1.3
# legato 2
# cut 8
# pan 0.6
# release 100
d5 $ g -- Choirs + arps
$ juxBy "0.7" (
arp "<up <up down>>"
. midiOn "^60" ((|- note 12))
. (|+| note "[0,7,12]*2")
-- . (|* gain 0.85)
-- . (# lpf 2000)
)
$ "moogBass"
# note (prog + "[0,24]")
......@@ -85,15 +100,3 @@ d5 $ g -- Choirs + arps
# midiG' "^84" 0 1.2
# pan 0.2
# chorus 0.6
d8 $ g -- Electrified laggy moog
$ midiOn "^91" (ply 2)
$ midiOn "^59" ((|- note 12))
$ midiOn "^91" (segment "4 <4 <8 [8 16]>>")
$ note (prog + "0 <12!4 12 12 16 <12 16>>")
# "moog:2"
# crushbus 8 (range 10 3.4 "^55")
# midiG' "^83" 0 1.8
# legato 2
# cut 8
# pan 0.6
# release 100
live/pair/be_my_punk.tidal
-- if Nina was a punk
-- TODO trois couplets: Husband - ??? - All of your life
do
resetCycles
-- resetCycles
setcps (80/60/4)
d1 -- grosse caisse / caisse claire poum tchak
$ fix (# s "[bd,808bd]") (s "k")
$ fix (# s "[bd,jazz]") (s "k")
$ fix (
whenmod 16 12 (fast "2 [4!3 8]")
. (# s "[snare:2,snare:49]")
......@@ -19,7 +19,7 @@ d2 -- charley double croche
# release 0.7
# note "1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 2 1"
# pan (slow 16 $ range 0.35 0.65 sine)
# gain "<0.9!8 0.8!24>"
# gain ("<0.9!8 0.8!24>" * 0.9)
d3
-- $ superimpose ((|* speed 2) . (# cut 31)) -- Chipmunk
$ whenmod 64 32 (
......
live/techno/nightly_repair.tidal
......@@ -13,7 +13,7 @@ d1 $ g1
$ midiOn "^41" (<| "k*4")
$ midiOff "^41" (<| "k")
$ "jazz"
# midiG' "^78" 0 1.2
# midiG' "^78" 0 1.6
d2
$ g1
$ midiOn "^43" (fast 2)
......@@ -22,6 +22,7 @@ d2
-- # lpq 0
# midiG' "^79" 0 1
d3 $ g1
$ midiOn "^44" (fast "1 2")
$ sometimesBy "^52" (ply "1 2 1 2")
$ fix ((|* gain 0.86) . (# n "[4|5]")) "gretsch"
$ "~ h ~ h ~ h ~ h*<1 2>" # "[hh,gretsch]"
......@@ -57,7 +58,7 @@ d4 $ g2 -- BASSLINE
# lsizebus 42 (range 1.9 6.7 "^33")
# crushbus 43 (range 16 2 ("^53" - 0.1 * (fast 4 perlin)))
# room 0.2
d5 $ g1
d5 $ g2
$ degradeBy (range 0.95 0.05 ("^18!15 1"))
$ slice 16 (run 16)
$ midiOn "^58" (striate 2)
......
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