live: jeudi incident

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/disco/high.tidal

@@ -17,11 +17,11 @@ setcps (125/60/4)
 d1
   $ whenInFade
   $ mask "<f!7 t!57>" -- Masked intro
-  $ mask "<t!16 [t f!3] f!7 t(2,4)!8 t!8>"
+  -- $ mask "<t!16 [t f!3] f!7 t(2,4)!8 t!8>"
   $ superimpose (# lpf 200)
   $ "kicklinn*4"
   # release 0.15
-  # gain 0.8
+  # gain 0.89
 d2
   $ whenInFade
   $ mask "<f(1,4)!7 t!57>" -- Masked intro
@@ -54,7 +54,6 @@ d3
 d4 -- Cymb
   $ whenInFade
   $ whenMont (fast "<[1!3 2] [1 2 1 2] 1 [1 2!3]>")
-  $ whenDrop ((jux rev) . (# hpf 500))
   $ degradeBy (slow 16 $ "<1 0.8 0.5 0>")
   $ sometimesBy "0.1 0 <1 1 1 0.5> <0 0.1!2 1>" (ply 2)
   $ fast 4 "~ electro1:1"

live/fusion/elephunk.tidal

 do
 -- resetCycles
-setcps (92/60/4)
+-- setcps (92/60/4)
+let gain p = gain (1.5 * p)
 let gFadeIntro = someCyclesBy "<t!8 f!56>" (|* gain (slow 8 $ range 0 1 saw))
 let patFunk = "ds gf f <bf4!3 bf>"
 let gDJF = whenmod 32 24 (# djf (slow 8 $ range 0.5 0.15 saw))
@@ -33,8 +34,6 @@ d5 $ g
   # room 0.6
   # sz 0.8
   # gain 0.35
-
-
 d6 $ g -- Final guitare rita
   $ whenmod 64 48 (# gain 0.25)
   $ slice 16 "0 . 1 <~ 1 2>"

live/jam/cbow.tidal

+d1 $ slow 17 $ n (run 17) # "cbow" # gain 0.8 # cut 1
+
+resetCycles
+
+-- P P T . P    T
+-- P T   . PP P T
+do
+let chord = "d4'min7'4"
+let gF = midiDJF "^49" 200 9800 0 2000
+let gLeslie = ((# leslie "^29") . (# lsize (range 0 2.5 "^30"))  .(# lrate 6.7))
+let gDJF = (whenmod 32 24 (# lpf (max 200 (slow 16 $ range 5000 0 sine))))
+let g = gF . gLeslie
+setcps (100/60/4)
+d1 $ gDJF $ g
+  $ midiOff "^41" (mask "<f f [t f] t t!28>")
+  $ midiOn "^41"  (<| "k*4" )
+  $ midiOff "^41" (<| "k [~!6 <k!3 ~>] . k*2 ~" )
+  $ "[jazz,bd]"
+  # midiG' "^78" 0 0.75
+d2 $ gDJF $ g
+  $ fast "<0!4 0 [0 1] 1 1 0 [0 1] 1 1 [1 2] 1 2 4>"
+  $ "~ s ~ s"
+  # "h2ogmsn:6"
+  # midiG' "^79" 0 0.8
+d3 $ g -- Bass
+  $ gDJF
+  $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
+  $ slow 4
+  $ note (
+    (arp "up <up!8 down!8>" chord))
+  # "cbow:0"
+  # pan 0.3
+  # cut 3
+  # room 0.6
+  # sz 0.5
+  # midiG' "^81" 0 0.56
+  # crush (range 10 2 "^53")
+d4 $ g
+  -- $ mask "<f!8 t!24>"
+  $ whenmod 8 7 (ply "1 4")
+  $ slow 2
+  $ whenmod 16 8 (ply 2)
+  $ whenmod 4 3 (off "e" ((# cut 41) . (# legato 1)))
+  $ note (arp "converge" chord)
+  # pan 0.4
+  # "cbow:2"
+  # cut 4
+  # room 0.2
+  # midiG' "^82" 0 0.4
+d5 $ g -- Breakbeat
+  $ midiOn "^76" (fast "<2!3 4>")
+  $ midiOff "^44" (slow "<4 2>")
+  $ sometimesBy "^32" rev
+  $ someCyclesBy (0.9 * "^52") (scramble "1 4")
+  $ slice 8 "0 1 <0 2 6 2> <1 3 7 3>"
+  $ loopAt 2
+  $ "fbreak100"
+  # cut 5
+  # midiG' "^80" 0 0.8
+d8 $ g -- Angels
+  $ midiOff "^59" (mask "<f!32 t!32>")
+  $ note "<[c . ~!3 <~ <d g4>>] a4>"
+  # "cbow:3"
+  # cut 8
+  # midiG' "^83" 0 0.56
+
+d4
+  $ whenmod 32 16 (jux rev)
+  $ "h2ogmcp(5,8,<0!3 [0 3]>)"
+  # gain 0.45
+
+(5) h2ogmcb (5) h2ogmcp (1) h2ogmcy (25) h2ogmft (5) h2ogmhh (20) h2ogmht (5) h2ogmmt (5) h2ogmsn (

live/midi/nova/FFF/pray.tidal

@@ -60,7 +60,7 @@ d5 -- Fragments of Wiley
   $ novaOn "^90" (segment "<2 [2 4] [4 8] [16 32]>")
   $ novaOn  "^58" (slow 16)
   $ novaOff "^58" (slow 4)
-  $ "pray" -- TODO INTRO then /4
+  $ "pray"
   # crush (range 10 2.5 "^54")
   # n "<0!4 1!8>"
   # cut 5

live/midi/nova/breaks/break_90s.tidal

@@ -6,6 +6,8 @@ import Sound.Tidal.ParVagues.Control
 setcps (80/60/4)
 resetCycles
 
+once "dr"
+
 -- Break90s∷ :)
 do
 -- let gF = (whenmod 32 28 (# djf (slow 4 $ range 0 0.5 sine)))
@@ -13,8 +15,9 @@ let gDJF = (midiDJF "^49" 0 10000 0 10000)
 let g = (gDJF)
 d1
   $ g
-  $ midiOn "^41" (superimpose (# "kick:5")
-  . (<| "k k k k k k k k*2")
+  $ midiOn "^41" (superimpose ((# "kick:5")
+  . (|* gain 0.9))
+  . (<| "k k k k k k k [<k ~> <k ~ ~ k>]")
   . (# room 0)
   . (|* gain 0.9)
   )

live/midi/nova/breaks/slower.tidal

@@ -5,7 +5,7 @@ setcps (80/60/4)
 resetCycles
 
 do
-let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.1 0.5 sine)))
+let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.15 0.5 sine)))
 let gDJF = (midiDJF "^49" 200 9800 0 200)
 let gFreqL = (# lpq (range 0 0.25 "^29"))
 let gFreqH = (# hpq (range 0 0.25 "^30"))
@@ -65,7 +65,7 @@ d5 -- fmono
   # crush (range 12 1.85 "^54")
   # midiG' ("^82" + 0.125 * "^54") 0 1.2
   # room 0.3 # sz 0.8 # dry 1
-d9 -- Hats
+d9 -- Maracas Hats
   $ g
   $ fix (
     midiOff "^60" (slow 4)

live/midi/nova/computer_riddim.tidal

@@ -7,7 +7,7 @@
 
 do
 -- region Nova Utils
-let gFactor = 1.25
+let gFactor = 1.45
 let gG a = (gain (gFactor * "^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
@@ -109,8 +109,9 @@ d8 -- Trompette lancinante
   $ 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>")
+  $ superimpose ((|- note 12) . (# cut 81) . (|* gain 0.95))
+  $ note ("<g [<a d> bf d ~]> <g [~ g a]>" + "0 <12 0>" 
+  - 12)
   # "brass" # n "2"
   # gM' 0.2 1 "^55"
   # attack 0.5

live/midi/nova/dnb/lucy_rode.tidal

 import Sound.Tidal.ParVagues.Control
 
-once "dr"
+once $ "dr" # gain 0.8
 
 resetCycles
 setcps (60/60/4)
@@ -32,6 +32,7 @@ do
     $ slice 4 (run 4)
     $ "fbreak80:4"
     # midiG' "^79" 0 2
+    # leslie "^51" # lrate 6.7
     # cut 2
   d3 $ g -- Drumroll
     $ midiOn "^41" (
@@ -59,6 +60,7 @@ do
     # crush (range 10 3.7 "^54")
     # modIndex (range 0 4.19 "^34")
   d4 $ g -- Bassline pompée
+    $ midiOn "^57" (ply 2)
     $ note (scale "aeolian" (
       "0*8"
       |+ (fast 4 $ arp "up"

live/midi/nova/dnb/meurice.tidal

@@ -24,7 +24,7 @@ d2
   $ g
   $ g32Bridge
   $ whenmod 16 12 (struct "t*<4 4 8 16>")
-  $ whenmod 16 8 (fast 2)
+  $ whenmod 16 4 (fast 2)
   $ "~ cp"
   # "[snare:4,snare:22]"
   # pan 0.55
@@ -32,11 +32,11 @@ d2
   # room 0.8 # dry 0.99 # sz 0.2
   # midiG' "^79" 0 1.2
 d3 -- Running Hats
-  $ g
-  $ degradeBy ("1 0 0 1!13" - "^52")
-  $ midiOn "^44" (fast 2)
-  $ "h2ogmhh*8"
-  # n "[0|0|0|0|1|1|3|3]*8"
+  -- $ g
+  -- $ degradeBy ("1 0 0 1!13" - "^52")
+  -- $ midiOn "^44" (fast 2)
+  $ "hh*[8 . 8 <16 8 4 [4 8]>]"
+  -- # n "[0|0|0|0|1|1|3|3]*8"
   # midiG' "^80" 0 (1.3 + (slow 4 $ perlin/4))
   # room  (slow 8 $ range 0.2 0.45 saw)
   # sz    (slow 8 $ range 0.8 0.2 saw)
@@ -81,7 +81,14 @@ d7 -- Guitar B
   # lsize (1 + (slow 8 perlin * 2))
   # lrate 6.7
   # cut 71
-
+d8 $ g -- Clave de l'été
+  $ midiOn "^59" (fast 2)
+  $ midiOn ("^91"-"^59") (fast 2)
+  $ (|* gain "0.75 1 1 1 0.75 1 1 1")
+  $ "d ~ ~ d d ~ d <~!3 d>"
+  # "[<808lc!6 808hc!2>,<~!4 808mc!4>]"
+  # speed (range 0.5 2 "^55")
+  # midiG' "^83" 0 1.5
 
 
 d6 $ "seawolf:0/4"

live/midi/nova/lofi/new_dust.tidal

@@ -84,12 +84,12 @@ d5 $ g  -- Infectious Bassline
   # legato 2
   # "bassWarsaw"
   # width "^34"
-  -- # crush (range 16 2.5 "^54") -- Manual crush enabler
+  # crush (range 16 2.5 "^54") -- Manual crush enabler
   # midiG' "^82" 0 1
-  # room 0
+  # room 0.2
 d7 -- TOYS
+  $ degradeBy (0.99 - "^55")
   $ somecyclesBy "<0!4 1 1 0 1>" (often (# speed "-1"))
-  $ degradeBy (slow 16 $ "<0.95 0.8 0.45 [0 0.2!3]>")
   $ slice 8 (stack [
     "<~!8 4!4 [4 5]!4>", -- Classico
     "<0!4 1 0 1 [0 1]>*<4!4 8 4 8 8>", -- Toy melod
@@ -100,12 +100,25 @@ d8 $ g -- Toy bogdan
   $ fix (|* gain 0.75) "hh"
   $ every' 16 15 (>| "~ ~ ~ bogdan:4")
   $ every' 16 9 ((>| "~ ~ ~ bogdan:2") . (|* gain 0.8))
+  $ every' 16 1 (>| "~ ~ ~ bogdan:4")
   $ "~ ~ ~ hh"
   # room 0.5
   # legato 2
   # hpf 200
   # midiG' "^84" 0.5 1.1
   # leslie 0.2 # lrate 6.7 # lsize 0.7
+d9 $ g -- Toy Dusty
+  $ slice 24
+  (cat [
+    "0 0",
+    "~ 1 ~ 1",
+      "0 0 0 0",
+      "~ 1 ~ 1 ~ 1 2 3"
+  -- "2",
+  -- "0 1*2 2 ~ ~ ~ ~ ~"
+  ])
+  $ "dusty"
+  # cut 9 # gain 0.65
+  # midiG' "^56" 0.3 1.1
 
-once $ ""# cut 21
 once $ "dr" # cut 21 # gain 0.5

live/midi/nova/lounge/cbow.tidal

+d1 $ slow 17 $ n (run 17) # "cbow" # gain 0.8 # cut 1
+
+resetCycles
+
+-- P P T . P    T
+-- P T   . PP P T
+do
+let chord = "d4'min7'4"
+let gF = midiDJF "^49" 200 9800 0 2000
+let gLeslie = ((# leslie "^29") . (# lsize (range 0 2.5 "^30"))  .(# lrate 6.7))
+let gDJF = (whenmod 32 24 (# lpf (max 200 (slow 16 $ range 5000 0 sine))))
+let g = gF . gLeslie
+setcps (100/60/4)
+d1 $ gDJF $ g
+  $ midiOff "^41" (mask "<f f [t f] t t!28>")
+  $ midiOn "^41"  (<| "k*4" )
+  $ midiOff "^41" (<| "k [~!6 <k!3 ~>] . k*2 ~" )
+  $ "[jazz,bd]"
+  # midiG' "^78" 0 0.75
+d2 $ gDJF $ g
+  $ fast "<0!4 0 [0 1] 1 1 0 [0 1] 1 1 [1 2] 1 2 4>"
+  $ "~ s ~ s"
+  # "h2ogmsn:6"
+  # midiG' "^79" 0 0.8
+d3 $ g -- Bass
+  $ gDJF
+  $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
+  $ slow 4
+  $ note (
+    (arp "up <up!8 down!8>" chord))
+  # "cbow:0"
+  # pan 0.3
+  # cut 3
+  # room 0.6
+  # sz 0.5
+  # midiG' "^81" 0 0.56
+  # crush (range 10 2 "^53")
+d4 $ g
+  -- $ mask "<f!8 t!24>"
+  $ whenmod 8 7 (ply "1 4")
+  $ slow 2
+  $ whenmod 16 8 (ply 2)
+  $ whenmod 4 3 (off "e" ((# cut 41) . (# legato 1)))
+  $ note (arp "converge" chord)
+  # pan 0.4
+  # "cbow:2"
+  # cut 4
+  # room 0.2
+  # midiG' "^82" 0 0.4
+d5 $ g -- Breakbeat
+  $ midiOn "^76" (fast "<2!3 4>")
+  $ midiOff "^44" (slow "<4 2>")
+  $ sometimesBy "^32" rev
+  $ someCyclesBy (0.9 * "^52") (scramble "1 4")
+  $ slice 8 "0 1 <0 2 6 2> <1 3 7 3>"
+  $ loopAt 2
+  $ "fbreak100"
+  # cut 5
+  # midiG' "^80" 0 0.8
+d8 $ g -- Angels
+  $ midiOff "^59" (mask "<f!32 t!32>")
+  $ note "<[c . ~!3 <~ <d g4>>] a4>"
+  # "cbow:3"
+  # cut 8
+  # midiG' "^83" 0 0.56
+
+d4
+  $ whenmod 32 16 (jux rev)
+  $ "h2ogmcp(5,8,<0!3 [0 3]>)"
+  # gain 0.45
+
+(5) h2ogmcb (5) h2ogmcp (1) h2ogmcy (25) h2ogmft (5) h2ogmhh (20) h2ogmht (5) h2ogmmt (5) h2ogmsn (

live/midi/nova/lounge/invoque_ete.tidal

@@ -17,6 +17,7 @@ let gFreqH = (# hpq (range 0 0.25 "^30"))
 let gFreqs = (gFreqH . gFreqL)
 let gDJF = (gLPF . gHPF)
 let g = gDJF . gFreqs
+-- let g = id
 d1 $ g
   $ midiOn  ("^42" - "^41") (slow 4)
   $ midiOn  "^41" (<| "k k k <k k k*2 [~ k]>")

live/midi/nova/lounge/michael.tidal

+setcps (120/60/4)
+resetCycles
+-- Michael: lounge piano/brass tech/break
+do
+let gDJF = midiDJF "^49" 200 9800 0 1000
+let g = gDJF
+d1 $ g
+  $ midiOn "^41" (struct "t t t*<2 1 1 2> t*<1 2>")
+  $ midiOff "^41" (struct "t(<3!3 [3 <8 [5 8]>]>,8)")
+  $ "jazz"
+  # room 0.5 # sz 0.5
+  # dry 1
+  # midiG' "^78" 0 1.6
+d2 $ g
+  $ whenmod 8 6 (ply "2 <2 4>")
+  $ "~ s . ~ <s!7 ~> <~!7 s> <~!3 s>" # "snare:20"
+  # midiG "^79"
+d3
+  $ g
+  $ midiOn "^44" (slow 2)
+  -- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]")
+  -- $ degradeBy ("0 0.95!7 0" - "^52")
+  $ "~ h ~ h ~ h*2 ~ h" # "hh27:2"
+  # note (
+    whenmod 4 3 (2 -)
+    "0 . 2 0"
+    )
+  # midiG' "^80" 0 1.6
+d4 $ g -- Synth brass choir
+  $ midiOn "^57" (# crush 6)
+  $ fix (
+    (# "fsynth:3")
+    . (|- note 24)
+    . (|+ pan 0.1)
+    . (|* gain "^53")
+  ) "a"
+  $ fix (
+    (# "fsynth:3")
+    . (|- note 12)
+    . whenmod 4 2 (often (ply 2))
+    . (# pan (perlin))
+    . (|* gain "^33")
+  ) "b"
+  $ fix (
+    (# "fsynth:3")
+    . slice 8 "0 1 2*<<1 2> 1 2 1> 3*<<1 2> 4>"
+    . arp "pinkyup"
+    . (|+ pan 0.1)
+    . (>| note ("c'maj'3" - 7))
+    . (|* gain ("^17" * 0.9))
+  ) "c"
+  $ slice 4 "<0 1 2 3>"
+  $ "[a,b,c]"
+  # midiG' "^81" 0 1.5
+  # room 0.3
+  # sz 0.6
+d5 $ g -- Jumpy Piano
+  $ midiOff "^58" (struct "t(2,4)")
+  $ degradeBy ("0 0.95!7 0" - "^34")
+  $ 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
+  # cut 5
+  # crush (range 16 3 "^54")
+  # room 0.5
+  # sz 0.7
+  # midiG' "^82" 0 1.5
+d7 $ g
+  $ slice 8 (run ("<2!3 4>" * "<1!4 2!4 [2 1]*4 [2 4]*4>"))
+  $ "forgan:17" # cut 7
+  # midiG' "^83" 0 (1.2 - 0.5 * "^55")
+  # crush (range 16 1.5 "^55")
+d8 $ g
+  $ loopAt 2
+  $ degradeBy ("0 0.9!7 0" - "^36")
+  $ scramble 2
+  $ slice 8 (run 8)
+  $ "fbreak120"
+  # room 0.8
+  # dry (1 + (slow 8 $ perlin * "^56"))
+  # midiG' "^84" 0 1.5
+  # cut 6

live/midi/nova/lounge/top_hats.tidal

@@ -20,7 +20,7 @@ let g = (gDJF . gFreqs)
 setcps 0.5
 d1 $ g
   $ midiOn "^41" ( -- KICK RUN
-    ((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.25))
+    ((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.35))
   )
   $ midiOff "^41" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>")
   $ "hh27" # n "[5,6]"

live/midi/nova/minneapolis.tidal

@@ -38,6 +38,7 @@ d1 $ g
   # gM' 0 1 "^78"
 d2 $ g
   $ mask "<f!8 t!8> <f!4 t!4> . t"
+  $ novaOn "^75"  (slice 8 (run 8) . (loopAt 1 . (>| "breaks165"))
   $ sometimesBy ("^43") -- Stut
   (mask "t(<8!2 12!2>,16)" . stut 4 0.9 "s")
   $ every' 8 7 (mask "f t!3" . jux rev)
@@ -51,7 +52,7 @@ d3 $ g -- Drumroll opposé hit roll / hh when TECHNO
       sometimesBy "0!15 <0!4 1!4>" (# silence) .
       sometimesBy "0!14 <1!3 1> 0" ((# "hh:1") . (|* gain 1.4)) .
       fast 2) .
-      (|* gain 0.8) .
+      (|* gain 0.75) .
     (>| "ho*8")
   )
   $ novaOff "^44" (fast "<4!3 <2 [2 <8 [8 16]>]>>") -- Waiting roll
@@ -100,12 +101,12 @@ d5 $ g -- Basse + Sirene
     . (-| note 12) -- 24 when crushed
     . (# gM' 0.2 0.8 ((
       "^81"  -- gain bass
-      * (range 0.6 0.9 "^33") -- Modulated 5C
+      * (range 0.7 0.9 "^53") -- Modulated 5C
       )
       - (0.125 * "^57") -- When TECHNOPHILE
       ))
     . (# crush (range 10 3
-       "^53"))
+       "^33"))
     . (# room 0.5)
     . (# size 0.8)
   )
@@ -115,8 +116,8 @@ d5 $ g -- Basse + Sirene
   )
   # s "supersaw"
   # voice 0.15
-  # crush (range 10 2 "^53")
-  # gM' 0 0.8 ("^81" * (range 0.9 0.4 "^33")) -- Modulated 5C
+  # crush (range 10 2 "^33")
+  # gM' 0.2 0.8 ("^81" * (range 1 0.45 "^53")) -- 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")
@@ -131,14 +132,14 @@ d7 $ g -- Claps fantome
 d8 $ g -- Gunfire
   $ sometimesBy "^20" (
     superimpose (const -- pistolets
-      $ sometimes ( -- réplique
+      $ someCyclesBy 0.25 ( -- réplique
         off 0.5 (|+ gain 0.1)
       . (# room 0.25)
       )
-      $ often (stut 2 0.85 (1/16)) -- écho
+      $ sometimes (stut 2 0.55 ("[s|e|h]")) -- écho
       $ s "~ ~ ~ snare:57"
       # speed (range 0.4 1 ("^36" + (slow 4 $ perlin/3)))
-      # gM' 0 1 ("^56")
+      # gM' 0 1 "^56"
       # cut 80
       # dry 1.02
       # pan (range 0.2 0.8 perlin)

live/midi/nova/party/dark_angel_frappe.tidal

@@ -9,33 +9,34 @@ let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
 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 gRes = (# hpq "^29") . (# lpq "^30")
+let gRes = (# hpq (range 0.01 0.5 "^29")) . (# lpq (range 0.01 0.5 "^30"))
 let novaOn  ch pat = (someCyclesBy ch pat)
 let novaOff ch pat = someCyclesBy (1 - ch) pat
 -- endregion Nova Utils
 let g = (gDJF . gRes)
 setcps 0.5
 d1 $ g
-  -- $ mask "<t f f f t t f f t!8 f!6 t t t!16 f!16>"
-  $ "k k k <k [k k] k [~ k]>"
-  # "[jazz,cpu]"
-  # room 0.8 # sz 0.8 # dry 1
-  # gM' 0 1.6 "^78"
+  $ midiOn  "^42" (<| "k k k k")
+  $ midiOn  "^41" (<| "k k k <k [k k] k [~ k]>")
+  $ midiNo "^42" "^41" (<| "k . k(<<3 [3 5]> 3 3 5>,8)")
+  $ "[jazz,cpu,bd:8]"
+  # room 0.2 # sz 0.8 # dry 1
+  # gM' 0 1.16 "^78"
 d2 $ g -- Clap
   $ novaOn "^92" (fast 2 . whenmod 4 3 (ply "1 2"))
   $ novaOff "^60" (# silence)
   $ "~ [clap,<cp!3 ~>]"
   # lpf 2500
   # room 0 # dry 0.99
-  # gM' 0 1.3 "^84"
+  # gM' 0 1.13 "^84"
 d3  $ g -- Break 4/4
-  -- $ sometimes (off "e" id)
+  $ midiOn "^43" (slow 2)
   $ fix (|* gain 0.8) (n 2)
   $ n "2 3 0 <3!3 <[~ ~ 3 5] [3 3 ~ [5 ~]]>>"
   # "amencutup"
-  # gain 1.2
-  # gM' 0 1.4 "^79"
+  # note (range "-12" 12 "^51")
   # pan 0.4
+  # gM' 0 1.4 "^79"
 d8 $ g -- Hats
   $ fix (|* gain 0.9) ("hh27")
   $ "d*[8 <[8 4 8] [8 16 8] [8 4] 16>]"
@@ -44,14 +45,14 @@ d8 $ g -- Hats
   # gM' 0 1.45 "^80"
 d4 -- RESONANT BASSLINE
   $ g
-  $ novaOn "^81" (slow "2 . 2 <1!3 0.5>")
+  $ novaOn "^57" (slow "2 . 2 <1!3 0.5>")
   $ whenmod 16 12 (
     degradeBy ("[0 1!3]*2" * (slow 17 $ range 0 0.5 perlin))
     . (# legato 2)
   )
   $ note "b2!6 <bs2!3 <a2 g2>> b2" # "supersaw"
-  # gM' 0 1 "^81"
-  # crush (range 10 3 "^53")
+  # gM' 0 1 ("^81" - 0.2 * "^53")
+  # crush (range 10 1 "^53")
   # room 0.5 # sz 0.8
 d5 $ g -- Synth voices
   $ novaOff "^58" (# silence)
@@ -59,14 +60,15 @@ d5 $ g -- Synth voices
   $ loopAt 2
   $ slice 8 ("0 1*<1 2 4> 2(<1 2 3 5>,8) <3 7 3 [6 7]>")
   $ "fsynth:47"
-  # gM' 0 1 "^82"
+  # crush (range 10 2 "^54")
+  # gM' 0 1 ("^82" - 0.2 * "^54")
   # cut 5
-d7 $ g -- Fill drums
-  $ (|* gain (slow 10 $ range 0.9 1.2 perlin))
-  -- $ loopAt 2
-  $ slice 16 "1 1 5*<1 2 4> 0*<1!7 2>"
-  -- $ mask "<f!3 t>"
-  $ "ffills:7"
+d7 $ g -- Side guitar
+  $ sometimesBy "^35" (scramble 16)
+  $ mask "<t!6 f!2>"
+  $ loopAt 2
+  $ "fguitar:61"
   # cut 7
-  # pan 0.6
-  # gM' 0 1.5 "^83"
+  # pan 0.2
+  # crush (range 16 2 "^55")
+  # gM' 0 1 "^83"

live/midi/nova/party/electro_blues.tidal

@@ -13,24 +13,25 @@ d1 -- Kick rarement doublé
   $ midiOn ("^42"-"^41") (fast "<1!8 2!20 1 0 0 2>")
   $ "k*4" # "jazz"
   # room 0.1 # dry 0.99 # sz 0.6
-  # midiG' "^77" 0 1.5
+  # midiG' "^78" 0 1.5
 d2 $ g
   $ "~ [jazz:4,cp]"
   # hpf (range 0 10000 perlin)
-  # midiG "^78"
+  # midiG "^79"
 d3 -- Snakes
   $ juxBy (slow 8 $ range 0.1 0.9 sine) rev
   $ fast 4
   $   "s . s <s!3 ~> <~!3 s>"
   # "hh*6"
-  # gain (slow 32 $ range 0.55 1.2 saw)
+  # midiG "^80"
 d4
-  $ never (superimpose (
-    ply "<2 4 [4 8] 8>" .
-    mask "t(1,4)" . arpeggiate . (# "supermandolin")
-    . (|* gain 0.8)
-    . (# pan 0.6)
-    . (# crush 16)
+  $ midiOn "^57" (juxBy 0.2 (
+    -- ply "<2 4 [4 8] 8>" .
+    arpeggiate
+    -- . (# "supermandolin")
+    -- . (|* gain 0.8)
+    -- . (# pan 0.6)
+    -- . (# crush 16)
   ))
   $ note (
     cat blues + chord
@@ -43,7 +44,7 @@ d4
   # midiG' "^81" 0 1.3
 d5 -- Choeurs
   $ juxBy 0.5 (
-  (0.5 ~>) . midiOn "^59" (superimpose (
+  (0.5 ~>) . midiOn "^58" (superimpose (
     arpeggiate
     . (|+ note chordAug)
     . (|+ pan 0.05)
@@ -56,6 +57,6 @@ d5 -- Choeurs
   $ note (cat blues)
   # "moogBass"
   # octave 3
-  # midiG' "^83" 0 1.4
+  # midiG' "^82" 0 1.4
   # room 0.4
   # size 0.7 # dry 1.05

live/midi/nova/party/funk_angel_frappe.tidal

--- FUNKY ANGEL FRAPPE
--- Needs bass/more lead high?
-do
--- region Nova Utils
-let gFactor = 1.4
-let gG a = (gain (gFactor * "^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")))))
-let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49"))))))
-let gDJF = (gLPF . gHPF)
-let gRes = (# hpq "^29") . (# lpq "^30")
-let novaOn  ch pat = (someCyclesBy ch pat)
-let novaOff ch pat = someCyclesBy (1 - ch) pat
--- endregion Nova Utils
-let g = (gDJF . gRes)
-setcps 0.5
-d1 $ g
-  -- $ mask "<t f f f t t f f t!8 f!6 t t t!16 f!16>"
-  $ "k k k <k [k k] k [~ k]>"
-  # "[jazz,cpu]"
-  # room 0.8 # sz 0.8 # dry 1
-  # gM' 0 1.5 "^78"
-d2 $ g -- Clap
-  $ novaOn "^92" (fast 2 . whenmod 4 3 (ply "1 2"))
-  $ novaOff "^60" (# silence)
-  $ "~ [clap,<cp!3 ~>]"
-  # lpf 2500
-  # room 0 # dry 0.99
-  # gM' 0 1.3 "^84"
-d3  $ g -- Break 4/4
-  -- $ sometimes (off "e" id)
-  $ fix (|* gain 0.8) (n 2)
-  $ n "2 3 0 <3!3 <[~ ~ 3 5] [3 3 ~ [5 ~]]>>"
-  # "amencutup"
-  # gain 1.2
-  # gM' 0 1.2 "^79"
-  # pan 0.4
-d8 $ g -- Hats
-  $ fix (|* gain 0.9) ("hh27")
-  $ "d*[8 <[8 4 8] [8 16 8] [8 4] 16>]"
-  # "[drum:2,hh27:4]"
-  # pan (slow 16 $ range 0.4 0.6 saw)
-  # gM' 0 1.35 "^80"
-d4 -- RESONANT BASSLINE
-  -- $ (# lpq (range 0 0.8 "^53"))
-  -- $ (# lpf (slow 32 $ min 10000 (range 500 15000 sine)))
-  $ g
-  $ novaOn "^81" (slow "2 . 2 <1!3 0.5>")
-  $ whenmod 16 12 (
-    degradeBy ("[0 1!3]*2" * (slow 17 $ range 0 0.5 perlin))
-    . (# legato 2)
-  )
-  -- $ juxBy 0.8 (# crush (slow 16 $ range 16 5 isaw))
-  $ note "b2!6 <bs2!3 <a2 g2>> b2" # "supersaw"
-  -- # accelerate ("<0!60 -0.1 -0.1 -0.2 -0.2>")
-  # gM' 0 1 "^81"
-  # crush (range 10 3 "^33")
-  # room 0.5 # sz 0.8
-d5 $ g -- Synth voices
-  $ novaOff "^58" (# silence)
-  $ whenmod 8 4 (juxBy 0.25 (rev . (# cut 51)))
-  $ loopAt 2
-  $ slice 8 ("0 1*<1 2 4> 2(<1 2 3 5>,8) <3 7 3 [6 7]>")
-  $ "fsynth:47"
-  # gM' 0 1 "^82"
-  # cut 5
-
-
-
-d7 $ g -- Fill drums
-  $ (|* gain (slow 10 $ range 0.9 1.2 perlin))
-  -- $ loopAt 2
-  $ slice 16 "1 1 5*<1 2 4> 0*<1!7 2>"
-  -- $ mask "<f!3 t>"
-  $ "ffills:7"
-  # cut 7
-  # pan 0.6
-  # gM' 0 1.5 "^83"

live/midi/nova/tidal_crime.tidal

@@ -8,7 +8,7 @@ once $ "dr" # gain 1.2
 
 do
 -- region Nova Utils
-let gFactor = 1.2
+let gFactor = 1
 let gG a = (gain (gFactor * "^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
@@ -48,11 +48,12 @@ d3 $ g
   $ novaOn ("^76") --BOUTON NASSIM
   (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1)
   . (>| "breaks125")
+  . (|* gain 0.9)
   )
   $ novaOff "^76" (|* gain (slow 16 $ range 0.7 1 saw))
   $ "d d d d d d d*2 d"
   # "[drum:2,amencutup:5]"
-  # gM' 0 0.75 "^80"
+  # gM' 0 1.25 "^80"
   # pan (slow 16 $ range 0.1 0.9 sine)
   # room 0.2 # dry 0.99
 d4 $ g $ gP -- Gauche
@@ -92,7 +93,7 @@ d7 $ g
   # sawHarmonic 1.9
   # pan 0.1
   # mix 0.8
-  # gM' 0 0.8 "^83"
+  # gM' 0 1.1 "^83"
   # room 0.2
 d8 $ g
   $ novaOn "^90" (chop 16)
@@ -102,7 +103,7 @@ d8 $ g
   # voice (range 0.1 2 "^34")
   # room 0.6 # sz 0.2
   # gM' 0.4 1 "^82"
-  # crush (range 10 3.6 "^54")
+  # crush (range 12 3.6 "^54")
 
 d9 $ note ("gs5(3,8)") # "supergong" # gM' 0 0.8 "^83"
 

live/mood/fight/clav_clash.tidal

 do
 setcps (60/60/4)
-resetCycles
+-- resetCycles
 d1 -- Kick chaloupé
   $ mask "<f!8 t!56>"
   $ whenmod 32 24 (# djf (slow 8 $ range 0.5 1 isaw))
   $ "k . k(<5 3 5 [4 8]>,8)"
   # "[reverbkick,jazz]"
   # gain 0.6
+  # room 0.2
 d3 -- Drumroll léger
   $ sometimesBy "<0!3 1 0 1!3 0!120>" (stut "<4!3 3>" 0.5 "s")
   $ someCyclesBy "<0.2!3 0.5>" (fast 2)
@@ -36,12 +37,13 @@ d6 -- Nappes Rhodes
   $ note ("<e3 [g3'maj7'2 f3'min'2] e3 <b3'min7'2 b3'maj7'2>>")
   # "FMRhodes1"
   # pan 0.2
-  # gain 0.8
+  # gain 0.96
 d7 -- LEAD PIANO!
   $ mask "<f!4 [t f!3]!4 t!56>"
   $ whenmod 64 48 (
     euclid (slow 2 $ "<1 2 3 3 4 5 5 8>") 8
     . (# crush "<16 14 10 9>")
+    . (|* gain 0.9)
     )
   $ off ("q" + "<0!8 s!8>") (
     |+ note "<c!16 <c c'maj'2 c'maj'3>!16>"