From 7c619d62a33ed822a7a477e1e78ed007edf0a437 Mon Sep 17 00:00:00 2001 From: PLN Date: Sat, 6 Mar 2021 01:36:25 +0100 Subject: [PATCH] live: backlog@home --- backlog.md | 3 +-- live/midi/nova/FFF/mad_fonk.tidal | 4 ++-- live/midi/nova/computer_riddim.tidal | 98 ++++++-------------------------------------------------------------------------------------------- live/midi/nova/instruments/scratchomatic.tidal | 79 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/lounge/invoque_ete.tidal | 10 +++++++--- live/midi/nova/minneapolis.tidal | 2 +- 6 files changed, 96 insertions(+), 100 deletions(-) create mode 100644 live/midi/nova/instruments/scratchomatic.tidal diff --git a/backlog.md b/backlog.md index a5c11ae..f841113 100644 --- a/backlog.md +++ b/backlog.md @@ -1,5 +1,4 @@ # Coop - -- Stupefaction # Work in progress @@ -38,7 +37,7 @@ Beats.tidal: various background beats, hip/techno ## Prod -Invoque ete +Invoque ete: peaufinage :) Epilog! diff --git a/live/midi/nova/FFF/mad_fonk.tidal b/live/midi/nova/FFF/mad_fonk.tidal index 3b0d2a9..6056d3c 100644 --- a/live/midi/nova/FFF/mad_fonk.tidal +++ b/live/midi/nova/FFF/mad_fonk.tidal @@ -14,8 +14,8 @@ do 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 novaOn ch pat = someCyclesBy ch pat + let novaOff ch pat = someCyclesBy (1 - ch) pat -- endregion Nova Utils let gDelayD = (# delay (range 0 5 "^13")) let gDelayFB = (# delayfb (range 0 0.9 "^14")) diff --git a/live/midi/nova/computer_riddim.tidal b/live/midi/nova/computer_riddim.tidal index 58ea9fb..d2d8148 100644 --- a/live/midi/nova/computer_riddim.tidal +++ b/live/midi/nova/computer_riddim.tidal @@ -4,10 +4,6 @@ -- 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 @@ -73,6 +69,7 @@ d4 $ g -- Bassline # pan 0.6 # attack (range 0 1 "^53") # crush (range 16 4 "^53") + # lpq (range 0 1 "^33") # release 0.95 # orbit 1 # gM' 0.25 1.2 "^81" @@ -99,6 +96,7 @@ d6 $ g $ gDelay-- Skank Hammond # gM' 0 0.8 ("[0 0.25 0 0]" |+ "^82" * (range 0 0.9 "^34")) # voice 6 # octave 6 + # pan 0.74 # sustain 0.25 d7 $ g $ gDelay -- Skank Guitar @@ -107,8 +105,10 @@ d7 # octave 5 # gM' 0 1 ("^82" * ((range 0.25 1.5 "^18"))) d8 -- Trompette lancinante - $ g $ gDelay + $ g $ gDelayD + $ degradeBy "^35" $ novaOn "^59" (mask "") + $ superimpose ((|- note 12) . (# cut 81) . (|* gain 0.85)) $ note (" bf d ~]> " + "0 <12 0>") # "brass" # n "2" # gM' 0.2 0.85 ("^55") @@ -125,91 +125,5 @@ d9 -- CP # dry 0.9 # lpf 2000 -once $ "brass:4" # gain 0.6 # cut 1 --- TODO: BELOW COPIED FROM MINNEAPOLIS -d6 $ g -- - $ every' 4 3 ( -- acceleration + cymbale - fast "2 1" . (# n "0!3 1") - . (|* gain "1!3 <0.65 0.8>") - ) - $ s "hh(<3!4 5!4>,8)" - # gM' 0 0 "^80" - # pan 0.7 -d4 $ g - -- $ degradeBy "0 0.9!7" -- OUTRO - $ mask "t(<1 2!2 4>,4)" - $ superimpose ( - often (off 0.125 (|+ note "<0!3 12>")) - . arp (slow 8 $ "") - . (|+ note 36) - . (# sustain 0.5) - . (|* velocity 1.1) - . (# sz 0.8) - . (|+ pan 0.15) - ) - $ note (melody) - # s "superpiano" - # gM' 0 1 "^82" - # velocity 0.55 - # sustain 1 - # room 0.4 # size 0.2 - # pan 0.5 -d5 $ g -- Basse + Sirene - $ sometimesBy ("^57") ( -- TECHNOPHILE - chop 4 - . often (ply 4) - -- . (# crush (range 16 3.5 "^33")) - ) - $ superimpose ( - slow 4 - . (# s "supersiren") - . (-| note 12) -- 24 when crushed - . (# gM' 0 0.8 (( - "^81" -- gain bass - * (range 0.6 0.9 "^53") -- Modulated 5C - ) - - (0.125 * "^57") -- When TECHNOPHILE - )) - . (# room 0.5) - . (# size 0.8) - ) - $ note ( - "0*2 0 . 0 <7 5 5 7> ~ 0" - + melodyFirst - ) - # s "supersaw" - # voice 0.02 - # crush (range 16 3.5 "^33") - # gM' 0 0.8 "^81" - # pan (slow 10 $ range 0.6 0.8 sine) -d7 $ g -- Claps fantomes - $ s "~ . cp*<1 1 2 1 1!3 2> ~" - # room (range 0.2 0.95 "^55") - # sz (range 0.5 0.9 perlin) - # dry 1.05 - # gM' 0 1 "^83" - # pan (slow 8 $ range 0.45 0.65 saw) -d8 $ g -- Gunfire - $ sometimesBy "^20" ( - superimpose (const -- pistolets - $ sometimes ( -- réplique - off 0.5 (|+ gain 0.1) - . (# room 0.25) - ) - $ often (stut 2 0.85 (1/16)) -- écho - $ s "~ ~ ~ snare:57" - # speed (range 0.4 1 ("^36" + perlin/4)) - # gM' 0 1 ("^56") - # cut 80 - # dry 1.02 - # pan (range 0.2 0.8 perlin) - ) - ) - $ s "fire" - # begin (slow 4 "<0 0.2 0.5>") - # cut 8 - # room 0.6 # size 0.4 - # speed (range 0.5 1 ("^35" + perlin/4)) - # gM "^84" - # delay 0.3 # delaytime (1/3) # delayfb 0.8 +once $ "brass:4" # gain 0.6 # cut 1 diff --git a/live/midi/nova/instruments/scratchomatic.tidal b/live/midi/nova/instruments/scratchomatic.tidal new file mode 100644 index 0000000..7d1710a --- /dev/null +++ b/live/midi/nova/instruments/scratchomatic.tidal @@ -0,0 +1,79 @@ + +do +let gF = 1.5 +let gG a = (gain (gF * a)) -- gain Global +let gR l h a = (gain (range l h a)) -- gain Modulé noglob +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 ("^29"))))) +let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^29")))))) +let gDJF = (gLPF . gHPF) +let novaOn ch pat = someCyclesBy ch pat +let novaOff ch pat = someCyclesBy (1 - ch) pat +let novaNo c1 c2 pat = someCyclesBy ((1 - c1 - c2)) pat +-- let gRythm = (novaOn "^41" (euclid 3 8)) . (novaOn "^42" (fast 4)) . (novaNo "^41" "^42" (fast 2)) +let gCPS = (# cps ((range 60 124 "^13")/60/4)) +let g = gCPS . gDJF +let gAcc = g . (novaOff "^41" (# silence)) . (|* gain "^84") +d10 $ gAcc -- Kick + $ "k(3,8) . >" # "[jazz,hh:6]" + # att 0.3 # sus 0.3 + # room 0.4 # dry 1.01 # sz 0.8 + # gain 2.6 +d9 $ gAcc $ "drum:2*8" # gain 1 +d1 $ g -- Main + $ struct "t(3,8) [ ]" + $ "hh:3" + # speed (range 0.75 2 "^49") + # gR 0 1.8 "^77" + # pan 0 +d2 -- moineau! + $ g + $ someCyclesBy "<0 0 0.25 0.5>" (swingBy "q" 8) + $ sometimesBy "0!7 0.5" (hurry 2) + $ fast "<8!3 16> <8 16>" $ "birds3:[0|2]" + # speed (range 0.75 2 "^50") + # gR 0 2 "^78" + # pan 0.3 +d3 $ g -- nass + $ struct "~ t ~ <~ ~ t t>]!4>" + $ "nass" + # speed (range 0.5 1.5 "^31") + # attack (range 0.125 0.5 "^51") + # cut 3 + # gR 0 2 "^79" +d4 $ g -- plastic visseuse + $ novaOn "^76" (chop "8 . [<8 [8|16]> [8|16] <[8|16] 16>] 8") + $ novaOff "^76" (chop "[4|5] <1 2>") + $ "[dr:3,dr:4]" + # speed (segment 16 $ range 0.4 1.5 "^52") + # attack (segment 16 $ range 0.01 0.5 "^32") + # gR 0 2 "^80" + # pan 0.6 +d5 $ g + $ sometimesBy "^54" (slow 2) + $ sometimesBy "^53" (fast 2) + $ fast "4 <8 4 8 16>" + $ "jazz:6" -- Bot + # speed (slow 16 $ range (range 0.01 1 "^33") (range 1 1.5 "^34") saw) + # gR 0 1.4 "^81" + # pan 0.7 +d11 $ gAcc + $ sometimesBy "0 0.75" (off "q" (|* gain 0.95)) + $ slice 8 "<[0 1] [2 3] [0 3] [2 3]>" + $ "fbass:1" # gain 1.4 + # pan 0.7 + + # cut 11 -- Company funky + + + + once $ + + once + + once $ + + once $ + + once $ "hh:3" # gain 1.2 diff --git a/live/midi/nova/lounge/invoque_ete.tidal b/live/midi/nova/lounge/invoque_ete.tidal index af75593..3dcbde8 100644 --- a/live/midi/nova/lounge/invoque_ete.tidal +++ b/live/midi/nova/lounge/invoque_ete.tidal @@ -1,6 +1,7 @@ do -let gG a = (gain ("^77" * a)) -- gain Global +let gF = 1.2 +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"))))) @@ -21,6 +22,7 @@ d2 "0.75 1 1 1 0.75 1 1 1" ) $ "d ~ ~ d d ~ d <~!3 d>" # "snare:22" # gM' 0 1.2 "^79" + # speed (range 0.5 1.5 "^51") d4 $ g $ novaOn "^44" (slow 2) $ novaOn "^76" (slice 8 ("0 1 2 3 <4 0> <5 1> 6 7") . (loopAt 2) . (>| "fbreak80:2") . @@ -29,6 +31,7 @@ d4 $ g $ (|* gain (slow 2 $ range 1 1.1 perlin)) $ novaOff "^76" (<| "s*[8 . 16 8 8]" ) $ "snare:26" + # speed (range 0.5 1.5 "^52") # gM' 0 1 "^80" # cut 4 d5 $ g @@ -36,7 +39,7 @@ d5 $ g $ slice 8 (run "<4!4 8 8 [4 8 4] 8>") $ "fbass:13" # pan 0.2 - # gM' 0.2 1 "^81" + # gM' 0.4 1.1 "^81" # room 0.2 # crush (range 10 4.5 "^53") # cut 4 @@ -58,7 +61,7 @@ d7 $ g # room 0.2 # gM' 0 1.3 "^83" # cut 7 -d8 +d8 $ g $ novaOn "^60" ( superimpose ( struct "t(5,8)" @@ -78,6 +81,7 @@ d8 # room 0.4 # "moogBass" # gM' 0 1 "^84" + # pan (segment 16 $ "^36") d9 $ g -- $ whenmod 8 4 (juxBy 0.5 rev) $ struct "t(3,8) [ ]" diff --git a/live/midi/nova/minneapolis.tidal b/live/midi/nova/minneapolis.tidal index c0a636b..8c678bd 100644 --- a/live/midi/nova/minneapolis.tidal +++ b/live/midi/nova/minneapolis.tidal @@ -86,7 +86,7 @@ d4 $ g ) $ note (melody) # s "superpiano" - # gM' 0 0.9 "^82" + # gM' 0 1.1 "^82" # velocity (range 0.35 0.60 ("^54" + (fast 4 perlin/8))) # sustain (max 0.45 $ min 1 (2 * range 0.15 1 "^18")) # room 0.4 # size 0.2 -- libgit2 0.27.0