From 5a471246a30dcf9bcf7af2a5d702455245542308 Mon Sep 17 00:00:00 2001
From: Paul-Louis NECH <pln@algolia.com>
Date: Fri, 12 Jul 2024 19:19:12 +0200
Subject: [PATCH] Sessions: Raph Bad Witch

---
 live/collab/raph/bad_witch.tidal    | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 live/collab/raph/diable.tidal       |  3 ++-
 live/collab/raph/jeudrill.tidal     | 14 +++++++++-----
 live/collab/raph/nouveau_punk.tidal | 88 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 148 insertions(+), 6 deletions(-)
 create mode 100644 live/collab/raph/bad_witch.tidal
 create mode 100644 live/collab/raph/nouveau_punk.tidal

diff --git a/live/collab/raph/bad_witch.tidal b/live/collab/raph/bad_witch.tidal
new file mode 100644
index 0000000..8b2b1a0
--- /dev/null
+++ b/live/collab/raph/bad_witch.tidal
@@ -0,0 +1,49 @@
+do
+setcps (120/60/4)
+let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
+let gMute = (midiOn "^73" (mask "f*16"))
+let gMute2 = (midiOn "^74" (mask "f*16"))
+let gMute3 = (midiOn "^75" (mask "f*16"))
+let gM1 = gMask . gMute
+let gM2 = gMask . gMute2
+let gM3 = gMask . gMute3
+d1 $ gF1 $ gM2
+  $ midiOn "^42" (<| "k*4")
+  $ midiOff "^42" (<| "k . ~!3 <~!3 k>")
+  $ "[kick:5,clubkick]"
+  # cut 1
+d2 $ gF1 $ gM1
+  $ midiOn "^43" (<|"~ s ~ s*<1 2>" )
+  $ midiOff "^43" (<| "~ s/2")
+  $ "snare:42"
+  # gain 0.9
+d3 $ gF1 $ gM1
+  $ superimpose ((# "hh") . (# cut 31) . (# pan 0.8))
+  $ "dr*[8 <8 4 8 16>]"
+  # cut 3
+  # pan 0.2
+d4 $ gF1 $ gM2
+  $ slice 4 "1"
+  $ "jungle_bass:52"
+  # cut 4
+  # crushbus 41 (range 16 2.5 "^53")
+d9 $ "90s_matrix:0/4"
+  # cut 9
+  # room 0.4
+  # gain 0.8
+  # lpfbus 91 (slow 16 $ range 200 2000 saw)
+d5 $ gF3 $ gM3
+  $ whenmod 8 7 (>| note "c@2 c ef@2 ef f g")
+  $ fast 2 $ note ("[c <c!3 f> c <g fs ef b4>]")
+  # "FMRhodes1"
+  # modIndex (range 0 64 "^54")
+  # pan 0.2
+  # gain 1.2
+  # room 0.2 # sz 0.9
+  # cut 5
+  |- note 12
+
+once $ note "c@2 c ef@2 ef f g" #"FMRhodes1" # orbit 6
+
+ccc a ccc e ccc d ColourD
+g fs ef b
diff --git a/live/collab/raph/diable.tidal b/live/collab/raph/diable.tidal
index f181ff0..e25c31a 100644
--- a/live/collab/raph/diable.tidal
+++ b/live/collab/raph/diable.tidal
@@ -3,7 +3,8 @@ setcps (170/60/4)
 let g = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.1 saw)))
 d1 $ g
   $ fix ((# att 1) . (# rel 2)) "kick"
-  $ "[jazz,bd,kick:5]*4" # gain 1
+  $ "[jazz,bd,kick:5]*4"
+  # gain 1.2
 d2 $ g
   $ note "~ 0 . <~ <[~ -2]!3 ~>> 0"
   # "snare:4" # lpf 2000
diff --git a/live/collab/raph/jeudrill.tidal b/live/collab/raph/jeudrill.tidal
index f6b57e3..51fb384 100644
--- a/live/collab/raph/jeudrill.tidal
+++ b/live/collab/raph/jeudrill.tidal
@@ -1,7 +1,7 @@
 resetCycles
 
 do
-let gF1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
+let gF1 =  (# djfbus 1 (range 0.1 0.9 "^49"))
 let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
 let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
 let gMask =  (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
@@ -26,8 +26,10 @@ d2 $ gF1 $ gM1
   $ someCyclesBy  "<1!16 0!16>" (<| "~ <~ [<s s*2 s [s*2 ~]>]>")
   $ "[snare:24,snare:51]"
   # gain "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>"
-d3 $ gF1 $ gM1 $ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)"
-  # drumFrom "rolandtr909" "hh" # cut 3 # gain 0.6 # legato 0.25
+d3 $ gF1 $ gM1
+  -- $ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)"
+  $ "h(3,8) h(3,8)" # pan "0.2 0.8"
+  # drumFrom "rolandtr909" "hh" # cut 3 # gain 0.9 # legato (range 0.05 0.9 "^32")
 d9 -- Bogdan the Grime sample provider
   $ whenmod 16 12 ( -- I'm from Cardiff!
     (# "bogdan_grime:1") . (# begin "<0!3 0.25>") . (# end "<0.5!3 0.25>")
@@ -35,11 +37,12 @@ d9 -- Bogdan the Grime sample provider
   $ whenmod 16 8 ((# begin 0.66) . (# end 1)) -- Pints <3
   $ end "<~ <0.42 <0.66 1>>>"
   # "bogdan_grime:3"
+  -- # n 0 # begin 0 # end 1 # cut 9 -- FIXME DEBUG
   # delay "<0 <0.7 0>>"
   # delayt "h"
   # delayfb 0
   # speed 0.92
-  # room 0.4
+  -- # room 0.4
   # gain 1.2
 d8 $ gF1 $ gM1 -- Come on breaks!
   $ chop 8
@@ -85,7 +88,7 @@ d10 $ gF2 -- Menace
  $ note "<b3 ~ ~ <[~!7 c4] [~!5 c4 ef4 <c4 fs4>]>>"
  # "90s_synatm:10"
  # room 0.3 # sz 0.8
- # gain 0.95
+ # gain 1.5
  # att 0.10
  # rel 10
  # legato 2
@@ -104,6 +107,7 @@ d7 $ gM2 $ gF2
   # panbus 72 (range 0.2 0.8 (fast "<2!4 4!4>" sine))
 
 
+once $ "bogdan_grime:1" # cut 9
 
 
 
diff --git a/live/collab/raph/nouveau_punk.tidal b/live/collab/raph/nouveau_punk.tidal
new file mode 100644
index 0000000..a893994
--- /dev/null
+++ b/live/collab/raph/nouveau_punk.tidal
@@ -0,0 +1,88 @@
+-- Nouvelle vague; NOUVEAU PUNK
+do
+setcps (155/60/4)
+let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)"))
+let gMute = (midiOn "^73" (mask "f*16"))
+let gMute2 = (midiOn "^74" (mask "f*16"))
+let gMute3 = (midiOn "^75" (mask "f*16"))
+let gM1 = gMask . gMute
+let gM2 = gMask . gMute2
+let gM3 = gMask . gMute3
+d1 $ gF1 $ gMute2 -- Kick resolu
+  $ midiOn "^42"  (<| "t t t*<1!3 2> <t t*2 t t*4>")
+  $ midiOff "^42" (<| "t . ~ t ~ ~")
+  $ "[rampleA0:1,jazz]"
+  # gain 1.6
+d2 $ gF1 $ gM1
+  $ midiOn "^43" (<| "~ s ~ <s s*2 s [~ s]>")
+  $ midiOff "^43" (<| "~ s ~ s*<1!4 2 2 4 8>")
+  $ "snare:32"
+  # gain 1.1
+d3 $ gF1 $ gM1
+  $ midiOn "^76" (ply 2)
+  $ "dr*<8!3 16>"
+  # "h2ogmhh" # cut 3
+  # gain 0.85
+d8 $ gF1 $ gM1 $ chop 16 -- Breaks-in-a-box' (patent pending)
+  $ loopAt 1
+  $ midiOn "^92" (# "breaks165") -- BOUTON NASSIM <3
+  -- $ midiOn ("^36" - "^56" - "^89") (loopAt 2 . (# n 45))
+  $ midiOn ("^56" - "^92") (loopAt 4 . (# n 44))
+  $ "jungle_breaks:79" -- Arguably not very drum-n-bass
+d4 $ gF2 $ gMute3 -- Ligne directrice: P-U-N-K
+  $ midiOn "^89" (ply 2)
+  $ midiOn "^57" (chop 2)
+  $ chop 4
+  $ "punk:0/4"
+  # cut 4
+  # gain 0.9
+  # legato (range 0.42 1 "^33")
+  # crushbus  41 (range 16 1.5 "^53")
+  # room 0.2 # dry 1.9 # sz 0.6
+d5 $ gF2 $ gMute3
+  $ midiOn "^90" (ply "2 <1 4>")
+  $ midiOn "^58" (
+    chop "<4 4 8 16>"
+    . (# legato 0.5) . (# room 0.3) . (# sz 0.7))
+  $ note "<e c d b4>"
+  # "90s_synatm:9"
+  # crushbus 52 (range 16 3.5 "^54")
+  # octersubbus 51 (range 0 4 "^54")
+  # octerbus 53 (range 0 1 "^34")
+  # cut 5
+  # pan 0.7
+d9 $ gF3 $ gMute3 -- Violoncelle Manouche punko-magique
+  -- $ chop "<4 4 8 16>"
+  $ struct "t(<3!3 5>,8,<0!7 1>)"
+  $ note (
+    "<e g a <b4 b4>>" + (arp "up" "[0,<7 7 9 7>,12]")
+    )
+  # "cpluck:2"
+  # cut 9
+  # legato 0.5
+  # pan 0.2
+d11 $ gF3 $ gMute3 -- Anges melodiques
+  -- $ struct "t([5 <3!3 5>],8)"
+  $ note "<e <a a e6 e6> <g c6 a6 c6> b5>"
+  # "moogBass"
+  # att 0.1
+  # rel 1
+  # gain 1.2
+  # room 0.7
+d10 $ gM3 -- Decoration/riser
+  $ fix (
+    (loopAt 8) . gMute . gMute2
+    . mask "<f!8 t!8>"
+    . (# gain 0.9)
+    . (# speed 0.125)
+    . (# cut 102)
+    ) "risers" -- Riser occasionnel
+  -- $ fix (mask "<f!3 t f!4 f!3 t f!3 t t!3 f t!2 f f t f!3 t!4>"
+  --   . (# cut 101)
+  -- ) "suns_voice" -- Could add sample
+  $ stack ["risers:19/2"]
+  # room 0.2
+
+-- e c d b
+
+once $ "cbow"
--
libgit2 0.27.0