Skip to content

T
Tidal
Unverified Commit 5504f5d4 by PLN (Algolia)
Options

live: minneapolis

parent 113fdba7
Showing with 927 additions and 110 deletions
live/boeuf/may_cafe.tidal 0 → 100644
-- region First jam: Techno modulée
do
setcps 0.5
d1
$ whenmod 16 12 (# silence)
$ s "k(3,8)" # s "jazz"
# gain 0.4
-- # lpf (slow 10 $ range 20 2000 sine)
d2
$ juxBy 0.5 (rev)
$ often ((# s "hc:2") . (|* gain 0.8))
$ s "h(5,8)"
# pan (slow 8 $ sine)
# s "ho:[1|2|3]"
# cut 2
# gain 0.45
d3
$ fast "4 <8!3 16>"
$ s "ifdrums:1"
# gain 0.8
d5 -- Random pistolets
$ fast 2 $ degradeBy 0.5
-- $ whenmod 64 0 (sometimes (# gain 0.9))
$ often (ply 2)
$ (|+ note "[-12|+6]")
$ s "~ s(<3!3 5>,8,3)"
# s "snare:57"
# pan 0.6
# gain 0.6
-- endregion
-- region Second jam: Electric jazz fever
do
unsolo 1
unsolo 2
unsolo 3
unsolo 4
unsolo 7
setcps 1.03
d1 -- Breakbeat
$ superimpose ( -- BEAT
const $ fast 2 $ s "kick:8" # hpf 100 # gain 0.55
)
$ loopAt 4 -- Break
$ slice 8 (
every 4 (|> "0 7!7")
"0 <1 6> 2*2 3 <4 5> <5 2> <6 1> 7"
)
$ s "break" # gain 0.8
d2
$ someCycles (often $ ply 2)
$ every 4 (jux (0.125 ~>))
$ s "~ sn:12" # gain 0.6
d3 $ fast "<[8 4] 8!5 4!2>" $ s "dr" # gain 0
d1 -- KICK!
-- $ slow 2
$ whenmod 32 24 (# n (slow 4 "<0 ~ ~ 0>"))
$ note "0 <0!3 0*2>" # s "jazz"
# lpf (slow 100 $ range 75 200 saw)
# gain 0.6
d3 -- bass
$ whenmod 32 16 (slice 4 "0 1!3")
$ jux id
$ often (off 0.125 (|+ note "[0,7?]"))
$ slow 2
$ note (
scale "major" (
cat [
-- " 1 1 ~ . ~ [~ 0]",
-- "<0!3 5> [<0!4 12!4> <1!3 -2>] ~ ~ . ~ "
"1 <1!3 3!2> ~ . 1 <1 3!6 5> ~"
]
+ "[0,7]" -- gamme
)
)
# s "bass3"
# pan 0.4
# gain 0.34
d2 -- hit roll
$ superimpose (
fast "2 <1!3 2>"
. (# s "ifdrums:1")
. (# gain 0.8)
)
$ s "<h*4 h*4 h*4 [d*4 ~]>"
# s "hh"
# release 0.5
# pan (range 0.2 0.8 perlin)
# gain (slow 40 $ range 0.8 1.1 perlin)
d4
$ someCyclesBy 0.75 (juxBy 0.2 rev)
$ sometimes (hurry 2)
$ sometimes (off (1/8) id)
$ s "d*4"
# s "electro1" # n "[3 . [2|3]]"
# gain 0.0
d7 -- claps
$ whenmod 4 3 (# room 0.5)
$ s "<[~ cp]!3 [~ cp . cp ~]>"
# gain (slow 128 $ range 0.5 0.8 saw)
# room (slow 10 $ range 0.2 0.5 sine)
# size (slow 20 $ range 0.2 0.5 sine) # dry 0.65
d5
$ someCycles (fast 2)
-- $ whenmod 32 16 (# silence)
$ whenmod 32 4 (# gain 0.8)
$ every 4 (# silence)
$ s "reverbkick*2"
# gain 0.7
once $ s "macron:7" # gain 0.9 # cut 5
-- endregion
-- region Third round: Planant qui resonne
do
setcps 0.5
d1 -- Kick Irregulo-correct juxroomé
-- $ juxBy 0.2 ((# room 0.2) . (|* gain 0.8))
$ s "jazz(4,8)" # gain (range 0.55 0.6 perlin)
d2
$ sometimesBy "0 0.5" (fast 2)
$ fast ("<1 1 [2 1] 2>" * "<4!3 8>")
$ s "ifdrums:1"
# gain (slow 16 $ range 0.4 0.65 sine)
# room 0.11
# sz 0.6
d3 -- hats suivis reverb
$ almostAlways (jux (# dry 1.1))
$ s "hh([<6!2 12!2> <12!3 8>],16)"
# gain 0.75
# room 0.4
# size (slow 64 $ range 0.2 0.85 cosine)
# dry (slow 8 $ range 0.5 2 sine)
d7 -- macron gabber guerre
-- $ superimpose (
-- (# octersub 8) . (# octersubsub 2)
-- )
-- $ every 2 (choose [0,0.125] ~>)
$ n "0*2"
# s "macron:0" # begin 0.65
# gain 0.6
d8 -- pivert
$ often (stut 5 0.9 0.05)
$ s "birds3:6(<1 1 3 1> ,8)"
# gain 0.9
d9 -- jambon fromage
$ slow 4
$ whenmod 8 6 (
(# s "~ macron:11")
. (# cut 19)
)
$ often (superimpose ((# squiz 2) . (|* gain 0.9)))
$ slice 4 ("0 <0!3 1>")
$ s "macron:7"
# gain 0.8
# room 0.5
# size 0.2
# speed (range 0.8 0.95 perlin)
# cut 9
d4 $ silence
once $ s "macron:8" # gain 0.8
live/chill/atm/batteur.tidal
...@@ -3,7 +3,7 @@ unmute 6 ...@@ -3,7 +3,7 @@ unmute 6
do do
setcps 0.3 setcps 0.3
d1 $ s "k . ~ [<~ k> <~ k?>]" # s "reverbkick" # gain 0.7 # lpf 400 d1 $ s "k . ~ [<~ k> <~ k?>]" # s "reverbkick" # gain 0.35 # lpf 400
d2 $ s "~ snare:1" # gain 0.5 # delay 0.5 d2 $ s "~ snare:1" # gain 0.5 # delay 0.5
d3 $ often (stut 4 0.76 0.125) $ fast 4 $ s "~ . drum:8" # gain 0.5 d3 $ often (stut 4 0.76 0.125) $ fast 4 $ s "~ . drum:8" # gain 0.5
d4 $ s "[ho(3,8),[~ ~ hc:2*[1|2|3|4] ~]]" # cut 4 # gain "0.5 0.6" d4 $ s "[ho(3,8),[~ ~ hc:2*[1|2|3|4] ~]]" # cut 4 # gain "0.5 0.6"
...@@ -13,15 +13,16 @@ do ...@@ -13,15 +13,16 @@ do
) )
$ off 0.25 (slow 2 . arp "updown") $ off 0.25 (slow 2 . arp "updown")
$ note ("<d4'maj7 <d4'maj7 d5'maj7> d4'min7 d4'maj7>") $ note ("<d4'maj7 <d4'maj7 d5'maj7> d4'min7 d4'maj7>")
# s "superpiano" # velocity 0.4 # s "superpiano"
# velocity (slow 100 $ range 0.2 0.34 sine)
# pan 0.7 # pan 0.7
d6 d6
$ note ("d3" $ note ("d3"
-- + "[0,3(3,8,2)]" + "[0,3(3,8,2)]"
) )
# s "supersaw" # voice 0.1 # s "supersaw" # voice 0.1
# release "2 0.8!7" # release "2 0.8!7"
# gain 0.5 # gain (slow 88 $ range 0.25 0.5 cosine)
d7 $ s "hh(<1 3 5>,8)" # cut 7 # gain 0.6 # pan 0.2 d7 $ s "hh(<1 3 5>,8)" # cut 7 # gain 0.6 # pan 0.2
...@@ -38,7 +39,7 @@ do ...@@ -38,7 +39,7 @@ do
) )
$ off 0.25 (slow 2 . arp "updown") $ off 0.25 (slow 2 . arp "updown")
$ note ("<d4'maj7 <d4'maj7 d5'maj7> d4'min7 d4'maj7>") $ note ("<d4'maj7 <d4'maj7 d5'maj7> d4'min7 d4'maj7>")
# s "superpiano" # velocity 0.4 # s "superpiano" # velocity 0.45
d6 d6
$ note ("<d3'maj <d3'maj d4'maj> d3'min d3'maj>" $ note ("<d3'maj <d3'maj d4'maj> d3'min d3'maj>"
+ "[0,3(3,8,2)]") + "[0,3(3,8,2)]")
......
live/chill/atm/break_blue.tidal
...@@ -10,21 +10,22 @@ do ...@@ -10,21 +10,22 @@ do
solo 8 -- Maracas solo 8 -- Maracas
do do
unsolo 1 -- Break/kick solo 1 -- Break/kick
unsolo 3 -- Basse unsolo 3 -- Basse
unsolo 4 -- Piano Aigu solo 4 -- Piano Aigu
unsolo 5 -- Piano Grave unsolo 5 -- Piano Grave
unsolo 6 -- Clap unsolo 6 -- Clap
unsolo 8 -- Maracas solo 8 -- Maracas
do do
setcps 0.4
let scale = getScale (scaleTable ++ [("blues", [0, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12])]) let scale = getScale (scaleTable ++ [("blues", [0, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12])])
let gKick = 0.6 let gKick = 0.6
let gBreak = 0.7 let gBreak = 0.47
let gBass = 0.7 let gBass = 0.7
let gClap = 0.7 let gClap = 0.7
let gMaracas = 0.8 let gMaracas = 1
let vPianoMin = 0.35 let vPianoMin = 0.2
let vPianoGauche = 0.4 let vPianoGauche = 0.4
let vPiano = 0.5 let vPiano = 0.5
d1 d1
...@@ -42,7 +43,7 @@ do ...@@ -42,7 +43,7 @@ do
"0 1*2 2 3 4*[1|2|4] 5 <6!3 7> 7" "0 1*2 2 3 4*[1|2|4] 5 <6!3 7> 7"
) )
$ s "break" $ s "break"
# gain gBreak # gain 0.5
d3 -- Bassline d3 -- Bassline
$ note (scale "blues" $ note (scale "blues"
("0. 2(3,8)") ("0. 2(3,8)")
...@@ -94,7 +95,7 @@ do ...@@ -94,7 +95,7 @@ do
do do
let scale = getScale (scaleTable ++ [("blues", [0, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12])]) let scale = getScale (scaleTable ++ [("blues", [0, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12])])
let gKick = 0.65 let gKick = 0.65
let gBreak = 0.85 let gBreak = 0.45
let gBass = 0.5 let gBass = 0.5
let gClap = 0.7 let gClap = 0.7
let gMaracas = 0.8 let gMaracas = 0.8
......
live/chill/dub/mini_deconf.tidal
...@@ -3,7 +3,7 @@ do ...@@ -3,7 +3,7 @@ do
setcps (60/60/2) setcps (60/60/2)
d1 -- Kick techno (mask 4) / trance (mask 12) d1 -- Kick techno (mask 4) / trance (mask 12)
-- TODO: at 12, not really transe yet -- TODO: at 12, not really transe yet
$ mask "t(1,12)" $ mask "t(11,12)"
$ whenmod 64 32 (|> n "[0 0 <0 ~>]*4") $ whenmod 64 32 (|> n "[0 0 <0 ~>]*4")
$ s "k!3 . k <k ~> k . k!3 . k k <k!4 ~ ~ k k ~ k>" $ s "k!3 . k <k ~> k . k!3 . k k <k!4 ~ ~ k k ~ k>"
# s "jazz" # s "jazz"
......
live/dnb/etienne.tidal 0 → 100644
-- DNB Joyeuse mineure 8-bit
-- surprise techno-tribe!
do
setcps (165/4/60)
solo 1
solo 2
unsolo 3
unsolo 4
solo 5
d1 -- Kick regulier, pause de temps en temps
-- section Kick DNB
-- $ mask "<t!12 [t f]!2>"
-- $ fast 4
-- $ s "<k [~ k]> . ~"
-- section Kick TECHNO
$ slow "<1!8 2!8>"
$ fast "<1!6 2 4>"
$ s "k k k <k!3 [~ k]>"
# "kick:5"
# crush 5
# gain 0.3
d2 -- Snares contretemps
$ fast "2"
$ sometimesBy "<0 0.5>" ((# lpf 1000) . (|* gain 1.2))
$ s "~ . <s!3 s*2>" # note (-12)
# s "snare:2"
# gain 0.65
d3 -- Drumroll
$ fast ("<1!3 2>" * 4)
$ s "drum:8" # gain 0.9
d4 -- COMETE
$ mask "<f!8 t!8 [f t]!8>"
$ s "m(<3!3 <5 1>>,8)"
# s "methbass:3"
# lpf (slow 16 $ range 200 5000 isaw)
# begin (slow 8 $ "<0 0.25 0.75>")
# end 0.85
# cut 1
# gain 0.6
d5
$ superimpose (
(arp "up") . (|+ note 24)
. (# gain 0.5)
. (# crush (slow 16 $ range 0.75 8 sine))
)
$ s "t(<4!2 5!2>,<4!2 8!2>)"
# note ("<c3'min c3'maj c3'min7 c3'maj>" - 12)
# s "supersaw"
# voice 0.01 # gain 0.4
d9 -- jambon fromage
$ degradeBy 1
$ slow 4
$ whenmod 8 6 (
(# s "~ macron:11")
. (# cut 19)
)
$ often (superimpose ((# squiz 2) . (|* gain 0.9)))
$ slice 4 ("0 <0!3 1>")
$ s "macron:7"
# room 0.5
# size 0.2
# squiz 1.2
# speed (range 0.8 0.95 perlin)
# cut 9
once
$ note (scale "major" 1 - (run 4))
# s "kaamelott:1"
# end 0.04 # cut 1
# gain 0.8
live/dnb/slow_step_abstract.tidal
...@@ -2,6 +2,8 @@ setcps 0.5 ...@@ -2,6 +2,8 @@ setcps 0.5
once $ s "methbass" # n 6 once $ s "methbass" # n 6
d1 $ fast 4 $ s "kick:5" # lpf 200 # gain 0.8
do do
let chordC = "[0, 12, 16, 19]" let chordC = "[0, 12, 16, 19]"
let chordG = "[-5, 11, 14, 19]" let chordG = "[-5, 11, 14, 19]"
......
live/hardcore/jambon.tidal 0 → 100644
-- Je repensais aux phrases que Simon Leys avait sur Robinson Crusoé :
-- les vrais idéalistes sont des grands pragmatiques.
-- Robinson Crusoé, il ne part pas avec des grands principes,
-- il va dans la cale chercher ce qui va lui permettre de survivre.
-- Du fromage. Du jambon. Des choses très concrètes.
-- Pour pouvoir ensuite inventer quelque chose et créer.
-- Robinson, quand le naufrage est là, il ne se prend pas les mains dans la tête en essayant de faire une grande théorie du naufrage. Il prend d'abord du jambon, du fromage, mais il a en lui cette capacité à réinventer une histoire unique.
--
d1 $ slice 8 "0 1 2 3 4 5 6 7" # s "break" # cut 1
once
$ s "macron:11"
# begin 0.62
# gain 1.3
# cut 0
do
solo 1
solo 2
solo 3
solo 4
solo 5
solo 8
let bpm = 165
let gDrums = 0.6
let gKick = 0.8
let melody = "<0 0 0 0 2 2 4 -2>"
setcps (bpm/60/4) -- HARDCORE tranquilou
d1
$ whenmod 32 16 (slow 2)
$ every 4 (superimpose (
(# note "<0!3 <2 4>>") . (# s "hardkick:2") . (|- gain 0.1)))
$ sometimesBy 0.95 (# crush 6)
$ s "k k <k!3 [~ k]> k" # s "jazz"
# gain gKick
d2 -- Hats qui courent!
$ whenmod 32 28 (ply 2)
$ whenmod 8 4 rev
$ fast 4 $ s "[ho hc:1]"
# cut 2 # gain 0.5
# room 0.5
# size 0.2
d4 -- Basse electrique sale
$ off 0.125 (|- note "[0,5]")
$ mask "t(2,3,1)"
$ superimpose ( -- Echo octave
(|+ note 12)
. (|- gain 0.2)
. (# room 0.5)
)
$ note (scale "aeolian"
(
whenmod 16 8 (iter 6)
"0 [4 5] 0"
+ melody
) - 24)
# s "supersaw"
# voice (slow 64 $ range 0.01 0.75 sine)
# crush 4
# gain 0.7
d8
$ whenmod 8 7 (# gain 0.6)
$ slice 2 "<1!3 0> . ~"
$ sound "macron:11" # cut 1
# gain 0
# room 0.4
-- Part 1: technotravail
d2 -- BassLINE
$ juxBy 0.1 (# crush 3)
$ note (scale "aeolian" "0*<1!3 4> 2(<1 3>,8) <~ 4> 5")
# s "bass3:2" # gain 0.8
d3 $ juxBy 0.5 rev
$ fast "<4!3> <8 16>"
$ s "drum:8" # gain gDrums
# room 0.2
d4
$ superimpose (# crush 5)
$ every 3 rev
$ slow 4 $ chop 4
$ s "bsguitar:4"
# cut 4
# gain 0.6
d5
$ note ("0(<1 3>,<4!2 8!2>,3)" + "<4 <8 5>>" - 24)
# s "supersaw" # voice 0.1 # gain 0.4
# sustain "1 0.75 0.5 0.25"
d6
$ someCycles (often (fast 2))
$ every' 4 3 (jux rev)
$ s "hh(8,<8!3 12>)"
# gain (slow 32 $ range 0.6 0.8 sine)
# size 0.5 # room 0.2
d8
$ whenmod 16 8 (# gain 0.6)
$ slice 2 "<1!3 0> . ~"
$ sound "macron:11" # cut 1
# gain 0
# room 0.4
live/hip/instru/training.tidal 0 → 100644
do
setcps 0.5
d1 -- KICK filtre grave
$ s "jazz(<3!3 5>,11)"
# gain 0.9
# lpf 100
d2 -- SNARE contretemps
$ whenmod 4 3 (fast "2 4")
$ s "~ snare:2"
|- note (slow 8 $ range 0 8 sine)
# room 0.2 # size 0.4 # dry 1
# gain 0.9
d3 -- Drumroll (metronome)
$ s "d*4" # s "drum:8"
# gain 0.9
d5
-- $ TODO guitare
-- superimpose (swing 2 . (|+ note 36))
$ note ("0" + "c5(<3 <5 4>>,8)") # s "bass3:5"
# gain 0.8
do
unmute 2 -- snare
unmute 3 -- Drumroll
unmute 6
unmute 1
setcps 0.3
d1 -- Breakbeat
$ superimpose (const -- BEAT
$ rarely (0.125 ~>)
$ "k . k(<3!3 5>,8)"
# s "kick:5" # lpf 200
# gain 0.8
)
$ whenmod 32 16 ( -- pont!
mask "t(6,8)" -- cut progressif
)
$ whenmod 8 6 ( -- pont!
mask "t(5,8,2)" -- cut progressif
)
$ loopAt 2 -- Etire le break
$ slice 8 ( -- Decoupage
"0*2 1 [0|2] [0|3] <0 4> <0!4 5!4> <0 6> <0 7>"
)
$ s "break" -- Notre break
# gain 0.8 -- Volume
d2 -- Snare accelere sur la fin
$ rarely (fast 2)
$ whenmod 4 3 (ply "2 4")
$ s "~ sn:1" # gain 0.9 # note (-4)
d3 -- Piano main gauche base accords
$ superimpose ( -- chhoeurs!
(# s "moogBass")
. (|- note 12)
. (# gain 0.9)
. (# sustain 3.5)
)
$ note ("<c4'maj c4'min d4'maj c4'maj>")
# s "superpiano"
# velocity (0.65 + (perlin * 0.2))
# sustain 1
d4 -- Bassline
$ mask "t(<1!4 4 2!3 3 4!7>,4)"
$ off (1/24) (|- gain 0.1)
$ note (scale "minor" -- gamme mineure
"<0!2 6!2> ~ [5 4] <0 5>"
)
# s "bass3:4"
-- # lpf 2000
# speed 0.6
# gain 1.1
d6 -- Drumroll
$ sometimes (juxBy 0.5 degrade)
$ fast "8 <8!3 16 8!3 16!5 [32 16]!2 [32 . 32 16]!2 [32 . 32 8]!2 [16 32]!4>"
$ s "drum:8"
# gain 0.7
d7 -- Cymbales
$ slow 2
$ sometimesBy "0 0.5" (# n "1")
$ stut 4 0.9 0.125
$ note ("<0 -4>" + "0(3,3)")
# s "808cy"
# gain (slow 10 $ range 0.5 0.7 saw)
d8 -- bourrasque space
$ whenmod 16 10 (
(swing 2) . (chop 2)
)
$ s "space:3"
# speed 0.4
# gain 0.5
# room 0.8
d10 -- Random pistolets
$ sometimesBy "<0 0.25>" (# gain "0!30 0.6 0.9")
$ s "~!30 s s"
# s "[snare:57,808cy:0]"
# pan 0.6
# gain 0
-- Cymbal 7/8
once $ s "space:2" # gain 0.8
"space:0" -- zip soucoupe
"space:1" -- respirateur
"space:2" -- respirateur court
"space:3" -- vent spacial
d5
$ splice 8 "[0*2, [~ 2]*2]"
$ s "bsguitar:4" # gain 0.9
-- Pause techno
do
d1
$ whenmod 16 14 (fast 2)
$ whenmod 16 10 (slow 2)
$ s "jazz(4,8)"
# hpf (slow 4 $ range 50 400 perlin)
d3 $ sometimes (ply 2)
$ s "ho*8" # n (irand 7) # gain 0.4
d2
$ whenmod 4 3 (fast 2)
$ s "~ cp:1"
# room 0.7 # sz 0.4
# dry 1.1
d4
$ superimpose ( -- basse grave
(|- note 12)
. slow 8
. (|- gain 0.05)
. (# room 0.5)
. (# size 0.5)
)
$ every 4 rev
$ note (scale "aeolian" (run 8) - 24)
# s "supersaw" # voice 0.1
# gain 0.6
d5 $ note (scale "minor" $ snowball 4 (+) (slow 2) $ (run 3))
# sound "gtr"
# gain 0.7
live/hip/piano_fight.tidal 0 → 100644
-- Battle de pianos!
resetCycles
d3 $ s "dr*4"
do
setcps 0.5
d1 -- Kick basique
$ whenmod 32 24 ( -- Break silence
mask "t(1,2)"
)
$ whenmod 4 3 (
(>| n "0(3,8) . ~")
. (|+ gain "0 0.05 0.1 0.15")
)
$ n "0"
# s "jazz" # gain 0.7
# cut 1
d2 -- Snare contretemps
$ whenmod 32 24 ( -- Break silence
fast "<0!4 1 2 4 8>"
)
$ s "~ snare:48"
# gain 0.8
# note (slow 2 "<0 1>" - 6)
d3 -- Metrono-roll
$ whenmod 32 24 ( -- Break silence
slow "<2!6 [0.5 0.25] 0.25>"
)
$ someCyclesBy "<0!3 <0.25!3 0.75>>" (fast "2 [2|4]")
$ s "dr*4" # gain 0.8 # pan 0.3
d4 -- Toms TODO variations sur rounds
$ juxBy 0.7 rev
$ s "[808lt(5,8),808mt:1(<3!3 5!3>,8,[0|3])]" # gain 0.5 -- todo toms?
d5 -- Piano J1
$ swingBy (slow 32 "<0!2 1/3 0.5>") 8
$ mask (slow 32 $ "<f t>") -- Rounds
$ note (
"0!6 [~ 0] <-2!3 3 -2!2 3!3 7 9 7 5 3 -2!2>" -- rythme+melody 16
+ "d4")
# sustain (1/4)
# s "superpiano"
# velocity (0.75 - (perlin * 0.15))
# gain 0.8
# room 0.5 # sz 0.5 --TODO fine-tune reverb
d6 -- Piano J2 accords fous !
$ sometimesBy "0 0.25" ("[1|2]/8" ~>)
$ mask (slow 32 $ "<f f t t>") -- Rounds
$ note (
"[<0!15 0?> <0!7 ~> <~!3 0> 0]*4" -- rythme fou
+ "<d6'maj f6'maj c6'min d6'maj>")
# sustain (1/4)
# s "superpiano"
# velocity (0.6 + (perlin * 0.15))
# gain 0.8
# room 0.2 # sz 0.2 --TODO fine-tune reverb
d7 $ silence -- TODO BASS
once $ s "industrial:6" # gain 0.8
live/hip/volette.tidal
...@@ -97,4 +97,4 @@ once ...@@ -97,4 +97,4 @@ once
$ note (scale "major" 1 - (run 4)) $ note (scale "major" 1 - (run 4))
# s "kaamelott:1" # s "kaamelott:1"
# end 0.04 # cut 1 # end 0.04 # cut 1
# gain 0.9 # gain 0.8
live/late/good_morning_minneapolis.tidal 0 → 100644
-- Good Morning Minneapolis
do
let melody = "<d4'min d4'min <a3'min g4'min e4'min> d4'min>"
let melodyFirst = "<d3 d3 <a3 g3 e3> d3>"
setcps 0.5
unsolo 1 -- Kick
unsolo 2 -- Snare
unsolo 3 -- Drumroll
solo 4 -- Piano
unsolo 5 -- Basse/Sirene
unsolo 6 -- Hit roll
unsolo 7 -- Claps fantomes
unsolo 8 -- Guns + Fire
d1
$ mask "t(1,4)"
$ sometimesBy "<0 0.1>" (# hpf 200)
$ s "k . k(<1 <3 5>>,8)" -- Hip beat
-- $ whenmod 16 10 (slow "<4!4 2>") $ s "k k <k!2 ~ k> <k!3 k*2>" -- TECHNO
# "reverbkick" # lpf (slow 64 $ range 500 2500 sine)
# gain 0.65
d2
$ every' 8 7 (mask "f t!3" . jux rev)
$ s "~ s(<1!3 3>,8)" # s "snare:20"
# gain (slow 32 $ range 0.5 0.7 saw)
# pan 0.3
d3 -- Drumroll opposé hit roll
-- $ fast "<4!3 <2 [2 <8 [8 16]>]>>" -- Waiting roll
$ fast "<16!3 [16 8]> [8 <8!3 16>]" -- Running roll
$ s "drum:8"
# gain (slow 40 $ range 0.5 0.75 sine)
d6 -- Hit roll opposé drumroll
$ every' 4 3 ( -- acceleration + cymbale
fast "2 1" . (# n "0!3 1")
. (|* gain "1!3 <0.65 0.8>")
)
$ s "hh(<3!4 5!4>,8)"
# gain (slow 40 $ range 0.55 0.9 cosine)
# pan 0.7
d4
$ degradeBy "0 0.9!8" -- OUTRO
$ mask "t(<1 2!2 4>,4)"
$ superimpose (
often (off 0.125 (|+ note "<0!3 12>"))
. arp (slow 8 $ "<up down updown downup>")
. (|+ note 36)
. (# sustain 0.5)
. (# velocity 0.4)
. (# room 0.2)
. (# sz 0.8)
. (|+ pan 0.15)
)
$ note (melody)
# s "superpiano"
# velocity 0.3
# sustain 1
# room 0.4 # size 0.2
# pan 0.5
d5 -- Basse + Sirene
$ whenmod 64 32 (
superimpose (
slow 4
. (# s "supersiren")
. (|- note 12)
. (|* gain 1.1)
. (# room 0.5)
))
-- $ chop 4 $ often (ply 4) $ (# crush 4) -- TECHNOPHILE
$ note (melodyFirst)
# s "supersaw" # voice 0.02
# gain 0.45
# pan (slow 10 $ range 0.6 0.8 sine)
d7 -- Claps fantomes
$ s "~ cp"
# room (range 0.5 0.95 perlin)
# sz (range 0.2 0.9 perlin)
# dry 1.2
# gain 0.65
# pan (slow 8 $ range 0.45 0.65 saw)
d8 -- Gunfire
$ sometimes (
superimpose (const -- pistolets
$ sometimes ( -- réplique
off 0.5 (|+ gain 0.1)
. (# room 0.25))
$ often (stut 4 0.9 (1/16)) -- échos
$ s "~ ~ ~ snare:57"
# speed (range 0.4 1.1 perlin)
# gain (range 0.45 0.6 rand)
# cut 80
# pan (range 0.2 0.8 perlin)
)
)
$ s "fire"
# begin (slow 4 "<0 0.2 0.5>")
# cut 8
# room 0.6 # size 0.4
# speed (range 0.8 1 perlin)
# gain 0.7
live/noise/decentering.tidal
...@@ -38,7 +38,7 @@ $ sometimes (off 1 (|- gain 0.2)) -- copie mesure suivante ...@@ -38,7 +38,7 @@ $ sometimes (off 1 (|- gain 0.2)) -- copie mesure suivante
$ sometimes (1 ~>) -- decalage mesure suivante $ sometimes (1 ~>) -- decalage mesure suivante
$ degradeBy (slow 64 $ sine * 0.8 + 0.2) $ degradeBy (slow 64 $ sine * 0.8 + 0.2)
$ s "birds" # n (irand 10) $ s "birds" # n (irand 10)
# gain 0.7 # gain 0.6
d7 -- moineau roll d7 -- moineau roll
$ sometimesBy (slow 16 $ sine * 0.95) (off (1/16) id) $ sometimesBy (slow 16 $ sine * 0.95) (off (1/16) id)
...@@ -47,10 +47,10 @@ $ s "birds3(<[3|6] 8>,8)" ...@@ -47,10 +47,10 @@ $ s "birds3(<[3|6] 8>,8)"
d9 -- scratched birds d9 -- scratched birds
$ fast 2 $ fast 2
$ s "~ [b b?]]" $ s "~ [b b?]"
# s "birds3" # s "birds3"
# n (wchoose [(9,13),(1,14)]) # n (wchoose [(9,13),(1,14)])
# gain (slow 64 $ cosine * 0.5 + 0.3) # gain (slow 64 $ cosine * 0.5 + 0.2)
# room (slow 64 $ cosine * 0.8 + 0.05) # room (slow 64 $ cosine * 0.8 + 0.05)
# size (slow 64 $ cosine * 0.8 + 0.05) # size (slow 64 $ cosine * 0.8 + 0.05)
# dry 0 # dry 0
...@@ -67,7 +67,7 @@ $ note "<0 <3 [3 3]> <0 [3 0]>>" ...@@ -67,7 +67,7 @@ $ note "<0 <3 [3 3]> <0 [3 0]>>"
# hpf (slow 64 $ cosine * 900 + 100) # hpf (slow 64 $ cosine * 900 + 100)
# room (slow 64 $ 1 - cosine * 0.9) # room (slow 64 $ 1 - cosine * 0.9)
|- note 24 |- note 24
# gain 0.75 # gain 0.85
d11 -- cymbale d11 -- cymbale
$ whenmod 64 32 (always (# n 3)) -- prolonge $ whenmod 64 32 (always (# n 3)) -- prolonge
......
live/techno/accel.tidal
...@@ -4,21 +4,22 @@ ...@@ -4,21 +4,22 @@
-- region Part 1: setup accel vivant -- region Part 1: setup accel vivant
do do
unsolo 1 -- kick solo 1 -- kick
unsolo 2 -- snare unsolo 2 -- snare
solo 3 -- drumroll unsolo 3 -- drumroll
solo 4 -- bass solo 4 -- bass
solo 5 -- siren unsolo 5 -- siren
unsolo 6 -- clap unsolo 6 -- clap
solo 7 -- synth solo 7 -- synth
let mKick = "<1!32 0!15 [0 1] 1!64 0.9!4 0.8!4 0.7!4 0.6!4>" -- let mKick = "<1!32 0!15 [0 1] 1!64 0.9!4 0.8!4 0.7!4 0.6!4>"
let gKick = 0.8 * mKick -- /128 On off semi-onon fadeout let gKick = 0.5 -- /128 On off semi-onon fadeout
let gSnare = 0.65 let gSnare = 0.6
let gHats = 0.7 let gHats = 0.7
let gBass = 0.7 * "<1!16 <[1 0]*4 [0 1]*4>!8 1!8>" let gDrums = 0.5
let gSiren = "<0!64 0.7!32 0.6!32 0.5!32 0.4!32>" let gBass = 0.5 * "<1!16 <[1 0]*4 [0 1]*4>!8 1!8>"
let gSynth = 0.55 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>" let gSiren = 0.85 * "<0!64 0.7!32 0.6!32 0.5!32 0.4!32>"
let gClap = 0.8 let gSynth = 0.5 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>"
let gClap = 0.6
let melody = "<0 0 0 0 2 2 4 -2>" let melody = "<0 0 0 0 2 2 4 -2>"
setcps 0.5 -- TECHNOOO setcps 0.5 -- TECHNOOO
d1 -- Kick d1 -- Kick
...@@ -53,7 +54,7 @@ do ...@@ -53,7 +54,7 @@ do
$ s "dr*8" $ s "dr*8"
# s "ifdrums:1" # s "ifdrums:1"
# pan 0.4 # pan 0.4
# gain 0.9 # gain gDrums
d4 -- Basse d4 -- Basse
$ superimpose ( -- Echo octave $ superimpose ( -- Echo octave
(|+ note 12) (|+ note 12)
...@@ -80,10 +81,10 @@ do ...@@ -80,10 +81,10 @@ do
# sustain 4 # sustain 4
# gain 0 # gain 0
d6 -- claps graduels sur 64 d6 -- claps graduels sur 64
$ whenmod 64 48 (>| n "~ 0*2 ~ 0*2") -- $ whenmod 64 48 (>| n "~ 0*2 ~ 0*2")
$ whenmod 64 40 (>| n "~ 0?*2 ~ 0?*2") -- $ whenmod 64 40 (>| n "~ 0?*2 ~ 0?*2")
$ whenmod 64 32 (>| n "~ 0 ~ 0*2") -- $ whenmod 64 32 (>| n "~ 0 ~ 0*2")
$ whenmod 64 0 (>| n "~") -- $ whenmod 64 0 (>| n "~")
$ whenmod 16 13 (# note "<2 4 6>") $ whenmod 16 13 (# note "<2 4 6>")
$ n "~ ~ ~ 0" $ n "~ ~ ~ 0"
# s "clap:1" # s "clap:1"
...@@ -103,71 +104,72 @@ do ...@@ -103,71 +104,72 @@ do
"<0 0 0 0 2 2 4 -2>") "<0 0 0 0 2 2 4 -2>")
# gain gSynth # gain gSynth
-- endregion once $ s "abstract:1" # cut 1 # gain 0.6
-- endregion
-- region Part 2: Dry Melancholia -- region Part 2: Dry Melancholia
do do
solo 1 -- kick solo 1 -- kick
solo 2 -- snare solo 2 -- snare
solo 3 -- drumroll solo 3 -- drumroll
solo 4 -- bass solo 4 -- bass
solo 5 -- siren solo 5 -- siren
solo 6 -- clap solo 6 -- clap
solo 7 -- synth solo 7 -- synth
let gKick = 0.8 -- /128 On off semi-onon fadeout let gKick = 0.6 -- /128 On off semi-onon fadeout
let gSnare = 0.65 let gSnare = 0.65
let gHats = 0.7 let gHats = 0.75
let gBass = 0.7 let gBass = 0.6
let gSiren = 0.6 let gSiren = 0.6
let gSynth = 0.55 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>" let gSynth = 1 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>"
let gClap = 0.8 let gClap = 0.8
let melody = "<0 0 0 0 2 2 4 -2>" let melody = "<0 0 0 0 2 2 4 -2>"
setcps 0.5 -- TECHNOOO setcps 0.5 -- TECHNOOO
d1 -- Kick d1 -- Kick
$ whenmod 16 14 (# silence) -- break frequent $ whenmod 16 14 (# silence) -- break frequent
$ n "0 0 <0!3 0?> 0" $ n "0 0 <0!3 0?> 0"
# s "kick:5" # s "kick:5"
# gain gKick # gain gKick
# lpf (slow 16 $ range 500 200 isaw) # lpf (slow 16 $ range 500 200 isaw)
d2 -- Snares + hats d2 -- Snares + hats
$ n "~ <3*2 3(<1 3>,8) 3 [3 ~ 3 2]> ~ [2 <~ 3?>]" $ n "~ <3*2 3(<1 3>,8) 3 [3 ~ 3 2]> ~ [2 <~ 3?>]"
# s "sn" # s "sn"
# pan (slow 8 $ range 0.3 0.6 sine) # pan (slow 8 $ range 0.3 0.6 sine)
# dry 1 # dry 1
# gain gSnare # gain gSnare
d3 -- Drum metronome chuchoté parfois fou d3 -- Drum metronome chuchoté parfois fou
$ someCyclesBy "<0 0.5!2 0.75>" (fast "<2 2 2 [2|4]>") $ someCyclesBy "<0 0.5!2 0.75>" (fast "<2 2 2 [2|4]>")
$ s "dr*4" $ s "dr*4"
# s "ifdrums:1" # s "ifdrums:1"
# pan 0.4 # pan 0.4
# gain 0.9 # gain 0.9
# room (slow 16 $ range 0 0.15 saw) # room (slow 16 $ range 0 0.15 saw)
d4 -- Basse d4 -- Basse
$ superimpose ( -- Echo octave $ superimpose ( -- Echo octave
(|+ note 12) (|+ note 12)
. (|- gain 0.2) . (|- gain 0.2)
. (# room 0.5) . (# room 0.5)
) )
$ note (scale "aeolian" $ note (scale "aeolian"
( (
"0(2,8) [5 4]*<1!3 2> <0!4 2 5>" "0(2,8) [5 4]*<1!3 2> <0!4 2 5>"
+ melody + melody
) - 36) ) - 36)
# s "supersaw" # s "supersaw"
# voice 0.1 # voice 0.1
# gain gBass # gain gBass
d5 -- Siren choppee d5 -- Siren choppee
$ mask "t(1,4,3)" $ mask "t(1,4,3)"
$ segment 4 $ segment 4
$ slow 2 $ slow 2
$ note (scale "aeolian" $ note (scale "aeolian"
( (
melody melody
) - 36) ) - 36)
# s "supersiren" # s "supersiren"
# sustain 4 # sustain 4
# gain gSiren # gain gSiren
# cut 5 # cut 5
-- endregion -- endregion
...@@ -176,16 +178,16 @@ do ...@@ -176,16 +178,16 @@ do
solo 1 -- kick solo 1 -- kick
solo 2 -- snare solo 2 -- snare
unsolo 3 -- drumroll unsolo 3 -- drumroll
solo 4 -- bass unsolo 4 -- bass
solo 5 -- siren unsolo 5 -- siren
solo 6 -- clap solo 6 -- clap
solo 7 -- synth solo 7 -- synth
let gKick = 0.8 -- /128 On off semi-onon fadeout let gKick = 0.6 -- /128 On off semi-onon fadeout
let gSnare = 0.65 let gSnare = 0.65
let gHats = 0.7 let gHats = 0.75
let gBass = 0.7 let gBass = 0.6
let gSiren = "<0.7!32 0.6!32 0.5!32 0.4!32>" let gSiren = 0.3 * "<0.7!32 0.6!32 0.5!32 0.4!32>"
let gSynth = 0.55 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>" let gSynth = 1.3 -- * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>"
let gClap = 0.8 let gClap = 0.8
let melody = "<0 0 0 0 2 2 4 -2>" let melody = "<0 0 0 0 2 2 4 -2>"
setcps 0.5 -- TECHNOOO setcps 0.5 -- TECHNOOO
...@@ -252,15 +254,15 @@ $ n "0*12" ...@@ -252,15 +254,15 @@ $ n "0*12"
-- region Part 4: Résolution -- region Part 4: Résolution
do do
solo 1 -- kick solo 1 -- kick
solo 2 -- snare unsolo 2 -- snare
solo 3 -- drumroll unsolo 3 -- drumroll
solo 4 -- bass unsolo 4 -- bass
solo 5 -- siren unsolo 5 -- choeur
unsolo 6 -- clap unsolo 6 -- clap
unsolo 7 -- synth unsolo 7 -- synth
let mKick = "<1!32 0!15 [0 1] 1!64 0.9!4 0.8!4 0.7!4 0.6!4>" let mKick = "<1!32 0!15 [0 1] 1!64 0.9!4 0.8!4 0.7!4 0.6!4>"
let gKick = 0.75 * mKick -- /128 On off semi-onon fadeout let gKick = 0.75 * mKick -- /128 On off semi-onon fadeout
let gSnare = 0.65 let gSnare = 0.6
let gHats = 0.7 let gHats = 0.7
let gBass = 0.7 * "<1!16 <[1 0]*4 [0 1]*4>!8 1!8>" let gBass = 0.7 * "<1!16 <[1 0]*4 [0 1]*4>!8 1!8>"
let gSiren = "<0!64 0.7!32 0.6!32 0.5!32 0.4!32>" let gSiren = "<0!64 0.7!32 0.6!32 0.5!32 0.4!32>"
...@@ -300,7 +302,7 @@ d3 -- Drumroll chuchoté ...@@ -300,7 +302,7 @@ d3 -- Drumroll chuchoté
$ s "dr*8" $ s "dr*8"
# s "ifdrums:1" # s "ifdrums:1"
# pan 0.4 # pan 0.4
# gain 0.9 # gain 0.7
d4 -- Basse d4 -- Basse
$ superimpose ( -- Echo octave $ superimpose ( -- Echo octave
(|+ note 12) (|+ note 12)
...@@ -330,3 +332,125 @@ d7 -- synthe echos electrique ...@@ -330,3 +332,125 @@ d7 -- synthe echos electrique
) )
# gain gSynth # gain gSynth
-- endregion -- endregion
-- region Part 5: Restart minimal
do
unsolo 1 -- kick
unsolo 2 -- claps
unsolo 3 -- drumroll
solo 4 -- bass
unsolo 5 -- Choeurs
unsolo 6 -- piano
unsolo 7 -- synth
unsolo 8 -- Pistolets
setcps 0.5 -- TECHNOOO
d1 -- Kick
$ whenmod 16 14 (# silence) -- break frequent
$ n "0 0 <0!3 0?> 0" # s "reverbkick"
# lpf 500 # gain 0.9
d2
$ whenmod 4 3 (sometimesBy "0 0.75" (ply 2))
$ fast 2 $ s "~ cp" # gain 0.8
d3
$ whenmod 32 28 (# gain 0)
$ whenmod 16 8 (fast 2)
$ fast "1 <1!3 2>"
$ s "ifdrums:1*4"
-- # gain 0.9
d4 -- Basse nappes + arp aigues
$ superimpose (
fast 4 .
arp "<pinkyup>"
. (|+ gain 0.0)
. (|+ note 12)
. (|+ note 12)
)
$ note (scale "lydian"
"<c4'maj e4'maj c4'maj e4'min>/4")
# s "supersaw"
# voice 0.01
# gain (slow 64 $ range 0.35 0.4 sine)
d5 -- Choeurs
$ note (scale "lydian"
"<c4'maj e4'maj c4'maj e4'min>/4")
# s "moogBass"
# gain (slow 100 $ range 0.65 0.9 cosine)
d6
$ mask "t([1|2|2|4|8],8)"
$ often (off 0.25 rev)
$ off (0.125) (|+ note
(slow 4 $ "<12 7>")
)
$ note (scale "lydian"
"<c4'maj e4'maj c4'maj e4'min>")
# s "superpiano" # velocity 0.5
d8 -- Random pistolets fin boucle 64
$ whenmod 64 48 (sometimes (# gain 0.8))
$ every' 4 3 ((sometimes $ jux rev) . (fast 2))
$ sometimesBy "0 0.5" ((ply 2) . (|+ note "[-12|+6]"))
$ s "~ s(<3!3 5>,8,3)"
# s "snare:57"
# pan 0.6
# gain 0
-- endregion
-- region Part 6: Finish breakbeat
do
solo 1 -- kick
solo 2 -- claps
solo 3 -- drumroll
unsolo 4 -- bass
solo 5 -- Choeurs
unsolo 6 -- piano
unsolo 7 -- synth
solo 8 -- Pistolets
setcps 0.5 -- TECHNOOO
d1
$ whenmod 4 3 (iter 4)
-- $ fast 4
$ loopAt 2
$ slice 8 "[0(3,8) 1]" -- finish [1]
$ s "break"
# gain 0.8
d2
$ whenmod 4 3 (sometimesBy "0 0.75" (ply 2))
-- $ fast 2
$ s "~ cp"
# lpf (slow 32 $ range 20 20000 saw)
# hpf (slow 64 $ range 200 1000 isaw)
# gain 0.8
d3
$ whenmod 32 28 (# gain 0)
$ whenmod 16 8 (fast 2)
$ fast "1 <1!3 2>"
$ s "ifdrums:1*4"
# gain 0.7
d4 -- Basse nappes + arp aigues
$ note (scale "lydian"
"<c4'maj e4'maj c4'maj e4'min>/4")
# s "supersaw"
# voice 0.01
# gain 0
d5 -- Choeurs
$ note (scale "lydian"
"<c4'maj e4'maj c4'maj e4'min>/4")
# s "moogBass"
# gain 0.8
d6
$ never (off 0.25 rev)
$ rarely (off (0.125) (|+ note
(slow 4 $ "<12 7>")
))
$ note (scale "lydian"
"<c4'maj e4'maj c4'maj e4'min>")
# s "superpiano" # velocity 0.65
d8 -- Random pistolets fin boucle 64
$ whenmod 64 48 (sometimes (# gain 0.8))
$ every' 4 3 ((sometimes $ jux rev) . (fast 2))
$ sometimesBy "0 0.5" ((ply 2) . (|+ note "[-12|+6]"))
$ s "~ s(<3!3 5>,8,3)"
# s "snare:57"
# pan 0.6
# gain 0
-- endregion
live/techno/multibass.tidal 0 → 100644
do
d1
$ sometimesBy "0 0.01!3 0 0.05!3" (0.125 ~>)
$ whenmod 8 6 (degradeBy "0 . 0.9 1")
$ ply 4 $ s "kick:5"
# gain 0.5
# release 0.6
# lpf (slow 2 $ range 20 5000 perlin)
d2 -- Snares noise etire
$ whenmod 8 7 rev
$ fast 2
$ s "~ s*<1!3 <2 [2 4]>>" # s "glitch:7"
# speed (range 0.5 1 perlin)
# lpf 4000
# gain 0.7 # pan (slow 4 $ "<0.3 0.25> <0.3 0.35>")
d3
$ every 5 (sometimes degrade)
$ every 4 (often (fast 2))
$ every 3 (sometimes (ply 2))
$ sometimesBy "0 0.5" ((# s "hc:1") . (|- gain 0.1))
$ s "hh*8"
# gain 0.75
# cut 3
d4 -- MULTIBASSE
$ superimpose ( -- bassline
(+| note ("[0 7](<3!3 4>,8)" - 24)) .
(|* gain 1.3) .
(|- pan 0.1) .
(# voice 0.1)
-- (# crush (slow 8 $ range 5 8 perlin))
)
$ superimpose ( -- folie aigue electrique
-- (stut 8 0.5 (1/16)) .
ply "<2 4!2 8!2 16!4 32!8>" .
(|+ note "<c6'maj f6'min c6'min f6'maj>") .
(|* gain 0.5)
)
$ note ("<0 2 0 5 8 5 2 0>/4")
|- note 12
# s "supersquare"
# voice (slow 16 $ range 0.05 2 perlin)
# gain 0.45
# pan 0.6
live/techno/samedi_interdit.tidal
...@@ -127,7 +127,7 @@ $ n "[~ <1 ~ ~> <~ 1 ~> <~ ~ 1>]/2" ...@@ -127,7 +127,7 @@ $ n "[~ <1 ~ ~> <~ 1 ~> <~ ~ 1>]/2"
every 8 (1 -) -- non, à droite! every 8 (1 -) -- non, à droite!
rand / 4 -- plutot à gauche... rand / 4 -- plutot à gauche...
) )
# gain (slow 32 $ sine * 0.2 + 0.7) # gain (slow 32 $ range 0.2 0.9 sine)
d9 -- glitches! d9 -- glitches!
$ every 4 (sometimesBy 0.75 (jux rev)) $ every 4 (sometimesBy 0.75 (jux rev))
......
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