Live: From slow_mo to august collab + rework

live/boeuf/august.tidal

+
+do
+setcps (120/60/4)
+let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
+let g = gDJF
+let m = (degradeBy (1 - (0.9 * "0 ^29!15 0")))
+d1 $ g
+  $ midiOn "^41" (<| "k k k <k [<~ k> k]>")
+  $ midiOff "^41" (<| "k . k(<3!3 <3 <1 5>>>,8,<0!3 4>)")
+  $ "[jazz,reverbkick]"
+  # att 0.03 # rel 0.99
+  # midiG' "^78" 0 1.52
+d2 $ g
+  $ midiOn "^43" (<| "c*<2!3 4 4 [4 2] [4 8] 16>")
+  $ fix (# note "-2") (("glitch:2"))
+  $ superimpose ((# "[glitch:2,glitch:5]"))
+  $ "~ clap"
+  # pan 0.8
+  # note (range "-12" 12 "^51")
+  # midiG' "^79" 0 1.8
+  # room 0.72 # sz 0.5 # dry 0.99
+d3 $ g $ m
+  $ someCyclesBy 0.1 (fast "<2 0.5>")
+  $ someCyclesBy 0.2 (ply 2)
+  $ fast "<1 1 2 1 2 2 2 <2!3 4>>"
+  $ "hh*4"
+  # midiG' "^80" 0 1.8
+  # lsize (range 0 8 "^16")
+  # lrate (range 0.8 6.8 "^32")
+  # leslie (range 0 2 "^52")
+d4 $ g $ m -- BREAK
+  $ midiOn ("^57" - "^89") (ply 2)
+  $ midiOn "^89" (striate "<4!3 [8 4]>")
+  $ loopAt 1
+  -- $ whenmod 8 6 (off "h" id . mask "t . f")
+  $ slice 8 ("0 1 2 3*<<1!8 0!4 1!3 2> 2 4>")
+  $ "break" # n "<14!4 15!4>"
+  # midiG' "^81" 0 2
+  # cut 2
+d6 -- Runny Maracas
+  $ g $ m
+  $ whenmod 16 8 (often $ fast 2)
+  $ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
+  $ fix ((|* gain 0.9)) (n 9)
+  $ fix ((# release 0.8)) (n 9)
+  $ "hh27*8"
+  # n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
+  # note (range "-12" 12 "^55")
+  # midiG' "^83" 0.25 2.5
+d7 $ g $ m -- new breakbeats
+   $ loopAt 1
+   $ midiOn "60" (ply "2 <1 4>")
+   $ midiOn "92" (slice 4 "0 1 0 3")
+   $ slice 4 "0 <1!8 ~ 1 ~ 1 1 1 1? 1> 2 1*<1 0 1 <2 1 2 4>>"
+   $ "breaks125"
+   # midiG' "^84" 0.25 2
+   # cut 7
+d8
+  $ g
+  $ fix (someCyclesBy "<0!16 1!8 0!8>" (mask "f")) (n 1)
+  $ fix (sometimesBy "0.25" $ ply 2) (n 1)
+  $ n (stack [
+  "~ . ~ 5 ~ ~", -- Kick
+  "6",
+  "~!3 <1 ~ [~ 1] 1*2>", -- Ho
+  ""
+  ])
+  # "tech"
+  # midiG' "^84" 0 2
+
+
+
+d5 $ "tech"
+
+
+-- Lignes harmoniques
+d4 $ g -- c pure harmony
+  $ chop 8
+  $ note (arp "up" "<c gs>")
+  # octave 4
+  # pan 0.2
+  # "bassWarsaw"
+  # crushbus 4 (range 10 4.5 ("^53" + 0.5 * perlin))
+  # midiG' "^81" 0 1.5
+d5 $ g
+  $ mask "<[f t]!4 t!12>"
+  $ note (scale "aeolian"
+  "<0!8 5!8 4!4 5!8> <~ ~ 2 ~ 2!4> . <4 3 3 4>"
+  )
+  # "cbow:1"
+  # crushbus 5 (range 10 3.5 "^54")
+  # cut 5
+  # midiG' "^82" 0 1.5

live/boeuf/lunar_light.tidal

+-- Lunar -light: Esbrouffe collective
+do
+setcps (110/60/4)
+let modIndex = pF "modIndex"
+let gDJF = (# djfbus 1 (range 0.15 0.85 "^49"))
+let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
+let g = (gDJF)
+let m = mBreak
+d1 $ g --
+  $ midiOn "^42" (<| "k k k <k [<~ k> k]>")
+  $ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
+  $ "jazz"
+  -- # release "<0.7!3 1>"
+  # midiG' "^78" 0 1.4
+d3 $ g $ m -- Clap contretemps stable
+   $ fix (# lpf 2000) ("cp")
+   $ superimpose (# "cp:0")
+   $ whenmod 16 8 (fast 2)
+   $ "~ clap:1"
+   # crush 5.5
+   # legato 2
+   # room 0.8 # sz 0.8 # dry 0.99
+   # midiG' "^79" 0 1.8
+d2 $ g $ m -- BREAK
+  $ midiOn ("^44" - "^76") (ply 2)
+  $ midiOn "^76" (fast 2)
+  $ loopAt 2
+  $ whenmod 8 6 (off "h" id)
+  $ whenmod 8 6 (mask "t . f")
+  $ slice 8 (run 8)
+  $ "break" # n "<13!12 14!4 15!16>"
+  # midiG' "^80" 0 1.7
+  # cut 2
+d9
+  $ struct "t . t(<<5 1> 3>,8)"
+  $ slice 16 (iter 4 $ run 8)
+  $ "igor:14"
+  # cut 3
+  # begin 0.5
+  # gain 0
+
+
+
+
+
+
+d4 $ g $ m
+  $ midiOn "^57" (chop "8 1")
+  $ superimpose ((# cut 41)
+  . (|+| note "0*<1!3 2 1!3 4 2!4 4!4> 7(<5 5 3 3>,8)")
+  )
+  $ note (scale "aeolian" (
+    "<3 3 5 <5 4> 5 4 3 <~ 2 3 ~>>"
+    )
+    - 24
+  )
+  # "bassWarsaw"
+  # midiG' "^81" 0 1.5
+  # crushbus 4 (range 16 1.5 "^53")
+  # cut 4
+  # pan 0.2
+d5 $ g $ m
+  $ midiOn "^58" (superimpose (
+      (# cut 51)
+      . (|+| note "~ 12(<1 1 2 1 2 5 2 1 2 2 5 2 2 4 3 8>,8)")
+      . (|* gain 0.9)
+  ))
+  $ note (scale "aeolian" (
+    "<3 [3 . ~!7 4] <5 [5 . ~!3 6]> 5 2 2 3 [4 3@7]>"
+    )
+    - 12
+  )
+  # "FMRhodes1"
+  # midiG' "^82" 0 1.8
+  # modIndex (range 0.1 32 "^54")
+  # cut 5
+  # pan 0.8

live/boeuf/nouvelle_poussiere.tidal

+once $ "dr"
+
+
+do
+setcps (100/60/4)
+let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
+let g = (gDJF)
+d1 $ g
+  $ midiOn "^41" (<| "k k k <k [<~ k> k]>")
+  $ midiOff "^41" (<|
+    "k*<1!3 <2 <1 2>>> . k(<3 [3 5] [3 2]>,8)")
+  $ "reverbkick"
+  # midiG' "^78" 0 1.52
+d2 $ fast 2 $ "~ cp"
+  # note "-1"
+  # room 0.7
+  # dry 1.09
+  # sz 0.9
+  # midiG' "^79" 0 1.52
+d3 $ g
+  $ slice 8 "<0 1 0 0> <2*<1 2> [2 3] 3 <3 6>>"
+  $ loopAt 4
+  $ "dusty"
+  # cut 3
+  # hpf (slow 8 $ range 5000 1000 perlin)
+  -- # gain 1.5
+  # lsize (range 0 8 "^16")
+  # lrate (range 0.8 6.8 "^32")
+  # leslie (range 0 2 "^52")
+  # midiG' "^80" 0 1.52
+d6 -- Runny Maracas
+  $ g
+  $ whenmod 16 8 (often $ fast 2)
+  $ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
+  $ fix ((|* gain 0.9)) (n 9)
+  $ fix ((# release 0.8)) (n 9)
+  $ "hh27*8"
+  # n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
+  # note (range "-12" 12 "^55")
+  # midiG' "^83" 0 1.2

live/boeuf/vendredi_saint.tidal

@@ -9,16 +9,18 @@ do
 let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
 let g = gDJF
 d1 $ g
-  $ midiOn "^41" (fast 2)
-  $ "[cpu2]*2"
+  $ midiOn "^73" (fast 2)
+  $ midiOn "^41" (<| "k*<1!12 2!4> k*<1!8 2!8> k*<1!12 2!4> [<k ~ k k> <~ k>]")
+  $ midiOff "^41" (<| "k*2")
+  $ "[cpu2,jazz]"
   -- # att "^30"
   -- # rel "^50"
   # midiG' "^78" 0 2
   # room 0.2
   -- # crushbus 11 (range 16 0.95 "^14")
 d2 $ g
+  $ midiOn ("^75") (fast 2)
   $ midiOn ("^41"-"^43") (fast 2)
-  $ midiOn "^41" (|+ gain 0.7)
   $ "~ [cp,clap:1]"
   # midiG' "^79" 0 3
   # note (range "-12" "12" "^51")
@@ -37,21 +39,19 @@ d3 $ g
   )
   $ rarely ("e" ~>)
   $ every' 4 3 (fast "<1 2> <2 4>")
-  $ "drum:2*8"
-  # midiG' "^80" 0 1.5
+  $ "[drum:2,tech:7]*8"
+  # midiG' "^80" 0 1.9
 d4 $ g -- Mecano Course
-  $ fast 4
-  -- $ midiOn "^76"  (fast "<2!3 <4 [4 2]>>" . (# speed 1.2) . (>| "breaks165"))
   $ midiOn "^57"  (
-    slice 16 ("0*<1 2> 1 2 3*<2 1>")
+    slice 8 ("0*<1 2> 1 2 3*<2 1>")
     -- . (>| "breaks125")
     )
   $ midiOn "^89" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>")
   $ sometimesBy "0 ^33!7" (shuffle 8)
-  $ someCyclesBy "^53" (iter 4)
-  -- $ slice 8 "0 1 <2!3 0> <3!3 1 4 5 6 7>" "0 1 <2!3 0> <3!3 1>"
+  $ someCyclesBy "^53" (iter "1 4")
   $ chop 8
-  $ loopAt 2 $ "breaks125:3"
+  $ loopAt 1
+  $ "breaks125:3"
   # midiG' "^81" 0 1.2
   # cut 4
 d5 -- Runny Maracas Pitchables
@@ -67,6 +67,22 @@ d5 -- Runny Maracas Pitchables
   # room "^34"
   # note (range "-24" "0" "^18")
   # crushbus 51 (range 16 4.2 "^54")
+d6 -- Running Hats
+  $ g
+  -- $ degradeBy ("1 0 0 1!13" - "^52")
+  $ midiOn "^44" (slow 2)
+  $ midiOn "^76" (fast 2)
+  $ "hh*[8 . 8 <16 8 4 [4 8]>]"
+  -- # n "[0|0|0|0|1|1|3|3]*8"
+  # midiG' "^80" 0 (1.7 + (slow 4 perlin/4))
+  # room  (slow 8 $ range 0.2 0.45 saw)
+  # sz    (slow 8 $ range 0.8 0.2 saw)
+  # dry   (slow 4 $ range 0 2 perlin)
+  # pan 0.6
+  # cut 6
+
+
+
 
 
 d8 $ g

live/dub/hello_dub.tidal

@@ -50,14 +50,14 @@ d6 -- Distant guitar
   $ mask "<<f t>!24 f!8 t!8 f!8 t!16>"
   $ "g(<[1 5]!4 5 1 3 10>,16)"
   # "rootsGuitar:2"
-  # note "<5 5 3 3>"
+  # note "<5 5 3 3>"s
   # gain 0.49
   # att 0
   # rel 0.7
 d10 -- Distant metal drums
   $ breakLPFLight
   $ sometimesBy "0 0.25!3 <0.3!3 0.9>" (ply 2)
-  $ "808sd*8"
+  $ "808sd*8"s
   # n "[9|10]*16"
   # pan 0.8
   # gain (0.47 + 0.1 * perlin)

live/hip/lofi/slow_mo.tidal

+
+-- Lent mouvement
+do
+-- resetCycles
+setcps (60/60/4)
+let rMask = (mask "t!6 <t!4 t?!3 f> <t t t <t? f>>")
+let rLPF = (someCyclesBy "<0!32 1!8 0!16 1!8>" (# lpf (slow 8 $ range 5000 200 saw)))
+let gLPF = (someCyclesBy "<0!48 1!16>" (# lpf (slow 16 $ range 6000 100 saw)))
+let gR = (rMask . rLPF)
+let gMask = mask "[t <t!4 t <f t!3> t t>!3 . t <f!4 t!4> <f f t t t f f t> <f!4 t f t t>]"
+let gMaskB = mask "[t <t!4 t <f t!3> t t>!3 . t <f!4 t!4> <f f t t t f f t> t]"
+let g = (gLPF . gMask)
+let gB = (gLPF . gMaskB)
+d1 $ g $ gR
+  $ juxBy 0.1 id
+  $ "k ~ ~ k . ~" # "[reverbkick,tech:6]"
+  # legato 1.25
+  # lpf 1000
+  # gain 0.75
+d2 $ g $ gR
+  $ mask "<f!8 t!24>"
+  $ "[~ cp]*2"
+  # note "-4"
+  # "snare"
+  # n "[1,2,12]"
+  # gain 0.5
+d3 $ g $ gR
+  $ mask "<f!3 t f!4 t!7 [t f]>"
+  $ fix (|* gain 0.5) "snare"
+  $ "t*[[16!3 [<8!3 16!5> 32]]!3 32]"
+  # "[tech,snare:12]"
+  # gain 0.7
+d4 $ gB -- Bassline
+  $ jux ((# crush (slow 16 (range 10 5 saw))) . (|* gain 0.93)) -- ELECTRIC TWIN
+  $ mask "<f!32 t!32>"
+  $ whenmod 16 8 (superimpose ( -- Overdrone
+    chop ("[<4!4 8!4>!3 1]!2")
+    . (|* gain 0.8)
+  ))
+  $ note (scale "aeolian" (
+    -- "[7, ~!7 <~!3 3 ~ 3 ~ 3>] . [4, ~!7 <~ 8>]" -- Simplified main theme
+    "[7, [~!3 9]] . [4, [~!3 <[8 9] <[11 9] [10 9]>>]]" -- Simplified laggy theme
+  ))
+  # "bassWarsaw"
+  # octave 2
+  # lpf 1200
+  # room 0.3
+  # gain 0.65
+  # pan 0.2
+d5 $ g -- Rhodes base
+  $ mask "<f!6 t f t!24>"
+  $ someCyclesBy "<0!12 1!20>" ( superimpose ( -- aigus
+    (|+| note (scale "aeolian" (
+      "[0 <7!16 7(<2 2 3 3>,4)!16>]*4"
+    + 7)))
+  . (# "[FMRhodes1,FMRhodes2]")
+    . (|* gain (slow 8 $ range 0.5 0.6 saw))
+    . (|+ pan 0.1)
+    . (whenmod 16 6 (# crushbus 5 (range 10 6.5 perlin)))
+  ))
+  $ note (scale "aeolian" ( -- Organically grown main theme
+    "[7, ~!7 <~!3 3 ~ 3 ~ 3>] . [4, ~!3 <~ <[~ 8] [8 9] [~ . 8 9] [~ . 9 8]>>]"
+    ))
+  # "FMRhodes1"
+  # pan 0.6
+  # octave 2
+  # room 0.3
+d8 $ g -- Runny Maracas
+  $ mask "<f!6 t f t!8 f!4 t!4 t!8>"
+  $ jux (|* gain 0.5)
+  $ whenmod 16 8 (always $ fast "2 . [2|4]")
+  $ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
+  $ fix ((|* gain 0.9) . (# release 0.8)) (n 9)
+  $ "hh27*[8 . 16 8]"
+  # n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
+  # pan 0.8
+  # gain (slow 32 $ range 0.4 0.6 (saw + perlin / 10))

live/midi/looper/god_money.tidal

+-- https://www.youtube.com/watch?v=g0hqqtI_BPI
+
+
+-- region Sampled via:
+do
+let linput = pI "linput"
+let lname = pS "lname"
+setcps (117/60/4/8) -- Each sample over 8 cycles
+-- resetCycles
+d1
+  -- $ qtrigger 1
+  $ "looper"
+  # n (0 + "<0 1 2 3 4 5 6 7>")
+  # lname "ashley"
+d2
+  $ mask "<t!8 f!8>"
+  $ "jazz" # gain 0.7
+d3 $ mask "<t!8 f!8>" $ "dr*4" # gain "0.7 0.7 0.81 0.7"
+d4 $ whenmod 8 7 (# gain 1) # "arpy*8" # gain 0.8
+-- endregion
+
+
+do
+setcps (117/60/4)
+d1 $ "jazz*4" # gain 0.9
+d2
+  $ sometimesBy "1 . 0.5 1" (ply "2 . <2 [4 2] 2 2 2 [4 2] 2 4 4!4>")
+  $ "hh*8"
+  # gain 1.2
+  # sz 0.5
+  # room (slow 16 $ range 0.1 0.5 saw)
+
+once $ "ashley:1" # cut 1

live/midi/nova/breaks/break_low.tidal

@@ -44,13 +44,13 @@ d5 -- Bassline
         + "0(5,8)" |+ "0 [7 12]"
         -- + 12
       ))
-      . (# crush (range 12 1.85 "^53"))
+      . (# crushbus 51 (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")
+  # crushbus 5 (range 10 5 "^53")
   # room 0.5
   # sz 0.4
   -- # pan 0.21

live/midi/nova/breaks/lunar.tidal

+-- Lunar - et bim! l'esbrouffe
+-- TODO: Breakbeat mapping variations
+-- TODO: CBOW Kill melody,   reboot alongside rhodes
+-- TODO: Bassline Kill riff, reboot alongside rhodes
+
+once $ "dr" # gain 1
+
+do
+setcps (110/60/4)
+let modIndex = pF "modIndex"
+let gDJF = (# djfbus 1 (range 0.15 0.85 "^49"))
+let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
+let g = (gDJF)
+let m = mBreak
+d1 $ g --
+  $ midiOn "^42" (<| "k k k <k [<~ k> k]>")
+  $ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
+  $ "jazz"
+  -- # release "<0.7!3 1>"
+  # midiG' "^78" 0 1
+d3 $ g $ m -- Clap contretemps stable
+   $ superimpose ((# lpf 2000) . (# "cp:0"))
+   $ "~ clap:1"
+   # room 0.8 # sz 0.6 # dry 0.9
+   # midiG' "^79" 0 1.4
+d2 $ g $ m -- BREAK
+  $ midiOn ("^44" - "^76") (ply 2)
+  $ midiOn "^76" (striate 4)
+  $ loopAt 2
+  $ whenmod 8 6 (off "h" id . mask "t . f")
+  $ slice 8 (run 8)
+  $ "break" # n "<13!12 14!4 15!16>"
+  # midiG' "^80" 0 1.2
+  # cut 2
+d4 $ g $ m
+  $ midiOn "^57" (chop "8 1")
+  $ superimpose ((# cut 41)
+  . (|+| note "0*<1!3 2 1!3 4 2!4 4!4> 7(<5 5 3 3>,8)")
+  )
+  $ note (scale "aeolian" (
+    "<3 3 5 <5 4> 5 4 3 <~ 2 3 ~>>"
+    )
+    - 24
+  )
+  # "bassWarsaw"
+  # midiG' "^81" 0 1.5
+  # crushbus 4 (range 16 1.5 "^53")
+  # cut 4
+  # pan 0.2
+d5 $ g $ m
+  $ midiOn "^58" (superimpose (
+      (# cut 51)
+      . (|+| note "~ 12(<1 1 2 1 2 5 2 1 2 2 5 2 2 4 3 8>,8)")
+      . (|* gain 0.9)
+  ))
+  $ note (scale "aeolian" (
+    "<3 [3 . ~!7 4] <5 [5 . ~!3 6]> 5 2 2 3 [4 3@7]>"
+    )
+    - 12
+  )
+  # "FMRhodes1"
+  # midiG' "^82" 0 1.8
+  # modIndex (range 0.1 32 "^54")
+  # cut 5
+  # pan 0.8

live/midi/nova/breaks/solar.tidal

@@ -3,6 +3,8 @@
 -- TODO: CBOW Kill melody,   reboot alongside rhodes
 -- TODO: Bassline Kill riff, reboot alongside rhodes
 
+once $ "dr" # gain 1
+
 do
 setcps (110/60/4)
 let modIndex = pF "modIndex"

live/midi/nova/dnb/meurice.tidal

@@ -5,28 +5,21 @@ import Sound.Tidal.ParVagues.Control
 do
 setcps (160/60/4)
 let gDJF =  (# djfbus 1 (range 0.05 0.95 "^49"))
-let gFreqL = (# lpq (range 0 0.5 "^29"))
-let gFreqH = (# hpq (range 0 0.5 "^30"))
 let g32Bridge = whenmod 64 32 (|* gain (slow 16 $ range 0.85 1.1 saw))
-let g = (gDJF . gFreqL . gFreqH)
+let g = (gDJF)
 d1
   $ g
-  $ superimpose ( -- Undertone
-    (|+ note "<12!3 8 12!2 8 4>")
-    . (|* gain 0.9)
-  )
   $ (|* gain "1!7 0.95")
   $ midiOn "^41" (<| "k k k <k!3 k*2>")
   $ midiOff "^41" (<| "b . ~ b ~ <~!3 b>")
-  $ "[reverbkick,jazz,kick:5]"
+  $ "[jazz,bd:2,kick:5]"
   # release 0.8
   # midiG' "^78" 0 1.2
 d2 -- Snare tchak!
   $ g
   $ g32Bridge
   $ whenmod 16 12 (struct "t*<4 4 8 16>")
-  $ whenmod 16 4 (fast 2)
-  $ "~ cp"
+  $ "~ s . ~ <~!4 s!12>"
   # "[snare:40,snare:22]"
   # pan 0.55
   # note (range "-7" 7 "^51")
@@ -47,6 +40,7 @@ d3 -- Running Hats
   # cut 3
 d4 -- Resolute Bass
   $ g
+  $ jux ((# cut 41) . (|+ crush (range 0.5 1 perlin)))
   $ midiOn "^57" ( -- Glitch vary end
     whenmod 32 8 (slice 8
     "<[0 1 <2!3 1*2> <3!3 1*2>]!4 0*4!2 [0 1 0 1] [0 1 0 [0 1 2 3]]>"
@@ -57,7 +51,7 @@ d4 -- Resolute Bass
   # pan 0.15
   # room 0.25 # sz 0.1
   # crushbus 41 (range 16 1.25 "^53")
-  # midiG' "^81" 0 1.6
+  # midiG' "^81" 0 1.3
   # cut 4
 d6 -- Guitar A
   $ g
@@ -69,16 +63,19 @@ d6 -- Guitar A
   $ "fguitar:24"
   -- # pan 0.8
   # crushbus 51 (range 10 3.5 "^54")
-  # midiG' "^82" 0 (1.2 * (range 1.4 0.5 "^18"))
+  # midiG' "^82" 0 (1.2 * (range 1.4 0 "^18"))
   # cut 6
 d7 -- Guitar B
   $ g
   $ whenmod 4 3 (# silence)
-  $ segment "<0.5!2 1 <2 4 8 [8 16]>>"
+  $ midiOn "^58" (
+    (# n 27)
+  )
+  $ midiOff "^58" (segment "<0.5!2 1 <2 4 8 [8 16]>>")
   $ "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.5 1.4 "^18"))
+  # midiG' "^82" 0 (1.2 * (range 0 1.4 "^18"))
   # leslie "^34"
   # lsize (1 + (slow 8 perlin * 2))
   # lrate 6.7
@@ -94,8 +91,26 @@ d8 $ g -- Clave de l'été pitchable
 d9 $ g -- CLAPS!
   $ midiOff "^60" (mask "<f!8 t!124>")
   $ midiOn "^92" (fast 4)
-  $ "~ clap:2"
+  $ "~ cp"
   # midiG' "^84" 0 1.5
+d10 -- Nappes crushées indépendantes
+  $ juxBy 0.9 (# cut 101)
+  $ note ("<e e c e>")
+  # "moog"
+  # cut 10
+  # djfbus 2 (range 0.05 0.95 "^20")
+  # crushbus 10 (range 16 1.5 "^36")
+  # midiG' "^56" 0.2 0.8
+d11 -- Sirene indépendante TODO Blend-in / Rework?
+  $ note ("<e e c e>/4")
+  # octave 3
+  # legato 2
+  # "supersiren"
+  # djfbus 2 (range 0.05 0.95 "^20")
+  # crushbus 11 (range 10 0.501 "^35")
+  # speed 0.2
+  # ampbus 110 (range 0 0.5 "^19")
+  # cut 11
 
 
 d6 $ "seawolf:0/4"

live/midi/nova/lofi/dark_money.tidal

@@ -56,15 +56,15 @@ d6 $ g  -- FMRhodes Arps <3
   )
   # "FMRhodes1"
   # modIndex (range 0 15 "^34")
-  -- # crushbus 51 (range 10 5.2 "^53")
+  # crushbus 51 (range 10 5.2 "^53")
   # midiG' "^82" 0 1.3
 d10
   $ "~ clap:1"
   # note (range "-12" 12 "^55")
   # midiG' "^83" 0 1.5
 d4 $ g -- Toy bogdan
-  $ every' 16 15 (>| "~ ~ ~ bogdan:4")
-  $ every' 16 9 ((>| "~ ~ ~ bogdan:2") . (|* gain 0.8))
+  $ every' 16 15 (>| "~ ~ ~ bogdan:4") -- Money
+  $ every' 8 5 ((>| "~ ~ ~ bogdan:2") . (|* gain 0.8))
   $ "~ bogdan"
   # room 0.5
   # legato 2

live/midi/nova/lofi/fictional_yehuda.tidal

+resetCycles
+
+do
+setcps (123/60/4)
+d1
+  $ mask "<f!4 t!27 [t f]>"
+  $ whenmod 64 16 (superimpose (# "jazz"))
+  $ "k*<1!8 2!8 0 0 1 2 1 1 2 2 2!8> . <k(<1 3 5>,8) [~!3 k]>"
+  # "[reverbkick,super808]"
+  # lpf (slow 16 $ range 4000 500 cosine)
+  # room 0.4
+  # sz 0.2
+  # dry 0.99
+  # gain 0.5
+d2 -- Aerian claps
+  $ mask "<f!6 t t f!4 t!4 f f t!6>"
+  $ "~ clap:1(<1!3 3>,8,<0!7 2>)"
+  # gain 0.5
+  # hpf 2000
+d3
+  $ mask "<f!3 t f!2 t!2 f t!3 t(5,8) t!3 t!16>"
+  $ slice 8 "0 <~!8 1!7 ~> <~!4 2!3 <2 [~ 2]>> 3 . ~!2 <6!2 [~ 6] 6*2> 7"
+  $ loopAt 1
+  $ "breaks125" # gain 0.6
+d4
+  $ mask "<f!4 t!28>"
+  $ whenmod 64 32 (superimpose ( -- Electro N0ISE
+    (# cut 41)
+    . (|+| note "<12!8 24 24 24 12 12 12 24 12> <24!8 24 12 24 24 12 24 12 24>(<1 3 <1 3> <1 5>>,<1 8 8 [1 8]>)")
+    . (# crushbus 41 (slow 8 $ range 10 3.5 perlin))
+    . (|* gain (slow 16 $ range 0.65 0.9 saw))
+  ))
+  $ note ("<g4'maj'4 g4'maj'4 g4'major7'4 d4'major7'4>")
+  # "bassWarsaw"
+  # gain 0.45
+  # crushbus 4 (slow 16 $ range 16 5.4 saw)
+  # pan 0.2
+  # legato 1
+d5
+  $ sometimesBy "<0!3 0.5>" (ply 2)
+  $ slice 8 ("<0 1 2 3>" + "<0!4 4!4>")
+  $ loopAt 4
+  $ "yehudi"
+  # n "<1!3 2 1 1 2 2>"
+  -- # n (slow 4 $ 8 + "<0 1 2 3 4 5 6 7>")
+  # cut 5
+  # pan 0.8
+  # hpf 500
+  -- # gain 0.8
+  # room 0.5
+  # sz 0.7
+d6 -- HH RANDOMISÉ
+  $ whenmod 8 6 (# hpf "<2500 5000>")
+  $ sometimesBy "0 0.1" (ply 2)
+  $ sometimesBy 0.1 (slow 2)
+  $ slow "<4!4 [4|2] 2 2 [2|1]!2 1!8>"
+  $ struct "t(<10!7 [10 16]>,16)"
+  $ "hh" # gain (0.75 + 0.05 * (fast 4 perlin))
+  # room 0.3 # dry 0.98 # sz 0.8
+  # gain 0.45
+  # pan (range 0 0.28 perlin)
+
+
+
+
+  do
+  setcps (123/60/4)
+  d1 $ "k . ~!3 <~ k>" # "jazz" # lpf 2000 # gain 0.6
+  d2 $ "~ s"
+    # "snare:71"
+    # hpf 1500 # gain 0.7
+  d3
+    $ loopAt 2
+    $ "break:15"
+    -- #
+    # gain 0.65
+  -- resetCycles
+
+  -- region Sampled via:
+  -- do
+  -- setcps (123/60/4/2) -- Each sample over 2 cycles
+  -- resetCycles
+  -- d1
+  --   -- $ qtrigger 1
+  --   $ "looper"
+  --   # n (8 + "<0 1 2 3 4 5 6 7>")
+  --   # lname "yehudi"
+  -- d2
+  --   $ mask "<t!8 f!8>"
+  --   $ "jazz" # gain 0.7
+  -- d3 $ mask "<t!8 f!8>" $ "dr*4" # gain "0.7 0.7 0.81 0.7"
+  --
+-- endregion

live/midi/nova/lofi/new_dust.tidal

@@ -47,7 +47,7 @@ d3 $ g  -- Drumroll fantôme
       $ slice 8 (run 4 + "0 <~!4 4!4>")
       $ loopAt 2
       $ "break:21"
-      # midiG' "^80" 0 0.9
+      # midiG' "^80" 0 1.3
       # room 0.2 # dry 1 # sz (slow 8 $ range 0.45 0.9 saw)
       # leslie 0.2 # lrate 0.1 # lsize 0.7
       # pan 0.7
@@ -75,7 +75,7 @@ d4 $ g -- Lead nostalgia gauche
   # s "FMRhodes1"
   # room 0.2
   # leslie (range 0.1 1 "^33") # lrate 0.7 # lsize 0.5
-  # crush (range 16 6 "^53")
+  # crushbus 4 (range 16 6 "^53")
   -- # note "<-20 -15 [-20,-16] ~>"
   -- # velocity "<0.7 0.6 0.7>"
   # midiG' "^81" 0 1.5
@@ -88,7 +88,7 @@ d5 $ g  -- Infectious Bassline
   # cut 5
   # "bassWarsaw"
   # width "^34"
-  # crush (range 16 2.5 "^54")
+  # crushbus 5 (range 16 2.5 "^54")
   # midiG' "^82" 0 1.3
   # room 0.2
 d7 -- TOYS TODO Rework classico louche

live/midi/nova/lounge/invoque_ete.tidal

@@ -11,25 +11,24 @@ 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 gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
-let gFreqL = (# lpq (range 0 0.25 "^29"))
-let gFreqH = (# hpq (range 0 0.25 "^30"))
-let gFreqs = (gFreqH . gFreqL)
-let g = gDJF . gFreqs
--- let g = id
-d1 $ g
-  $ midiOn  ("^42" - "^41") (slow 4)
-  $ midiOn  "^41" (<| "k k k <k k k*2 [~ k]>")
-  $ midiOff "^41" (<| "k*2")
-  $ "[jazz,808bd:1,kick:5]"
+let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
+let m = mBreak
+let g = gDJF
+d1 $ g $ m
+  -- $ midiOn  ("^42" - "^41") (slow 4)
+  $ midiOn  "^42" (<| "k k k <k k k*2 [~ k]>")
+  $ midiOff "^42" (<| "k*2")
+  -- $ "[jazz,808bd:1,kick:5]"
+  $ "[jazz,808bd:1]"
   # midiG' "^78" 0 1.5
-d2 $ g -- Clave de l'été
+d2 $ g $ m -- Clave de l'été
   $ midiOn "^43" (fast 2)
   $ midiOn ("^75"-"^43") (fast 2)
   $ (|* gain ("0.75 1 1 1 0.75 1 1 1" * 1.7))
   $ "d ~ ~ d d ~ d <~!3 d>"
   # "snare:22" # gM' 0 1.4 "^79"
   # speed (range 0.5 1.5 "^51")
-d4 $ g -- Mecano Course
+d4 $ g $ m -- Mecano Course
   $ fast 4
   $ midiOn "^76"  (fast "<2!3 <4 [4 2]>>" . (# speed 1.2) . (>| "breaks165"))
   $ midiOn "^44"  (slice 16 ("0*<1 2> 1 2 3*<2 1>") . (>| "breaks125"))
@@ -39,9 +38,9 @@ d4 $ g -- Mecano Course
   -- $ slice 8 "0 1 <2!3 0> <3!3 1 4 5 6 7>" "0 1 <2!3 0> <3!3 1>"
   $ chop 8
   $ loopAt 2 $ "breaks125:3"
-  # gM' 0 1.2 "^80"
+  # gM' 0 1.3 "^80"
   # cut 4
-d5 $ g -- Bassline variable double piste
+d5 $ g $ m -- Bassline variable double piste
   $ loopAt 2
   $ slice 8 (run "<4!4 8 8 [4 8 4] [8 4 8]>")
   $ midiOn "^57" (# n 14)
@@ -51,7 +50,7 @@ d5 $ g -- Bassline variable double piste
   # crushbus 51 (range 16 4.5 "^53")
   # gM' 0.3 1.45 "^81"
   # cut 4
-d6 $ g
+d6 $ g $ m
   $ chop 16
   $ midiOn "^58" (juxBy 0.85 ((# cut 31) . rev))
   $ whenmod 16 12 (rev)
@@ -64,7 +63,7 @@ d6 $ g
   # pan 0.75
   # room 0.2 # dry 1
   # cut 3
-d7 $ g
+d7 $ g $ m
   $ loopAt 4
   $ mask "t(<4 8 12 16>,16)"
   $ slice 16 (run 16)
@@ -73,7 +72,7 @@ d7 $ g
   # room 0.2
   # gM' 0 1.4 "^83"
   # cut 7
-d8 $ g
+d8 $ g $ m
   $ midiOn "^92" (|+ note 12)
   $ midiOn "^60" (
   superimpose (
@@ -87,8 +86,8 @@ d8 $ g
   # octave 4
   # room 0.24
   # "moogBass"
-  # midiG' "^84" 0.3 0.9
-d9 $ g
+  # midiG' "^84" 0 0.9
+d9 $ g $ m
   $ degradeBy (slow 16 $ range 0.8 0.2 saw)
   $ struct "t(3,8) [<t!3 [~ t]> <t ~> <t t*2> <t*2 t t*2 t*2>]"
   $ midiOn "^59" (# speed (range 0.25 2 ("^55" + perlin)))

live/midi/nova/lounge/michael.tidal

@@ -30,10 +30,10 @@ d3
     )
   # midiG' "^80" 0 1.6
 d4 $ g -- Synth brass choir
-  $ midiOn "^57" (# crush 6)
+  $ midiOn "^57" (# crushbus 4 6)
   $ fix (
     (# "fsynth:3")
-    . slice 8 "0 1 2*<<1 2> 1 2 1> 3*<<1 2> 4>"
+    . slice 8 "0 1*<1 2 2 1> 2*<<1 2> 1 2 1> 3*<<1 2> 4>"
     . arp "pinkyup"
     . (|+ pan 0.1)
     . (>| note ("c'maj'3" - 7))
@@ -63,9 +63,9 @@ d5 $ g -- Jumpy Piano
   $ juxBy 0.8 (rev . (# cut 51))
   $ mask "f <f!8 t!8>!3 .  t"
   $ slice 8 (run ("4 <4 8>" * "<1!3 2>"))
-  $ "fpiano:3" # gain 1.25
+  $ "fpiano:3"
   # cut 5
-  # crush (range 16 3 "^54")
+  # crush (range 12 3 "^54")
   # room 0.5
   # sz 0.7
   # midiG' "^82" 0 1.5
@@ -76,14 +76,14 @@ d7 $ g
     ))
   $ "forgan:17" # cut 7
   # midiG' "^83" 0 (1.2 - 0.5 * "^55")
-  # crush (range 16 1.5 "^55")
+  # crushbus 7  (range 10 1.5 "^55")
 d8 $ g
   $ loopAt 2
-  $ degradeBy ("0 0.9!7 0" - "^36")
+  $ degradeBy ("0 0.9!7 0" - "^56")
   $ scramble 2
   $ slice 8 (run 8)
   $ "fbreak120"
   # room 0.8
-  # dry (1 + (slow 8 $ perlin * "^56"))
+  # dry (1 + (slow 8 $ perlin * "^36"))
   # midiG' "^84" 0 1.5
   # cut 6

live/midi/nova/lounge/top_hats.tidal

@@ -51,7 +51,7 @@ d6 $ g -- Guitar riffs
   # "punk"
   # cut 6
   # attack (range 0.5 1 "^33")
-  # crushbus 61 (range 12 1.1 "^53")
+  # crushbus 61 (range 10 1.1 "^53")
   # pan 0.9
   # room 0.3
   # sz 0.9
@@ -74,8 +74,8 @@ d4 -- Rhodes base + chords
   ))
   # "FMRhodes1"
   # modIndex "[0,5,10]"
-  # pan 0.6
-  # crush (range 10 4 "^54")
+  # pan 0.8
+  # crushbus 4 (range 10 4 "^54")
   # gM' 0.3 1.9 "^82"
 d5 $ g -- Choirs + arps
   $ juxBy "0.7" (
@@ -100,8 +100,9 @@ d8 $ g -- Electrified laggy moog
   $ note (prog + "0 <12!4 12 12 16 <12 16>>")
   # "moog"
   # cut 8
-  # crush (range 16 4 "^55")
+  # crushbus 8 (range 10 3.4 "^55")
   # gM' 0 1.8 "^83"
+  # pan 0.6
   # release 100
 d9 $ g
   $ midiOff "^60" (mask "<f!8 t!124>")

live/midi/nova/once_upon_a_loop.tidal

+import Sound.Tidal.ParVagues.Control
+
+linput = pI "linput"
+lname = pS "lname"
+
+do
+setcps (123/60/4/2) -- Each sample over 2 cycles
+resetCycles
+d1
+  -- $ qtrigger 1
+  $ "looper"
+  # n (8 + "<0 1 2 3 4 5 6 7>")
+  # lname "" -- "yehudi"
+d2
+  $ mask "<t!8 f!8>"
+  $ "jazz" # gain 0.7
+d3 $ mask "<t!8 f!8>" $ "dr*4" # gain "0.7 0.7 0.81 0.7"
+
+do
+setcps (123/60/4)
+d1 $ "k . ~!3 <~ k>" # "jazz" # lpf 2000 # gain 0.6
+d2 $ "~ s"
+  # "snare:71"
+  # hpf 1500 # gain 0.7
+d3
+  $ loopAt 2
+  $ "break:15"
+  -- #
+  # gain 0.65
+-- resetCycles
+
+-- region SAVE
+once $ s "persistLoops" # lname "" -- yehudi
+-- endregion
+
+d1 $ ""
+d4
+  $ loopAt 2
+  $ "yehudi"
+  # n (slow 4 $ 8 + "<0 1 2 3 4 5 6 7>")
+  # cut 4
+  # gain 0.9
+  # room 0.5
+  # sz 0.7
+
+
+do
+d1 $ "jazz(1 . <3 5>,8)" # gain 0.6
+d2 $ "~ cpu2:4" # gain 0.8
+d5 $ "logic:3*<1 2 1 4>"
+  # begin "<0.2!2 0>"
+  # hpf 1000
+  # cut 1
+
+
+
+do
+setcps (122/60/4)
+-- d1 $ "jazz" # gain 0.7
+d2 $ "logic:2" # cut 1
+  # gain 1.8
+
+
+-- Hello Rhodes
+do
+let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
+let g = gDJF
+setcps (120/60/4)
+d1
+  $ g
+  $ midiOn "^41" (<| "k*4")
+  $ midiOff "^41" (<| "k <k!7 [~ k]>")
+  $ "jazz"
+  # midiG "^78"
+d2 $ g
+  $ "~ cp"
+  # midiG "^79"
+d3 $ g
+  $ fast ( -- cycle/4 ralenti-accelere
+    slow 4 $ "<1 [0.5 2] [2 0.5 1 2] [1 0.5 2]>"
+    )
+  $ s "dr*8"
+  # s "ifdrums:1"
+  # pan 0.4
+  # midiG' "^80" 0 1.1
+d4 $ g -- bassine
+  $ whenmod 16 8 (slice 16 (run 8))
+  $ "loop" # n "<0!4 1!4>"
+  # midiG' "^81" 0 0.8
+  # pan 0.2
+  # crushbus 41 (range 10 1.5 "^53")
+d5 $ g -- Looped Rhodes
+  $ "loop" # n "<3!3 4 3 4 4 5>"
+  # pan 0.8
+  # midiG' "^82" 0 1
+  # pan 0.75
+  # ampbus 101 (range 0.5 1.5 "^54")
+  # room 0.6 # dry 0.8
+d6 $ g --
+  $ "hello"
+  # n "<0 1 2 3>"
+  # midiG' "^82" 0 0.8
+  # pan 0.65
+  # ampbus 101 (range 0.5 1.5 "^34")
+
+d2 $ s "looper" # n "<0 1 2 3 4 5 6 7>"

live/midi/nova/party/last_one.tidal

@@ -28,15 +28,16 @@ d3 $ g
   $ "h2ogmhh" # n "[10|11|12]*4"
   # midiG' "^80" 0 1.5
 d4 $ g -- Bassline
-  $ midiOff "^57" (degradeBy $ "0 1!3 0 1!2 0" * 0.5)
+  $ swingBy "h" 8
+  $ midiOn "^57" (degradeBy $ "0 1!3 0 1!2 0" * 0.5)
   $ note ((struct "t(3,8) t(<4 4 5 [5 8]>,8)"
-  $ arpeggiate prog)
+  $ arp "<pinkyup!2 converge!2>" prog)
   + "[0,<0 12>]"
   - 36)
-  # "bassWarsaw"
+  # "supersaw" # voice 0.01
   # pan 0.2
   # room 0.2
-  # crushbus 40 (range 10 2.85 "^53")
+  # crushbus 40 (range 10 1.85 "^53")
   # midiG' "^81" 0 1.5
 d5 $ g -- Nappes plage
   $ midiOn "^58" (superimpose (
@@ -66,7 +67,7 @@ d7 $ g
       "<0 <-1 2>>" + "0(3,8) 0"
       ))
     . (|+ note 24)
-    . (|* gain (1.1 * (range 0 1.25 "^56")))
+    . (|* gain (0.6 * (range 0 1.25 "^56")))
   )
   $ note (
     progm