From 7270231ef93448b7265dc2cca323da3656978909 Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Sat, 20 Feb 2021 23:26:59 +0100 Subject: [PATCH] live: invoque ete --- live/boeuf/fevrier.tidal | 134 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/lounge/invoque_ete.tidal | 79 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/computer_riddim.tidal | 4 ++++ live/midi/nova/instruments/8box.tidal | 10 ++++++++++ live/midi/nova/tidal_crime.tidal | 8 ++++---- study/val/layers.tidal | 104 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 6 files changed, 335 insertions(+), 4 deletions(-) create mode 100644 live/boeuf/fevrier.tidal create mode 100644 live/midi/lounge/invoque_ete.tidal create mode 100644 study/val/layers.tidal diff --git a/live/boeuf/fevrier.tidal b/live/boeuf/fevrier.tidal new file mode 100644 index 0000000..a3f634f --- /dev/null +++ b/live/boeuf/fevrier.tidal @@ -0,0 +1,134 @@ +setcps (0.5) + +do +let gG a = (gain ("^77" * a)) -- gain Global +let gM' l h a = (gG (range l h a)) -- gain Modéré +let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux +let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49"))))) +let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49")))))) +let gDJF = (gLPF . gHPF) +let novaOn ch pat = (sometimesBy ch pat) +let novaOff ch pat = sometimesBy (1 - ch) (pat) +let gSync = ("0.18" <~) +let g = gSync . gDJF +d1 $ g + $ novaOn "^41" (<| "k k k ") + $ novaOff "^41" (<| "k . k(<3 1 3 5>,8)") + $ "reverbkick" # gM' 0 1.4 "^78" +d2 $ (|- lpf 2000) $ g + -- $ whenmod 8 6 (degradeBy "<0.25 0.75>" . stut 4 0.9 "e") + $ novaOn "^41" (|- note 24) + $ fast 2 $ "~ [cp,drum:2]" + # gM' 0 1.5 "^79" + # lpq "^51" + # size 0.9 + # room 0.2 # dry 0.99 +d3 $ g + $ loopAt 1 + $ novaOn "^76" (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>")) + $ novaOff "^76" (slice 8 "0 <0 1>*<1 2> <2 0> <0 0 3 3>") + $ "breaks165" + # lpq "^52" + # room 0.5 + # gM' 0 2 "^80" +d4 $ g + -- $ someCycles (swingBy 2) + $ novaOn "^89" (chop 16) + -- $ novaOn "^58" (+ note (slow 4 "<0 12>")) + $ note (scale "aeolian" + (" [c ]" + + "[0,4,9]") -- TODO LEARN VAL: layering accords + ) + -- # detune 1.005 + # octave 3 + # "bassWarsaw" + # voice (range 0.1 2 "^33") + # gM' 0.4 1.5 "^81" + # room 0.6 # sz 0.7 + # crush (range 10 3.1 "^53") + # pan 0.4 +d5 $ g + $ inside 4 (someCyclesBy "^34" (ply 2)) + $ sometimesBy "^54" (swingBy "q" 4) + $ note (scale "aeolian" ( + "<0 9 7 2>" -- progression + + "[0 2 4 <0 6>]*4" -- arpegiateur + + "[0 <7 <-7 14>>]" -- spread + - 7 + )) + # "FMRhodes1" + # gM' 0 2 "^82" + +-- # + +do +let gF = 1.5 +let gG a = (gain (gF * "^77" * a)) -- gain Global +let gM' l h a = (gG (range l h a)) -- gain Modéré +let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux +let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49"))))) +let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49")))))) +let gDJF = (gLPF . gHPF) +let novaOn ch pat = (sometimesBy ch pat) +let novaOff ch pat = sometimesBy (1 - ch) (pat) +let gSync = ("0.18" <~) +let g = gSync . gDJF +let modIndex = pF "modIndex" -- 0.2 +let mix = pF "mix" -- 0.2 +let prog = "<5 0 6 4 3>" +-- let prog = "<0 6 6 6 6>" +d1 $ g + $ novaOn "^74" (mask "t(4,8)") + $ novaOn "^75" (mask "t(3,8)") + $ loopAt 2 + $ slice 8 "0 1 2 3 <4!3 0> <5!3 1> <6 0> <7 0>" + $ "fbreak120:2" + # gM' 0 1.5 "^78" +d2 $ (|- lpf 100) $ g + $ "[~ hh*<1 1 2 <1 2>>]*4" + # lpq (range 0 0.45 "^51") + # gM' 0 1.5 "^79" +d3 $ g + $ novaOn "^60" (fast 2) + $ "~ clap" + # gM' 0 1.2 "^84" +d4 $ g + $ novaOn "^89" (chop 4) + $ off "q" (|+ note 12) + $ note (scale "aeolian" (prog + + "[0,4,9]" + + "[0 <7 <-7 -14>>]" -- spread + - 21)) + # "FMRhodes1" + # mix (range 0 20 "^33") + # modIndex (range 0.2 100 "^53") + # gM' 0 1.2 "^81" + # room 0.5 # sz 0.6 +d5 $ g + $ note (scale "aeolian" (prog + + "0 . <0 0(3,8)>" -- rythme + + "[0,4,9]" + - 28 + ) + ) + # crush (range 10 3.5 "^54") + # "bassWarsaw" # gM' 0 1.3 "^82" + # room 0.3 +d6 $ g + $ whenmod 4 2 (off "h" ( + (|+ note 12) . (|* gain 0.5) . (# room 0.5)) + ) + $ slice 8 "<3!3 5>" + $ "fguitar:42" + # gM' 0 1 "^83" +d8 $ g + $ whenmod 32 16 (slice 3 "<0!4 2!4> 1 2 <2!3 3>") + $ mask "" + $ "bogdan:10" + -- # lpfbus 1 (10000) + -- # lpfbus 1 (fast (cycleChoose [1,2,4]) + -- $ segment 32 $ range 50 4000 sine) + # gM' 0 1 "^84" + # cut 1 + +once $ "dr" diff --git a/live/midi/lounge/invoque_ete.tidal b/live/midi/lounge/invoque_ete.tidal new file mode 100644 index 0000000..8c403f9 --- /dev/null +++ b/live/midi/lounge/invoque_ete.tidal @@ -0,0 +1,79 @@ +do +let gG a = (gain ("^77" * a)) -- gain Global +let gM' l h a = (gG (range l h a)) -- gain Modéré +let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux +let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49"))))) +let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49")))))) +let gDJF = (gLPF . gHPF) +let novaOn ch pat = (sometimesBy ch pat) +let novaOff ch pat = sometimesBy (1 - ch) (pat) +let gSync = ("0.18" <~) +let g = gDJF +setcps (115/60/4) +d1 $ g + $ novaOn "^41" (<| "k k k ") + $ novaOff "^41" (<| "k*2") + $ "[jazz,808bd:1]" + # gM' 0 1.2 "^78" +d2 + $ (|* gain + "0.75 1 1 1 0.75 1 1 1" ) + $ "d ~ ~ d d ~ d <~!3 d>" + # "snare:22" # gM' 0 1.2 "^79" +d4 $ g + $ novaOn "^44" (slow 2) + $ novaOn "^76" (slice 8 ("0 1 2 3 <4 0> <5 1> 6 7") . (loopAt 2) . (>| "fbreak80:2") . + (# gM' 0 1.5 "^80") + ) + $ (|* gain (slow 2 $ range 1 1.1 perlin)) + $ novaOff "^76" (<| "s*[8 . 16 8 8]" ) + $ "snare:26" + # gM' 0 1 "^80" + # cut 4 +d5 $ g + $ loopAt 2 + $ slice 8 (run "<4!4 8 8 [4 8 4] 8>") + $ "fbass:13" + # pan 0.2 + # gM' 0.2 1 "^81" + # room 0.2 + # crush (range 10 4.5 "^53") + # cut 4 +d6 $ g + $ whenmod 16 12 (rev) + $ whenmod 8 4 (chop 4) + $ loopAt 4 + $ "fguitar" # n "<12!16 13!16>" + # gM' 0 1 "^82" + # pan 0.75 + # room 0.2 # dry 1 + # cut 3 +d7 $ g + $ loopAt 4 + $ mask "t(<4 8 12 16>,16)" + $ slice 16 (run 16) + $ "fpiano:13" + # pan 0.45 + # room 0.2 + # gM' 0 1.3 "^83" + # cut 7 +d8 + $ novaOn "^60" ( + superimpose ( + struct "t(5,8)" + . arp "down" + . (|+ note 12) + . (|* gain 1.1) + . (|- pan 0.1) + ) + . superimpose ( + arp "up" + . (|+ note 12) + . (|* gain 0.9) + . (|- pan 0.25) + )) + $ note "" + # crush (range 8 4 "^56") + # room 0.4 + # "moogBass" + # gM' 0 1 "^84" diff --git a/live/midi/nova/computer_riddim.tidal b/live/midi/nova/computer_riddim.tidal index 3fa3fe0..58ea9fb 100644 --- a/live/midi/nova/computer_riddim.tidal +++ b/live/midi/nova/computer_riddim.tidal @@ -4,6 +4,10 @@ -- Skipped: Chap 21 (Too complex, rather live synth) -- TODO: Chap 22 - From reggae to dub +d1 $ "superpiano" # room 0.1 + +setcps 0.5 + do -- region Nova Utils diff --git a/live/midi/nova/instruments/8box.tidal b/live/midi/nova/instruments/8box.tidal index a77d902..f2fe192 100644 --- a/live/midi/nova/instruments/8box.tidal +++ b/live/midi/nova/instruments/8box.tidal @@ -1,3 +1,13 @@ +-- region wit val +do +d1 $ euclidOff + (discretise 8 ((cF "49")*16)) + 8 -- (round ("^29" * 16)) + 0 -- (round ("^13" * 16)) + $ "jazz" + +-- endregion + do -- region Nova Utils diff --git a/live/midi/nova/tidal_crime.tidal b/live/midi/nova/tidal_crime.tidal index 28443c6..38d7a9d 100644 --- a/live/midi/nova/tidal_crime.tidal +++ b/live/midi/nova/tidal_crime.tidal @@ -15,13 +15,14 @@ let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49"))))) let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49")))))) let gDJF = (gLPF . gHPF) +let gRes = (# hpq "^29") . (# lpq "^30") let novaOn ch pat = (someCyclesBy ch pat) let novaOff ch pat = someCyclesBy (1 - ch) pat -- endregion Nova Utils let sawHarmonic = pF "sawHarmonic" let mix = pF "mix" let modIndex = pF "modIndex" -- 0.2 -let g = gDJF +let g = (gDJF . gRes) let gMix = ((# mix (range 0 20 "^53")) . (|* gain (range 1 0.7 "^53"))) let gMod = ((# modIndex (range 0.2 100 "^33")) . (|* gain (range 1 0.6 "^33"))) let gP = (gMix . gMod) @@ -31,9 +32,8 @@ d1 $ g -- $ mask "< t!12 f!4 t f!3 t!8>" $ novaOff "^42" (<|"k . ~ k ~ ~") $ novaOn "^42" (<| "k k k ") - $ "[jazz,cpu2]" - # lpf 4000 - # gM' 0 0.9 "^78" + $ "[jazz,cpu2,kick:5]" + # gM' 0 1.2 "^78" d2 $ g $ whenmod 16 8 (-- clap superimpose ((# "clap") . (# lpf 200) . (# note "-0") diff --git a/study/val/layers.tidal b/study/val/layers.tidal new file mode 100644 index 0000000..26d2e4c --- /dev/null +++ b/study/val/layers.tidal @@ -0,0 +1,104 @@ + + +do +let gG a = (gain ("^77" * a)) -- gain Global +let gM' l h a = (gG (range l h a)) -- gain Modéré +let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux +let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49"))))) +let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49")))))) +let gDJF = (gLPF . gHPF) +let novaOn ch pat = someCyclesBy ch pat +let novaOff ch pat = someCyclesBy (1 - ch) (pat) +let chorus = pF "chorus" +let cutoff = pF "cutoff" +let lagamount = pF "lagamount" +let pAtt = pF "att" +let prog = "<0 <2 3> 4 0>" +let g = gDJF +d1 $ g + $ novaOn "^74" (<| "K*16") + $ novaOn "^42" (<| "k k k ") + $ superimpose ((|* gain 0.75) . (# "kick:5")) + $ "[jazz,cpu]" + # room 0.8 # sz 0.8 # dry 1 + # gM' 0 1.5 "^78" +d2 $ g + $ novaOn "^75" (slice 8 ("0 1 2 3 0 ~ 3 <~ ~ 3 3>") . (loopAt 4) . (>| "fbreak100:1")) + $ novaOff "^75" (<| "~ s*<[1 . <1!4 2 2 4 4>]!8 [<4 8 8 4> <8 [8 . 4 8] 4 [8 4]>]!8>") + $ fast 2 + $ "snare" # n "[20,21,28]" + # release "0.125!<7!3 3> 1" + # gM' 0 1.4 "^79" +d3 + $ g + $ loopAt 2 + $ slice 4 ("[0 1 <~!4 2!4> <~!8 3!8> <~!8 4!4 ~!4 4!16> 5 ~ ~] [<0 1> ~]") + $ "fbreak120:2" + # room 0.08 + # pan (slow 16 $ range 0.4 0.6 sine) + # gM' 0 0.8 "^80" +d9 $ g + $ whenmod 16 12 (often (off "q e" id)) + $ whenmod 16 8 (fast 2) + $ "~ clap" + # lpf 400 + # lpq 0.21 # attack 0.45 + # room 0.4 # sz 0.8 + # pan 0.8 + # gM' 0 1.2 "^84" +d4 $ g -- BASSLINE + $ note (scale "aeolian" ( + whenmod 16 8 (+ "[<0!3 7> <7!3 <0 7>>]") -- spread + $ novaOn "^57" (+ "[0 0 ~ 2 . ~ <2!3 3>]*2") -- arp + prog + + "[0,4,9]" + - 21 + )) + # "supersaw" + # voice "^17" + # pan 0.3 + # accelerate (range "-4" 4 "^33") + # lfo (range "-2" 2 "^53") + # gM' 0 1.2 "^81" +d5 $ g + $ note (scale "aeolian" ( + prog + + "[0,7,16]" + + "[[0 2 <2 0 2 3> 3] [~ 3]]*<[1 2] [2 1]>" + - 21 + )) + # "FMRhodes1" + # pan 0.8 + # gM' 0 2 "^82" +d6 + $ juxBy 0.8 rev + $ novaOn "^59" (someCyclesBy 0.75 (off "q" id)) + $ note (scale "aeolian" (prog + "[0,9]" + + "0 <-7!4 -5 -5 -7 -5>" + )) + # "moogBass" + # pAtt 0.1 # rel 2 + # legato 2 + # chorus "^55" + # cutoff (range 500 3000 "^35") + # room 0.2 + # gM' 0 1.5 "^83" + + + + + +-- From boeuf/fevrier +d5 + -- $ g + -- $ inside 4 (someCyclesBy "^34" (ply 2)) + $ sometimesBy "^54" (swingBy "q" 4) + $ note (scale "aeolian" ( + "<0 9 7 2>" -- progression + + "[0 2 4 <0 6>]*4" -- arpegiateur + + "[0 <7 <-7 14>>]" -- spread + - 7 + )) + # "FMRhodes1" + -- # gM' 0 2 "^82" + # gain 0.7 -- libgit2 0.27.0