Skip to content

T
Tidal
Unverified Commit b0b74c8d by PLN (Algolia)
Options

update: kanye -> soleil pourpre

parent 3ac55389
Showing with 543 additions and 15 deletions
live/ambient/tokyo_chase.tidal 0 → 100644
-- Tokyo chase: course poursuite à travers la dystopie
solo 1
solo 2
solo 3
solo 4
do
unsolo 1 -- Kick 4 temps pause /32
unsolo 2 -- claps accelerants!
unsolo 3 -- Drunmroll + HH
unsolo 4 -- Bass
solo 5 -- Lead ploink aigu
solo 10 -- Noises
do
resetCycles
d1
$ mask "t(<0!4 4!124>,4)"
$ superimpose ((|* gain 0.8) . (# "kick:5"))
$ fast "<1!4 2!4 4!16 2!2 1!4>"
-- $ fast 4
$ "k" # "jazz" # gain 0.75
d2
$ mask "<f!10 t!22>"
$ every' 4 3 (off "<e s>" id)
$ "clap:2(1,4,<0!3 1>)"
# gain 0.8
# pan 0.8
d3
$ whenmod 32 16 (
sometimesBy "0 <0.2!8 0.5!8>!7 0" ((# "ho") . (|* gain 0.7))
)
$ whenmod 64 16 (superimpose (const
$ "hh*<8 [8 16] 16 [16 8]>"
# gain (slow 32 $ range 0.75 1.2 saw))
)
$ mask "t(<2!4 4!4 8 16!6>,16)"
$ often (juxBy 0.5 $ off "h" rev)
$ often (off "q" (id))
$ almostAlways (off "s" (id))
$ fast "<2!3 [8 4]>" $ s "drum:8"
# gain 0.85
# cut 3
d4
$ sometimesBy "0 . 0.25 0.5" (superimpose (# crush 4) . (|* gain 0.9))
$ superimpose (+| note "12(<3 4 5>,8)")
$ note ("<b3!3 <c4 a3>>")
# "supersaw"
# voice (slow 64 $ range 0.2 0.01 sine)
# gain 0.45
d5
$ whenmod 16 8 (off "e" (|+ note 12))
$ off "q" (|* gain 0.8)
$ note ("<0!3 <1 3 1 -1>>(3,8)") # s "cpu:7" # gain 0.75
d10
$ superimpose (const -- Glitches
$ "glitch:7(<3!4 5!4>,8)"
# gain 0.45
# speed "<0.5!10 0.25!2 0.125!2 0!2 0.5!10 0.75!2 1!2 1.5!2 2!2>"
)
$ superimpose (const -- Fond diffus cosmologique
$ slow (slow 4 "<2 4 8>")
$ stut' 4 "e" (|+ note (scale "major" "[2|5]"))
$ s "~ cosmicg:0"
# gain 0.3
# speed (range 0.125 0.95 perlin)
# pan (range 0.4 0.6 perlin)
)
-- bourrasque occassionnelle
$ rarely (# gain 0.4)
$ jux (rev . segment 2)
$ s "space:3"
# speed (slow 2 $ range 0.15 0.5 perlin)
# pan (slow 4 $ range 0.45 0.55 perlin)
# gain 0
live/dnb/new_synth_wave.tidal 0 → 100644
-- Region marre, DUBNFONK
do
setcps 0.45
d1
$ fix ((|* gain (range 0.8 0.6 sine))
. (# cut 6))
(n 7)
$ fix ((|* gain (range 0.8 0.6 cosine))
. (# cut 6))
(n 6)
$ fix (mask "<t!6 f!2>" . (|* gain 0.75))
(n 0)
$ fix (mask "<f!4 t!4>" . (|* gain 0.8))
(n 4)
$ fix (mask "<t!8 t?!4 f!4>" .(|* gain 0.9)) (n 2)
$ fix (|* gain 0.65) (n 3)
$ n (stack [
"0 . ~ 0 ~ ~",
"~ 2 ~ 2*<1!3 2>",
"3*<<8!3 4!3 2 4>!3 [16 8]>",
("4 4 ~ 4 <~ ~ 4 ~> 4 4 <~!3 4>"),
(fast "<4 <2 8>>" $ "[7 6]"),
""
])
# s "cpu2"
# gain 0.99
d4
$ whenmod 64 48 (mask "f!3 t")
$ jux (rev . segment 4)
$ whenmod 32 16 (juxBy 0.75 (
fast (slow 4 "<1 2 4>")
. mask "t f!3"
. (# cut 41)
))
$ ply 2
$ slice 4 "<0 1 2 3>"
$ "fepiano:3"
# gain (slow 16 $ range 0.7 0.6 sine)
# room "<0.1!2 0.2 0.5>" # sz 0.5
# cut 4
-- TECHNO-BASS
do
d1
$ whenmod 16 12 (# lpf 200)
$ whenmod 8 4 (# lpf 2000)
$ "k k k [<~ k> k]"
# "[techno,kick:5]"
# gain 0.8
d2
$ "~ ~ ~ cp*<1!3 <2!2 4>>"
# gain (slow 60 $ range 0.5 1 sine)
# gain (slow 16 $ "<0.85 0.95>")
# lpf 5000
# room "<0.2!3 0>"
d3
$ whenmod 16 12 (# silence)
$ stut 4 0.75 0.125
$ "ho(<1!3 3>,8) hc(<1!4 2!4 3!4 4!4>,8)"
# cut 3
# gain (slow 60 $ range 0.6 0.9 cosine)
d4
$ someCyclesBy "<f!16 t!8 f!8>" (|* gain 0.8)
$ slice 8 "0 1 <2 6> 3"
$ "fbass:3"
# gain 1.1
# pan 0.8
# crush (slow 64 $ range 16 8 sine)
# cut 4
d5
$ whenmod 16 12 (# lpf 5000)
$ whenmod 16 8 (juxBy 0.25 (fast 2 . (# cut 51)))
$ mask "<f!16 t!16>"
$ slice 8 "0 1 <2!4 6!4> 3*<1 [2|4]>"
$ n "0/2"
# note ("<0!3 [0 . -2 0]>")
# "fpiano"
# cut 5
# pan 0.2
-- # gain 0.95
-- region SANDBOX
once $ "psin"
# accelerate (-0.4)
# gain 0.6
d2
$ note (scale "major" $ run 7 + 8)
# "pmsin"
# legato 2
# attack 0.5
# gain 0.5
d3
$ note (scale "major" $ run 7 - 8)
# "pmsin"
# legato 2
# attack 0.5
# gain (range 0 0.5 saw)
do
d1 $ "jazz*2"
d2
$ fast "<4!3 2>"
$ "cp*<1!3 2> ~" # gain 1.4
# lpf 200
d3 $ "hh*8"
d4
-- $ chop 8
-- $ jux rev
$ "inr"
# accelerate (-0.15)
-- # lpf 200 # lpq 0.4
# gain 0.75
# crush 8
-- piano instru breakbof
do
d1
$ mask "<t!8 f!8 t!12 f!4>"
$ "k . k(<3!3 5>,8)" # "reverbkick" # gain 0.65
d2 $ slice 8 ("0") $ loopAt 2 $ "fbonus" # gain 1
d3
$ whenmod 32 16 rev
$ off "e" (rev . (|* gain 0.8))
$ iter 4
$ note ("<c'maj!3 c'min>" + "0 [12 <~!3 0>]"
+ "<c!4 d!4 g!4 c!4>"
+ "<0!16 12!16>")
# "superpiano"
# velocity 0.65
live/dnb/soleil_pourpre.tidal 0 → 100644
do
resetCycles
setcps (160/4/60)
d1
$ mask "<f!8 t!120>"
$ mask "<t!16 f!16>"
$ "k . ~ k ~ <~!3 k>"
# "[jazz,kick:9]"
# release 0.25
# gain 1.2
d2
$ mask "<f!4 [t f]!4 t!8 f!16>"
$ every' 8 7 ((# note ("<-2>")))
$ "s(2,8,2)" # "snare"
# gain "<0.8 0.9 1 1.1 1.3!124>"
d3
$ mask "<f!16 t!12 f!4>"
$ mask "<t!6 f!2>"
$ superimpose (const -- Hats
$ degradeBy "0 0.2!6 0.1"
$ (# gain (slow 20 $ range 0.55 1.1 (sine + perlin / 8)))
$ (# note (slow 4 $ "<0 -2>" + "0 2"))
$ fast "<16!3 <4 [16 8]>>"
$ "hh"
)
$ mask "<f!32 t!96>"
$ fast "<4!3 [8 <4 16>]>" $ "drum:8"
# gain "<0.8!5 0.9 1 1.1>"
d4
$ superimpose (
(someCyclesBy "<1 [0.75 0.5]>" $ superimpose (swing 4 . arp "up"))
. (|- note 24))
$ note "<c'min'4!3 f'min'4>"
# "bassWarsaw"
# gain (slow 40 $ range 0.65 0.85 (sine + perlin/2))
d5
$ mask "<f!64 t!64>"
$ whenmod 32 24 (<| "c*<2!3 4!4> c*2 ~ c ~ c*<2!4 4!4> c*4 ~")
$ "c*<1!7 2> c*<0!4 1!28> ~ c*<0!4 1!4 2!8> ~ c c ~"
# "supervibe"
# note "<c'min'4!3 f'min'4>"
# octave 4
# detune (slow 8 $ range "<0!8 24!8>" "<24!8 0!8>" saw)
# legato 4
# gain 0.8
live/fusion/cuba_space_program.tidal 0 → 100644
solo 1
solo 2
-- TODO: Kick in at 8, current bass=kick
-- Intro Bass in Kick in Bass cut/montee drop -- pont -- intro
-- 0 4 8 20 28 36 40/0
do
resetCycles
setcps 0.5
d1
$ mask "<f!4 t!16 f!8 t!8 f!4>" -- Orchestra/40
$ "jazz*4"
# gain 0.65
d2 -- Son clave cubain
$ mask "<[t f!3] [t f!2] [t f] t t!16 [t f!3]!8 t!8 [t f!7]!4>" -- Orchestra/40
$ "c c ~ c ~ c c ~"
# "808hc" # n "<0!8 3 3 0 0 0 0 3 3>"
# room 0.1
# gain 0.8
d3 -- Glitch clap dark
$ mask ("<f!8 t!16 f!4 t!9 f!3>")
$ whenmod 20 16 (# note "<0 -3 -7 -10>")
$ "~ ~ ~ cp"
# lpf 2000 # lpq 0.2
# gain 0.9
d4 -- Ritournelle 3/2 vibraphone
$ mask "<f!3 [t f]!2 [t!3 f] t!14 t!16 [t!3 f]!4>" -- Orchestra/40
$ whenmod 40 36 (|* gain (slow 4 $ range 1 0.4 isaw))
$ whenmod 8 6 (juxBy 0.5 (rev . (|* gain 0.4)))
-- $ someCyclesBy "<0!>"
$ off "q" (degradeBy 0.5)
$ note (scale "lydian" (
"0 -2 . 0 2 -2" + "<d'min'2 d'min d'maj'2 d'maj>"
))
# "supervibe"
# accelerate (0.01)
# gain 0.45
d5
$ mask "<f!3 t!37>"
$ jux id
$ whenmod 40 36 (|* gain (slow 4 $ range 1 0.2 isaw))
$ sometimesBy ("<0!20 1!8 0!12>") (|* gain (slow 8 $ range 0.4 1.2 saw))
$ note (scale "lydian"
"0*<1 2 4> <-2!6 -4!2> . 0 <2!5 1 -2 -4> -2"
- 24
)
# "bassWarsaw"
# gain 0.7
d6 -- Guitar
-- 0 4 20 28 36 40/0
$ mask "<f!4 f!16 t!16 f!4>"
$ "fguitar:6/2" # cut 6 # gain 0.45
d9 -- Montée Shepard!
$ mask "<f!20 t!8 f!12>" -- Orchestra/40
$ slow 2
$ (>| "cyclo")
$ (|* gain 0.3)
$ (# legato 4)
$ (# octave 1)
$ (# accelerate 3) -- INTENSIFIES
$ superimpose (const $ "s" # note (12)
# gain ("11 10 9 8 7 6 5 4 3 2 1 0"/11))
$ superimpose (const $ "s" # note ((-12))
# gain (range 0 1 $ "0 1 2 3 4 5 6 7 8 9 10 11"/11))
$ sometimesBy "1 0" (# gain (range 0 0.5 saw))
$ sometimesBy "0 1" (# gain (range 1 0.5 isaw))
$ "s"
# gain 0.5
once $ "bev" # gain 0.6 # cut 21
live/hip/instru/chaude_civ.tidal
......@@ -3,11 +3,13 @@
resetCycles
do
setcps (90/4/60)
d1
$ juxBy 0.4 rev
$ mask "<f!8 [t f]!4 t!8 f!2 t f>"
-- $ mask "<f!8 [t f]!4 t!8 f!2 t f>"
$ juxBy 0.4 ((|* gain 0.8) . rev)
$ "<k*2 k!7> ~ <k!2 k?> <k!3 <k? ~>> ~ k [k|k*2] k"
# "[reverbkick,clubkick:6]"
# "reverbkick"
# room 0.1 # sz 0.1
# gain (slow 32 $ "<0.5 0.65>")
d2
$ mask "<f!8 t!4 t f [f t]!2 t!3 f>"
......@@ -21,13 +23,12 @@ d3
$ s "cpu:4"
# gain "<0.6 0.65 0.7 0.75 0.8!4 0.85!8>"
d4
$ mask "<f!4 t!4 f!4 t f t t>"
$ every 4 (|* gain 0.8)
$ bite 4 "3*4"
-- $ mask "<t!3 f>"
$ sometimesBy "<f!4 t!4 f!4 t f t t>" (# gain 0) -- mask also second half
-- $ bite 4 "3"
$ mask "<t!3 f>" -- every 4 let second half play
$ "fbass:12"
# cut 4
# gain (slow 4 $ range 0.75 0.9 saw)
# gain (slow 4 $ range 0.6 0.8 saw)
d5 -- Guitare conclusive seconde partie
$ mask "<f!28 [f!3 t]!3 [f t] [t f]!8 [f t]!8 t!16>"
$ juxBy 0.75 (# cut 51)
......@@ -47,14 +48,14 @@ d9 -- Invader fight: Tir variable, echec | touche | ambulance
$ n ("[11|4]([1|3|5],8) [~|~| 3|5|11 | [9|9|9|16] ]")
# "invaders"
# pan "0.2 0.8"
# gain "0.45 0.55"
# gain "0.4 0.5"
d6 -- A Yatta, a Jutta!
$ mask "<f!8 t!56>"
$ juxBy 0.4 (rev . (someCycles (# "diphone2")))
$ fast "<2!4 1!4> <2!4 4!4 2!4 4 4 8 8 2!4 8!4 4!8 2!4>"
$ fast "<2!4 1!4> <2!4 4!4 2!4 4 4 [8 4!3] [4!3 8] 2!4 8!4 4!8 2!4>"
$ "diphone"
# n (slow 38 $ "<0 .. 38>")
# gain (slow 128 $ range 0.1 0.65 (saw + (perlin /2)))
# gain (slow 128 $ range 0.2 0.55 (saw + (perlin /2)))
# pan 0.5
# cut 6
d7 -- Synth second bass
......
live/remix/kanye_fly.tidal 0 → 100644
d1 $ "bd"
once $ slice 32 "1*4" $ "kanye" # cut 21
do
resetCycles
let kWhen = slice 16 0 "kanye" -- one glad morning
let kWhen = "kanye" # begin 0.062 # end 0.16 -- when this life is over high
let kFly = "kanye" # begin 0.17 # end 0.23 -- Fly away
let kGlo = "kanye" # begin 0.515 # end 0.715 -- Fly away, Gloria, Fly!
setcps (117/4/60) -- Fixed by sample
d1
$ mask "<f!4 [t f]!4 t!120>" -- Instrumentation
$ juxBy 0.125 id
$ whenmod 64 48 (# lpf 200) -- retour
$ whenmod 64 32 (mask "<f!16 t!16>") -- pont
$ "k*4"
# "jazz"
# gain 0.8
d2 -- Claps
$ mask "<[t f]!16 t!112>" -- Instrumentation
$ juxBy 0.2 ((# "clap:<0!2 2!2>") . (|* gain 0.9))
$ whenmod 16 8 ( -- Last 4/16 stut
whenmod 8 4 $ stut 4 0.95 "<e!3 s>"
)
$ whenmod 8 4 (# lpf "<3000 2000 1200 500>")
$ "~ . c <~ c*2>"
# "cp"
# gain 0.8
d3 -- Drumroll
$ mask "<f!4 t!124>" -- Instrumentation
$ whenmod 8 4 (juxBy 0.7 rev)
$ mask "<[t <f!7 f!3 f f?>]!16 t!16>" -- arrivee progressive
$ fast "8 <8!4 16!4>" $ "dr" # gain 0.8
d5 -- Batteur fou!
$ fix (
(>| note
("0*<<4 [16 4]> 4!3 8!3 16>" |+ "<0!7 5>"))
. (|* gain (slow 24 $ range 1.15 0.75 sine))
) (n 7)
$ fix (
mask "<f!8 t!120>" -- Instrumentation
. (|* gain (slow 32 $ range 1 1.5 saw))
) (n 2)
$ fix (
(jux (often (# djf 0.45)))
. mask "<f!16 t!104>"
) (n 5)
$ n (stack [
"2(<4 4 5 [5 4]>,8,<0!12 2!4>)", -- Marche irreguliere
"5(<8!3 [<8 4> 4]>,8)", -- Hihats neige
"7*4" -- Carillon
]
) # "cpu" # gain 0.7
d4 -- Kanye who?
$ whenmod 32 24 (degradeBy (slow 8 $ range 1 0.3 isaw) )
$ someCyclesBy "<1!4 0!124>" (
mask "t/2" . slow 4
. (# gain 0.85)
)
$ mask "<[t f!3]!32 t!32>"
$ whenmod 32 24 (|> cat [kFly, kFly, kFly, kGlo]) -- End: calme
$ slice 8 (
whenmod 32 16 (|>| "1 2 4 <5 6>") $ -- Mid: voices
whenmod 32 8 (|>| "0*<2 4 8> <2 3>*<0 2 4 4>") $ -- Transition: laggs
"<0 1 2 3>" -- Base: variations 4 temps
)
$ "kanye"
# cut 4
# gain 0.65
once $ "kanye" # begin 0.835 -- Fly awayyyyy
# cut 3
-- 16
-- 16
-- 16
do
let b = 0.835
let d = (10/60)
let e = b + d
once $ "kanye"
# begin b # end e -- Fly away
# cut 21
# gain 0.95
d4
$ "kanye/4"
# cut 21
# gain 0.8
live/techno/ciel_etoile.tidal 0 → 100644
do
-- resetCycles
let melody = (scale (slow 16 "<melodicMinor melodicMinorDesc>") ("<c'maj c'maj'2 c'min c'min'2>" + (slow 4 $ "<0 7>")))
setcps 0.5
let gFactor = 2
d1 -- Kick
$ slow 4
$ mask "<f!8 t!120>"
$ whenmod 16 12 (# lpf "<500 200 150 50>")
$ "k k k <k!3 [<~ k> k]>" # "jazz"
# gain (gFactor * 0.65)
d2
$ mask "<f!4 [t f]!4 t!120>"
$ ply (slow 2 "<1 1 2 <[4 1] [1!3 4]>>")
$ fast 2
$ "~ s" # "sn" #n "[12,16]"
# note ("<0 -5>")
# pan 0.6
# gain (slow 32 $ gFactor * range 0.3 0.45 saw)
d3
$ mask "<f!2 t!126>"
$ whenmod 16 12 (juxBy "<1!2 0.8!2>" rev)
$ "h*4(<1!8 4!8>,8,<0!3 3>)"
# "hihat1"
# pan 0.4
# gain (gFactor * (slow 4 $ range 0.4 0.5 saw))
d4 -- Xylophone night sky
$ sometimesBy (range 0.25 0.5 saw) (jux rev . (# pan "[0.1|0.9]"))
$ slow (
slow 8 "<4 [2 [2 1]] 1!4>"
)
$ every' 4 3 (swing 2)
$ off "e" (# hpf 5000)
$ off "q" (|+ note "7")
$ whenmod 16 4 (ply 2)
$ note melody
# "xylophone"
# gain (gFactor * 0.37)
# pan 0.2
d5 -- Bassline rayonante
$ mask "<f!8 t!4 f!4 t!108>"
$ whenmod 32 24 ( -- Grille
superimpose (# crush "<5 4 4.5 3 3.5 2 1.5 1>")
. (|* gain 0.85)
)
$ whenmod 32 16 ( -- Rayonne!
mask "<[t f!7]>" . chop 4 . (# room 0.4) . (# sustain 2)
)
$ note (melody - 24
+ (slow 4 $ "<0 -7>") -- Compense octave melodie
)
# "supersaw"
# voice 0.1
# gain (gFactor * ("<0.2!12 0.3!120>"))
# pan 0.8
# room 0.05 # sz 0.2
d6
$ mask "<f!8 t!120>"
$ note ("c(<3!3 5>,8,<0!3 5>)" |+ melody)
# "moog"
# legato "<0.75!8 <1!3 2>!20 4!4>"
# gain (slow 64 $ gFactor * range 0.2 0.45 (saw + (perlin / 4)))
# pan 0.4
d7
$ degradeBy ("<1!32 0.75 0.5 0.25 0.125 0!28>")
$ (0.75 ~>)
$ slice 8 (cat [
"1", "1", "1", "1",
"1 1", "1 1", "1 1", "1 2",
"1 2", "1 2", "1 2", "1 2",
"2 1", "2 1", "2 1", "2 1"
]
)
$ note ("<0!3 <2 -3>>")
# "brass:7"
# gain (slow 16 $ gFactor * range 0.45 0.3 isaw)
# room 0.45
# sz (slow 16 $ range 0.4 0.9 saw)
# pan 0.6
# cut 7
d9 -- Invader fight: Tir variable, echec | touche | ambulance
$ (0.25 ~>)
$ sometimes (# speed 0.5)
$ mask "<f!4 [t? f!7]!12 [t f]!8 t!8>"
$ fix ((|* gain 0.9) . (# pan 1)) (n "9")
$ fix ((|* gain 0.9) . (# pan 1)) (n "16")
$ n ("[11|4]([1|3|5],8) [~|~| 3|5|11 | [9|9|9|16] ]")
# "invaders"
# pan "0 1"
# room 0.2
# gain (gFactor * "0.2 0.25")
scaleList
d3 $ note (scale (slow 16 $ "<melodicMinor melodicMinorDesc>")
(run 8)
+ "<0!4 2 3 4>"
)
# "xylophone" # gain 0.75
notes.md
......@@ -288,6 +288,11 @@ sevenSus4 sharp5 six sixby9 sus2 sus4 thirteen
62 BassD_90A-03.wav
63 BassD_90A-04.wav
12 BassA_90C-01.wav
13 BassA_90C-02.wav
14 BassA_90C-03.wav
15 BassA_90C-04.wav
0 BassA_110E-01.wav
1 BassA_110E-02.wav
2 BassA_110E-03.wav
......@@ -310,10 +315,6 @@ sevenSus4 sharp5 six sixby9 sus2 sus4 thirteen
6 BassA_120G-03.wav
7 BassA_120G-04.wav
12 BassA_90C-01.wav
13 BassA_90C-02.wav
14 BassA_90C-03.wav
15 BassA_90C-04.wav
20 BassB_120A-01.wav
21 BassB_120A-02.wav
22 BassB_120A-03.wav
......
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