Live: Post FDLM versioning

backlog.md

@@ -3,6 +3,7 @@
 
 # Coop
 ## RAPH
+- 8Bit Race!!!
 - OldSkoolRadius: Raph
 -- Diable with Raph
 -- Partir with Raph

lib-parvagues/src/Sound/Tidal/ParVagues/Control.tidal

@@ -10,7 +10,7 @@
   midiDJF   ch lMin lMax hMin hMax = (_LPF lMin lMax ch) . (_HPF hMin hMax ch)
   -- FIXME: Seems to cut some lows when lMin != 0
   -- Midi gain control (faders)
-  midiGGlobal = "^77" * 1.8
+  midiGGlobal = "^77" * 1.9
   _gainG ch     = (gain (midiGGlobal * ch)) -- gain Global
   midiG' ch l h = _gainG (range l h ch)     -- midiGain   control
   midiG  ch     = midiG' ch 0 1             -- midiGain   default

live/boeuf/algorythm/intro_parvagues.tidal

 
 
+
+_______ _             ______             _
+(_______) |           (_____ \        _  | |
+_______| | ____  ___  _____) )   _ _| |_| |__  ____
+|  ___  | |/ _  |/ _ \|  __  / | | (_   _)  _ \|    \
+| |   | | ( (_| | |_| | |  \ \ |_| | | |_| | | | | | |
+|_|   |_|\_)___ |\___/|_|   |_\__  |  \__)_| |_|_|_|_|
+         (_____|            (____/
+
+
+           FETE DE LA MUSIQUE
+                  2022
+
+
+
+
+
   ____          __     __
  |  _ \ __ _ _ _\ \   / /_ _  __ _ _   _  ___  ___
  | |_) / _` | '__\ \ / / _` |/ _` | | | |/ _ \/ __|
@@ -9,6 +26,19 @@
 
 Music LiveCoding with TidalCycles
 
+setcps (120/60/4)
+
+do
+let g = (# djf "^49")
+d1 $ g $ "k . k(3,8)" #  "kick:5"
+d2 $ g $ "~ snare:20"
+d3 $ g $ fast "<1 [2|1] [2|4] 4>" $ "dr*<8 4 8 16>" # gain 0.9
+
+
+d1 $ "k*<4 8>" # "808:1"
+
+
+d1 $ "kick:5*4"
 
 
 -- L'interprete c'est l'Ordinateur
@@ -20,10 +50,10 @@ do
 let g1 = whenmod 32 24 (# djfbus 1 ((slow 8 $ range 0.5 0.1 saw)))
 let g2 = whenmod 64 32 (# djfbus 2 ((slow 32 $ range 0.5 0.9 saw)))
 let g = g1 . g2
-d1 $ g $ "k . k(<1 3 3 <5 8>>,8)" # "kick:5" # gain 1.2
-d2 $ g $ fast 2 $ "~ snare:20" # gain 1.2
+d1 $ g $ "k . k(<1 3 3 <5 8>>,8)" # "kick:5" # gain 0.9
+d2 $ g $ fast 2 $ "~ snare:20" # gain 0.8
 d3 $ g $ fast "<1 [2|1] [2|4] 4>" $ "dr*<8 4 8 16>" # gain 0.9
-d4 $ g $ slice 2 "<0!3 1>" $ "fpiano:8" # gain 1.2
+d4 $ g $ slice 2 "<0!3 1>" $ "fpiano:8" # gain 0.8
   # cut 4
 
 
@@ -43,6 +73,8 @@ d4 $ g
   # cut 4 # gain 0.8
 d5 $ "drum:2*[8 <16 [8 16] [16 8] <16 32>>" # gain 1.2 -- Le drumroll aussi
 
+once $ "fguitar" # lpf 5000
+
 do
 setcps (80/60/4)
 let g = whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 1 saw))

live/boeuf/algorythm/jolene.tidal

@@ -3,9 +3,9 @@ do
 setcps (100/60/4)
 let g = (# djfbus 1 ("^49"))
 let m1 = whenmod 4 3 (mask "t!3 <f [f t]>")
-let m2 = whenmod 16 12 (mask "t")
+-- let m2 = whenmod 16 12 (mask "t")
 let m3 = midiOn "^73" (mask "f*16")
-let m = m1 . m2 . m3
+let m = m1 . m3
 d1 $ g $ m
   $ chop 16 $ loopAt 4
   $ "algorythm"

live/boeuf/algorythm/lady.tidal

@@ -20,7 +20,7 @@ d2 $ g $ stut "[1|2|4]" 0.5 "e"
   $ "~ electro1" # n "<2!3 3>"
   # room 0.2 # sz 0.5
   # pan 0.4
-  # midiG' "^79" 0 0.9
+  # midiG' "^79" 0 1.2
 d3 $ g
   $ midiOn "^76" (ply 2)
   -- $ mask "<f!4 t!12 f!4 t!12 f!8 t!8 f!12 t!4>"
@@ -31,7 +31,7 @@ d3 $ g
   # midiG' "^80" 0 1
 d4 $ g
   $ midiOn "^58" (# "lady_fx")
-  $ whenIntro (# n "0") -- INTRO: AAAA
+  $ whenIntro (# n "0") -- INTRO: AAAA`
   $ whenVerse ((# n "<0 0 0 0 1 1 2 2>"))  -- VERSE: AA AA BB CC
   $ whenChorus (
     (fix (mask "<t f>") (n 6))

live/boeuf/algorythm/toxic.tidal

@@ -5,7 +5,7 @@ do
 setcps (140/60/4)
 let maskFirstBar = mask "<f!1 t!31>"
 let modIndex = pF "modIndex"
-let gDJF = (# djfbus 1 (range 0.15 0.95 "^49"))
+let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
 let gCrush = (# crushbus 2 (range 16 4.5 "^29"))
 let g = maskFirstBar . gDJF . gCrush
 d1 $ g
@@ -28,7 +28,7 @@ d3 $ g
   $ "hh*[8 8 8 <8!3 [16 8]>]"
   # att 0.01 # rel 0.5 # cut 3 # hpf 5000
   # midiG' "^80" 0 1.3
-d7
+d7 $ gDJF
   $ midiOn "^92" (ply 2)
   $ note ("0*8" + "<b3 b3 d3 [cs3 bs2]>")-- BASS Riff
   # "bassWarsaw"
@@ -36,8 +36,8 @@ d7
   # room 0.1
   # sz 0.1
   # cut 7
-  # crushbus 71 (range 16 1.5 "^56")
-  # midiG' "^84" 0 1
+  # crushbus 71 (range 16 1.5 "^53")
+  # midiG' "^81" 0 1
 d8 $ gDJF -- CUE Toxic Theme
   $ midiOff "^91" (mask "<f!7 t>")
   $ midiOn "^59" (rev)
@@ -46,8 +46,8 @@ d8 $ gDJF -- CUE Toxic Theme
   # legato 4
   # room "0!15 0.4"
   # attack 0.05
-  # modIndex "^83"
+  # modIndex "^55"
   # rel 2
   # sz 0.5
   # pan 0.9
-  # midiG' "^83" 0 1.1
+  # midiG' "^83" 0 1.5

live/jam/cbow.tidal

@@ -49,7 +49,7 @@ d3 $ g -- Bass bows
   # "cbow:0"
   # pan 0.24
   # cut 3
-  # room 0.6
+  -- # room 0.6
   # sz 0.5
   # midiG' "^81" 0 0.86
   # crushbus 31 (range 10 2 "^53")

live/midi/nova/FFF/pray.tidal

@@ -26,7 +26,6 @@ d1 $ g  -- KICK
   # pan 0.4
   # gM' 0.2 1.5 "^78"
 d4 $ g -- BREAKBEAT
-  $ degradeBy "^51"
   $ someCyclesBy "^74" -- Intro
   (slice 8 "0 4")
   $ someCyclesBy "^75" -- Laggy
@@ -36,6 +35,7 @@ d4 $ g -- BREAKBEAT
   $ loopAt 1 $ slice 8 (run 8)
   $ "break:1"
   # gM' 0 1.8 "^79"
+  # speedbus 41 (range 0 2 "^51")
   # cut 4
 d2 $ g -- Snares gretscha
   $ someCyclesBy "^44" (

live/midi/nova/ambient/contre_visite.tidal

@@ -94,7 +94,7 @@ d10 $ f1 -- RANDOM FOREST NOISES
   $ fix (
     kCrush .
     struct "t t t t t*<1 2> [<t!2 ~ t> <t!2 ~ t>] t t"
-    . (# "[future:1]")
+    . (# "[future:1,jazz]")
     . (# midiG' "^13" 0 2)
   ) ("n1")
   $ fix (

live/midi/nova/ambient/empreinte_du_numerique.tidal

@@ -50,6 +50,7 @@ d5 $ g $ gPont2 -- BASSLINE BoomRang!
   # lrate 0.93
   # lsizebus 51 (range 0.8 4.8 "^17")
   # lesliebus 52 "^33"
+  # pan 0.3
   # crushbus 53 (range 10 1.61 "^53")
   # midiG' "^81" 0 0.9
 d7 $ g -- Back solar mandoline
@@ -64,12 +65,13 @@ d7 $ g -- Back solar mandoline
   # midiG' "^83" 0 1.3
 d6 -- RHODES FOLIE <33
   $ g
-  $ midiOn "^58" (off "h")
+  $ midiOn "^58" (off "h" id)
   $ mask "t(<[12!3 16] [12!3 8] <12 12 8 16> <4!3 [4 <8 16>]>>,16)"
   $ swing (1 + ("0 2" * "^58") + (2 * "^90"))
   $ note ("d4/2" + scale "<augmented!6 diminished2!2>" (run 16))
   # "FMRhodes1"
   # room 0.5
+  # pan 0.7
   # crushbus 61 (range 10 4.4 "^54")
   # modIndex (range "-0.1" 100 "^34")
   # midiG' "^82" 0 1.3

live/midi/nova/breaks/lunar.tidal

@@ -15,7 +15,7 @@ d1 $ g1 --
   $ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
   $ "[jazz,hh:5]"
   -- # release "<0.7!3 1>"
-  # midiG' "^78" 0 1.3
+  # midiG' "^78" 0 1.9
 d3 $ g1 $ m -- Clap contretemps stable
    $ superimpose ((# lpf 2000) . (# "cp:0"))
    $ "~ clap:1"

live/midi/nova/breaks/solar.tidal

@@ -12,11 +12,11 @@ let mDegrade = (midiOn "^73" (chop 4))
 let m = mBreak . mDegrade
 d1 $ g1 $ m --
   $ mask "<f!4 t!12>"
-  $ fix (# cut 1) ("808bd")
+  $ fix ((# cut 1). (|* gain 0.85)) ("808bd")
   $ midiOn "^42" (<| "k k k <k [<~ k> k]>")
   $ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
   $ "[jazz,808bd:1,hh:5]"
-  # midiG' "^78" 0 1.3
+  # midiG' "^78" 0 1.7
 d3 $ g1 $ m -- Snare
     $ mask "<f!3 [f t] t!8 [t f]!4>"
    -- $ fast "<1!4 2!10 4 [4 8]>"
@@ -133,7 +133,7 @@ $ striate 2
 $ loopAt 2
 $ slice 8 (run 8)
 $ "fbass:3"
-# midiG' "^81" 0 1.2
+# midiG' "^81" 0 1.4
 # crushbus 4 (range 16 1.5 "^53")
 # cut 4
 # pan 0.2

live/midi/nova/dnb/alerte_verte.tidal

@@ -71,7 +71,7 @@ d6 -- Guitar A -- L'attente (18=0) TODO Rework?
   $ "fguitar:24"
   # pan 0.8
   # crushbus 51 (range 10 3.5 "^54")
-  # midiG' "^82" 0 (1.5 * (range 1.4 0 "^18"))
+  # midiG' "^82" 0 (1 * (range 1.4 0 "^18"))
   # cut 6
 d7 -- Guitar B -- Le run (18=127)
   $ g2
@@ -84,7 +84,7 @@ d7 -- Guitar B -- Le run (18=127)
   $ "fguitar" # n "<25!3 [25 26] 25!2 27!2 27!8>"
   # pan 0.65
   # crushbus 71 (range 10 2 "^54")
-  # midiG' "^82" 0 (1.2 * (range 0 1.4 "^18"))
+  # midiG' "^82" 0 (1 * (range 0 1.4 "^18"))
   # leslie "^34"
   # lsize (1 + (slow 8 perlin * 2))
   # lrate 6.7

live/midi/nova/lofi/reboot.tidal

 import Sound.Tidal.ParVagues.Control
 
-
+-- TODO: Rework and record :)
 -- Reboot: From Dark Money to motivating beats
 do
 setcps (80/60/4)

live/midi/nova/lounge/top_hats.tidal

@@ -9,10 +9,12 @@ let prog = ("<cs5!4 a4 a4 b4 gs4>")
 let chorus = pF "chorus"
 let mix = pF "mix"
 let modIndex = pF "modIndex" -- 0.2
-let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
-let g = (gDJF)
+let gDJF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
+let gDJF2 = (# djfbus 2 (range 0.1 0.9 "^50"))
+let g1 = gDJF1
+let g2 = gDJF2
 setcps 0.5
-d1 $ g
+d1 $ g1
   $ fix (|* gain 0.75) "kick:5"
   $ midiOn "^41" ( -- KICK RUN
     ((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.8))
@@ -20,13 +22,13 @@ d1 $ g
   $ midiOff "^41" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>")
   $ "[jazz,cpu]"
   # midiG' "^78" 0 1.4
-d2 $ g  -- Breathing snare contretemps
+d2 $ g1  -- Breathing snare contretemps
   $ midiOn "^43" (fast "<2 2 2 2 4 2 2 4 4>")
   $ "~ [snare:12,drum:2]"
   # speed (range 0 4 "^51")
   # midiG' "^79" 0.5 1.3
 d3 -- Runny Maracas
-  $ g
+  $ g1
   $ midiOn "^76" (ply 2)
   $ whenmod 16 8 (often $ fast 2)
   $ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
@@ -35,7 +37,7 @@ d3 -- Runny Maracas
   # n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
   # midiG' "^80" 0.25 1.5
   # note (range "-12" 12 "^52")
-d6 $ g -- Guitar riffs
+d6 $ g2 -- Guitar riffs
   $ whenmod 16 12 (off "h" (
     chop 4
   . (# cut 61)
@@ -54,7 +56,7 @@ d6 $ g -- Guitar riffs
   # sz "<0.6!3 0.9>"
   # midiG' "^81" 0.4 1.5
 d4 -- Rhodes base + chords
-  $ g
+  $ g2
   $ midiOn "^58" (superimpose ( -- ARPS <3
     (|+ note 12)
     . sometimesBy "0 0.5!7" rev
@@ -76,19 +78,19 @@ d4 -- Rhodes base + chords
   # roombus  42 (range 0 0.8 "^54")
   # szbus    43 (range 0.45 0.9 "^54")
   # midiG' "^82" 0.3 1.3
-d8 $ g -- Electrified laggy moog
+d8 $ g2 -- Electrified laggy moog
   $ midiOn "^92" (ply 2)
   $ midiOn "^59" ((|- note 12))
   $ midiOn "^91" (segment "4 <4 <8 [8 16]>>")
-  $ note (prog + "0 <12!4 12 12 16 <12 16>>")
+  $ note (prog + "0 <12!4 12 12 16 <12 16>>" - 12)
   # "moog:2"
   # crushbus 8 (range 10 3.4 "^55")
-  # midiG' "^83" 0 1.3
+  # midiG' "^83" 0 1.5
   # legato 2
   # cut 8
   # pan 0.6
   # release 100
-d5 $ g -- Choirs + arps
+d5 $ g2 -- Choirs + arps
   $ juxBy "0.7" (
     arp "<up <up down>>"
     . midiOn "^60" ((|- note 12))

live/techno/nightly_repair.tidal

@@ -18,7 +18,7 @@ d1 $ g1
   $ fix (|* gain 1) "808bd"
   $ fix ((|* gain 0.8)) "909"
   $ "[jazz,909,808bd:4]"
-  # midiG' "^78" 0 1.6
+  # midiG' "^78" 0 1
 d2
   $ g1
   $ superimpose (
@@ -27,9 +27,6 @@ d2
     )
   $ midiOn "^43" (fast 2)
   $ "~ cp"
-  # lpf 1500
-  # room 0.5
-  # dry 1.1
   # midiG' "^79" 0 1.8
 d3 $ g1
   $ midiOn "^44" (fast "1 2")