Skip to content

T
Tidal
Commit 0d801eab by PLN (Algolia)
Options

Live: Chic + Scintillance bleue

parent 81bc908c
Showing with 434 additions and 155 deletions
live/ambient/inquiry.tidal 0 → 100644
-- Broken down from LoFi's Pure Bliss Chord:
-- Amin11, D7, Fmaj7, Cmaj7
"<[a,c6,e6,g6,b6,d7] [fs,a,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,a6,c7] [c,e,g,b,e6,g6,b6]>"
resetCycles
do
setcps (90/60/4)
let gDJF1 = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.15 saw)))
let gDJF2 = (whenmod 64 32 (# djfbus 1 (slow 32 $ range 0.25 0.75 saw)))
let g = gDJF1 . gDJF2
d1 $ g $ "k ~ ~ <~ <k [~ k]>> . ~ <~ k> ~ ~" # "jazz" # gain 0.8
d2 $ g $ "~ sn:30" # gain 0.7
d3 $ g
$ fast 4
$ ply "<1!3 <2 [2|4]>>"
$ "drum:2"
# gain 0.5
d4 $ g
$ whenmod 16 12 (ply "<2 2 4 4>")
$ iter "1 8"
$ mask (slow 4 "<t(1,4) t(2,4) t(3,4) t>")
$ loopAt 2
$ "break:3"
# cut 4 # gain (slow 64 $ range 0.6 0.9 (saw + slow 4 perlin))
d5 $ g -- Low angels
$ note (
"<a fs f c>"
|+| "<0!8 [0 12]!8>"
- 12
)
# "moogBass"
# gain 0.4
# pan 0.2
# room 0.3
d6 $ g -- High angels
$ whenmod 32 58 (superimpose ( -- Higher arps!
(|+ note 12) . arp "<up!3 <down downup>>")
)
$ note (
"<[c6,e6, g6,b6] [a, c6, d6,fs6] [a, c6, e6,f6] [e, g, b,e6]>"
- 12
)
# "moogBass"
# gain 0.4
# pan 0.7
# room 0.3
live/ambient/scintillance_bleue.tidal 0 → 100644
once $ "dr"
do
resetCycles
setcps (90/60/4)
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = gDJF
d1 $ g
$ midiOn "^73" (fast 2)
$ midiBoth "^41" "^42" (struct "t t t <t <[~ t] t*2>>")
$ midiOn "^42" (struct "t*2")
$ "jazz"
# midiG' "^78" 0 1
d2 $ g
$ midiOn "^43" (superimpose (const
$ midiOn "^41" (fast 2)
$ "~ . c*<1!3 <2 1>> <~!7 [~ c]>" # "cp"
# note "-4!7 -2"
# lpf 4000
# midiG' "^79" 0 1.4
))
$ ply "<1!16 [2 1]!4 [2!3 1]!8 2!6 [4 1] [2 4]>"
$ n "[0 <0 1 2 3>]*2"
# "amencutup"
# midiG' "^79" 0 1.4
d3 $ g
$ midiOn "^43" (fast 2)
$ "d*<4 8 <4 8> <4!3 8>> d*<3 <4 6>> d*<2 3 4 3> d*[1 <1 2 4 8>]"
# "cpu:4"
# midiG' "^80" 0 1.8
d4 $ g
$ "90s_glassatm:3/4"
# cut 4
# crushbus 41 (range 16 3.5 "^55")
# midiG' "^83" 0 1
d5 $ g
$ stut' 4 "h" ((|* gain 0.6) . (|+ pan 0.05))
$ "90s_matrix:0/2"
# midiG' "^84" 0 1
# crushbus 51 (range 10 1.5 "^56")
# pan 0.7
d6 $ g
-- $ slow 2
$ fix (|* gain 0.93) (note "c6")
$ midiOn "^89" (fast 4)
-- $ note ("<c ef f fs c ef f c ef f fs f ef f ef c>") -- 1&2'
-- $ note ("<c6 bf5 g f fs f ef c c ef f ef ef f g c6>") -- 3&4
$ note ("<c ef f fs c ef f c ef f fs f ef f ef c c6 bf5 g f fs f ef c c ef f ef ef f g c6>") -- 1&2&3&4
# octave 2
# "supersaw"
# voice 0.01
# crushbus 61 (range 16 1.5 "^53")
# midiG' "^81" 0 1.3
live/collab/raph/el_diablo.tidal 0 → 100644
do
setcps (120/60/4)
let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let g1 = (gDJF1)
let g2 = (gDJF2)
d1 $ g1
$ midiOn "^42" (<| "k . k(<<3 1> 1 3 5>,8)")
$ midiOff "^42" (<| "k")
$ "[jazz,909]"
# midiG' "^78" 0 1.2
d2 $ g2 $ "~ snare:42"
# midiG' "^79" 0 1.2
d4 $ g1
$ midiOn "^44" (iter "1 4")
$ midiOn "^76" (ply 2)
$ slice 16 (run "8 <8!3 <[4 8] 4>>")
-- $ midiOn "^44" (loopAt 4)
$ loopAt 2
$ "break:1"
# cut 4
# midiG' "^80" 0 1
# octerbus 40 (range 0 1.2 "^52")
# octersubbus 41 (range 0 5 "^32")
# octersubsubbus 42 (range 0 5 "^16")
d5
$ g2
$ superimpose ( -- étoiles juxées
(|+ note 12)
. juxBy 0.8 (0.5 ~>)
. striate 8
-- . (|* gain 0.8)
)
$ stut 4 0.5 1
$ slow 4 $ "tristram"
# n "<0 1>"
# room 0.84 # sz 0.8 # dry 1
# midiG' "^82" 0 1
d6 $ g2
$ slice 4 "0 <1 ~> <2 [1 2]> [<3 ~> 3]"
$ note (arp "up" ((slow 4 "<a3 af3>") + "c'min'4"))
# "supersaw"
# lpf 3000
# voice 0.1
# midiG' "^81" 0 1
# crushbus 61 (range 16 3.2 "^53")
# room 0.4
-- La pub c'est le mitard
-- Et le prof me voyait
-- La cerise en retard
live/hip/instru/jardin_dhiver.tidal
-- Jardin d'hiver -- Jardin d'hiver
do do
resetCycles -- resetCycles
setcps (90/60/4) setcps (90/60/4)
let gLPF = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.15 0.8 saw))) let gLPF = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.15 0.8 saw)))
let gHPF = (whenmod 64 48 (# djfbus 2 (slow 8 $ range 0.5 0.8 saw))) let gHPF = (whenmod 64 48 (# djfbus 2 (slow 8 $ range 0.5 0.8 saw)))
......
live/jam/cbow.tidal
d1 $ slow 17 $ n (run 17) # "cbow" # gain 0.8 # cut 1 d1 $ slow 17 $ n (run 17) # "cbow" # gain 0.8 # cut 1
once $ "dr"
resetCycles resetCycles
-- P P T . P T -- P P T . P T
...@@ -9,22 +11,33 @@ let chord = "d4'min7'4" ...@@ -9,22 +11,33 @@ let chord = "d4'min7'4"
let gF = midiDJF "^49" 200 9800 0 2000 let gF = midiDJF "^49" 200 9800 0 2000
let gLeslie = ((# leslie "^29") . (# lsize (range 0 2.5 "^30")) .(# lrate 6.7)) let gLeslie = ((# leslie "^29") . (# lsize (range 0 2.5 "^30")) .(# lrate 6.7))
let gDJF = (whenmod 32 24 (# lpf (max 200 (slow 16 $ range 5000 0 sine)))) let gDJF = (whenmod 32 24 (# lpf (max 200 (slow 16 $ range 5000 0 sine))))
let g = gF . gLeslie let g = gF
setcps (100/60/4) setcps (100/60/4)
d1 $ gDJF $ g d1 $ gDJF $ g
$ midiOff "^41" (mask "<f f [t f] t t!28>") $ midiOff "^41" (mask "<f f [t f] t t!28>")
$ midiOn "^41" (<| "k*4" ) $ midiOn "^41" (<| "k*4")
$ midiOff "^41" (<| "k [~!6 <k!3 ~>] . k*2 ~" ) $ midiOff "^41" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
$ "[jazz,bd]" $ "[jazz,bd]"
# midiG' "^78" 0 0.75 # midiG' "^78" 0 1.1
d2 $ gDJF $ g d2 $ gDJF $ g -- Snare prog
$ fast "<0!4 0 [0 1] 1 1 0 [0 1] 1 1 [1 2] 1 2 4>" $ "~ <s!3 [~ s]> ~ <s!2 [~ s]!2>"
$ "~ s ~ s"
# "h2ogmsn:6" # "h2ogmsn:6"
# midiG' "^79" 0 0.8 # midiG' "^79" 0 0.8
d3 $ g -- Bass d5 $ g -- Breakbeat
$ midiOn "^76" (ply "<2!3 [4 <4 1>]>")
$ midiOff "^44" (slow "<4 2>")
$ sometimesBy "^32" rev
$ someCyclesBy (0.9 * "^52") (scramble "1 4")
$ slice 8 "0 1 <0 2 6 2> <1 3 7 3>"
$ loopAt 2
$ "fbreak100"
# cut 5
# midiG' "^80" 0 1.2
d3 $ g -- Bass bows
$ gDJF $ gDJF
$ gLeslie
$ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8) $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
$ midiOn "^89" (chop 16)
$ slow 4 $ slow 4
$ note ( $ note (
(arp "up <up!8 down!8>" chord)) (arp "up <up!8 down!8>" chord))
...@@ -33,9 +46,10 @@ d3 $ g -- Bass ...@@ -33,9 +46,10 @@ d3 $ g -- Bass
# cut 3 # cut 3
# room 0.6 # room 0.6
# sz 0.5 # sz 0.5
# midiG' "^81" 0 0.56 # midiG' "^81" 0 0.86
# crush (range 10 2 "^53") # crushbus 31 (range 10 2 "^53")
d4 $ g d4 $ g -- Higher bows
$ midiOn "^58" gLeslie
-- $ mask "<f!8 t!24>" -- $ mask "<f!8 t!24>"
$ whenmod 8 7 (ply "1 4") $ whenmod 8 7 (ply "1 4")
$ slow 2 $ slow 2
...@@ -46,27 +60,20 @@ d4 $ g ...@@ -46,27 +60,20 @@ d4 $ g
# "cbow:2" # "cbow:2"
# cut 4 # cut 4
# room 0.2 # room 0.2
# midiG' "^82" 0 0.4 # crushbus 41 (range 10 2 "^54")
d5 $ g -- Breakbeat # midiG' "^82" 0 1.05
$ midiOn "^76" (fast "<2!3 4>")
$ midiOff "^44" (slow "<4 2>")
$ sometimesBy "^32" rev
$ someCyclesBy (0.9 * "^52") (scramble "1 4")
$ slice 8 "0 1 <0 2 6 2> <1 3 7 3>"
$ loopAt 2
$ "fbreak100"
# cut 5
# midiG' "^80" 0 0.8
d8 $ g -- Angels d8 $ g -- Angels
$ midiOff "^59" (mask "<f!32 t!32>") $ midiOff "^59" (mask "<f!32 t!32>")
$ note "<[c . ~!3 <~ <d g4>>] a4>" $ note "<[c . ~!3 <~ <d g4>>] a4>"
# "cbow:3" # "cbow:3"
# cut 8 # cut 8
# midiG' "^83" 0 0.56 # crushbus 81 (range 10 2 "^55")
# midiG' "^83" 0 0.86
d4 d9
$ midiOn "^92" (ply "2 <1 <4 [4 8]>>")
$ midiOff "^60" (slow 2)
$ whenmod 32 16 (jux rev) $ whenmod 32 16 (jux rev)
$ "h2ogmcp(5,8,<0!3 [0 3]>)" $ "h2ogmcp(5,8,<0!3 [0 3]>)"
# gain 0.45 # midiG' "^84" 0 1.3
(5) h2ogmcb (5) h2ogmcp (1) h2ogmcy (25) h2ogmft (5) h2ogmhh (20) h2ogmht (5) h2ogmmt (5) h2ogmsn ( (5) h2ogmcb (5) h2ogmcp (1) h2ogmcy (25) h2ogmft (5) h2ogmhh (20) h2ogmht (5) h2ogmmt (5) h2ogmsn (
live/midi/nova/ambient/contre_visite.tidal
-- TODO: Add some spaceship fx -- TODO: Add some spaceship fx
-- TODO: Reconsider if enough rythmic variations what about a DROP? -- TODO: Reconsider if enough rythmic variations - what about a DROP?
do do
-- TODO TRIGGER INTRO -- TODO TRIGGER INTRO :)
-- resetCycles resetCycles
-- once $ "90s_synatm:8" # gain 0.84 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94 once $ "90s_synatm:8" # gain 0.94 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94
let g = (whenmod 64 32 (# djfbus 2 (slow 32 $ range 0.5 0.18 cosine))) let g = (whenmod 64 32 (# djfbus 2 (slow 32 $ range 0.5 0.18 cosine)))
let gF = 1.01 let gF = 1.01
let f = (# djfbus 1 (range 0.05 0.95 "^49")) let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let maskLoops = (mask "<t!4 [t!3 f]>" . mask "<t!14 f [f!3 t]>") let maskLoops = (mask "<t!4 [t!3 f]>" . mask "<t!14 f [f!3 t]>")
setcps (90/60/4) setcps (90/60/4)
d1 $ f -- TODO: Rework kick d1 $ f1 -- TODO: Rework kick
$ midiOn ("^42" - "^41") (slow 4) $ midiOn ("^42" - "^41") (slow 4) -- PAUSE
-- $ mask "<f!32 f!8 t!16 t f!6 [t f] t!64>" -- $ mask "<f!32 f!8 t!16 t f!6 [t f] t!64>"
$ midiOff "^41" (maskLoops) $ midiOff "^41" (maskLoops)
$ midiOn "^41" ((<| "k k k <k [<~ k> k]>") . (# legato 0.6)) $ midiOn "^41" ((<| "k k k <k [<~ k> k]>") . (# legato 0.6))
...@@ -19,7 +20,7 @@ d1 $ f -- TODO: Rework kick ...@@ -19,7 +20,7 @@ d1 $ f -- TODO: Rework kick
$ "[reverbkick,808bd:6]" $ "[reverbkick,808bd:6]"
# lpf 1000 # lpf 1000
# midiG' "^78" 0 1 # midiG' "^78" 0 1
d2 $ f d2 $ f1
$ mask "<t(<1!3 3>,4)!4 t!28>" -- Intro / break/32 $ mask "<t(<1!3 3>,4)!4 t!28>" -- Intro / break/32
$ midiOff "^75" maskLoops $ midiOff "^75" maskLoops
$ midiOn "^43" (slice 4 (run 8)) $ midiOn "^43" (slice 4 (run 8))
...@@ -32,7 +33,8 @@ d2 $ f ...@@ -32,7 +33,8 @@ d2 $ f
# cut 2 # cut 2
# speed (range 0.05 1.95 "^51") # speed (range 0.05 1.95 "^51")
# midiG' "^79" 0 1.3 # midiG' "^79" 0 1.3
d3 $ f-- Sidekick, doubtful, yet hardworking hats d3 $ f1 -- Sidekick, doubtful, yet hardworking hats
$ midiOn "^76" (ply "[4 <1 2>]*<4!3 8>")
$ mask "<t(<1!3 3>,4)!4 t(2,8)!8 [<t!3 [t f]>]!52>" -- Intro / break/32 $ mask "<t(<1!3 3>,4)!4 t(2,8)!8 [<t!3 [t f]>]!52>" -- Intro / break/32
$ maskLoops $ maskLoops
$ someCyclesBy "<0.6 1>" (stut "<2 3 4>" 0.5 "s") $ someCyclesBy "<0.6 1>" (stut "<2 3 4>" 0.5 "s")
...@@ -42,8 +44,8 @@ d3 $ f-- Sidekick, doubtful, yet hardworking hats ...@@ -42,8 +44,8 @@ d3 $ f-- Sidekick, doubtful, yet hardworking hats
# "h2ogmhh" # "h2ogmhh"
# pan 0.6 # pan 0.6
# room 0.2 # room 0.2
# midiG' ("^80" + 0.08 * (slow 2 perlin)) 0 0.9 # midiG' ("^80" + 0.08 * (slow 2 perlin)) 0 1.3
d4 $ f -- Atmospheric synth: aerial questions d4 $ f2 -- Atmospheric synth: aerial questions
$ "90s_synatm:8/4" $ "90s_synatm:8/4"
# cut 4 # cut 4
# room 0.8 # room 0.8
...@@ -51,18 +53,18 @@ d4 $ f -- Atmospheric synth: aerial questions ...@@ -51,18 +53,18 @@ d4 $ f -- Atmospheric synth: aerial questions
# dry 1 # dry 1
# pan "<0.3 0.25 0.2>" # pan "<0.3 0.25 0.2>"
# crushbus 42 (range 16 4.5 "^53") # crushbus 42 (range 16 4.5 "^53")
# midiG' "^81" 0 1 # midiG' "^81" 0 1.4
d5 $ f -- Synth: ELECTRONIC ANSWERS d5 $ f2 -- Synth: ELECTRONIC ANSWERS
-- $ mask "<f!32 t!96>" -- Intro -- $ mask "<f!32 t!96>" -- Intro
$ midiOn "^90" (ply 8) $ midiOn "^90" (ply "1 <1!3 [0 1 <2 0> <0 2>]> <2!3 [[2 0] 1]> <1 2>" .slice 16 ("<0 1 2 3>*8" + "<0!4 4!4>"))
$ midiOn "^58" (chop 8) $ midiOn "^58" (chop "<4 8 16 [32 64 . 128]>")
$ "90s_synatm:14/4" $ "90s_synatm:14/4"
# cut 5 # cut 5
# room 0.65 # room 0.65
# dry 1 # dry 1
# panbus 51 (range 0.8 0.65 saw) # panbus 51 (range 0.8 0.65 saw)
# crushbus 52 (range 12 2.85 "^54") # crushbus 52 (range 12 2.85 "^54")
# midiG' "^82" 0 1.3 # midiG' "^82" 0 1.6
d6 -- High lead: Winds of truth d6 -- High lead: Winds of truth
$ whenmod 8 6 (swing "<4 2>") $ whenmod 8 6 (swing "<4 2>")
$ whenmod 32 8 (superimpose ( -- Echos of doubts $ whenmod 32 8 (superimpose ( -- Echos of doubts
...@@ -81,7 +83,7 @@ d6 -- High lead: Winds of truth ...@@ -81,7 +83,7 @@ d6 -- High lead: Winds of truth
# midiG' "^83" 0 0.58 # midiG' "^83" 0 0.58
# dry 0.1 # dry 0.1
# cut 6 # cut 6
d10 $ f -- RANDOM FOREST NOISES d10 $ f1 -- RANDOM FOREST NOISES
$ fix ( $ fix (
struct "t t t t t*<1 2> [<t!2 ~ t> <t!2 ~ t>] t t" struct "t t t t t*<1 2> [<t!2 ~ t> <t!2 ~ t>] t t"
. (# "[future:1]") . (# "[future:1]")
...@@ -93,16 +95,18 @@ d10 $ f -- RANDOM FOREST NOISES ...@@ -93,16 +95,18 @@ d10 $ f -- RANDOM FOREST NOISES
. (# midiG' "^14" 0 1.5) . (# midiG' "^14" 0 1.5)
) "n2" -- tchak reverb phantome ) "n2" -- tchak reverb phantome
$ fix ( $ fix (
struct "t([3 <3!3 5>],8,<0!8 3!8>)" whenmod 32 16 (someCyclesBy (slow 16 $ saw) (iter 4 . ply "2 [2|1]"))
. struct "t([3 <3!3 5>],8,<0!8 3!8>)"
. (# n "<3!3 [3 2]>") . (# n "<3!3 [3 2]>")
. (# "amencutup") . (# "amencutup")
. (# midiG' "^15" 0 1.5) . (# midiG' "^15" 0 1.25)
) "n3" -- amen excerpt ) "n3" -- amen excerpt
$ fix ( $ fix (
(# "gretsch:10") (# "gretsch:10")
. (struct "t*3 ~ . t*<1!3 2> t*<1 3>") . (struct "t*3 ~ . t*<1!3 2> t*<1 3>")
. (# cut 104) . (# cut 104)
. (# midiG "^16") . (# pan (range 0.5 0.9 perlin))
. (# midiG' "^16" 0 1.4)
) "n4" -- FX1 ) "n4" -- FX1
$ "[n1,n2,n3,n4]" -- n4 $ "[n1,n2,n3,n4]" -- n4
# gain 0.8 # gain 0.8
live/midi/nova/ambient/drone_aveugle.tidal
...@@ -21,6 +21,16 @@ d2 $ g2 -- Snare minitel ...@@ -21,6 +21,16 @@ d2 $ g2 -- Snare minitel
$ midiOn "^43" (fast 2) $ midiOn "^43" (fast 2)
$ "~ . [glitch:5,snare:11,<~!8 cp!24 cp!8 ~!8 cp!16>]" $ "~ . [glitch:5,snare:11,<~!8 cp!24 cp!8 ~!8 cp!16>]"
# midiG' "^79" 0 1.4 # midiG' "^79" 0 1.4
d7 $ g -- Down Break
$ midiOn "^60" (chop 4)
$ midiOn "^92" (ply 4)
$ slice 4 "0 1 <2 [2|1]> <1 2 3 7*<1 <2 4>>>"
$ loopAt 2
$ "break:15"
# speed (range 0 2 "^56")
# midiG' "^84" 0 1.2
# cut 7
# pan 0.35
d3 $ g -- Fight hats -- FIXME Rework? Could be loved <3 d3 $ g -- Fight hats -- FIXME Rework? Could be loved <3
$ midiOn "^44" (fast "4!3 <8 [<4 8> <4!3 8>]>") -- RUN $ midiOn "^44" (fast "4!3 <8 [<4 8> <4!3 8>]>") -- RUN
$ "h2ogmhh(3,8)" # n "<1 <2!3 1 2!2 1 1>>" $ "h2ogmhh(3,8)" # n "<1 <2!3 1 2!2 1 1>>"
...@@ -36,7 +46,8 @@ d4 -- Frequency-modulated hopes ...@@ -36,7 +46,8 @@ d4 -- Frequency-modulated hopes
])) ]))
$ note ("d" - 12) $ note ("d" - 12)
# "superfm" # "superfm"
# crushbus 41 (range 10 0.95 "^53") -- Harmonics of destruction # 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 (0.75 - 0.2 * "^17")
d5 $ g2 -- BASSLINE d5 $ g2 -- BASSLINE
$ midiOn "^58" (chop 4) $ midiOn "^58" (chop 4)
...@@ -50,7 +61,7 @@ d5 $ g2 -- BASSLINE ...@@ -50,7 +61,7 @@ d5 $ g2 -- BASSLINE
# s "superchip" # s "superchip"
# voicebus 51 (range 0.75 0.05 "^34") # voicebus 51 (range 0.75 0.05 "^34")
# crushbus 52 (range 16 2 "^54") # crushbus 52 (range 16 2 "^54")
# midiG' "^82" 0 (0.8 - 0.1 * "^54") # midiG' "^82" 0 (1.2 - 0.1 * "^54")
# room 0.7 # room 0.7
# dry 1.02 # dry 1.02
# sz 0.8 # sz 0.8
...@@ -68,16 +79,6 @@ d6 $ g2 -- Sirene apocalyptico-commerciale ...@@ -68,16 +79,6 @@ d6 $ g2 -- Sirene apocalyptico-commerciale
# midiG' "^83" 0 0.6 # midiG' "^83" 0 0.6
# panbus 63 (range 0.4 0.8 # panbus 63 (range 0.4 0.8
(sine - 2 * (fast "<2!3 4 4!3 0.25>" $ perlin))) (sine - 2 * (fast "<2!3 4 4!3 0.25>" $ perlin)))
d7 $ g -- Down Break
$ midiOn "^60" (chop 4)
$ midiOn "^92" (ply 4)
$ slice 4 "0 1 <2 [2|1]> <1 2 3 7*<1 <2 4>>>"
$ loopAt 2
$ "break:15"
# speed (range 0 2 "^56")
# midiG' "^84" 0 0.8
# cut 7
# pan 0.35
once once
$ loopAt 2 $ "fbass:1" $ loopAt 2 $ "fbass:1"
......
live/ambient/empreinte_du_numerique.tidal → live/midi/nova/ambient/empreinte_du_numerique.tidal
once $ "dr"
do do
let gLPF = ((# djfbus 1 (slow 8 $ range 0.2 0.5 saw))) let gLPF = ((# djfbus 1 (slow 8 $ range 0.2 0.5 saw)))
let gHPF = ((# djfbus 2 (slow 8 $ range 0.5 0.85 saw))) let gHPF = ((# djfbus 2 (slow 8 $ range 0.5 0.85 saw)))
let gPont2 = (someCyclesBy "<0!32 1!16 0!16>" gHPF) let gPont2 = (someCyclesBy "<0!32 1!16 0!16>" gHPF)
let gPont1 = (whenmod 32 24 gLPF) let gPont1 = (whenmod 32 24 gLPF)
let g = gPont1 -- let g = gPont1
let g = (# djfbus 1 (range 0.05 0.95 "^49")) let g = (# djfbus 1 (range 0.05 0.95 "^49"))
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
-- resetCycles -- resetCycles
...@@ -15,17 +16,19 @@ d1 $ g ...@@ -15,17 +16,19 @@ d1 $ g
$ "jazz" $ "jazz"
# midiG' "^78" 0 1.3 # midiG' "^78" 0 1.3
d2 $ g d2 $ g
$ "~ s" # "[dr55:3,snare:4]" $ "~ s" # "[sn:40,cp]" # lpf 3000
# midiG' "^79" 0 1.3 # midiG' "^79" 0 1.8
# note "<-2!3 -4>"
d3 $ g d3 $ g
$ midiOn "^76" (fast 2) $ midiOn "^76" (fast 2)
$ midiOff "^44" (slow "2!3 <1 <2 [4 1]>>") $ midiOff "^44" (slow "2!3 <1 <2 [4 1]>>")
$ "d*[8 . 8 <8 [16 <8 16>]>]" # "electro1:0" $ "d*[8 . 8 <8 [16 <8 16>]>]" # "electro1:0"
# midiG' "^80" 0 (1.3 * "1.2 1!6 <1 1 1.1 <1.2 1>>") # midiG' "^80" 0 (1.6 * "1.2 1!6 <1 1 1.1 <1.2 1>>")
# room 0.3 # room 0.3
# dry 0.95 # dry 0.95
d4 -- Break bonus banane d4 -- Break bonus banane
$ g $ g
$ midiOn "^92" (ply "2!3 1 2!3 <2 4>")
$ midiOn "^60" ( -- Aerial mask $ midiOn "^60" ( -- Aerial mask
mask "t <f t> <f f t f> <t t f t> f <f t> <f!3 t> t" mask "t <f t> <f f t f> <t t f t> f <f t> <f!3 t> t"
) )
...@@ -42,13 +45,18 @@ d5 $ g $ gPont2 ...@@ -42,13 +45,18 @@ d5 $ g $ gPont2
# cut 5 # cut 5
# room 0.4 # room 0.4
# sz 0.9 # sz 0.9
# crushbus 51 (range 10 1.61 "^53") # lrate 0.93
# lsizebus 51 (range 0.8 4.8 "^17")
# lesliebus 52 "^33"
# crushbus 53 (range 10 1.61 "^53")
# midiG' "^81" 0 0.9 # midiG' "^81" 0 0.9
d7 $ g -- Back solar mandoline d7 $ g -- Back solar mandoline
$ superimpose (|+| note "<[0 12 0]!3 [0 12 0 12]>") $ superimpose (|+| note "<[0 12 0]!3 [0 12 0 12]>")
$ note "<d <d a> <gf> c>" $ note "<d <d a> <gf> c>"
# "supermandolin" # "supermandolin"
# pan 0.8 # pan 0.8
# room (range 0 0.3 "^55")
# crushbus 71 (range 10 3.61 "^55")
# midiG' "^83" 0 1.3 # midiG' "^83" 0 1.3
d6 -- RHODES FOLIE <33 d6 -- RHODES FOLIE <33
$ g $ g
...@@ -60,5 +68,3 @@ d6 -- RHODES FOLIE <33 ...@@ -60,5 +68,3 @@ d6 -- RHODES FOLIE <33
# crushbus 61 (range 10 4.4 "^54") # crushbus 61 (range 10 4.4 "^54")
# modIndex (range "-0.1" 100 "^34") # modIndex (range "-0.1" 100 "^34")
# midiG' "^82" 0 1.3 # midiG' "^82" 0 1.3
once $ "dr" # gain 2
live/midi/nova/breaks/break_90s.tidal
...@@ -78,7 +78,7 @@ d5 $ g2 -- Piano base ...@@ -78,7 +78,7 @@ d5 $ g2 -- Piano base
(0.5 ~>) (0.5 ~>)
. degradeBy (1 - "^54") . degradeBy (1 - "^54")
. fast "<1!8 2!8 4!8 1!4 2!4 4!8>" . fast "<1!8 2!8 4!8 1!4 2!4 4!8>"
. (|+ note ("12")) . (|+ note 12)
. (|* gain 1.2) . (|* gain 1.2)
. (|+ pan 0.125) . (|+ pan 0.125)
)) ))
......
live/midi/nova/breaks/break_the_night.tidal
...@@ -5,40 +5,53 @@ setcps (90/60/4) ...@@ -5,40 +5,53 @@ setcps (90/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49")) let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^29")) let g2 = (# djfbus 2 (range 0.05 0.95 "^29"))
d1 $ g1 d1 $ g1
$ midiOn "^41" (<| "k*4") $ midiOn "^42" (fast 2)
$ midiOn "^41" (<| "k k k <k!3 [<k ~> k*<1 2>]>")
$ midiOff "^41" (<| "k . k(<3 [5 3] 3 <5 [5!3 8]>>,8)") $ midiOff "^41" (<| "k . k(<3 [5 3] 3 <5 [5!3 8]>>,8)")
$ "jazz" $ "[jazz,909]"
# midiG' "^78" 0 1.5 # midiG' "^78" 0 2
d2 d2
$ fast "<2!6 [4 8] 8>" $ fast "<2!6 [4 8] 8>"
$ "~ snare:5" $ "~ snare:5"
# midiG' "^79" 0 1.5 # midiG' "^79" 0 1.5
d3 $ g1 d3 $ g1
$ midiOn "^76" (fast "2 <2!3 <[2 4]>>")
$ midiOn "^44" (<| "~ h ~ h")
$ chop 16 $ chop 16
$ loopAt 1 $ loopAt 1
$ "noir_beats:6" $ "noir_beats:6"
# speed (range 0 2 "^51") # speed (range 0 2 "^52")
# midiG' "^80" 0 1.5 # midiG' "^80" 0 1.5
# cut 1 # cut 1
d4 $ g2-- CHOIR BASS d4 $ g2-- CHOIR BASS
$ mask "t(<4 <2 8>>,8)" $ midiOff "^57" (mask "t(<4 <2 8>>,8)")
$ slice 8 ("0 1 2 3 <4 ~> 5 <6!3 6?> <7 7 <7 3> 3>") $ slice 8 ("0 1 2 3 <4 ~> 5 <6!3 6?> <7 7 <7 3> 3>")
$ "noir_choir:7" $ "noir_choir:7"
# lesliebus 41 "^33"
# lrate 1
# lsize (range 0.17 6.7 "^17")
-- # lrate (slow 4 $ "<[0.7 1.2!3] 2.4 4.8 6.7>")
-- # lpf 5000
-- # lsizebus 42 (range 1.9 6.7 "^33")
# cut 4 # cut 4
# crushbus 41 (range 14 2 "^53") # crushbus 42 (range 14 0.85 "^53")
# midiG' "^81" 0 1.5 # midiG' "^81" 0 1.5
# room 0.3 # room 0.3
-- d4 $ -- Noir Bass! -- d4 $ -- Noir Bass!
d5 $ g2 d5 $ g2
$ chop 16 $ midiOn "^90" (chop 16 . mask "<t f!3>")
$ "noir_angels:1/4" $ "noir_angels:1"
# midiG' "^82" 0 1.5 # legato 4
# cut 5
# crushbus 51 (range 14 2 "^54")
# midiG' "^82" 0 1.8
# cut 1 # cut 1
d6 d6 $ g2
$ loopAt 2 $ loopAt 2
$ slice 4 (run 8) $ slice 4 (run 8)
$ "fguitar" $ "fguitar"
# n "<12!32 13!16 12!16>" # n "<12!32 13!16 12!16>"
# crushbus 61 (range 14 2 "^55")
# cut 6 # cut 6
# midiG' "^83" 0 1 # midiG' "^83" 0 1
......
live/midi/nova/breaks/nova_bossa.tidal
...@@ -12,7 +12,7 @@ once $ "reverbkick" # gain 0.7 ...@@ -12,7 +12,7 @@ once $ "reverbkick" # gain 0.7
do do
let gDJFManuel1 = someCyclesBy "<1!24 0!8>" (# djfbus 1 (range 0.05 0.95 "^49")) let gDJFManuel1 = someCyclesBy "<1!24 0!8>" (# djfbus 1 (range 0.05 0.95 "^49"))
let gDJFManuel2 = someCyclesBy "<1!24 0!8>" (# djfbus 2 (range 0.05 0.95 "^29")) let gDJFManuel2 = someCyclesBy "<1!24 0!8>" (# djfbus 2 (range 0.05 0.95 "^50"))
-- let gDJFPont = (midiOn "^41" (whenmod 32 24 (# djfbus 3 (slow 8 $ range 0.15 0.45 saw)))) -- let gDJFPont = (midiOn "^41" (whenmod 32 24 (# djfbus 3 (slow 8 $ range 0.15 0.45 saw))))
let mBreak = ((mask "f . t f!3")) let mBreak = ((mask "f . t f!3"))
let mBreak = (midiOn "^42" (mask "t f . f <f!4 t!4> <f!2 t!6> t")) let mBreak = (midiOn "^42" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
...@@ -30,28 +30,29 @@ d1 $ g1 $ m ...@@ -30,28 +30,29 @@ d1 $ g1 $ m
d2 $ g1 $ m d2 $ g1 $ m
$ fast 2 $ fast 2
$ "~ . <s!4 ~!3 s> <~!4 s!4> ~ ~" $ "~ . <s!4 ~!3 s> <~!4 s!4> ~ ~"
-- $ "~ . s"
# "[snare:20,clap]" # "[snare:20,clap]"
# note "<0!7 <0 -3>>" # note "<0!7 <0 -3>>"
# midiG' "^79" 0 1.4 # midiG' "^79" 0 1.4
d3 d3 $ g2 $ m
$ mask "<t!3 [t!3 f]>" $ mask "<t!3 [t!3 f]>"
$ g2 $ m
$ midiOn "^76" (iter "4 8") $ midiOn "^76" (iter "4 8")
$ midiOn "^44" (slice 4 (run "<8!3 <16 32>>")) $ midiOn "^44" (slice 4 (run "<8!3 <16 32>>"))
$ loopAt 2 $ loopAt 2
$ chop 8 $ chop 8
$ "break" $ "break"
# pan 0.2
# cut 3 # cut 3
# speed (range "0" 2 "^52") # speed (range "0" 2 "^52")
# midiG' "^80" 0 1.1 # midiG' "^80" 0 1.1
d4 d4 $ g2
$ g2
$ whenmod 16 14 (# n "<6 ~>") $ whenmod 16 14 (# n "<6 ~>")
$ midiOn "^57" (striate "4 <4 2>" . chop 8) $ midiOn "^57" (striate "4 <4 2>" . chop 8)
$ loopAt 1 $ loopAt 1
$ "bossa" $ "bossa"
# n "<0 0 0 1 0 1 <2!3 3> <1 0>>" # n "<0 0 0 1 0 1 <2!3 3> <1 0>>"
# cut 4 # cut 4
# pan 0.8
# midiG' "^81" 0 1 # midiG' "^81" 0 1
d5 $ g2 d5 $ g2
$ note (arp "<up down>" "<f'min'4 fs'min'4>*4" $ note (arp "<up down>" "<f'min'4 fs'min'4>*4"
......
live/midi/nova/dnb/alerte_verte.tidal
...@@ -15,6 +15,7 @@ d1 $ f1 -- KICK ...@@ -15,6 +15,7 @@ d1 $ f1 -- KICK
# release 0.8 # release 0.8
# midiG' "^78" 0 1.5 # midiG' "^78" 0 1.5
d2 $ f1 -- Snare tchak! d2 $ f1 -- Snare tchak!
$ midiOn "^75" (ply 2)
$ g32Bridge $ g32Bridge
$ whenmod 16 12 (struct "t*<4 4 8 16>") -- Snare Rush $ whenmod 16 12 (struct "t*<4 4 8 16>") -- Snare Rush
$ "~ s . ~ <~ ~ s ~ s!3 ~ s s ~ s s ~ s s ~ s s s>" $ "~ s . ~ <~ ~ s ~ s!3 ~ s s ~ s s ~ s s ~ s s s>"
...@@ -25,7 +26,6 @@ d2 $ f1 -- Snare tchak! ...@@ -25,7 +26,6 @@ d2 $ f1 -- Snare tchak!
# midiG' "^79" 0 1.2 # midiG' "^79" 0 1.2
d3 $ f1-- Running Hats d3 $ f1-- Running Hats
$ g32Bridge $ g32Bridge
-- $ degradeBy ("1 0 0 1!13" - "^52")
$ midiOn "^44" (slow 2) $ midiOn "^44" (slow 2)
$ midiOn "^76" (fast 2) $ midiOn "^76" (fast 2)
$ "hh*[8 . 8 <16 8 4 [4 8]>]" $ "hh*[8 . 8 <16 8 4 [4 8]>]"
...@@ -33,6 +33,7 @@ d3 $ f1-- Running Hats ...@@ -33,6 +33,7 @@ d3 $ f1-- Running Hats
# midiG' "^80" 0 (1.7 + (slow 4 perlin/4)) # midiG' "^80" 0 (1.7 + (slow 4 perlin/4))
# room (slow 8 $ range 0.2 0.45 saw) # room (slow 8 $ range 0.2 0.45 saw)
# sz (slow 8 $ range 0.8 0.2 saw) # sz (slow 8 $ range 0.8 0.2 saw)
# note (range "-12" 12 "^52")
# dry (slow 4 $ range 0 2 perlin) # dry (slow 4 $ range 0 2 perlin)
# pan 0.6 # pan 0.6
# cut 3 # cut 3
...@@ -46,9 +47,9 @@ d4 $ f1 -- Resolute Bass ...@@ -46,9 +47,9 @@ d4 $ f1 -- Resolute Bass
$ chop 16 $ chop 16
$ "fbass:25" $ "fbass:25"
# pan 0.15 # pan 0.15
# room 0.125 # sz 0.1 # dry 1 -- # room 0.125 # sz 0.1 # dry 1
# crushbus 41 (range 16 1.25 "^53") # crushbus 41 (range 16 1.25 "^53")
# midiG' "^81" 0 1.1 # midiG' "^81" 0 1.5
# cut 4 # cut 4
d6 -- Guitar A -- L'attente (18=0) TODO Rework? d6 -- Guitar A -- L'attente (18=0) TODO Rework?
$ f2 $ f2
...@@ -79,15 +80,14 @@ d7 -- Guitar B -- Le run (18=127) ...@@ -79,15 +80,14 @@ d7 -- Guitar B -- Le run (18=127)
# cut 71 # cut 71
d8 $ f1 -- Clave de l'été pitchable d8 $ f1 -- Clave de l'été pitchable
$ midiOn "^59" (fast 2) $ midiOn "^59" (fast 2)
$ midiOn ("^91"-"^59") (fast 2) $ midiOn ("^91" - "^59") (fast 2)
$ (|* gain "0.75 1 1 1 0.75 1 1 1") $ (|* gain "0.75 1 1 1 0.75 1 1 1")
$ "d ~ ~ d d ~ d <~!3 d>" $ "d ~ ~ d d ~ d <~!3 d>"
# "[<808lc!6 808hc!2>,<~!4 808mc!4>]" # "[<808lc!6 808hc!2>,<~!4 808mc!4>]"
# speed (range 0.5 2 "^55") # speed (range 0.5 2 "^55")
# midiG' "^83" 0 1.5 # midiG' "^83" 0 1.5
d9 $ f1 -- CLAPS! -- FIXME Broken whenmod 4 3 d9 $ f1 -- CLAPS! -- FIXME Broken whenmod 4 3
$ midiOn "^60" (fast "<1 [1 4]> <1!3 4>") $ "~ c ~ <c!3 c*2>" # "cp"
$ "~ . [~ cp] <~!3 cp>"
# midiG' "^84" 0 1.5 # midiG' "^84" 0 1.5
d10 $ f2 -- Nappes crushées indépendantes d10 $ f2 -- Nappes crushées indépendantes
$ midiOn "^92" (ply "<2 4 [8 16 [4|6|4]!6]>") $ midiOn "^92" (ply "<2 4 [8 16 [4|6|4]!6]>")
...@@ -99,7 +99,7 @@ d10 $ f2 -- Nappes crushées indépendantes ...@@ -99,7 +99,7 @@ d10 $ f2 -- Nappes crushées indépendantes
# rel 1 # rel 1
# pan 0.85 # pan 0.85
# crushbus 100 (range 16 0.35 "^36") # crushbus 100 (range 16 0.35 "^36")
# midiG' "^20" 0.2 1 # midiG' "^20" 0.2 1.5
d11 $ f2 -- Sirene indépendante d11 $ f2 -- Sirene indépendante
$ note ("<e e c e>/4") $ note ("<e e c e>/4")
# octave 3 # octave 3
......
live/midi/nova/dnb/break_the_loop.tidal
...@@ -22,7 +22,7 @@ d1 -- TODO: Improve kick. Sound? Rhythm? ...@@ -22,7 +22,7 @@ d1 -- TODO: Improve kick. Sound? Rhythm?
d2 $ gF $ gM -- Snare glitch high d2 $ gF $ gM -- Snare glitch high
-- $ midiOn "^43" (superimpose (<| )) FIXME LATER SNARE MOD -- $ midiOn "^43" (superimpose (<| )) FIXME LATER SNARE MOD
$ fix ((|* gain 0.9)) ("snare:40") $ fix ((|* gain 0.9)) ("snare:40")
$ "~ s ~ <s!3 <s*2 s*<1 2>>>" # "[snare:31,snare:40]" $ "~ s ~ <s!3 <s*2 <s s*2>>>" # "[snare:31,snare:40]"
# note (range "-12" 12 "^51") # note (range "-12" 12 "^51")
# pan 0.46 # pan 0.46
# room 0.74 # sz 0.2 # dry 1 # room 0.74 # sz 0.2 # dry 1
......
live/midi/nova/fusion/all_the_way.tidal 0 → 100644
once $ "bd"
setcps (-1)
do
-- Accompagnement:
-- Gauche <[c,e] [b,d] [f,a,c]@2>
-- Droite All the way <3
let modIndex = pF "modIndex"
let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = mask "t t <t <t f> t <f [f t]>>"
let g1 = (gDJF1 . gMask)
let g2 = (gDJF2 . gMask)
setcps (86/60/4)
d1 $ g1
$ fix (
(|> note (
-- "<e!4 c!3 e> <c!4>"
"<e e a c e e f e> <c!4 c!4>"
+ "4" -- Proper tuning
+ "[0,12]"
)
)
. (|* gain 0.8)
)
"808bd"
$ midiOn "^42" (<| "k k k k <k!7 ~> k k <k*2 [~ k]>")
$ midiOn ("^41" - "^42") (<| "k k k <k*2 [k k*2] k [~ <k k*2>]>")
$ midiOff ("^41" + "^42") (<| "k . k(<5 <7 [3 7]>>,8,<0!6 3 <3 0>>)")
$ "[bd,808bd:4]"
# midiG' "^78" 0 1.2
d2 $ g1
$ fast 2
$ "~ cp"
# "clap:1"
# midiG' "^79" 0 1.2
d3 $ g2
$ midiOn "^44" (fast "<1!6 2 [2 4]>") -- Gratuitous snare rush
$ ply "2 <2 4>"
$ "sn:27*4"
# midiG' "^80" 0 1.2
d4 $ g2
$ note "<e4 d4 <a3!3 f4>@2>"
# "supersaw" # octave 3
# cut 4
# crushbus 41 (range 16 2.5 "^53")
# panbus 42 (0.5 + 0.1 * perlin)
# room 0.2
# sz 0.5
# dry 0.8
# midiG' "^81" 0 (1.2 - 0.2 * "^53")
d5 $ g2
$ sometimesBy "0 0.05!14 0" (# crush 2)
$ sometimesBy 0.1 (ply 2)
$ swing "1 4"
$ midiOn "^58" (superimpose (
mask "<t!16 f(<14 10>,16)!3 t!13>" .
(|+| note (
arp "<pinkyup <converge thumbupdown>>"
"<c'maj'4!7 c'maj'8>*4"
))
-- . (|* gain 0.86)
))
$ note "e3 <a5 b5 b5 c6>"
# "FMRhodes1"
# pan 0.7
# room 0.4
# midiG' "^82" 0 1.2
# modIndex (range 0 100 "^34")
# crushbus 51 (range 16 2.5 "^54")
d6 -- Break balance
$ g1
$ midiOn "^60" (sometimesBy "0.5!14 0!2" $ ply 2)
$ midiOn "^92" (slice 8 ("0 1 2 3 0 5 6 <7 3 7 [3 3]>"))
$ midiOff "^92" (slice 16 (run 8))
$ loopAt 2
$ "break:26"
# cut 6
# midiG' "^84" 0 1.2
live/midi/nova/lofi/soleil_de_sete.tidal
...@@ -2,7 +2,7 @@ resetCycles ...@@ -2,7 +2,7 @@ resetCycles
-- Soleil de Sete - LoFi avec accompagnement -- Soleil de Sete - LoFi avec accompagnement
once $ "dr" # gain 0.9 once $ "dr" # gain 1
-- TODO: -- TODO:
...@@ -48,6 +48,7 @@ d3 $ g2 ...@@ -48,6 +48,7 @@ d3 $ g2
d5 $ g -- BREAKBEAT BUDDY d5 $ g -- BREAKBEAT BUDDY
-- $ mask "<t!32 f!7 [f t] t!24>" -- Post-filter break -- $ mask "<t!32 f!7 [f t] t!24>" -- Post-filter break
-- $ mask "<f!8 t!14 f f t!16>" -- $ mask "<f!8 t!14 f f t!16>"
$ midiOn "^91" (mask "t(8,16)" . fast 2)
$ whenmod 16 8 ( $ whenmod 16 8 (
sometimesBy "0 0.2 . 0.75!3 0" sometimesBy "0 0.2 . 0.75!3 0"
(ply "2 . [2|4]")) (ply "2 . [2|4]"))
......
live/midi/nova/lounge/cbow.tidal
...@@ -16,8 +16,8 @@ d1 $ gDJF $ g ...@@ -16,8 +16,8 @@ d1 $ gDJF $ g
$ midiOff "^41" (mask "<f f [t f] t t!28>") $ midiOff "^41" (mask "<f f [t f] t t!28>")
$ midiOn "^41" (<| "k k k <k k*2 k [~ k]>") $ midiOn "^41" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^41" (<| "k [~!6 <k!3 ~>] . k*2 ~") $ midiOff "^41" (<| "k [~!6 <k!3 ~>] . k*2 ~")
$ "[jazz,kick:14]" $ "[jazz,kick:14,bd:2]"
# midiG' "^78" 0 1 # midiG' "^78" 0 1.2
d2 $ gDJF $ g d2 $ gDJF $ g
$ fast "<0!4 0 [0 1] 1 1 0 [0 1] 1 1 [1 2] 1 2 4>" $ fast "<0!4 0 [0 1] 1 1 0 [0 1] 1 1 [1 2] 1 2 4>"
$ "~ s ~ s" $ "~ s ~ s"
...@@ -26,8 +26,6 @@ d2 $ gDJF $ g ...@@ -26,8 +26,6 @@ d2 $ gDJF $ g
d6 -- d6 --
$ g $ g
$ midiOn "^44" (slow 2) $ midiOn "^44" (slow 2)
-- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]")
-- $ degradeBy ("0 0.95!7 0" - "^52")
$ "~ h ~ h ~ h*2 ~ h" # "hh27:2" $ "~ h ~ h ~ h*2 ~ h" # "hh27:2"
# note ( # note (
whenmod 4 3 (2 -) whenmod 4 3 (2 -)
...@@ -52,7 +50,7 @@ d3 $ g -- CBOW Electric Bass ...@@ -52,7 +50,7 @@ d3 $ g -- CBOW Electric Bass
$ note ( $ note (
(arp "up <up!8 down!8>" chord)) (arp "up <up!8 down!8>" chord))
# "cbow:0" # "cbow:0"
# pan 0.3 # pan 0.15
# cut 3 # cut 3
# room 0.6 # room 0.6
# sz 0.5 # sz 0.5
...@@ -65,12 +63,13 @@ d4 $ g -- Lead aigus ...@@ -65,12 +63,13 @@ d4 $ g -- Lead aigus
$ whenmod 16 8 (ply 2) $ whenmod 16 8 (ply 2)
$ whenmod 4 3 (off "e" ((# cut 41) . (# legato 1))) $ whenmod 4 3 (off "e" ((# cut 41) . (# legato 1)))
$ note (arp "converge" chord) $ note (arp "converge" chord)
# pan 0.4 # pan 0.75
# "cbow:2" # "cbow:2"
# cut 4 # cut 4
# room 0.2 # room 0.2
# midiG' "^82" 0 1.05 # midiG' "^82" 0 1.25
# lesliebus 41 (range 0 2 "^54") # lesliebus 41 (range 0 2 "^54")
# lsizebus 42 (range 0.2 6.2 "^34")
d8 $ g -- Angels d8 $ g -- Angels
$ juxBy 0.8 (sometimesBy "0 1" rev) $ juxBy 0.8 (sometimesBy "0 1" rev)
-- $ midiOff "^59" (mask "<f!32 t!32>") -- $ midiOff "^59" (mask "<f!32 t!32>")
...@@ -78,7 +77,7 @@ d8 $ g -- Angels ...@@ -78,7 +77,7 @@ d8 $ g -- Angels
# "cpluck" # "cpluck"
|>| n "7 8" |>| n "7 8"
# room 0.4 # room 0.4
# midiG' "^83" 0 1.1 # midiG' "^83" 0 1.0
d10 d10
$ (# lpf 2000) $ (# lpf 2000)
$ g $ "~ cp" $ g $ "~ cp"
......
live/midi/nova/lounge/hoover_sepia.tidal
-- TODO Try Control with busses :D
do do
-- region Utils
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
let cF5 ch = cF 0.5 ch let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gDJF = (# djfbus 1 (range 0.15 0.99 "^49")) let g = gDJF
let gRoom = (# roombus 2 (cF5 "29"))
let gSize = (# sizebus 3 (cF5 "30"))
let g = gDJF . gRoom . gSize
let gG = 1 * "^77" let gG = 1 * "^77"
let gM' ch l h = gain (range l h (gG * ch))
let gM ch = gM' ch 0 1
let ampb bus pat = (ampbus bus (gG * pat)) let ampb bus pat = (ampbus bus (gG * pat))
let midiOn ch pat = someCyclesBy ch pat let midiOn ch pat = someCyclesBy ch pat
-- endregion -- endregion
...@@ -17,33 +11,39 @@ let prog = "<d6'm9 g6'dom7'ii c6'maj7 c5'maj7'iii>" ...@@ -17,33 +11,39 @@ let prog = "<d6'm9 g6'dom7'ii c6'maj7 c5'maj7'iii>"
setcps (95/60/4) setcps (95/60/4)
d1 -- Kick techno 1-2-4/4 d1 -- Kick techno 1-2-4/4
$ g $ g
$ midiOn "^41" (fast 2)
$ midiOn "^42" (fast 2) $ midiOn "^42" (fast 2)
$ whenmod 4 3 (ply "2") $ midiOn "^41" (struct "t t t <t t*2 t [<~ t> t]>")
$ "[jazz]" $ "[jazz,bd:2]"
# gM' "^78" 0 2 # midiG' "^78" 0 2
d2 $ g d2 $ g
$ midiOn "^43" (struct "t*[4 8 16 <8 [32 16]>]") $ midiOn "^43" (struct "t*[4 8 16 <8 [32 16]>]")
$ "~ ~ h ~ ~ h*2 [<~ h h ~> <h ~>] h" # "h2ogmhh" # n "<0!4 1!4 2!4 3!4>" $ "~ ~ h ~ ~ h*2 [<~ h h ~> <h ~>] h" # "h2ogmhh" # n "<0!4 1!4 2!4 3!4>"
# gM' "^79" 0 1.25 # midiG' "^79" 0 1.25
d3 $ g d3 $ g
$ loopAt 2 $ loopAt 2
$ midiOn "^76" (scramble "1 2") $ midiOn "^76" (ply "1 2")
$ midiOn "^44" (scramble "1 8") $ midiOn "^44" (scramble "1 8")
$ slice 8 ("0 1 2*<1 <2 4>> 3 4 <5 4> <6!3 4> 7*<1!3 <2 4>>") $ slice 8 ("0 1 2*<1 <2 4>> 3 4 <5 4> <6!3 4> 7*<1!3 <2 4>>")
$ "fbreak100:4" $ "fbreak100:4"
# gM' "^80" 0 1.8 # midiG' "^80" 0 1.8
d4 $ g -- Hoover bassline d4 $ g -- Hoover bassline
$ slow 2 $ midiOn "^57" (superimpose (
$ n ("0*[4 8]" + prog - 12) arp "up"
. struct "t*<2!3 4>"
. (|+| note (12 + "c'maj'3"))
-- . (|* gain 0.9)
))
-- $ slow 2
$ n ("0" + prog - 24)
# s "superhoover" # s "superhoover"
# squizbus 30 (range 1 1.7 "^33") # squizbus 30 (range 0 1.37 "^33")
# crushbus 31 (range 16 1 "^53") # crushbus 31 (range 16 1.3 "^53")
# ampb 32 (range 0 0.125 "^81") # ampb 32 (range 0 0.25 "^81")
# pan 0.2 # pan 0.2
# gM' "^80" 0 1.8 # midiG' "^81" 0 1.38
# legato 1.05 # legato 1.05
d5 $ g -- Arp aigus Rhodes d5 $ g -- Arp aigus Rhodes
$ superimpose (|- note 24)
$ midiOn ("^58" + 0.05) (struct "t(3,8) t(<5 <4 [2 4]>>,8)") $ midiOn ("^58" + 0.05) (struct "t(3,8) t(<5 <4 [2 4]>>,8)")
$ note (arp "<up!6 [up|down|updown]>" $ note (arp "<up!6 [up|down|updown]>"
$ prog $ prog
...@@ -52,9 +52,9 @@ d5 $ g -- Arp aigus Rhodes ...@@ -52,9 +52,9 @@ d5 $ g -- Arp aigus Rhodes
) )
# "FMRhodes1" # "FMRhodes1"
# ampbus 40 (range 0 0.82 "^82") # ampbus 40 (range 0 0.82 "^82")
# crushbus 41 (range 16 1 "^54") # crushbus 41 (range 16 3.9 "^54")
# modIndex "[0,5]" # modIndex "[0,2.5]"
d10 $ g d10 $ g
$ "~ [h2ogmcp,clap]" $ "~ [h2ogmcp,clap]"
# gM' "^84" 0 1.5 # midiG' "^84" 0 1.5
# room 0.7 # sz 0.7 # dry 0.9 # room 0.2 # sz 0.7 # dry 0.99
live/midi/nova/lounge/invoque_ete.tidal
...@@ -2,6 +2,7 @@ import Sound.Tidal.ParVagues.Control ...@@ -2,6 +2,7 @@ import Sound.Tidal.ParVagues.Control
resetCycles resetCycles
-- Invoque l'été -- Invoque l'été
-- Il ne viendra pas tout seul ;) -- Il ne viendra pas tout seul ;)
do do
...@@ -16,48 +17,49 @@ d1 $ f1 $ m ...@@ -16,48 +17,49 @@ d1 $ f1 $ m
$ midiOn "^42" (<| "k k k <k k k*2 [~ k]>") $ midiOn "^42" (<| "k k k <k k k*2 [~ k]>")
$ midiOff "^42" (<| "k*2") $ midiOff "^42" (<| "k*2")
$ "[jazz,kick:5]" $ "[jazz,kick:5]"
# midiG' "^78" 0 1.5 # midiG' "^78" 0 1.2
d2 $ f1 $ m -- Clave de l'été d2 $ f1 $ m -- Clave de l'été
$ midiOn "^43" (fast 2) $ midiOn "^43" (fast 2)
$ midiOn ("^75"-"^43") (fast 2) $ midiOn ("^75"-"^43") (fast 2)
$ (|* gain ("0.75 1 1 1 0.75 1 1 1" * 1.7)) $ (|* gain ("0.75 1 1 1 0.75 1 1 1" * 1.7))
$ "d ~ ~ d d ~ d <~!3 d>" $ "d ~ ~ d d ~ d <~!3 d>"
# "snare:22" # "[snare:22,sn:4]"
# midiG' "^79" 0 1.4 # midiG' "^79" 0 1
# speed (range 0 2 "^51") # speed (range 0 2 "^51")
d4 $ f1 $ m -- Mecano Course d4 $ f1 $ m -- Mecano Course
-- $ fast "<<4 2> 4!7 2!4 2 2 4 8>" -- $ fast "<<4 2> 4!7 2!4 2 2 4 8>"
$ midiOn "^76" (fast "<2!3 <4 [4 2]>>" . (# speed 1.2) . (>| "breaks165"))
$ midiOn "^44" (slice 16 ("0*<1 2> 1 2 3*<2 1>") . (>| "breaks125"))
-- $ midiOn "^76" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>")
$ sometimesBy "0 ^32!7" (ply 4) $ sometimesBy "0 ^32!7" (ply 4)
$ someCyclesBy "^52" (iter 4) $ someCyclesBy "^52" (iter 4)
$ midiOn "^76" (slice 8 (run 8) . (|* speed 2) . (>| "breaks165"))
$ midiOn "^44" (slice 16 ("0*<1 2> 1 2 3*<2 1>"))
-- $ midiOn "^76" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>")
-- $ slice 8 "0 1 <2!3 0> <3!3 1 4 5 6 7>" "0 1 <2!3 0> <3!3 1>" -- $ slice 8 "0 1 <2!3 0> <3!3 1 4 5 6 7>" "0 1 <2!3 0> <3!3 1>"
$ chop 8 -- $ chop 8
$ loopAt 2 $ "breaks125:3" $ loopAt 2
# midiG' "^80" 0 1.3 $ "breaks125:3"
# speed (range 0 2 "^16") # midiG' "^80" 0 1.5
-- # speed (range 0 2 "^16")
# cut 4 # cut 4
d5 $ f1 $ m -- Bassline variable double piste d5 $ f1 $ m -- Bassline variable double piste
$ loopAt 2 $ loopAt 2
$ slice 8 (run "<4!4 8 8 [4 8 4] [8 4 8]>") $ slice 8 (run "<4!4 8 8 [4 8 4] [8 4 8]>")
$ midiOn "^57" (# n 14) $ midiOn ("^57" + "^89") (# n 14)
$ "fbass:13" $ "fbass:13"
# pan 0.2 # pan 0.2
# room 0.2 -- # room 0.2
# crushbus 51 (range 16 4.5 "^53") # crushbus 51 (range 16 4.5 "^53")
# midiG' "^81" 0.3 1.45 # midiG' "^81" 0 1.2
# cut 4 # cut 4
d6 $ f2 $ m -- Douce guitare juxée d6 $ f2 $ m -- Douce guitare juxée
$ chop 16 $ chop 16
$ midiOn "^58" (juxBy 0.85 ((# cut 31) . rev)) $ midiOn "^58" (juxBy 0.85 ((# cut 31) . rev . (|* gain 0.93)))
$ whenmod 16 12 (rev) $ whenmod 16 12 (rev)
$ whenmod 8 4 (chop 4) $ whenmod 8 4 (chop 4)
$ loopAt 4 $ loopAt 4
$ "fguitar" # n "<12!16 13!16>" $ "fguitar" # n "<12!16 13!16>"
# midiG' "^82" 0 1 # midiG' "^82" 0 1
# release (range 2 0.15 "^34") # release (range 2 0.15 "^34")
# crushbus 61 (range 8 1.4 "^54") # crushbus 61 (range 16 1.4 "^54")
# pan 0.85 # pan 0.85
# room 0.2 # dry 1 # room 0.2 # dry 1
# cut 3 # cut 3
...@@ -71,7 +73,7 @@ d7 $ f2 $ m ...@@ -71,7 +73,7 @@ d7 $ f2 $ m
# midiG' "^83" 0 1.4 # midiG' "^83" 0 1.4
# cut 7 # cut 7
d12 $ f2 $ m -- Angels of moogland d12 $ f2 $ m -- Angels of moogland
$ midiOn "^92" (|+ note 12) $ midiOn "^92" (|+ note 24)
$ midiOn "^60" ( $ midiOn "^60" (
superimpose ( superimpose (
struct "t(5,8)" struct "t(5,8)"
...@@ -83,6 +85,7 @@ d12 $ f2 $ m -- Angels of moogland ...@@ -83,6 +85,7 @@ d12 $ f2 $ m -- Angels of moogland
# octave 4 # octave 4
# room 0.24 # room 0.24
# "moogBass" # "moogBass"
# pan 0.4
# crushbus 81 (range 16 1.4 "^56") -- Even an angel can fall in love # crushbus 81 (range 16 1.4 "^56") -- Even an angel can fall in love
# midiG' "^84" 0 1.3 # midiG' "^84" 0 1.3
......
live/midi/nova/lounge/michael.tidal
...@@ -8,27 +8,31 @@ let g = gDJF ...@@ -8,27 +8,31 @@ let g = gDJF
setcps (120/60/4) setcps (120/60/4)
d1 $ g d1 $ g
$ midiOn "^41" (struct "t t t*<2 1 1 2> t*<1 2>") $ midiOn "^41" (struct "t t t*<2 1 1 2> t*<1 2>")
$ midiOff "^41" (struct "t(<3!3 [3 <8 [5 8]>]>,8)") $ midiOff "^41" (struct "t*<1!3 2> . t(3,8)")
$ "jazz" $ "jazz"
# room 0.5 # sz 0.5 # room 0.5 # sz 0.5
# dry 1 # dry 1
# midiG' "^78" 0 1.6 # midiG' "^78" 0 1.6
d2 $ g d2 $ g
$ superimpose (const
$ midiOff "^43" (# silence)
$ mask "<f!8 t!24>"
$ "~ . cp*<1!3 2> ~"
# lpf 2000
# midiG' "^79" 0 1.2)
$ whenmod 8 6 (ply "2 <2 4>") $ whenmod 8 6 (ply "2 <2 4>")
$ "~ s . ~ <s!7 ~> <~!7 s> <~!3 s>" # "snare:20" $ "~ s . ~ <s!7 ~> <~!7 s> <~!3 s>" # "snare:20"
# midiG' "^79" 0 0.8 # midiG' "^79" 0 0.8
# note (range "-12" 12 "^50") # note (range "-12" 12 "^51")
d3 d3
$ g $ g
$ midiOn "^44" (slow 2) $ midiOn "^44" (slow 2)
-- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]")
-- $ degradeBy ("0 0.95!7 0" - "^52")z
$ "~ h ~ h ~ h*2 ~ h" # "hh27:2" $ "~ h ~ h ~ h*2 ~ h" # "hh27:2"
# note ( # note (
whenmod 4 3 (2 -) whenmod 4 3 (2 -)
"0 . 2 0" "0 . 2 0"
) )
# midiG' "^80" 0 1.6 # midiG' "^80" 0 1.3
d4 $ g -- Synth brass choir d4 $ g -- Synth brass choir
$ midiOn "^57" (# crushbus 4 6) $ midiOn "^57" (# crushbus 4 6)
$ fix ( $ fix (
...@@ -54,22 +58,27 @@ d4 $ g -- Synth brass choir ...@@ -54,22 +58,27 @@ d4 $ g -- Synth brass choir
) "c" ) "c"
$ slice 4 "<0 1 2 3>" $ slice 4 "<0 1 2 3>"
$ "[a,b,c]" $ "[a,b,c]"
# midiG' "^81" 0 1.5 # midiG' "^81" 0 1
# crushbus 41 (range 16 1.6 "^13")
# room 0.3 # room 0.3
# pan 0.6
# sz 0.6 # sz 0.6
d5 $ g -- Jumpy Piano d5 $ g -- Jumpy Piano
$ midiOff "^58" (struct "t(2,4)") $ midiOff "^58" (struct "t(2,4)")
$ degradeBy ("0 0.95!7 0" - "^34") -- $ degradeBy ("0 0.95!7 0" - "^34")
$ juxBy 0.8 (rev . (# cut 51)) $ juxBy 0.8 (rev . (# cut 51))
$ mask "f <f!8 t!8>!3 . t" $ mask "f <f!8 t!8>!3 . t"
$ slice 8 (run ("4 <4 8>" * "<1!3 2>")) $ slice 8 (run ("4 <4 8>" * "<1!3 2>"))
$ "fpiano:3" $ "fpiano:3"
# cut 5 # cut 5
# pan 0.2
# crush (range 12 3 "^54") # crush (range 12 3 "^54")
# room 0.5 # room 0.5
# sz 0.7 # sz 0.7
# midiG' "^82" 0 1.5 # midiG' "^82" 0 1
d7 $ g d7 $ g
$ midiOn "^59" (ply "<1 1 2 2>")
$ midiOn "^91" (ply "<2!3 4>")
$ slice 8 (run ( $ slice 8 (run (
"<2!3 4>" "<2!3 4>"
* "<1!4 2!4 [2 1]*4 [2 4]*4>" * "<1!4 2!4 [2 1]*4 [2 4]*4>"
...@@ -78,12 +87,14 @@ d7 $ g ...@@ -78,12 +87,14 @@ d7 $ g
# midiG' "^83" 0 (1.2 - 0.5 * "^55") # midiG' "^83" 0 (1.2 - 0.5 * "^55")
# crushbus 7 (range 10 1.5 "^55") # crushbus 7 (range 10 1.5 "^55")
d8 $ g d8 $ g
$ midiOn "^60" (iter 4)
$ midiOn "^92" (ply 2)
$ loopAt 2 $ loopAt 2
$ degradeBy ("0 0.9!7 0" - "^56") $ degradeBy ("0 0.9!7 0" - "^56")
$ scramble 2 $ scramble 2
$ slice 8 (run 8) $ slice 8 (run 8)
$ "fbreak120" $ "fbreak120"
# room 0.8 # pan 0.7
# dry (1 + (slow 8 $ perlin * "^36")) # speed (range 0 2 "^56")
# midiG' "^84" 0 1.5 # midiG' "^84" 0 1.5
# cut 6 # cut 6
live/midi/nova/party/last_one.tidal
...@@ -23,7 +23,8 @@ d2 $ g ...@@ -23,7 +23,8 @@ d2 $ g
$ "~ s ~ <s!3 ~>" # "sn" # n "[1,10]" $ "~ s ~ <s!3 ~>" # "sn" # n "[1,10]"
# midiG' "^79" 0 1.6 # midiG' "^79" 0 1.6
d3 $ g d3 $ g
$ midiOn "^76" (fast 2) $ midiOn ("^44") (fast 2)
$ midiOn ("^76") (ply 2)
$ struct "t*[8 <<4 16> 16 <8 [8 4] 4 8> 16>]" $ struct "t*[8 <<4 16> 16 <8 [8 4] 4 8> 16>]"
$ "h2ogmhh" # n "[10|11|12]*4" $ "h2ogmhh" # n "[10|11|12]*4"
# midiG' "^80" 0 1.5 # midiG' "^80" 0 1.5
...@@ -68,7 +69,7 @@ d6 -- Guitare nostalgique ...@@ -68,7 +69,7 @@ d6 -- Guitare nostalgique
$ midiOn "^59" (slice 4 "0 1 2 3") $ midiOn "^59" (slice 4 "0 1 2 3")
$ mask "<t!3 f>" $ mask "<t!3 f>"
$ "fguitar" # n "<34!32 35!16 34!16>" $ "fguitar" # n "<34!32 35!16 34!16>"
# midiG' "^83" 0 1 # midiG' "^83" 0 1.5
# crushbus 60 (range 10 2.85 "^55") # crushbus 60 (range 10 2.85 "^55")
# pan 0.65 # pan 0.65
# cut 6 # cut 6
...@@ -79,7 +80,7 @@ d7 $ g -- C-Bows ...@@ -79,7 +80,7 @@ d7 $ g -- C-Bows
"<0 <-1 2>>" + "0(3,8) 0" "<0 <-1 2>>" + "0(3,8) 0"
)) ))
. (|+ note 24) . (|+ note 24)
. (|* gain (range 0 1 "^56")) . (|* gain (range 0 0.95 "^20"))
) )
$ note ( -- Graves! $ note ( -- Graves!
progm progm
...@@ -88,7 +89,7 @@ d7 $ g -- C-Bows ...@@ -88,7 +89,7 @@ d7 $ g -- C-Bows
) )
# "cbow:8" # "cbow:8"
# pan "<0.7!7 0.3>" # pan "<0.7!7 0.3>"
# midiG' ("^84" * "^20") 0 0.9 # midiG' ("^84" * "^56") 0 1.4
d8 $ g d8 $ g
$ midiOn "^60" (off "q" (# n 11) . (|* gain 0.95)) $ midiOn "^60" (off "q" (# n 11) . (|* gain 0.95))
$ note ( $ note (
......
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