live: backlog@home

backlog.md

 # Coop
-
 -- Stupefaction
 
 # Work in progress
@@ -38,7 +37,7 @@ Beats.tidal: various background beats, hip/techno
 ## Prod
 
 <!-- region TODO: Record! -->
-Invoque ete
+Invoque ete: peaufinage :)
 Epilog!
 <!-- endregion -->
 

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"))

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 "<f!3 t>")
+  $ superimpose ((|- note 12) . (# cut 81) . (|* gain 0.85))
   $ note ("<g [<a d> bf d ~]> <g [~ g a]>" + "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 $ "<up down updown downup>")
-    . (|+ 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

live/midi/nova/instruments/scratchomatic.tidal

+
+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) . <k k*2 [k . ~ k] <~ [~ k*4]>>" # "[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) [<t!3 [~ t]> <t ~> <t t*2> <t*2 t t*2 t*2>]"
+  $ "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!4 [t . <~ 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

live/midi/nova/lounge/invoque_ete.tidal

 
 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) [<t!3 [~ t]> <t ~> <t t*2> <t*2 t t*2 t*2>]"

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