Skip to content

T
Tidal
Unverified Commit 1ba3b87d by PLN (Algolia)
Options

sessions: omondi no more to cooldown

parent 62de6c14
Showing with 404 additions and 32 deletions
live/fusion/minuit.tidal 0 → 100644
resetCycles
-- TECHNOBASS Sypathique
-- Bim, DNB, sorry
-- TODO: Laisse tourner tes boucles!
do
let fxManual = (# crush (slow 16 $ range 16 4 saw))
let fxManual = (id)
let fxFilter = (whenmod 16 12 (# lpf ("<20 15 10 5>" * 1000)))
let dGlob = (fxFilter . fxManual)
setcps (150/60/4)
d1 -- Kick
$ dGlob
$ whenmod 128 64 ((# "snare") . (# n "[4,20]") . (# gain 0.65)) -- INVERSION KS
-- $ sometimes (mask "t [t|f]")
$ "k . ~ k ~ ~"
# "[jazz,kick:7]"
# gain 0.8
d2 -- Snare
$ sometimes (mask "t [t|f]")
$ dGlob
$ whenmod 128 64 (# "[jazz,kick:7]") -- INVERSION KS
$ fast 1 $ "~ . s <~!7 s>"
# "snare" # n "[4,20]"
# gain 0.6
# lpf 5000
d3
$ dGlob
$ whenmod 128 96 (|* gain 0.8)
$ whenmod 128 64 (slow 2)
$ someCycles (fast "2 1")
$ fast "<4 8 16>" $ "drum:8" # gain 0.7
d4
$ dGlob
$ whenmod 64 32 (mask "<t [t f]!3>")
$ whenmod 32 16 (degradeBy (slow 8 $ saw) . segment 16)
$ slice 4 (cat [
run 8,
"0 1 2 3 4!4",
run 8, run 8, run 8,
"<0!4 1!4 3!8>(5,8)"
])
$ "fbass"
# n "<42!14 41!2>"
# cut 2
# gain (slow 32 $ range 0.75 0.55 tri)
d5
$ dGlob
$ slow (slow 4 $ "<2 4>")
$ every' 8 7 (sometimes (# n 42))
$ degradeBy "<1!64 0.8!32 0.5!16 0.1!16>"
$ slice 4 "<0 ~ 0?!2> 1? <0 2> <1 3>"
$ "fguitar:43"
# cut 4
# gain 0.65
d6
$ superimpose (arp "updown downup" . ply 2 . (|+ note 12))
$ note ("<c'maj!3 c'min!4 c'maj>")
# s "superhoover"
# gain (slow 32 $ range 0.35 0.5 saw)
d5
$ note (scale "major" "<0!2 2 4 -2>")
# "supergong"
# accelerate (slow 32 $ "<1 -1>")
# octave 2
# gain 0.65
d7
$ segment (slow 8 "<1 <2 4>>") -- Light to tornado
-- $ sometimesBy "<0.75!3 0.1>" (arp "updown")
$ note ("<f e d <d!2 e f>>" + "c'maj'5")
# octave 5
# s "superpiano"
-- # velocity (slow 8 ("<0.8 <0.75 0.65>>" + 0.45)) -- TODO: Electric velocity
# gain 0.4
live/hip/instru/cooldown.tidal 0 → 100644
-- CoolDown piano Guitare :)
do
setcps (80/60/4)
d1
$ mask "<f!8 t!10 f!4>"
$ "k(<5!3 10>,16)"
# "[stomp:1,reverbkick,kick:5]"
# hpf 50 # lpf 12000 # gain 0.8
d2
$ whenmod 16 8 ( -- Solo guitare echo /4
fast "<2!4 1!4>")
$ splice 8 "0 1 2 3*<1!3 2>"
$ "fbonus" # gain 0.95
d3
$ whenmod 16 8 ( -- Solo guitare echo /4
|* gain "<0.8 0.7!2 0.8 1!4>")
$ slice 8 (
(cat [
"0 1 2 3", "4 5 6 7",
"0 1 2 3", "4 6 5 7",
"0 1 . 2(3,8)", "4 5*2 5*2 7",
"7 1 2 3", "4 6 5 0",
"0*<1 2> 1 <2 3> 3", "<4 5> <5 4> 6 7"
])
)
$ "fpiano:8"
# cut 2
# gain 0.8
d4
$ whenmod 128 64 (rev . chop 8)
$ whenmod 16 8 ( -- Solo guitare echo /4
# room "<0.8!4 0!4>"
)
$ bite 8 "0*<1 4 2 1 4 1 4 1 4 4 1 1>"
$ "fguitar:8"
# gain 0.7
# cut 4
live/hip/instru/guitar_roll.tidal
...@@ -2,13 +2,20 @@ resetCycles ...@@ -2,13 +2,20 @@ resetCycles
do do
setcps (80/60/4) setcps (80/60/4)
unsolo 1 -- Break + BEAT solo 1 -- Break + BEAT
unsolo 2 -- Contresnares solo 2 -- Contresnares
unsolo 3 -- Drumroll solo 3 -- Drumroll
unsolo 4 -- Guitare aigue background solo 4 -- Guitare aigue background
unsolo 5 -- Guitare med foreground solo 5 -- Guitare med foreground
solo 6 -- Piano conclusif solo 6 -- Piano conclusif
unsolo 8 -- Nappes solo 8 -- Nappes
let gKick = 0.8
let gBreak = (slow 4 $ range 0.8 0.9 perlin)
let gRoll = (slow 16 $ range 0.6 0.95 saw)
let gGuitA = 1.1
let gGuitG = 1.1
let gPiano = (slow 128 $ range 0.45 0.8 saw) -- x2 64/128
let gNappes = (0.5 * "<1!8 0.95 0.9 0.85 0.8>")
d1 -- Beat sautillant 3-5 d1 -- Beat sautillant 3-5
$ superimpose (const -- BREAKBEAT $ superimpose (const -- BREAKBEAT
$ whenmod 64 48 -- Part et revient $ whenmod 64 48 -- Part et revient
...@@ -20,36 +27,40 @@ do ...@@ -20,36 +27,40 @@ do
$ slice 4 ("0 1 <1!3 2> <1!4 3!4>") $ slice 4 ("0 1 <1!3 2> <1!4 3!4>")
$ "fbonus" $ "fbonus"
# n ("<0!12 1!4>") # n ("<0!12 1!4>")
# gain (slow 4 $ range 0.5 1.5 perlin) # gain gBreak
# cut 8 # cut 8
) )
$ whenmod 64 48 (mask "<f!31 t>") $ whenmod 64 48 (mask "<f!31 t>")
$ whenmod 16 12 (# lpf "<1000 750 500 250>") $ whenmod 16 12 (# lpf "<1000 750 500 250>")
$ s ("k . k(<3!3 5 3!3 5 3!3 [5 3] 7 6 5 [3 5]>,8)") $ every' 2 1 (sometimes (<| "k*4 . k(3,8)"))
$ s ("k . <[~ ~ ~ k] k(3,8)>")
# "[jazz,reverbkick]" # "[jazz,reverbkick]"
# lpf 2500 # release 0.5 # lpf 2500 # release 0.5
# gain 1.2 # gain gKick
# pan 0.45 # pan 0.45
d2 -- Contresnares d2 -- Contresnares
$ whenmod 64 32 (mask "<f!7 t>") $ whenmod 64 32 (mask "<f!7 t>")
$ fast "<2!3 4 2!3 4 2!3 4 [4 8] 8 [8 4] 8>" $ fast "<2!3 4 2!3 4 2!3 4 [4 8] 8 [8 4] 8>"
$ superimpose (# "sn:4") $ superimpose (# "sn:4")
$ s "~ s" $ s "~ <s!3 [~ s]>"
# "snare" # "snare"
# lpf 5000
# n "<2 [2|3] 2 [2|3|3]>" # n "<2 [2|3] 2 [2|3|3]>"
# gain 0.9 # gain (slow 4 $ range 0.6 0.9 perlin)
# pan 0.55 # pan 0.55
d3 d3
$ mask "<f!8 [t? t?]!4 [t t?]!4 t!16>"
$ whenmod 32 28 (degradeBy ("0 1!15" * (1))) $ whenmod 32 28 (degradeBy ("0 1!15" * (1)))
$ juxBy 0.75 (0.125 ~>) $ juxBy 0.75 (0.125 ~>)
$ fast ( $ fast (
"<1!8 2!6 4 [8 4]>" -- Accelera 16 "<1!8 2!6 4 [8 4]>" -- Accelera 16
* "1 <1 2 1 [2 1]>" * "1 <1 2 1 [2 1]>"
* "<4!28 2!3 [1 4]>" -- base 4 temps, ralentissement 32 * "<4!28 2!3 [1 4]>" -- base 4 temps, ralentissement 32
) $ s "d" # "drum:8" ) $ s "d" # "cpu:4"
# gain 1 # gain gRoll
# pan 0.4 # pan 0.4
d4 -- Guitare aigue background d4 -- Guitare aigue background
$ mask ("<t!64 [f t]!32 f!32>")
$ mask "<t!8 f!8 t!16>" -- Progressive guitar blending $ mask "<t!8 f!8 t!16>" -- Progressive guitar blending
$ slice 8 (cat [ $ slice 8 (cat [
"0 1 2 3", "0 1 2 3", "0 1 2 3*2", "0 1 2 3", "0 1 2 3", "0 1 2 3*2",
...@@ -62,8 +73,9 @@ do ...@@ -62,8 +73,9 @@ do
# hpf (slow 24 $ range 0 6000 saw) # hpf (slow 24 $ range 0 6000 saw)
# cut 4 # cut 4
# pan 0.7 # pan 0.7
# gain 0.8 # gain gGuitA
d5 -- Guitare grave background d5 -- Guitare grave background
$ mask ("<t!64 [t f]!32 f!32>")
$ mask "<f!8 t!8 t!16>" -- Progressive guitar blending $ mask "<f!8 t!8 t!16>" -- Progressive guitar blending
$ slice 4 ( $ slice 4 (
whenmod 32 16 (|>| "<0!4 1!4 2!4 3!4>(<3 4 6 7>,8)") $ whenmod 32 16 (|>| "<0!4 1!4 2!4 3!4>(<3 4 6 7>,8)") $
...@@ -75,7 +87,21 @@ do ...@@ -75,7 +87,21 @@ do
# djf (slow 32 $ range 0.4 0.8 isaw) # djf (slow 32 $ range 0.4 0.8 isaw)
# cut 5 # cut 5
# pan 0.35 # pan 0.35
# gain 1.2 # gain gGuitG
d6 -- Piano conclusif
$ mask (slow 64 "<f t>")
$ whenmod 64 48 (mask "t(5,8)" . ply 4)
$ whenmod 64 32 (whenmod 4 2 (mask "t t? t? f"))
$ someCyclesBy "<0!3 0.25>" ((ply 4) . (|* gain 0.65))
$ loopAt 2
$ slice 4 (cat [
"0 1 2 3", "0 1 2 3", "0 1 2 0", "0 1 2 3",
"0 1", "0 . 1 2", "0 1 0 3", "1 1 3 3"
])
$ "fpiano:10"
# gain gPiano
# cut 6
# pan 0.6
d8 -- Nappes synthetiques d8 -- Nappes synthetiques
$ jux id $ jux id
$ stut 2 "q" 0.95 $ stut 2 "q" 0.95
...@@ -87,17 +113,5 @@ do ...@@ -87,17 +113,5 @@ do
-- "[12 10 8 <6 5>]" -- Nanana -- "[12 10 8 <6 5>]" -- Nanana
+ "-12") + "-12")
# s "moog:2" # s "moog:2"
# gain (0.5 * "<1!8 0.95 0.9 0.85 0.8>") # gain gNappes
# legato "<0.8!7 0.4>" -- Nappage parfois parcimonieux # legato "<0.8!7 0.4>" -- Nappage parfois parcimonieux
d6 -- Piano conclusif
$ whenmod 64 48 (mask "t(5,8)" . ply 4)
$ whenmod 64 32 (ply "<2!3 4>")
$ loopAt 2
$ slice 4 (cat [
"0 1 2 3", "0 1 2 3", "0 1 2 0", "0 1 2 3",
"0 1", "0 . 1 2", "0 1 0 3", "1 1 3 3"
])
$ "fpiano:10"
# gain (slow 128 $ range 0.4 1.2 saw) -- x2 64/128
# cut 6
# pan 0.6
live/hip/instru/nu.tidal 0 → 100644
-- Nu: jazzy improvised instrumental
-- Tags: Hip-Hop, Melancholic, Piano
-- Ready:
do
setcps (90/60/4)
d1
$ whenmod 16 10 (# silence)
$ n "0 [1 ~ ~ <~!8 1!8>]" # "cpu2"
# gain 0.65
# lpf 3000
d2
$ mask "<f!4 t!8 f!2 t!6 f!4>"
$ someCycles (degradeBy "0 0.5!7" . fast 2)
$ someCycles (ply 2)
$ "~ ~ ~ sn" # "cpu:2" # gain 0.8
d3
$ mask "<f!8 t!16 f!8>"
$ whenmod 8 4 (# n "<3 4 [4 2] 2>")
$ "808mt(3,8,1)"
# n "<0 2>"
# gain (slow 8 $ range 0.45 0.65 sine)
d4
$ whenmod 16 8 (juxBy 0.25 id)
$ fast "<1!2 4 1 4!2 [4 8] 8 [16 . 8 16] [16 . 4 8]>"
$ "cpu:4"
# gain (slow 32 $ range 0.4 0.7 sine)
d5
$ note (scale "major" "<0!2 2 4 -2>")
# "supergong"
# accelerate (slow 32 $ "<1 -1>")
# octave 2
# gain 0.5
d6
$ note ("<f e d <d!2 e f>>")
# octave 3
# pan 0.4
# s "superpiano"
# velocity 0.45
d7
$ swing (slow 8 $ "<<2 4> 1>")
$ whenmod 32 16 (mask "t(<10 11 12 13 14 15 16!7 12 10>,16)")
$ ply 2
$ segment (slow 8 "<1 <2 4>>") -- Light to tornado
-- $ sometimesBy "<0.75!3 0.1>" (arp "updown")
$ note ("<f e d <d!2 e f>>" + "c'maj'5")
# octave 5
# pan 0.55
# pan 0.4
# s "superpiano"
-- # velocity (slow 8 ("<0.8 <0.75 0.65>>" + 0.45)) -- TODO: Electric velocity
# gain (slow 8 ("<1 <0.9 0.8>>" * 0.35))
-- SANDBOX
once $ note "e"
# s "superpiano"
# velocity 0.8
d8 -- Cuivre Lancinant
$ note "~ <<c5 e5> c5'min'2>/2"
# "brass:12"
# legato 2
# pan 0.7
# gain (slow 4 $ range 0.15 0.35 perlin)
live/noise/omondi_no_more.tidal 0 → 100644
resetCycles
do
let tilt = pF "tilt"
setcps (80/60/4)
solo 1 -- beat
solo 2 -- break
solo 4 -- Bass/tremolo aigu telephone
solo 5 -- Epiano féérique
unsolo 6 -- O?ONDI
solo 10 -- Noise phonique
d1
$ sometimesBy "0 0.25!6 0.5" (off "s" ((|* gain 0.9) . (# lpf 500)))
$ whenmod 16 8 (juxBy 0.5 rev)
$ n "0(<1!3 [1|3]>,8) . 0(<3!3 5>,8)"
# "[reverbkick,jazz]"
# lpf 5000
# gain 0.8
d2
$ juxBy 0.125 (# crush 5)
$ slice 4 (
whenmod 16 10 (<| "0*8") $
whenmod 16 8 (<| "0(5,8)")
"0 1*<1!6 2 4> 2 <1!3 3>"
)
$ loopAt "<1!14 2!2>" $ "break:1"
# gain 0.6
# cut 1
d4
$ whenmod 32 16 (superimpose (
arp "downup <down up>"
. ply 2 . fast "<2!3 [2 4]>"
. (# octave 7)
. (# gain 0.7)
))
$ note ("c3'maj <c3'maj!4 c3'min!2> <c3'maj!3 f3'maj>")
<| note "0*<4!2 5>"
# s "bassWarsaw"
# gain 0.75
d5
$ whenmod 64 32 (
segment "<1!3 0.5 1!3 0.5 1!3 0.5 1!3 0.5 1!3 2!3 4!2 8>"
)
$ whenmod 24 16 (fast "1 . <1!4 2!2 4 2>")
$ loopAt 2
$ "fepiano:11"
# cut 7
# gain 0.48
d6
$ often rev
$ slice 32 (
rev $ run (2 * 128 * 8)
-- run "<8 <16 32>>" -- Level up7
-- run 16 -- INTRO
)
$ (striate 32 $ s "bogdan:11")
|- begin "0.015"
|+ end "0.0015"
# tilt 0.5
# gain 0.8
d10
$ superimpose (const
-- $ superimpose ((|- octave (slow 4 $ "<1 2 3>"))
-- . (|* gain 0.5))
$ note "f5'maj . e5'maj(3,8)"
# "glitch:5"
# gain 0.5
)
$ fix (# gain 0.4) (n 2)
$ fix (# gain 0.5) (n 1)
$ n (stack ["1*4",
"~ 2(<1 [3|5]>,8)"
]) # "glitch" # pan (range 0.25 0.55 perlin)
live/techno/balais.tidal 0 → 100644
-- Balais metallique, menage en musique!
resetCycles
do
solo 1 -- Kick
solo 2 -- Claps
solo 3 -- Balais
solo 4 -- Space
solo 5 -- Basse
solo 6 -- Juno Metal !
let mKick = "<t [f!3 t] t!10 f!3 t>"
let mClaps = "<f!4 t!8 f!3 t>"
let mBalais = "<t!4 f [f t?] [t f?]!2 t!4 f!3 t>"
let mJuno = "t" -- "<f!8 t!16 [<f t> f . t]!4>"
let mel = "<c'maj!3 c'min c'min!3 c'maj>"
d1
$ mask mKick
$ fast "<2!2 4!14>"
$ "k" # "jazz" # gain 0.85
d2
$ mask mClaps
$ juxBy "0.4" ((1/64) ~>)
$ fast 2 $ s "~ clap"
# lpf 4000
# gain (slow 16 $ range 0.6 0.8 saw)
d3
$ mask mBalais
$ juxBy 0.35 rev
$ "b(3,8,<3!4 5!4>)" # "bend"
# dry 0.95 # sz 0.8 # room 0.9
# gain (slow 4 $ range 0.6 0.8 cosine)
d4
$ mask "<t f!3 t!2 f!2 t!6 f t>"
$ superimpose (
(stut' 4 (slow 4 $ "<h q e s>") (|* gain 0.9))
. (# octave 6)
)
$ note (mel)
# s "hoover"
# octave 4
# gain "<0.45!32 0.35!32>"
# pan 0.6
d5 -- Basse
$ note ("c'maj c'maj(<1 3>,<8 4>)" |+ mel)
# "supersaw"
# octave 3
# voice 0.1
# gain 0.35
# pan 0.3
d6
$ mask mJuno
$ whenmod 128 104 (# n 1)
$ whenmod 128 96 ((# n 8) . (|* gain 0.9)) -- Aigu
$ whenmod 128 80 (# n 7) -- METTALIZE
$ whenmod 128 64 (# n 4) -- Metallique
$ superimpose ((|- note 12) . (|* gain 0.9))
$ off "e" (|+ note "<0!4 7 5 3 0>")
$ note (scale "aeolian" "0 ~ 2 <4 5 4 3>")
# "juno:1"
# gain 0.55
# pan "<0.6!24 0.65 0.7 0.75!2 0.7 0.65 0.6>"
live/techno/funk/ant.tidal
...@@ -6,9 +6,10 @@ do ...@@ -6,9 +6,10 @@ do
setcps 0.5 setcps 0.5
unmute 1 -- Kick unmute 1 -- Kick
unmute 2 -- Contre-claps unmute 2 -- Contre-claps
unmute 3 -- unmute 3 -- Breakbeat
unmute 4 -- unmute 4 --
unmute 5 -- unmute 5 -- Gong
unmute 6 --
d1 d1
$ dGlob $ dGlob
$ whenmod 64 32 (slow "<4!16 2!16>") $ whenmod 64 32 (slow "<4!16 2!16>")
...@@ -17,6 +18,7 @@ do ...@@ -17,6 +18,7 @@ do
$ fast "<4!3 [4|2]>" $ fast "<4!3 [4|2]>"
$ s "[jazz,cpu2]" # gain 0.7 $ s "[jazz,cpu2]" # gain 0.7
d2 d2
$ mask "<t f>"
$ fast 2 $ fast 2
$ dGlob $ dGlob
$ "~ . <c!3 c*2>" # "clap" $ "~ . <c!3 c*2>" # "clap"
...@@ -30,7 +32,7 @@ do ...@@ -30,7 +32,7 @@ do
$ bite 8 "0 1 2 <3 5>(3,8)" $ bite 8 "0 1 2 <3 5>(3,8)"
$ loopAt 2 $ "break" $ loopAt 2 $ "break"
# cut 3 # cut 3
# gain 0.5 # gain 0.7
d4 -- Moog lead d4 -- Moog lead
$ dGlob $ dGlob
$ jux rev $ jux rev
...@@ -48,7 +50,7 @@ do ...@@ -48,7 +50,7 @@ do
# note (slow 4 $ "<c'maj c'min>") # note (slow 4 $ "<c'maj c'min>")
# octave (slow 8 $ "<4 5>") # octave (slow 8 $ "<4 5>")
# room 0.4 # sz 0.4 # room 0.4 # sz 0.4
# gain 0.55 # gain 0.5
d6 d6
$ dGlob $ dGlob
$ mask "t(<1!2 2!2 4!4 8!24>, 8)" $ mask "t(<1!2 2!2 4!4 8!24>, 8)"
......
live/techno/funk/bbass.tidal 0 → 100644
do
setcps 0.55
d1
$ whenmod 32 16 (mask "<f!8 [f|t]!4 t!4>")
$ juxBy 0.25 rev
$ slow "<1!4 2 4 8 8>"
$ "k k k k"
# "[jazz,techno]"
# gain 0.6
d2
$ every' 4 3 (often $ off "e" id)
$ "~ cp"
# gain (slow 16 $ range 0.5 0.9 saw)
# room 0.2
# dry 0.95
# lpf 2000
d3
$ whenmod 32 8 (degradeBy "0 0.5!6 0")
$ whenmod 32 28 (# djf "<0.4 0.5 0.6 0.8>")
$ juxBy 0.5 rev
$ "d(<1!3 [1|2]>,4) d(4,4)"
# "amencutup" # n "<4!4 5 6 7 4>"
# gain 0.65
d4
$ whenmod 128 64 (|* gain (slow 64 $ range 1 0.2 isaw))
$ slice 4 (cat
[
"<0!4 1 2 3 1!4 2!4 3!4 [0 1]!2 [1 2]!2 [2 3]!2 [3 0]!2>(<3 3 2 1>,8)"
]
)
$ loopAt 4 $ "fbass:42"
# cut 4
# gain 0.6
d5
$ note (scale "phrygian" "<0!4 7 0!3> <~ <3 5>>")
# n "0"
# "moog"
# gain 0.5
# cut 5
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