Skip to content

T
Tidal
Unverified Commit 36759dd5 by PLN (Algolia)
Options

live: from crapeau to blue impro and accel v2

parent 630f8c55
Showing with 967 additions and 141 deletions
live/chill/atm/batteur.tidal 0 → 100644
unmute 2
unmute 6
do
setcps 0.3
d1 $ s "k . ~ [<~ k> <~ k?>]" # s "reverbkick" # gain 0.7 # lpf 400
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
d4 $ s "[ho(3,8),[~ ~ hc:2*[1|2|3|4] ~]]" # cut 4 # gain "0.5 0.6"
d5
$ whenmod 32 16 ( -- folie aigue
juxBy 0.25 ((0.125 ~>) . rev . fast 4 . (|+ note 12))
)
$ off 0.25 (slow 2 . arp "updown")
$ note ("<d4'maj7 <d4'maj7 d5'maj7> d4'min7 d4'maj7>")
# s "superpiano" # velocity 0.4
# pan 0.7
d6
$ note ("d3"
-- + "[0,3(3,8,2)]"
)
# s "supersaw" # voice 0.1
# release "2 0.8!7"
# gain 0.5
d7 $ s "hh(<1 3 5>,8)" # cut 7 # gain 0.6 # pan 0.2
-- Intro atm
do
setcps 0.3
d1 $ s "k . ~ [<~ k> <~ k?>]" # s "bd" # gain 0.6
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
d4 $ s "[ho(3,8),[~ ~ hc:2*[1|2|3|4] ~]]" # gain "0.5 0.6"
d5
$ whenmod 32 16 ( -- folie aigue
jux ((0.125 ~>) . rev . fast 4 . (|+ note 12))
)
$ off 0.25 (slow 2 . arp "updown")
$ note ("<d4'maj7 <d4'maj7 d5'maj7> d4'min7 d4'maj7>")
# s "superpiano" # velocity 0.4
d6
$ note ("<d3'maj <d3'maj d4'maj> d3'min d3'maj>"
+ "[0,3(3,8,2)]")
# s "supersaw" # voice 0.1
# release "2 0.8!7"
# gain 0.5
live/chill/atm/break_blue.tidal
...@@ -17,11 +17,85 @@ do ...@@ -17,11 +17,85 @@ do
unsolo 6 -- Clap unsolo 6 -- Clap
unsolo 8 -- Maracas unsolo 8 -- Maracas
do
let scale = getScale (scaleTable ++ [("blues", [0, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12])])
let gKick = 0.6
let gBreak = 0.7
let gBass = 0.7
let gClap = 0.7
let gMaracas = 0.8
let vPianoMin = 0.35
let vPianoGauche = 0.4
let vPiano = 0.5
d1
$ superimpose (const -- THE BEAT
$ slow 4 -- l'attente
$ s "k*1"
# s "jazz"
# lpf 50
# gain gKick
)
-- $ whenmod 64 32 (# gain 0)
$ loopAt 2
$ slice 8 (
whenmod 8 6 (|> "6!7 7")
"0 1*2 2 3 4*[1|2|4] 5 <6!3 7> 7"
)
$ s "break"
# gain gBreak
d3 -- Bassline
$ note (scale "blues"
("0. 2(3,8)")
- 24)
# s "supersaw"
# voice 0.05
# sustain "0.75 . 0.25 0.5"
# gain gBass
# hpf (slow 64 $ range 0 2500 sine)
d4 -- Piano aigu fou
$ mask "t(<1!4 2!4 4!24>,4)"
$ whenmod 32 16 (often (off 0.125 (|+ note "[0,7]")))
$ whenmod 4 3 (often (fast 2))
$ n "0*16"
# note (scale "blues" (
"<0!2 [0 1] 0!2 [0 -1 -4]>"
)
+ 24)
# s "superpiano"
# velocity (slow 64 $ range vPianoMin vPiano sine)
d5 -- Accords main gauche
$ stut' 4 (1/16) ((|+ 0). (|- velocity 0.05))
$ note (scale "blues" "[0,<3 2 1 3 2 5 1 1 3 1 0 ~>]")
# s "superpiano"
# velocity (vPianoGauche)
# sustain 2
d8 -- maracas hombre
$ whenmod 6 4 (fast 2)
$ s "m(<3 5>,8)" # speed "[0.8|0.86|0.92]"
# s "drum:3"
# room 0.2 # sz 0.4 # dry (slow 100 $ range 0 5 sine)
# gain gMaracas
d6
-- $ fast 2
$ s "~ clap:1"
# speed (slow 42 $ range 0.9 1.2 isaw)
# gain gClap
-- V1: Bleu casse
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.5 let gBreak = 0.85
let gBass = 0.4 let gBass = 0.5
let gClap = 0.7 let gClap = 0.7
let gMaracas = 0.8 let gMaracas = 0.8
let vPianoMin = 0.35 let vPianoMin = 0.35
...@@ -47,12 +121,7 @@ do ...@@ -47,12 +121,7 @@ do
$ s "break" $ s "break"
# gain gBreak # gain gBreak
d3 -- Bassline d3 -- Bassline
$ whenmod 40 20 ( -- doublage electrique $ note (scale "aeolian" (run 8)
(sometimes (# crush 6) . (ply 2))
)
$ swing 2
$ note (scale "blues"
("0 [2 . 2 <2!2 4 -2> 0]")
- 24) - 24)
# s "supersaw" # voice 0.01 # s "supersaw" # voice 0.01
# sustain "0.75 . 0.25 0.5" # sustain "0.75 . 0.25 0.5"
......
live/chill/break_toys.tidal 0 → 100644
-- Break Toys: Breakbeat + random toys/noise
-- Tags:
-- Ready: 5/10
do
unsolo 1 -- kick
unsolo 2 -- snares pistols
unsolo 3 -- toys broken
unsolo 4 -- arpy
unsolo 5 -- choirs
unsolo 6 -- glitchs
let gBreak = 0.75
let gChoir = 0.8 * "<0!32 1!32>"
setcps 0.3
d1 -- Breakbeat
$ superimpose (-- BEAT
const $ note "0*<1!4 2 4> ~ ~ 0(<1 <2 3>>,8)"
# s "kick:5" # cut 1
# gain 0.85
# lpf 200
# pan 0.48
)
$ slice 8 (
whenmod 16 12 -- Pont 12
(|> "0 <~ 1!3> 2 ~ ~ ~ 6? ~")
$ whenmod 4 3 -- Pont frequent
(|> "0 1 2 3 4!4")
"0*<1 <2!3 4>> 1 2 <3 5> 4 5 <6 4> 7") $ s "break"
# gain gBreak
d2 -- Snares contretemps pistolets
$ 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.75
d3 -- Toys broken
$ often ((# squiz "[2|3|4|5|8]") . (|- gain 0.1))
$ loopAt (range 0.5 2 rand)
$ almostNever (# crush 6)
$ s "toys/4" # n (irand 13)
# cut 3
# gain 0.6
d4 -- Lead arpyano
$ superimpose (
(stut 4 0.7 (1/24))
. (arp "<up!2 thumbup pinkyup>")
. (# room 0.15)
. (# gain 1)
)
$ off 0.25 (|+ "<5!3 12>")
$ note ("<c4'six d4'min e4'six f4'maj>")
# s "arpy"
# gain 0.75
# attack 1
d5 -- Choir
$ often (superimpose (bite 4 "2*4"))
$ superimpose ((|+ note "c'maj")
. arp (slow 4 "<converge disconverge>")
)
$ note ("<c4 d4 e4 f4>" + "[0,-12]")
# s "moogBass"
# gain gChoir
d6 -- Glitchs randomises carres
$ often (stut' "[4|8]" 0.125 ((# crush 8) . (|* gain 0.9)))
$ s "~ glitch" # n (irand 8) # gain 0.7
live/chill/dub/mini_deconf.tidal 0 → 100644
-- Part 2 : Transe dub
do
setcps (60/60/2)
d1 -- Kick techno (mask 4) / trance (mask 12)
-- TODO: at 12, not really transe yet
$ mask "t(1,12)"
$ whenmod 64 32 (|> n "[0 0 <0 ~>]*4")
$ s "k!3 . k <k ~> k . k!3 . k k <k!4 ~ ~ k k ~ k>"
# s "jazz"
# gain 0.6
# lpf (slow 8 $ range 50 15000 sine)
d2 -- Hitrolls
$ every 3 (fast 2)
$ s "hh(<1 <3 5>>,8)"
# gain 0.75
# pan ("<0.5!3 [0.25|0.75]*1>")
# lpf ((slow 19 $ range 2 20 sine) * 1000)
d3 -- Bassline
-- $ superimpose (fast 2 . (# crush 6))
$ note (
slowcat [
"0 3 5 ~ <~ 5> <5 ~> 5 ~",
"<5 ~> <~ 5> 5 5 <3!3 8> ~ <3!7 7> ~"
]
)
|- note 24
# s "supersaw"
# voice 0.2
# pan 0.6
# gain 0.3
d4 -- guitare pompe
$ whenmod 64 48 (degradeBy "<0.5!8 0.4!4 0.2!2 0.1 0>")
$ note ("~ <5 3 3 5 5 3 5 5>") # s "supermandolin" # gain 0.6
# room (slow 100 $ range 0 1 saw) # dry 1 # sz "<0.1 0.9 0.9 0.1>"
# lpf (slow 16 $ range 200 20000 sine)
d5 -- Toms
$ someCyclesBy "<0.25 0.75>" (
(slow 4) . (stut 4 0.95 (1/16))
)
$ someCycles (off 0.25 id)
$ degradeBy (slow 8 $ "<1 [0.75 . 0.5 0] 0>")
$ stack [
"808lt*3" # n "<0!2 1>",
"808ht:2*<4!4 <[8 3] [8 5]>>" # n "0 2"
]
# gain 0.45
# room (slow 16 $ range 0.2 0.8 saw)
# sz 0.8 # dry 0.8
# pan (slow 64 $ range 0.3 0.8 sine)
# delay 0.5
once $ note "0 1 [~ 2] 2 2 . 2*2 1 0 [~ 0]"
# s "bass3" # gain 0.7
live/dnb/meth.tidal
setcps 0.6 once $ s "bogdan:10" # gain 0.9 # begin 0.5 # end 0.75
once $ s "methbass:2" # gain 0.6 do
solo 1 -- DNB
solo 2 -- Comete
solo 3 -- Alerte pont 16/24
solo 4 -- Nappes regulieres, pont: part en echo
solo 5 -- Hihats noise sec
solo 6
do
unsolo 1 -- DNB
unsolo 2 -- Comete
unsolo 3 -- Alerte pont 16/24
unsolo 4 -- Nappes regulieres, pont: part en echo
unsolo 5 -- Hihats noise sec
unsolo 6
-- Meth DNB: J'ai toujours préféré ta cuisine maison <3 -- Meth DNB: J'ai toujours préféré ta cuisine maison <3
do do
setcps (165/60/4)
let gDNB = 0.45
let gCom = 0.55
let gAlert = 0.25
let gNappes = "<0.8 0.9 1.0 0.9>"
let gHats = 0.45
let gGuit = 1.4
let melody = "<<0 <2 4>>!2>" let melody = "<<0 <2 4>>!2>"
-- Rythme DNB -- Rythme DNB
d1 d1
$ whenmod 24 20 (|> gain 0.3) -- $ whenmod 24 18 (# gain 0)
$ whenmod 24 18 (|> gain 0.2) -- $ whenmod 24 17 (|- gain 0.05)
$ whenmod 24 16 (|> gain 0) -- $ whenmod 24 16 (|- gain 0.05)
$ fix (# s "sn:5") (s "s") $ fix (# s "sn:5") (s "s")
$ fix (# s "[kick:1]") (s "k") $ fix (# s "[kick:1]") (s "k")
$ superimpose (# s "bd") $ superimpose (# s "bd")
$ every 4 ( sometimesBy "0 0.25" (fast 2)) -- Double s(1,4) $ every 4 ( sometimesBy "0 0.25" (fast 2)) -- Double s(1,4)
$ s "k ~ s ~ ~ k s <~!3 s>" $ s "k ~ s ~ ~ k s <~!3 s>"
# gain 0.7 # gain gDNB
# pan 0.3 # pan 0.3
-- Lead: Comete! -- Lead: Comete!
d2 d2
$ whenmod 24 16 (|> gain 0) -- $ whenmod 24 16 (|> gain 0)
$ "methbass:10" $ "methbass:10"
# gain (slow 16 $ range 0.4 0.55 sine) # gain (slow 60 $ range (gCom - 0.15) gCom sine)
# note (slow 2 $ "<0 0 2 2>") # note (slow 2 $ "<0 0 8 [8 10]>")
# hpf 500
-- Alerte! -- Alerte!
d3 d3
$ whenmod 24 16 (|+ gain 0.05) $ whenmod 24 16 (|+ gain 0.05)
$ whenmod 24 14 (|+ gain 0.1) $ whenmod 24 14 (|+ gain 0.1)
$ whenmod 24 15 (# gain 0.25) $ whenmod 24 15 (# gain gAlert)
$ chop 2 $ chop 2
$ s "~ methbass:4/2" $ s "~ methbass:4/2"
# note ("<0 -2>!2") # note ("<0 -2>!2")
# gain 0 # gain 0
-- Nappes intenses -- Nappes intenses
d4 d4
$ whenmod 24 20 (# gain (gNappes / 2))
$ whenmod 24 16 (# silence)
$ euclid ("2*<1 2 4 2>") 8 $ euclid ("2*<1 2 4 2>") 8
$ s "abstract:0" $ s "abstract:0"
# note ("<0 -2>!4") # note ("<0 -2>!4")
# gain 0.8 # cut 4 # gain gNappes
# cut 4
# release 4 -- Longueur echo pont 24
d5 -- noise hihat! d5 -- noise hihat!
-- $ whenmod 24 16 (hurry "[1|2]")
$ sometimes (# n 6) $ sometimes (# n 6)
$ "abstract:5(<[1|3|5] <4 [1|8]>>,8)" $ "abstract:5(<[1|3|5] <4 [1|8]>>,8)"
# cut 5 # cut 5
# gain (slow 20 $ range 0.3 0.6 sine) # room 0.2 # dry 2
# note (-4)
# gain (slow 20 $ range (gHats - 0.2) gHats sine)
# pan (slow 16 $ 1 - sine / 2) # pan (slow 16 $ 1 - sine / 2)
d6
$ sometimes (fast 4) -- Bacasable
d6 -- Guitare ploink insecte
$ sometimes (fast 2)
$ someCycles (slow 2) $ someCycles (slow 2)
$ arp "<down downup up updown>" $ arp "<down downup up updown>"
$ note (scale "aeolian" "c3'maj") $ note (scale "aeolian" "c4'maj")
# s "abstract:11" # cut 7 # gain 1 # end 0.1 # s "abstract:11"
# cut 7
# gain gGuit
# end 0.1
# pan (slow 16 $ sine / 2) # pan (slow 16 $ sine / 2)
live/dnb/moulin.tidal 0 → 100644
do
solo 1
solo 2
solo 3
solo 4
solo 5
setcps (110/60/4)
d1 --
$ fix ((# crush 8) . (# s "kicklinn")) (s "p")
$ fix ((# note (-8)) .(# s "snare:2")) (s "t")
$ s "p ~ t ~ ~ p t <~ <~ <~ t>>>"
# speed 1.1
# gain 1.2
d3
$ juxBy 0.2 ((# crush 4) . (# lpf 200))
$ fast "<12!3 4> <8!7 16>"
$ s "dr" # n "<0!3 [0 2]>"
# gain (slow 100 $ range 0.7 1.3 sine)
# room 0.2
d4 -- bass
$ sometimes (degradeBy "0 1 . 0.8 0.2")
$ bite 8 "0*2 1 <2 2*2> <3!4 4!4> <4!4 3!4> 5 6 7"
$ note
("<<0 3> <0 3> <0 -4> <0 -4>>" +
"0 7 ~ 0 6 7 6 3"
- 24
)
# s "supersaw"
# voice 0.01
# crush 4
# sustain 0.25
# gain (slow 64 $ range 0.9 0.5 sine)
d5 -- Clochettes
$ stut 4 0.25 0.9
$ note
("<<0 3> <0 3> <0 -4> <0 -4>>" +
"[0,3,6,7]"
- 24
)
# s "superfork"
# gain 1.2
live/dnb/vendredi_dnb.tidal
...@@ -62,7 +62,6 @@ $ note (-36) ...@@ -62,7 +62,6 @@ $ note (-36)
-- # s "defaultB" -- # s "defaultB"
--- Test echoue, peutetre du contenu? --- Test echoue, peutetre du contenu?
d1 d1
$ fix (# s "[kick:8,kick:9]") (s "p") $ fix (# s "[kick:8,kick:9]") (s "p")
-- $ s "bd ~ s ~ ~ bd s <~ s>" -- $ s "bd ~ s ~ ~ bd s <~ s>"
......
live/fusion/b2p.tidal 0 → 100644
setcps 0.5
unsolo 1
solo 9
unsolo 3
unsolo 8
d1 $ fast 2 $ s "dr"
do
solo 1 --
solo 2 -- Snare
solo 3 -- Drumroll
solo 4 -- Bass
solo 6 -- Choeurs
solo 8 -- Hihats
solo 9 -- Vibratinon
do
setcps (120/60/4)
d1
$ whenmod 32 31 (# gain 0.6)
$ whenmod 32 28 (# gain 0)
$ whenmod 32 24 (slow 2)
$ every' 4 3 (degradeBy "0.5 . 0.5 0")
$ s "k k k <k!3 k*2>" # "jazz"
# gain 0.6
# lpf (slow 16 $ range 2000 50 saw)
d2
$ s "~ <~!3 s?> . s <~ s>" # "snare:20" # gain 0.7
d8
$ whenmod 32 16 (degradeBy "0.5!16 0.2")
$ s "ho(3,8) hc*<<2 0> 3>" # cut 2 # n "[1|2|3]"
# gain 0.5
d3
$ fast "4 . <6 12>" $ s "drum:2" # gain 0.7
# pan (slow 8 $ range 0.2 0.8 sine)
d4 $ note (-24) # s "supersaw" # voice 0.01 # gain 0.4
d5
$ whenmod 64 32 (mask "t(1,8)")
$ superimpose (
(fast "8 16") .
(mask "t(1,16)") . (|+ note 12)
)
$ stut 4 (slow 4 "0.9") (1/16)
$ arp "[down,up]"
$ note ("<f4'min g4'maj d4'min f4'maj>")
# s "superpiano"
# velocity 0.3
d6
$ superimpose (|+ note 12)
$ note ("<<f4'min!4 f5'min!4> g4'maj d4'min f4'maj>")
# s "moogBass" # gain 0.75
d8 -- vibration montante!
$ superimpose (|+ note 5)
$ every' 4 "<0 1 2 3>" (someCycles rev)
$ sound "bd"
# note "0 <12 -12>"
>| speed (
segment 64
$ range "<0!4 9!4>" 5 saw
)
# gain 0.55
# pan 1
# legato 2
live/fusion/camille.tidal 0 → 100644
do
let bpm = 120
setcps (bpm/60/4)
d1 -- KICK
$ whenmod 16 14 (# silence)
$ slow "<1!8 2!8>"
$ s "k k k <k k*2>"
# s "popkick"
# lpf (slow 10 $ range 50 1500 sine)
# gain 0.85
d2 -- Drumroll
$ whenmod 64 48 (fast 2)
$ whenmod 64 32 degrade
$ whenmod 64 16 (fast 2)
$ whenmod 64 0 (slow 2)
$ fast "<<4!4 8!2 16!2> 8> <8 16>" $ s "dr"
# speed (slow 8 $ "<0.25 0.5 0.75>")
# pan "[0 1]*4"
# gain 0.7
d4 -- Piano/ TODO: synthe
$ whenmod 8 7 rev
$ off ("<1 2>"/24) id
$ note (scale "major"
"<0 1 2 3>(<4!3 8!3>,8)"
+ "c'maj")
# s "superpiano" # velocity 0.2
d8 -- Choeurs
$ note (scale "major"
"[<0 1 2 3>!3 <7 6 5 4>]"
+ "<0!4 [0, 12]!4>" - 12
)
# s "moogBass" # gain 0.8
--A
d5
$ whenmod 4 3 (fast 2)
$ s "~ ~ ~ clap:3"
# gain 0.7
d6
$ mask "t(<1!2 2!2 4!2>,4)"
$ jux rev
$ note ("0(<3!4 5!4>,8)" + (slow 4 $ "<0 2 5 7 12!4>")
-24)
# s "supersaw"
# voice 0.1
# gain 0.5
d1 $ fast (irand 16) $ s "dr"
-- Attente!
do
setcps (120/60/4)
d1 $ s "k ~ k <k!3 k*2>" # "jazz" # gain 0.6
d2 $ s "~ sn" # s "electro1" # gain 0.7
d3 $ fast (slow 16 "<4 8>") $ s "drum:8" # gain 0.8
d4
$ note (scale "major"
"[0, 5, 9]"
)
# s "bassWarsaw"
# gain 0.7
live/fusion/crapeau_russe.tidal
do do
solo 1 solo 1
solo 2
solo 3 solo 3
solo 4 solo 4
solo 5 solo 5
solo 6 unsolo 6
solo 7 solo 7
-- Le crapeau russe -- Le crapeau russe
do do
setcps (120/60/4) setcps (120/60/4)
d1 -- Kick techno regulier variations filtre d1 -- Kick techno regulier variations filtre
$ whenmod 32 24 (<| n "0*2") -- $ whenmod 32 24 (<| n "0*2")
$ whenmod 32 16 (<| n "0") -- $ whenmod 32 16 (<| n "0")
$ s "k(<4!3 [4 8 8 4!3]>,4)" # s "jazz" $ s "k(<4!3 [4 8 8 4!3]>,4)" # s "jazz"
# lpf (slow 64 $ range 40 400 sine) # lpf (slow 64 $ range 40 400 sine)
# gain 0.8 # gain 0.5
d3 -- Les snares bogdanesques d3 -- Les snares bogdanesques
$ fast 4 $ fast 4
$ "~ <h!3 h*2>" $ "~ <h!3 h*2>"
# s "bogdan:1" # s "bogdan:1"
# cut 3 # gain 0.8 # cut 3 # gain 0.8
d4 -- begaye! d4 -- begaye!
$ someCyclesBy 0.8 $ someCyclesBy 0.2
(# gain 0) (# gain 0)
$ rarely (# lpf 3000) $ rarely (# lpf 3000)
$ often (# hpf 1500) $ often (# hpf 1500)
...@@ -32,18 +34,20 @@ do ...@@ -32,18 +34,20 @@ do
# cut 4 # cut 4
# room 0.4 # room 0.4
# size 0.5 # size 0.5
# gain 0.7 # gain 0.8
d5 -- Electric Bassline TODO Variations d5 -- Electric Bassline TODO Variations
$ note (scale "aeolian" ( $ note (scale "aeolian" (
"0 1 0 1 0 1 2 3" "0 1 0 1 0 1 <2 3> <2 -2>"
) )
- 24 - 24
) )
# s "supersquare" # voice 0.1 # gain 0.5 # s "supersquare" # voice 0.1 # gain 0.7
d6 -- Le crapeau! d6 -- Le crapeau!
$ someCyclesBy 0.1 (# gain 0.6) $ someCyclesBy 0.2 (# gain 0.7)
$ loopAt 0.5 $ striate 4 $ sound "bogdan:2" $ loopAt "<0.5!7 0.125>" $ striate 4
# cut 7 # gain 0 $ sound "bogdan:2"
# cut 7
# gain 0
# pan rand # pan rand
d7 -- TODO : ?? d7 -- TODO : ??
$ slow 2 $ loopAt 2 $ slow 2 $ loopAt 2
......
live/fusion/doux.tidal 0 → 100644
-- Doux ? sombre basse
do
setcps (120/60/4)
d1
$ s "k k <k!3 ~> <k!3 k*2>"
# s "jazz"
# gain 0.8
# lpf (slow 16 $ range 2000 500 sine)
d2 -- drumroll
$ fast "8 [16 . 32 [8 16]]" $ s "drum:2"
# gain (slow 64 $ range 0.8 0.9 cosine)
# room 0.48 # sz 0.5
d3
$ sometimesBy (slow 4 $ "<0 0.2 0.3 0.5>") degrade
$ jux (fast 2)
$ note (
whenmod 16 8 (12 - ) -- renversement
"0 0 0 2" + -- melodie
"c3'maj" + -- accord de base
"<0!3 12>" -- variation octave
)
# s "f(<3!3 <4 8>>,8)" # s "superfork"
# pan 1
# gain 0.9
d4 -- Basse
$ note ("[0, <3!3 7!3>(3,8)]"
- 24
)
# s "supersaw"
# voice 0.1
# gain 0.8
# pan 0
live/fusion/you_may.tidal
...@@ -35,6 +35,7 @@ do ...@@ -35,6 +35,7 @@ do
# s "bassWarsaw" # s "bassWarsaw"
# gain 0.65 # gain 0.65
# sustain "1 . <0.5 0.25> 0.25" # sustain "1 . <0.5 0.25> 0.25"
d5 -- Piano lead d5 -- Piano lead
-- $ superimpose (arp "down") -- $ superimpose (arp "down")
$ note ( $ note (
......
live/hip/jerem.tidal 0 → 100644
setcps (100/60/4)
do
d1 -- Kick
$ whenmod 16 10 ( -- Pont
# silence)
$ every' 4 3 (fast 2)
$ "k . k ~ k?" # s "reverbkick"
# hpf 150
# gain 0.7
d2
$ whenmod 16 8 (slow 2)
$ whenmod 16 0 (slow 2)
$ s "~ s" # s "snare:10"
# gain (slow 64 $ range 0.5 0.6 cosine)
d3 -- Drumroll
$ whenmod 16 10 (ply "<2 4>")
$ fast "<8!3 <16 [16 8]>>" $ s "drum:8"
# gain (slow 64 $ range 0.5 0.9 sine)
d4
$ slow 2
$ slice 8 "<0 1 <2 4> <3 5>>*8"
$ s "bsguitar:4"
# cut 1 # gain 0.7
d5
$ often (superimpose (arpeggiate))
$ note ("<c5'maj c5'maj c5'min c5'maj>")
# s "superpiano" # velocity 0.6
d3
$ fast 2
$ fast 4 $ s "dr"
live/techno/accel.tidal
d1 -- Kick -- Accel: get faster, yet calmer
$ whenmod 8 6 (# silence) -- Tags: Techno, dark bass, synthe, sirenes
$ fast (slow 8 $ "<1 [1 2] 2 [2 1]>") -- Ready: 7/10 (Melody+, Variations=, Parts=)
$ fast 2
$ n "0"
# s "kick:5"
d2 -- Snares + hats -- region Part 1: setup accel vivant
$ superimpose (const do
$ sometimes (# crush 4) unsolo 1 -- kick
unsolo 2 -- snare
solo 3 -- drumroll
solo 4 -- bass
solo 5 -- siren
unsolo 6 -- clap
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 gKick = 0.8 * mKick -- /128 On off semi-onon fadeout
let gSnare = 0.65
let gHats = 0.7
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 gSynth = 0.55 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>"
let gClap = 0.8
let melody = "<0 0 0 0 2 2 4 -2>"
setcps 0.5 -- TECHNOOO
d1 -- Kick
$ whenmod 16 14 (# silence) -- break frequent
$ n "0 0 <0!3 0?> 0"
# s "kick:5"
# gain gKick
# lpf (slow 16 $ range 500 200 isaw)
d2 -- Snares + hats
$ sometimesBy "0 0.25 . 0.5" (juxBy 0.25 rev)
$ whenmod 64 16 ( -- Hats!
superimpose (const
$ whenmod 64 48 (-- disparition
# gain (gHats * range 0.8 0.2 sine)
)
$ sometimes (# room 0.2)
$ sometimes (fast 2) $ sometimes (fast 2)
$ euclid (slow 4 $ "<5 7 8>") 8 $ euclid (slow 4 $ "<5 7 8>") 8
$ s "linnhats" # n (slow 2 $ "<0 1 [2 0]>")) $ s "linnhats" # n (slow 2 $ "<0 1 [2 0]>")
$ n "~ <3 3 [3 ~ 3 2] 3> ~ [2 <~ 3?>]" # gain gHats
# s "sn" ))
$ n "~ <3 3 [3 ~ 3 2] 3> ~ [2 <~ 3?>]"
# s "sn"
# pan (slow 8 $ range 0.3 0.6 sine)
# dry 1
# gain gSnare
d3 -- Drumroll chuchoté
$ every' 4 3 (juxBy 0.25 (|- gain 0.2))
$ fast ( -- cycle/4 ralenti-accelere
slow 4 $ "<1 [0.5 2] [2 0.5 1 2] [1 0.5 2]>"
)
$ s "dr*8"
# s "ifdrums:1"
# pan 0.4
# gain 0.9
d4 -- Basse
$ superimpose ( -- Echo octave
(|+ note 12)
. (|- gain 0.2)
. (# room 0.5)
)
$ note (scale "aeolian"
(
whenmod 16 8 (iter 6)
"0 [4 5] 0"
+ melody
) - 36)
# s "supersaw"
# voice 0.1
# gain gBass
d5 -- Siren theme
$ whenmod 128 64 (# gain (gSiren))
$ slow 2
$ note (scale "aeolian"
(
melody
) - 36)
# s "supersiren"
# sustain 4
# gain 0
d6 -- claps graduels sur 64
$ whenmod 64 48 (>| n "~ 0*2 ~ 0*2")
$ whenmod 64 40 (>| n "~ 0?*2 ~ 0?*2")
$ whenmod 64 32 (>| n "~ 0 ~ 0*2")
$ whenmod 64 0 (>| n "~")
$ whenmod 16 13 (# note "<2 4 6>")
$ n "~ ~ ~ 0"
# s "clap:1"
# gain gClap
# lpf 4000
d7 -- synthe echos electrique
$ superimpose (
(# s "supercomparator") .
(# voice (slow 64 $ sine * 8)) . (|- note 12)
)
$ whenmod 16 8 (sometimes (juxBy 0.4 (|+ note 12))) -- jux eclairs!
$ degradeBy "<1 1 1 0> <[1 1 1 0] [1 0] 0>"
$ n "0*16"
# voice "0.1"
# s "supersquare"
# note (scale "aeolian"
"<0 0 0 0 2 2 4 -2>")
# gain gSynth
d3 -- Drumroll -- endregion
$ fast (slow 4 $ "<1 [0.5 2] 2 [1 0.5 2]>")
$ sometimesBy "0 0 0 <0 [0|1]>" (# n 2)
$ s "dr*8"
# s "ifdrums:1"
# pan 0
-- region Part 2: Dry Melancholia
do
solo 1 -- kick
solo 2 -- snare
solo 3 -- drumroll
solo 4 -- bass
solo 5 -- siren
solo 6 -- clap
solo 7 -- synth
let gKick = 0.8 -- /128 On off semi-onon fadeout
let gSnare = 0.65
let gHats = 0.7
let gBass = 0.7
let gSiren = 0.6
let gSynth = 0.55 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>"
let gClap = 0.8
let melody = "<0 0 0 0 2 2 4 -2>"
setcps 0.5 -- TECHNOOO
d1 -- Kick
$ whenmod 16 14 (# silence) -- break frequent
$ n "0 0 <0!3 0?> 0"
# s "kick:5"
# gain gKick
# lpf (slow 16 $ range 500 200 isaw)
d2 -- Snares + hats
$ n "~ <3*2 3(<1 3>,8) 3 [3 ~ 3 2]> ~ [2 <~ 3?>]"
# s "sn"
# pan (slow 8 $ range 0.3 0.6 sine)
# dry 1
# gain gSnare
d3 -- Drum metronome chuchoté parfois fou
$ someCyclesBy "<0 0.5!2 0.75>" (fast "<2 2 2 [2|4]>")
$ s "dr*4"
# s "ifdrums:1"
# pan 0.4
# gain 0.9
# room (slow 16 $ range 0 0.15 saw)
d4 -- Basse d4 -- Basse
$ note (scale "aeolian" $ superimpose ( -- Echo octave
( (|+ note 12)
whenmod 16 8 (iter 6) . (|- gain 0.2)
"0 [4 5] 0" . (# room 0.5)
+ "<0 0 0 0 2 2 4 -2>" )
+ "<<0 0 7 7> 7>") - 36) $ note (scale "aeolian"
# s "supersaw" (
# voice 0.1 "0(2,8) [5 4]*<1!3 2> <0!4 2 5>"
+ melody
) - 36)
# s "supersaw"
# voice 0.1
# gain gBass
d5 -- Siren choppee
$ mask "t(1,4,3)"
$ segment 4
$ slow 2
$ note (scale "aeolian"
(
melody
) - 36)
# s "supersiren"
# sustain 4
# gain gSiren
# cut 5
d5 -- Siren theme -- endregion
$ whenmod 128 64 (# gain 1)
$ s "s/2"
# s "supersiren"
# note (scale "aeolian"
(iter 1 $ "0 [4 5] 0"
+ "<0 0 0 0 2 2 4 -2>"
+ "<<0 0 7 7> 7>") - 36)
# gain 0
d6 -- claps graduels sur 64 -- region Part 3: Folie
$ whenmod 16 13 (# note "<2 4 8>") do
$ whenmod 64 48 (>| n "~ 0*2 ~ 0*2") solo 1 -- kick
$ whenmod 64 32 (>| n "~ 0?*2 ~ 0?*2") solo 2 -- snare
$ whenmod 64 16 (>| n "~ 0 ~ 0*2") unsolo 3 -- drumroll
$ whenmod 64 8 (>| n "~ 0? ~ 0") solo 4 -- bass
$ n "~ ~ ~ 0" solo 5 -- siren
# s "clap:1" solo 6 -- clap
solo 7 -- synth
let gKick = 0.8 -- /128 On off semi-onon fadeout
let gSnare = 0.65
let gHats = 0.7
let gBass = 0.7
let gSiren = "<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 gClap = 0.8
let melody = "<0 0 0 0 2 2 4 -2>"
setcps 0.5 -- TECHNOOO
d1 -- Kick
$ whenmod 16 14 (# silence) -- break frequent
$ n "0 0 <0!3 0?> 0"
# s "kick:5"
# gain gKick
# lpf (slow 16 $ range 500 200 isaw)
d2 -- Snares + hats
$ n "~ <3*2 3(<1 3>,8) 3 [3 ~ 3 2]> ~ [2 <~ 3?>]"
# s "sn"
# pan (slow 8 $ range 0.3 0.6 sine)
# dry 1
# gain gSnare
d3 -- Drum metronome chuchoté parfois fou
$ someCyclesBy "<0 0.5!2 0.75>" (fast "<2 2 2 [2|4]>")
$ s "dr*4"
# s "ifdrums:1"
# pan 0.4
# gain 0.9
# room (slow 16 $ range 0 0.15 saw)
d4 -- Basse
$ superimpose ( -- Echo octave
(|+ note 12)
. (|- gain 0.2)
. (# room 0.5)
)
$ note (scale "aeolian"
(
"0(2,8) [5 4]*<1!3 2> <0!4 2 5>"
+ melody
) - 36)
# s "supersaw"
# voice 0.1
# gain gBass
d5 -- Siren choppee
$ segment "<2!4 4!2 8!2>"
$ slow 2
$ note (scale "aeolian"
(
melody
) - 36)
# s "supersiren"
# sustain 4
# gain 0.8
# cut 5
d7 -- synthe fou d7 -- synthe echos electrique
$ superimpose ( $ superimpose (
(# s "supercomparator") . (# voice (slow 64 $ sine * 8)) . (|- note 12) (# s "supercomparator") .
(# voice (slow 64 $ sine * 8)) . (|- note 12)
) )
$ whenmod 16 8 (sometimes (jux (|+ note 12))) -- jux eclairs! $ whenmod 16 8 (sometimes (juxBy 0.4 (|+ note 12))) -- jux eclairs!
$ whenmod 16 0 (# gain 0.9) $ n "0*12"
$ degradeBy "<1 1 1 0> <[1 1 1 0] [1 0] 0>"
$ n "0*16"
# voice "0.1" # voice "0.1"
# s "supersquare" # s "supersquare"
# note (scale "aeolian" # note (scale "aeolian"
"<0 0 0 0 2 2 4 -2>") "<0 0 0 0 2 2 4 -2>" + "[0 <1!3 3>]")
# gain 0 # gain gSynth
-- endregion
-- region Part 4: Résolution
do
solo 1 -- kick
solo 2 -- snare
solo 3 -- drumroll
solo 4 -- bass
solo 5 -- siren
unsolo 6 -- clap
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 gKick = 0.75 * mKick -- /128 On off semi-onon fadeout
let gSnare = 0.65
let gHats = 0.7
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 gSynth = 0.55 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>"
let gClap = 0.8
let melody = "<0 0 0 0 2 2 4 -2>"
setcps 0.5 -- TECHNOOO
d1 -- Kick
$ whenmod 16 14 (# silence) -- break frequent
$ n "0 0 <0!3 0?> 0"
# s "kick:5"
# gain gKick
# lpf (slow 16 $ range 500 200 isaw)
d2 -- Snares + hats
$ sometimesBy "0 0.25 . 0.5" (juxBy 0.25 rev)
$ whenmod 64 16 ( -- Hats!
superimpose (const
$ whenmod 64 48 (-- disparition
# gain (gHats * range 0.8 0.2 sine)
)
$ sometimes (# room 0.2)
$ sometimes (fast 2)
$ euclid (slow 4 $ "<5 7 8>") 8
$ s "linnhats" # n (slow 2 $ "<0 1 [2 0]>")
# gain gHats
))
$ n "~ <3 3 [3 ~ 3 2] 3> ~ [2 <~ 3?>]"
# s "sn"
# pan (slow 8 $ range 0.3 0.6 sine)
# dry 1
# gain gSnare
d3 -- Drumroll chuchoté
$ every' 4 3 (juxBy 0.25 (|- gain 0.2))
$ fast ( -- cycle/4 ralenti-accelere
slow 4 $ "<1 [0.5 2] [2 0.5 1 2] [1 0.5 2]>"
)
$ s "dr*8"
# s "ifdrums:1"
# pan 0.4
# gain 0.9
d4 -- Basse
$ superimpose ( -- Echo octave
(|+ note 12)
. (|- gain 0.2)
. (# room 0.5)
)
$ note (scale "aeolian"
(
whenmod 16 8 (iter 6)
"0 4 0"
+ melody
) - 36)
# s "supersaw"
# voice 0.1
# gain gBass
d7 -- synthe echos electrique
$ superimpose (
(# s "supercomparator") .
(# voice (slow 64 $ sine * 8)) . (|- note 12)
)
$ whenmod 16 8 (sometimes (juxBy 0.4 (|+ note 12))) -- jux eclairs!
$ n "0*0"
# voice "0.1"
# s "supersquare"
# note (scale "aeolian"
"<0 0 0 0 2 2 4 -2>"
)
# gain gSynth
-- endregion
live/techno/blue_impro.tidal 0 → 100644
-- Blue Impro: Techno piano blues impro
-- Tags:
-- Ready: 4/10
do
solo 1
solo 2
solo 3
solo 4
setcps (130/60/4)
let scale = getScale (scaleTable ++ [("blues", [0, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12])])
d1
$ whenmod 16 12 (# silence)
$ whenmod 8 6 (# silence)
$ note "0 0 0 -2" # s "kick:5"
# gain 0.45
# lpf (slow 8 $ range 20 2000 rand)
d2 -- Les hats de gretscha
$ (# cut 2) . (# pan 0.6)
$ whenmod 32 16 (-- break!
const $ mask "t(<0!16 1!4 2!4 6!4 8!4>,8)"
$ splice 8 "<0!3 4> 1 2 3 4 5 6 7" $ s "break:1"
# gain 0.6
)
$ n "<4!2 5!2>(<[5,1]!3 <8!3 1>>,8,[0,3])"
# s "gretsch"
# gain (slow 64 $ range 0.4 0.7 saw)
d3 -- Drumroll fantome
$ every' 4 3 (fast "<4!3 [4 8]>") . (|+ gain 0.1)
$ n "1*4" # s "ifdrums" # gain 0.6
d4
$ whenmod 64 48 (degradeBy "0 0.9")
$ whenmod 64 32 (someCyclesBy "0 0.5" (fast 2))
$ superimpose ( -- Main gauche!
off "[0.5,0.75?]" id
. stut "[4]" 0.75 (1/12)
. mask "t(1,8)"
. (|+ note ("[0, 12]" - 24))
. (|- velocity (range 0.1 0.25 rand))
. (# sustain 1)
. (# pan 0.35)
)
$ whenmod 8 6 (degrade . (# sustain 1))
$ rarely (off 0.125 (|- gain 0.15))
$ often (off "[0.375?,0.25]" (|- gain 0.1))
$ note (scale "blues" "[0|12] [1|5] <2 [6|7|8]>")
# s "superpiano" # velocity 0.5
# pan 0.4
# sustain "0.45 <0.5 0.25>"
# gain 0.8
live/techno/feeling_electric.tidal
...@@ -14,67 +14,65 @@ $ note ( ...@@ -14,67 +14,65 @@ $ note (
) )
) )
# s "bass3" # s "bass3"
# gain 0.8
d1 -- autre Basse do
$ whenmod 8 4 (|- n 2) d1 -- autre Basse
$ someCyclesBy 0.4 ((superimpose (|- 7)) . (|+ 7)) -- 2: matiere plastique $ whenmod 8 4 (|- n 2)
$ someCycles (off 0.25 (|- 7)) $ someCyclesBy 0.4 ((superimpose (|- 7)) . (|+ 7)) -- 2: matiere plastique
$ n (scale "major" "[0 0] ~ 1 0 1 1 0 0") $ someCycles (off 0.25 (|- 7))
|- 14 $ n (scale "major" "[0 0] ~ 1 0 1 1 0 0")
# s "subBass1" |- 14
# gain 0.9 # s "subBass1"
# gain 0.9
d2 -- hit roll
d2 -- hit roll $ sometimesBy "0 0.5" ((# gain 0.8) . (# s "dr:2"))
$ someCycles (# s "dr:2") -- $ someCycles (# s "dr:1")
$ someCycles (# s "dr:1") $ s "<hh*4 hh*4 hh*4 [hh*4 ~]>"
$ s "<hh*4 hh*4 hh*4 [hh*4 ~]>" # s "hh"
# s "hh" # release 0.5
# release 0.5 # gain 0.9
d3 -- claps
d3 -- claps $ whenmod 32 16 (degradeBy 0.2)
$ whenmod 32 16 (degradeBy 0.2) $ s "<[~ cp] [~ cp] [~ cp] [~ cp . cp ~]>"
$ s "<[~ cp] [~ cp] [~ cp] [~ cp . cp ~]>" # s "clap"
# s "clap" # gain (slow 32 $ range 0.5 0.8 saw)
# gain 1.1 d4 -- fork
$ whenmod 50 0 (# release "0.05")
$ superimpose (
(# s "supergong") . (# gain 0.5) . (# release 0.5))
$ s (cat [
"~ f f*2 ~"
, "f f ~ f"
, "f*2 ~ f f"
, "[f*4] ~"
])
# s "superfork" # n (scale "major" (-4))
# release 0.5
# gain 1.5
# gain (slow 64 $ range 1.5 0.6 isaw)
# pan 0.8
d5 -- kick
$ fast 2
$ every 4 degrade
$ s "kick:5"
# gain 0.9
d6 -- drums 80s
$ degrade
$ superimpose (# n 0) -- tick
$ fast 8 $ "electro1" # n (choose [1,2,2,2,3,3,3])
# gain (slow 64 $ range 0.5 1.1 saw)
d4 -- fork
$ whenmod 50 0 (# release "0.05,0.01 .. 0.5")
$ off 0 ((# s "supergong") . (# gain 0.5) . (# release 0.5))
$ s (cat [
"~ f f*2 ~"
, "f f ~ f"
, "f*2 ~ f f"
, "[f*4] ~"
])
# s "superfork" # n (scale "major" (-4))
# release 0.5
d5 -- kick
$ fast 2
-- $ fast "<2 4 2 2 1 0>"
$ every 4 (degrade)
-- $ s "kick:19"
$ s "kick:5"
d6 -- drums 80s
$ degrade
$ superimpose (# n 0) -- tick
$ fast 8 $ "electro1" # n (choose [1,2,2,2,3,3,3])
d7 -- lead orgue d7 -- lead orgue
$ degradeBy 0.4 $ degradeBy 0.4
$ rev $ rev
-- $ slow 2 $ degrade $ (|+ note 7) -- $ slow 2 $ degrade $ (|+ note 7)
$ sometimes (off "<0 0.125 0.25 0.25>" (# s "[organTonewheel0,organTonewheel4]") . (|- gain 0.1)) $ sometimes (off "<0 0.125 0.25 0.25>" (# s "[organTonewheel0,organTonewheel4]") . (|- gain 0.1))
-- $ superimpose (# s "organTonewheel2") $ superimpose (# s "organTonewheel2")
$ superimpose (# s "organTonewheel3") -- $ superimpose (# s "organTonewheel3")
$ chop "<2 4 4 8 8 2>" $ chop "<2 4 4 8 8 2>"
$ off (1/4) (|+ note "<5 7 3 0 5>") $ off (1/4) (|+ note "<5 7 3 0 5>")
$ note "-7" $ note "-7"
# gain 0.75 # gain 0.9
# room 0.8 # room 0.8 # dry 2 # size "<0,0.05 .. 0.3 0.3,0.05 .. 0>"
# dry 2
# size "<0,0.05 .. 0.3 0.3,0.05 .. 0>"
# s "organTonewheel1" # s "organTonewheel1"
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