live: With raph

live/collab/julien.tidal

+resetCycles
+
+
+setcps (135/60/4)
+
+do
+let maskIntro = mask "<f!6 t!28>"
+d1
+  $ maskIntro
+  $ superimpose ((# "gretsch") . (|* gain 0.8))
+  $ "k . ~ k ~ ~"
+  # "[jazz,bd]"
+  # gain 0.5
+d2
+  $ maskIntro
+  $ superimpose (const -- Tchak
+      $ whenmod 16 12 (fast "<2 4 4 8>" . ("q" <~) . mask "t f")
+      $ mask "<t!8 f!3 t!5>"
+      $ "~ s ~ s*<1!7 2>"
+      # "[gretsch:2,sn:2]" # lpf 4000
+      # room (slow 4 $ perlin * 0.35)
+      # gain 0.55)
+  $ whenmod 8 6 (# lpf "<4000 2000>")
+  $ splice 8 (run 8) $ "breaks165"
+  # gain (slow 16 $ range 0.2 0.55 saw)
+d3
+  $ someCyclesBy "<1!8 0!28>" (mask "t(<0!4 4!4>,4)")
+  $ whenmod 4 3 (degradeBy "0 0.5!6 0")
+  $ sometimesBy "0 0.1!6 0.5" (fast 2)
+  $ "drum:2*8" # gain 0.5
+d4
+  $ note ("<a3!4 c4!3 a3>"
+   + "<c'maj!3 c'maj'4 c'min!3 c'min'4>"
+  )
+  # "supersaw" # voice 0.1
+  # gain 0.2 # pan 0.9 # room 0.1
+d5
+  $ someCyclesBy "<1!2 0!14>" (|* gain 1.2)
+  $ "day:1/2"
+  # gain (slow 16 $ range 0.45 0.5 sine)
+  # gain 0.65
+  # hpfbus 4 (range "-50" 5000 sine)
+  # legato 2
+  # cut 5
+
+
+once $ "dr" # cut 1

live/hip/lofi/hellofi.tidal

@@ -107,7 +107,7 @@ d7 -- Carillons back
   $ whenOutHPF
   $ juxBy 0.5 (rev . fast 4)
   $ fix ((# "808hc:0") . (|* gain 0.85)) "h"
-  $ fix (# "808mc:<4 3 2 3>") "m"
+  $ fix ((# "808mc") . (# n "<4 3 2 3>")) "m"
   $ fix ((# "808lc") . (# n (slow 4 "<0 0 0 2>"))) "l"
   $ "~ l <~ [~ ~ ~ <h!3 m>]> l"
   # room 0.5 # sz 0.8 # dry 0.8

live/midi/nova/120_techoirs.tidal

-import Controls
+import Sound.Tidal.ParVagues.Controls
 
 -- Controls:
 -- 1A 2A 3A 4A 5A 6A 7A 8A UP  DOWN
@@ -26,9 +26,7 @@ let gSize = (|* size (range 0 0.8 "^13"))
 let gG a = (gain (gGain * a)) -- gain Global
 let gM a = (gG (range 0.3 0.8 a))
 let gM' l h a = (gG (range l h a))
-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 gDJF = (midiDJF "^49" 200 9800 0 1000)
 let g = (gDJF . gSize . gRoom . (# dry 0.98))
 let novaOn  ch pat = (sometimesBy ch pat)
 let novaOff ch pat = sometimesBy (1 - ch) (pat)
@@ -55,19 +53,19 @@ d3 $ g
   # lpf 5000
   # cut 3
 d4 $ g
-  $ superimpose (
+  $ midiOn "^57" (superimpose (
     (|+ note 24)
     . chop (slow 4 "<1 2 4 8>")
     . arp "updown"
     . (|* gain 0.9)
-  )
+  ))
   $ note prog
   # "bassWarsaw"
-  # gM' 0 1.1 "^81"
+  # gM' 0 1.3 "^81"
   # lpq "^33"
   # room 0.5
   # octave 3
-  # crush (range 10 4.5 "^17")
+  # crush (range 10 4.2 "^53")
   # sz 0.8
 d7 $ g
   $ whenmod 16 8 (fast 2)

live/midi/nova/Controls.tidal

-module Controls where
-    gG a b = a + b

live/midi/nova/breaks/break_low.tidal

+import Sound.Tidal.ParVagues.Control
+
+setcps (60/60/4)
+
+do
+let modIndex = pF "modIndex"
+let g = (midiDJF "^49" 150 9850 0 1000)
+d1 -- Snare
+  $ g
+  $ midiOn "^41" (fast 2)
+  $ "k k k <<k ~> k>"
+  -- $ "k . k"
+  # "[jazz,cpu]"
+  # midiG' 0 0.8 "^78"
+d2 -- Snare
+  $ midiOn "^41" (fast 8)
+  $ g
+  $ midiOff "^41" (slow "<2!16 1!16>" )
+  $ "~ [snare:20,clap]"
+  # midiG "^79"
+  # room 0.8 # sz 0.8 # dry 0.99
+d3 $ g
+  $ often (fast "1 2")
+  $ fast "4 . 8"
+  $ "drum:2"
+  # midiG "^80"
+d4 $ g
+  $ whenmod 8 6 (off "q" (fast "<1 2>"))
+  $ midiOn "^76" (slice 8 ("0 1 2 3*<8!3 [8 4]>"))
+  $ midiOn "^44" (off "h" id . mask "t f")
+  $ slice 8 (run 8)
+  $ loopAt 2
+  $ "break:3"
+  # panbus 4 (range 0.2 0.8 perlin)
+  # cut 4
+  # midiG' "^80" 0 1.1
+d5 -- Bassline
+  $ g
+  $ midiOn "^57" (-- + Arps aigus!
+    superimpose (
+      often (off "h" rev)
+      . (|+ note (
+        "[0 <12 <12 24>>]" -- spread
+        + "0(5,8)" |+ "0 [7 12]"
+        -- + 12
+      ))
+      . (# crush (range 12 1.85 "^53"))
+    )
+  )
+  $ note ("d . ~ <c(3,8)!4 [c(2,3),d(2,4,1)]!4>")
+  # octave 3
+  # "bassWarsaw"
+  # crush (range 10 5 "^53")
+  # room 0.5
+  # sz 0.4
+  -- # pan 0.2
+  # midiG' "^81" 0 1.2
+d6 $ g
+  $ off "e s" (|+ note 7)
+  $ note "<d d f g d d f d g g f g d d b d>(3,8)"
+  # octave 3
+  # modIndex "[0,5]"
+  # "FMRhodes1"
+  # crush (range 10 4.8 "^54")
+  # midiG' "^82" 0 1.4
+d7 $ g
+  -- $ slice 8 ("7*4")
+  $ note "<<c'min c'six> c'min7>"
+  # "brass:20"
+  # midiG "^83"
+d8 $ g -- Da Bogdan MOFO
+  $ "bogdan:9"
+  # waveloss (slow 24 $ range 0 60 sine)
+  # hpqbus 8 (range 0 0.5 cosine)
+  # lpqbus 8 (range 0 0.5 sine)
+  # crush (slow 16 $ range 16 2.5 perlin)
+  # cut 8
+  # gain "^56"

live/midi/nova/breaks/slower.tidal

-import Sound.Tidal.ParVagues.Control
+wimport Sound.Tidal.ParVagues.Control
 
 setcps (80/60/4)
 
@@ -25,7 +25,7 @@ d2 -- Breakbeat
   $ g
   $ midiOn "^43" (fast "[1|2|0.5]" . loopAt 1)
   -- $ midiOn "^43" (fast 4 . often (scramble 2))
-  -- $ sometimesBy "0 <0.5!3 0.95>" (ply "[2|4]")
+  -- $ sometimesBy "0 <0.5!3 0.95>" (ply "``[2|4]")
   $ slice 8 "0 <1 ~> 2*<2 1> 3" $ "break"
   # midiG' "^79" 0 1.75
 d3 $ g

live/midi/nova/computer_riddim.tidal

@@ -54,14 +54,14 @@ d3 $ g -- Hats
     . sometimesBy "0 . 0 1 0 0" (|* gain 0)
   )
   $ novaOn ("^76")  (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
-  $ novaOn ("^44")  (<|"h*8") -- TODO Eclaircir
+  $ novaOn ("^44")  (degradeBy (slow 4 $ range 0.9 0 saw) . (<|"h*16")) -- TODO Eclaircir
   $ novaOff ("^44") (<| "h*[8 . 8 <8 16 32 4>]")
   $ (|* gain "[1 0.9]*4") -- make sure that you reduce the velocity of the second Hi Hat hit
   $ s "gretsch:4"
   -- # pan "^52"
   # cut 3
   # orbit 1
-  # gM' 0.2 1.5 "^80"
+  # gM' 0.2 1.8 "^80"
 d4 $ g -- Bassline
   $ novaOn  "^57"  (>| note "[~ a4] <a4 e e a4> [~ <a4 c>] <a4 e>") -- Naif
   $ novaOff "^57" (>| note "<[~ a4@1.5 . a4 a4 e c] [e e . b4*<1 <2 4>>]>") -- simple+adjustements
@@ -73,7 +73,7 @@ d4 $ g -- Bassline
   # lpq (range 0 0.33 "^33")
   # release 0.95
   # orbit 1
-  # gM' 0.25 1.2 "^81"
+  # gM' 0.25 1.5 "^81"
 d5 $ g $ gDelay -- Skank Piano
   $ whenmod 4 3 (sometimesBy "0 1 . 0" (
     (# note "[d5,g4,b4]") . (|* gain 0.8)
@@ -112,8 +112,9 @@ d8 -- Trompette lancinante
   $ 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")
-  # attack 0.5 # cut 8
+  # gM' 0.2 1 "^55"
+  # attack 0.5
+  # cut 8
 d9 -- CP
   $ sometimesBy "^59" (fast 2)
   $ (# lpf 2000)

live/midi/nova/lounge/top_hats.tidal

@@ -50,9 +50,9 @@ d6 $ g -- Guitar riffs
   $ note 2 -- correction
   # "punk"
   # cut 6
-  # attack (range 0.5 1 "^17")
+  # lpq (range 0 0.125 "^17")
+  # attack (range 0.5 1 "^33")
   # crush (range 12 1.75 "^53")
-  # lpq (range 0 0.125 "^33")
   # pan 0.9
   # room 0.3
   # sz 0.9

live/midi/nova/minneapolis.tidal

@@ -8,13 +8,13 @@
 
 -- XXX  XXX  XXX   XXX      XXX     pSust  fSpd    gunFreq
 -- Dlay DFB  XXX   XXX      crBass  pRVel  cpStut  gunSpd
--- DJF  XXX  XXX   panDr    gSiren  pLVel  cpSpd   gGuns
+-- DJF  XXX  XXX   panDr    gmSiren  pLVel  cpSpd   gGuns
 -- G    Kick Sn    DrRoll   Bass    Piano  CP      Fire
 -- X    TCHN Stut  Wait/Run TCHN    XXX    XXX     XXX
 
 do
 -- region Nova Utils
-let gF = 1.3 -- gain factor
+let gF = 1.5 -- gain factor
 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
@@ -100,12 +100,12 @@ d5 $ g -- Basse + Sirene
     . (-| note 12) -- 24 when crushed
     . (# gM' 0.2 0.8 ((
       "^81"  -- gain bass
-      * (range 0.6 0.9 "^53") -- Modulated 5C
+      * (range 0.6 0.9 "^33") -- Modulated 5C
       )
       - (0.125 * "^57") -- When TECHNOPHILE
       ))
     . (# crush (range 10 3
-       "^33"))
+       "^53"))
     . (# room 0.5)
     . (# size 0.8)
   )
@@ -115,8 +115,8 @@ d5 $ g -- Basse + Sirene
   )
   # s "supersaw"
   # voice 0.15
-  # crush (range 10 2 "^33")
-  # gM' 0 0.8 ("^81" * (range 0.9 0.4 "^53")) -- Modulated 5C
+  # crush (range 10 2 "^53")
+  # gM' 0 0.8 ("^81" * (range 0.9 0.4 "^33")) -- Modulated 5C
   # pan (slow 10 $ range 0.6 0.8 sine)
 d7 $ g -- Claps fantome
   $ sometimesBy (range 0 0.25 "^55") (stut 4 0.9 "s")
@@ -149,6 +149,6 @@ d8 $ g -- Gunfire
   # begin (slow 4 "<0 0.2 0.5>")
   # cut 8
   # room 0.6 # size 0.4
-  # speed (range 0.5 1 ("^19" + perlin/4))
+  # speed (range 0.5 1.25 (segment 8 $ "^19" + perlin/4))
   # gM "^84"
   # delay 0.3 # delaytime (1/3) # delayfb 0.8