From f0643d1c98047a8a71de694c3b4dcea221d091b1 Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Sun, 14 Feb 2021 01:18:54 +0100 Subject: [PATCH] live: Crime --- live/bdmania.tidal | 2 +- live/midi/nova/computer_riddim.tidal | 1 + live/midi/nova/instruments/AtomicRhodes.tidal | 19 ++++++++++++++++++- live/ncis_evening.tidal | 109 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/remix/stup.tidal | 43 +++++++++++++++++++++++++++++++++++++++++++ 5 files changed, 172 insertions(+), 2 deletions(-) create mode 100644 live/ncis_evening.tidal create mode 100644 live/remix/stup.tidal diff --git a/live/bdmania.tidal b/live/bdmania.tidal index c9d6a01..54261ac 100644 --- a/live/bdmania.tidal +++ b/live/bdmania.tidal @@ -21,7 +21,7 @@ $ sound "bd" # note "<<28 21 14 7 0> <7 14 21 28 35 42 49 56 63 70>>" >| speed ( segment 100 - $ range 1 3 saw + $ range 1 3 cosine ) # gain 0.65 diff --git a/live/midi/nova/computer_riddim.tidal b/live/midi/nova/computer_riddim.tidal index 4bab8f4..3fa3fe0 100644 --- a/live/midi/nova/computer_riddim.tidal +++ b/live/midi/nova/computer_riddim.tidal @@ -4,6 +4,7 @@ -- Skipped: Chap 21 (Too complex, rather live synth) -- TODO: Chap 22 - From reggae to dub + do -- region Nova Utils let gG a = (gain ("^77" * a)) -- gain Global diff --git a/live/midi/nova/instruments/AtomicRhodes.tidal b/live/midi/nova/instruments/AtomicRhodes.tidal index 9fda833..aa1035b 100644 --- a/live/midi/nova/instruments/AtomicRhodes.tidal +++ b/live/midi/nova/instruments/AtomicRhodes.tidal @@ -1,6 +1,23 @@ resetCycles do +d1 $ "" # "reverbkick" # gain 0.7 +d2 + +once $ note (arpeggiate "c2'maj'4") + # "supergong" # gain 0.65 + # accelerate (-0.4) + +d1 +$ n (slow 2 $ fmap (*7) $ run 8) +# s "supergong" +# decay (range 0 1000 "^13") +# voice (range "-1" 1 "^14") +# accelerate (range "-1" 1 "^29") +# gain 0.7 + + +do let gFactor = 1.2 let gG a = (gain (gFactor * "^77" * a)) -- gain Global let gM' l h a = (gG (range l h a)) -- gain Modéré @@ -38,7 +55,7 @@ d1 $ g $ degradeBy (1 - "1 ^49!15") $ off "h" id $ "FMRhodes1" - # gain (range 0.5 1.5 "^77") + # gain (range 0.3 1.5 "^77") # inputLevel 0.1 d2 $ gA $ whenmod 32 24 (slow 2) "[jazz,techno]*4" # gain 0.57 d3 $ gA diff --git a/live/ncis_evening.tidal b/live/ncis_evening.tidal new file mode 100644 index 0000000..ed14770 --- /dev/null +++ b/live/ncis_evening.tidal @@ -0,0 +1,109 @@ +resetCycles + + +do +-- region Nova Utils +let gFactor = 1.2 +let gG a = (gain (gFactor * "^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 +-- endregion Nova Utils +let sawHarmonic = pF "sawHarmonic" +let mix = pF "mix" +let modIndex = pF "modIndex" -- 0.2 +let g = gDJF +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) +let keyboard = "FMRhodes1" +setcps (110/60/4) +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" +d2 $ g + $ whenmod 16 8 (-- clap + superimpose ((# "clap") . (# lpf 200) . (# note "-0") + . (|* gain "<0.85 0.9 1!6>")) + ) + $ novaOn "^42" (<| "~ s ~ s*2") + $ novaOff "^42" (<| "~ s ~ s") + $ "sn:20" + # lpf 2000 + # gM' 0.2 0.9 "^79" +d3 $ g + $ novaOn ("^76") --BOUTON NASSIM + (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1) + . (>| "breaks125") + ) + $ novaOff "^76" (|* gain (slow 16 $ range 0.7 1 saw)) + $ "d d d d d d d*2 d" + # "[drum:2,amencutup:5]" + # gM' 0 0.75 "^80" + # pan (slow 16 $ range 0.1 0.9 sine) + # room 0.2 # dry 0.99 +d4 $ g $ gP -- Gauche + $ mask "" + $ note " . ~ [gs3 g3]" + # keyboard + # gM' 0 1.2 ("^81" * range 0.8 1 sine) + # pan 0.45 +d5 $ g $ gP -- Droite 2/3 + $ whenmod 16 10 (superimpose (const + $ note ( + "[gs5 g5 gs5 ~] [g5 ~ . ] . ~" + ) + # keyboard + # pan 0.65 + # gM' 0 1 "^81" + )) + $ mask "" + $ note ( + " . ~ <[gs3 g3][gs3 g3 f3]>" + 12 + ) + # keyboard + # pan 0.55 + # gM' 0 0.9 "^81" +d6 $ g -- Horloge + $ fast 8 + $ note "<0 -2>" + # "drum:2" + # hpf 5000 + # hpq 0.3 + # room 0.1 # dry 0.98 + # gain ("^80" * 0.45) +d7 $ g + $ mask "" + $ note "[gs5 g5 gs5 ~] [g5 ~ . ] . <~ ~ [ ~ . ] [~ as5]> ~" + # "strings" + # sawHarmonic 1.9 + # pan 0.1 + # mix 0.8 + # gM' 0 0.8 "^83" + # room 0.2 +d8 $ g + $ novaOn "^90" (chop 16) + $ novaOn "^58" (+ note (slow 4 "<0 12>")) + $ note ("") + # "bassWarsaw" + # voice (range 0.1 2 "^34") + # room 0.6 # sz 0.2 + # gM' 0.4 1 "^82" + # crush (range 10 3.6 "^54") +d9 $ note ("gs5(3,8)") # "supergong" # gM' 0 0.8 "^83" + + 11 │ //Standard Definitions + 12 │ out = 0, freq = 440, amp = 1, gate = 1, pan = 0, freqLag = 0.2, att = 0.001, dec = 0.1, sus = 0.75, rel = 0.3, + 13 │ //Other Controls (mix ranges from 0 - 1) + 14 │ rq = 0.001, combHarmonic = 4, sawHarmonic = 1.5, mix = 0.33; + + +once $ "amencutup:3" # gain 0.6 diff --git a/live/remix/stup.tidal b/live/remix/stup.tidal new file mode 100644 index 0000000..c6984e4 --- /dev/null +++ b/live/remix/stup.tidal @@ -0,0 +1,43 @@ + +do +resetCycles +let ptits = "stup" # cut 894 # end 0.19 # begin 0.03 +let trucs = "stup" # cut 894 # begin 0.15 # end 0.19 +let ensemble = "stup" # cut 894 # end 0.448 +setcps (95/60/4) +d1 + $ "k . <~ k> ~ ~" + # "[jazz,reverbkick]" + # lpf 5000 + # room 0.3 # dry 0.99 + # gain 0.7 +d3 + $ "[d*<2 4 2 <1 [4 8]>>]*4" + # "[drum:2,hh]" + # pan 0.3 # gain 0.75 +d2 $ loopAt 1 + $ slice 8 "0 1 <2!3 [2 ~ 1 2]> [<3!3 ~> <~ 3!3>]" + $ "breaks125" + # gain 0.7 +d4 + $ somecyclesBy "<0 1 1 0>" (off "h" ( + stut 4 0.75 "" . (# cut 8941) . (# trucs)) + . (# pan 0.98) . (# room 0.1) . (|* gain 0.8) + ) + $ someCyclesBy "<0!3 1>" (# ensemble) + $ ptits # gain (slow 16 $ range 1 0.85 saw) +d5 + $ mask "" + $ whenmod 16 4 (juxBy 0.8 ( + whenmod 32 16 (ply "<2 4>") + . chop ("4 <4 <8 16>>") + )) + $ note ("") # "supersaw" + # gain 0.32 + # pan 0.2 # room 0.1 +d6 + $ mask "" + $ note (">") # "supersaw" + # gain (slow 4 $ range 0.35 0.42 saw) + # pan 0.8 + # room 0.1 -- libgit2 0.27.0