Live: Samedi oui

live/collab/raph/hello_tek.tidal

+
+d1 $ "t*4" # "tek_kick:4"
+  # gain 0.9
+
+do
+setcps (134/60/4)
+let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
+let f2 = (# djfbus 2 (range 0.25 0.75 "^29"))
+let f3 = (# djfbus 3 (range 0.15 0.85 "^13"))
+d1 $ f1
+  $ midiOn "^42" (
+    (<| "k . ~ k ~ ~" )
+  )
+  $ midiOff "^42" (<| "k*<1 1 2 <1 2>> . k(3,8)" )
+  $ "[kick:5,jazz,reverbkick]"
+  # end 0.25
+  # midiG' "^78" 0 0.8
+d2 $ f2 $ "~ s ~ s*<1!3 2>"
+  # "snare"
+  # n "[21,22]"
+  # midiG' "^79" 0 1.3
+d3 $ f2
+  $ "h*[<8!8 4 4 16 8 8!4> <16 [16!<1 3 7> <8!3 16>]>]"
+  # "tek_hh:3"
+  # midiG' "^80" 0 0.8
+  # cut 3
+d4 $ f3
+  $ midiOn "^58" (slice 4 ("0 0 0 <0 1 2>"))
+  $ loopAt 4
+  $ "tek_loop:1"
+  # cut 4
+  # gain 0.7
+  # midiG' "^82" 0 0.8
+  # pan 0.7
+  # crushbus 4 (range 12 1.5 "^54")
+d5 $ f1
+  $ superimpose ((# octave 3) . (# "bassWarsaw") . mask "t f!7")
+  $ note ("<e <f c>>" + "[c,c([3 <3!4 5!2 3 8>],8)]")
+  # "tek_bass"
+  # pan 0.3
+  # crushbus 5 (range 10 3.5 "^53")
+  # midiG' "^81" 0 1.2
+d7 $ f3
+  $ someCyclesBy "<1!6 <0 1> 0!1>" (# gain 0)
+  $ "<t t*4>" # "tek_end:2"
+  # midiG' "^84" 0.2 0.8
+  # hpf (slow 32 $ range 0 5000 perlin)
+d8 $ f3 -- Pretty much decent!
+  $ "bogdan:21/4"
+  # begin "<0!4 0.5!4>"
+  # end "<1!8 0.5!4 1!4>"
+  # midiG' "^84" 0 2
+  # cut 5
+  # room 0.4
+
+once $ "tek_strange"
+  # gain 0.8
+
+
+once $ "tek_end:2"
+  # gain 0.8
+
+
+once
+ $ note "<c e>"
+ # "tek_bass"
+ # cut 5
+ # gain 0.8
+
+d4 $ f3
+  -- $ superimpose (|+ note "c'min")
+  $ arp "up"
+  $ note "g'maj'4"
+  # "tek_bass"
+  # octave "[4,5]"
+  # midiG' "^81" 0 0.8

live/dub/tubby_study.tidal

+setcps (90/60/4)
+
+-- Study Tubby: See https://www.pure.ed.ac.uk/ws/portalfiles/portal/15441495/Tubbys_Dub_Style.pdf
+-- TODO:
+-- 3Delay: Drum / Voice / Guitar delays
+-- HMIX: Mix Hfiltered global with dry to interfere
+
+do
+let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
+let f2 = (# djfbus 2 (range 0.05 0.99 "^29"))
+let f3 = (# djfbus 3 (range 0.05 0.99 "^13"))
+d1 $ f1 -- Kick classic runner 4/4 <-> dub rhythm
+  $ midiOn  "^41"  (<| "k k k <k [<~ k> k]> k k k <k k*2 k [~ k]>")
+  $ midiOff "^41" (<| "k . k([<3 1 3 3> <1 3>],8)")
+  $ "[ab:5,jazz]"
+  # lpf 3000
+  # legato 0.8
+  # midiG' "^78" 0 0.8
+d2 $ f1  -- snare contretemps
+  $ whenmod 16 12 (fast 2)
+  $ mask "<f!4 t!28>"
+  $ "~ snare:1"
+  # lpf 3500
+  # att 0.002
+  # rel 0.9
+  # gain 0.8
+  # midiG' "^79" 0 0.8
+d3 $ f3 -- Hihats + rhythmique horloge
+  $ superimpose (const $
+    fast "<1!4 2 1 1 2 2!8>"
+    $ "hh*8"
+    # midiG' "^80" 0 0.8
+    )
+  $ slice 16 ("[0 1 2 3]*<2!3 [<2 4> 4]>")
+  $ loopAt 1
+  $ "fbreak80:20"
+  # midiG' "^80" 0 1.2
+d4 -- Bassline classique
+  $ f1
+  $ chop 8
+  $ slice 4 "1"
+  $ loopAt 4
+  $ "rootsBass:2"
+  # lsize (range 0 2 "^33")
+  # lesliebus 41 (range 0 1 "^53")
+  # lrate 6.8
+  # cut 4
+  # pan 0.2
+  # midiG' "^81" 0 1.8
+d5 $ f2
+  $ midiOn "^90" (stutWith 4 "e" (
+    (|+ cut 1) . (|* gain 0.9) . (# legato 2)
+    ))
+  $ off "h" id
+  $ "rootsGuitar" # n "<1!3 3>"
+  # cut 50
+  # midiG' "^82" 0 1.1
+  # pan 0.8
+d6 $ f2 -- Piano contretemps delayed crushed
+ $ note ("~ b ~ <b <b d6> b a>" + "[0,7]")
+ -- $ note "d6"
+ # "superpiano"
+ # velocity 0.4
+ # delayfb (range 0.5 1.1 "^55") -- 1D: fb / size controlled with single knob
+ # crushbus 61 (range 16 5 "^19") -- Weird interferences with delay
+ # delayt "h"
+ # delay (range 0 1.01 "^55")
+ # room 0.3
+ # midiG' "^83" 0 1.8

live/midi/nova/FFF/grace.tidal

@@ -7,9 +7,7 @@ do
 let gG a = (gain ("^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 5000 ((range "-5000" 5000 ("^49"))))))
-let gDJF = (gLPF . gHPF)
+let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
 let novaOn  ch pat = (sometimesBy ch pat)
 let novaOff ch pat = sometimesBy (1 - ch) (pat)
 let g = (gDJF)

live/midi/nova/breaks/slower.tidal

@@ -6,15 +6,12 @@ resetCycles
 do
 setcps (80/60/4)
 let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.15 0.5 sine)))
-let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
--- let gFreqL = (# lpq (range 0 0.25 "^29"))
--- let gFreqH = (# hpq (range 0 0.25 "^30"))
--- let gFreqs = (gFreqH . gFreqL)
+let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
+let f2 = (# djfbus 1 (range 0.05 0.95 "^29"))
 -- region Params Rhodes
 let modIndex = pF "modIndex"
 -- endregion
-let g = (gDJF)
-d1 $ g -- KICK
+d1 $ f1 $ gF -- KICK
   $ midiOn "^41" (<| "k*4 . k k k k*<1 2>") -- Run
   $ midiOn ("^42" - "^41") (<| "k <k!4 ~ k!3> k k*<1 <2 4>>")
   $ midiNo "^41" "^42" (<| "k*<1 1 2 1 2 2 2 1> . k(5,8)")
@@ -22,19 +19,19 @@ d1 $ g -- KICK
   # midiG' "^78" 0 2
   # room 0.3 # sz 0.5 # dry 0.9
 d2 -- Breakbeat
-  $ g
+  $ f1 $ gF
   $ 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]")
   $ slice 8 "0 <1 ~> 2*<2 1> 3" $ "break"
   # midiG' "^79" 0 1.75
-d3 $ g
+d3 $ f1 $ gF
   $ midiOn "^44" (fast 2)
   $ "d ~ ~ d d ~ d <~!3 d>"
   # "snare:22"
   # speed (range 0.5 1.5 "^52")
   # midiG' "^80" 0 2
-d4 $ g -- Bassline
+d4 $ f1  -- Bassline
   $ midiOn "^57" (-- + Arps aigus!
     superimpose (
       often (off "h" rev)
@@ -43,7 +40,7 @@ d4 $ g -- Bassline
         + "0(5,8)" |+ "0 7"
         + 12
       ))
-      . (|* gain 1.1)
+      . (|* gain 0.9)
       . (# room 0.5) . (# sz 0.75)
     )
   )
@@ -53,9 +50,8 @@ d4 $ g -- Bassline
   # room 0.25 # sz 0.8 # orbit 4
   # pan 0.2
   # midiG' "^81" 0 1.8
-d5 $ g -- fmono
+d5 $ f2  -- fmono
   $ midiOn "^90" (chop "<8!3 [8 16]>")
-  $ g
   $ (# lpf (range 10000 5000 "^54"))
   $ slice 8 (
     "0 <1 1 0 0*2> 2 3*<1 <2 4>>" +
@@ -63,10 +59,10 @@ d5 $ g -- fmono
   $ "fmono:40"
   # cut 4
   # crushbus 51 (range 12 1.85 "^54")
-  # midiG' ("^82" + 0.125 * "^54") 0 1.2
+  # midiG' ("^82" - 0.125 * "^54") 0 1.2
   # room 0.3 # sz 0.8 # dry 1
 d9 -- Maracas Hats
-  $ g
+  $ f1 $ gF
   $ fix (
     midiOff "^60" (slow 4)
     . whenmod 8 6 (fast "<2 [2 4]>")
@@ -82,7 +78,7 @@ d9 -- Maracas Hats
   # orbit 9
   # midiG' "^84" 0.2 1.5
 d6 -- Pwm steps
- $ g
+ $ f2
  $ whenmod 32 16 (scramble 2)
  $ note (
    "0(<2 2 3 5>,8) . ~ 0*<2 4 2 [8 4]>"
@@ -97,7 +93,7 @@ d6 -- Pwm steps
  # sz 0.4
  # midiG' "^83" 0 1.2
 d7 -- Arps FMRhodes1
-  $ g
+  $ f2
   $ superimpose (arp "down up" .
   (|+| note ("c'maj'2 <c'maj'4>" + "0 12" + 12)))
   $ note "<c4 ds4 c4 b3>/2"
@@ -106,7 +102,7 @@ d7 -- Arps FMRhodes1
   # modIndex (range 0 100 "^34")
   # room 0.6 # sz 0.8
   # midiG' "^18" 0 1.5
-d10 $ g
+d10 $ f1
   $ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]")
   $ midiOff "^92" (<| "~ c")
   $ "clap"

live/midi/nova/breaks/solar.tidal

@@ -8,42 +8,44 @@ once $ "dr" # gain 1
 do
 setcps (110/60/4)
 let modIndex = pF "modIndex"
-let gDJF = (# djfbus 1 (range 0.15 0.85 "^49"))
+let gDJF1 = (# djfbus 1 (range 0.15 0.85 "^49"))
+let gDJF2 = (# djfbus 2 (range 0.15 0.85 "^29"))
 let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
-let g = (gDJF)
+let g1 = (gDJF1)
+let g2 = (gDJF2)
 let m = mBreak
-d1 $ g --
+d1 $ g1 --
+  $ mask "<f!4 t!12>"
   $ 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>"
+  -- $ "[jazz,super808]"
+  $ "[reverbkick]"
   # midiG' "^78" 0 1.4
-d3 $ g $ m -- Snare
-   $ fast "<1!4 2!10 4 [4 8]>"
-   $ s "~ sn"
+d3 $ g1 $ m -- Snare
+    $ mask "<f!3 [f t] t!8 [t f]!4>"
+   -- $ fast "<1!4 2!10 4 [4 8]>"
+   $ s "~ s ~ s"
+   # "sn"
    # n "[14,20]"
    # note "<0!7 -4>"
    # midiG' "^79" 0 1.4
-d2 $ g $ m -- BREAK
+d2 $ g1 $ 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:11"
-  -- # speed (range 0.5 1.5 "^52")
+  # octerbus       20 (range 0 1.5 "^52")
+  # octersubbus    21 (range 0 1.82 "^52")
   # midiG' "^80" 0 1.2
   # cut 2
-d4 $ g $ m
-  $ striate 2
-  $ loopAt 2
-  $ slice 8 (run 8)
-  $ "fbass:3"
-  # midiG' "^81" 0 1.2
-  # crushbus 4 (range 16 1.5 "^53")
-  # cut 4
-  # pan 0.2
-d5 $ g
+d4 $ g1 -- Drumroll!
+  $ "drum:2*[8!3 <<8 [8 [8|16]]>!6 [8 4]!2>]"
+  # room "^53"
+  # dry 0.99
+  # midiG' "^81" 0 1.4
+d5 $ g2
   $ midiOn "^58" (superimpose (
     (|+| note (
     arp "<up!8 converge!7 diverge>"
@@ -55,24 +57,10 @@ d5 $ g
   $ note "e3'maj"
   # "FMRhodes1"
   # room "<0.4!3 0.7>"
-  # modIndex (range 0 128 "^54")
-  # midiG' "^82" 0 1.2
-d7 $ g -- Back bows
-  $ superimpose ((# cut 71)
-  . (# n 3)
-  . mask "t(<1 1 0 [3 <3 1>]>,8)"
-  )
-  $ someCyclesBy "<f!4 t!3 g>" rev
-  $ struct "t(<1 <3 5>>,8)"
-  $ arp "up"
-  $ note "<e'maj'4!3 b'maj'4!4 e'maj'4>"
-  # "cbow"
-  # n "0"
-  # midiG' "^83" 0 0.7
-  # room 0.3
-  # pan 0.7
-  # cut 7
-d8 $ g
+  # modIndex (range 0 128 "^34")
+  # crushbus 51 (range 16 4.6 "^54")
+  # midiG' "^82" 0 1.5
+d8 $ g2
   $ whenmod 8 4 (rarely (striate 2))
   $ whenmod 16 8 (sometimesBy "0 1" rev)
   $ midiOn "^60" (
@@ -89,6 +77,33 @@ once $ "cbow:3" # gain 0.57 # cut 21
 
 -- TODO MOVE OR REMOVE
 
+d7 $ g2 -- Back bows: dissonant now, not the best angels I ever saw
+$ superimpose ((# cut 71)
+. (# n 3)
+. mask "t(<1 1 0 [3 <3 1>]>,8)"
+)
+$ someCyclesBy "<f!4 t!3 g>" rev
+$ struct "t(<1 <3 5>>,8)"
+$ arp "up"
+$ note "<e'maj'4!3 b'maj'4!4 e'maj'4>"
+# "cbow"
+# n "0"
+# midiG' "^83" 0 0.7
+# room 0.3
+# pan 0.7
+# cut 7
+-- Funky Bassline: not convicned?
+d4 $ g $ m
+$ striate 2
+$ loopAt 2
+$ slice 8 (run 8)
+$ "fbass:3"
+# midiG' "^81" 0 1.2
+# crushbus 4 (range 16 1.5 "^53")
+# cut 4
+# pan 0.2
+
+
 d7 $ g -- Hello PWM!
   $ (|* gain "<1!15 0.8>")
   $ midiOn "^57" (chop "<[8 <4 16>]!15 1>")
@@ -118,3 +133,13 @@ d9 $ g
   $ "clap"
   # speed (range 0.5 1.5 "^56")
   # midiG' "^84" 0 1.7
+
+
+
+d1 $ "jazz*4" # gain 0.6
+d3 $ note (scale "aeolian" "2 0*<1 2> 3 <5!3 5(3,8,<0 4>)>"
+  + "[0,7]")
+  # "bassWarsaw"
+  # tremolodepth 12
+  # tremolorate 4
+  # gain 0.75 # octave 4

live/midi/nova/dnb/meurice.tidal

 import Sound.Tidal.ParVagues.Control
 
--- This is a test ;)
+-- WIP Name: Alerte Verte
 --
 do
 setcps (160/60/4)
@@ -98,7 +98,7 @@ d10 -- Nappes crushées indépendantes
   $ note ("<e e c e>")
   # "moog"
   # cut 10
-  # djfbus 2 (range 0.05 0.95 "^20")
+  # djfbus 2 (range 0.05 0.95 "^29")
   # crushbus 10 (range 16 1.5 "^36")
   # midiG' "^56" 0.2 0.8
 d11 -- Sirene indépendante TODO Blend-in / Rework?
@@ -106,7 +106,7 @@ d11 -- Sirene indépendante TODO Blend-in / Rework?
   # octave 3
   # legato 2
   # "supersiren"
-  # djfbus 2 (range 0.05 0.95 "^20")
+  # djfbus 11 (range 0.05 0.95 "^20")
   # crushbus 11 (range 10 0.501 "^35")
   # speed 0.2
   # ampbus 110 (range 0 0.5 "^19")

live/midi/nova/lounge/hoover_sepia.tidal

@@ -41,7 +41,7 @@ d4 $ g -- Hoover bassline
   # crushbus 31 (range 16 1 "^53")
   # ampb     32  (range 0 0.125 "^81")
   # pan 0.2
-  # gain 0.8
+  # gM' "^80" 0 1.8
   # legato 1.05
 d5 $ g -- Arp aigus Rhodes
   $ midiOn ("^58" + 0.05) (struct "t(3,8) t(<5 <4 [2 4]>>,8)")

live/midi/nova/lounge/invoque_ete.tidal

@@ -10,25 +10,25 @@ let gF = 1.5
 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 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
+let f1 = (# djfbus 1 (range 0.1 0.9 "^49"))
+let f2 = (# djfbus 2 (range 0.1 0.9 "^29"))
+d1 $ f1 $ 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 $ m -- Clave de l'été
+d2 $ f1 $ 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 $ m -- Mecano Course
+d4 $ f1 $ 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"))
@@ -40,7 +40,7 @@ d4 $ g $ m -- Mecano Course
   $ loopAt 2 $ "breaks125:3"
   # gM' 0 1.3 "^80"
   # cut 4
-d5 $ g $ m -- Bassline variable double piste
+d5 $ f1 $ m -- Bassline variable double piste
   $ loopAt 2
   $ slice 8 (run "<4!4 8 8 [4 8 4] [8 4 8]>")
   $ midiOn "^57" (# n 14)
@@ -50,7 +50,7 @@ d5 $ g $ m -- Bassline variable double piste
   # crushbus 51 (range 16 4.5 "^53")
   # gM' 0.3 1.45 "^81"
   # cut 4
-d6 $ g $ m
+d6 $ f2 $ m -- Douce guitare juxée
   $ chop 16
   $ midiOn "^58" (juxBy 0.85 ((# cut 31) . rev))
   $ whenmod 16 12 (rev)
@@ -58,12 +58,12 @@ d6 $ g $ m
   $ loopAt 4
   $ "fguitar" # n "<12!16 13!16>"
   # gM' 0 1 "^82"
-  # release (range 0.15 1 "^34")
+  # release (range 2 0.15 "^34")
   # crushbus 61 (range 8 1.4 "^54")
   # pan 0.75
   # room 0.2 # dry 1
   # cut 3
-d7 $ g $ m
+d7 $ f2 $ m
   $ loopAt 4
   $ mask "t(<4 8 12 16>,16)"
   $ slice 16 (run 16)
@@ -72,7 +72,7 @@ d7 $ g $ m
   # room 0.2
   # gM' 0 1.4 "^83"
   # cut 7
-d8 $ g $ m
+d8 $ f2 $ m
   $ midiOn "^92" (|+ note 12)
   $ midiOn "^60" (
   superimpose (
@@ -87,7 +87,7 @@ d8 $ g $ m
   # room 0.24
   # "moogBass"
   # midiG' "^84" 0 0.9
-d9 $ g $ m
+d9 $ f1 $ 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/top_hats.tidal

@@ -98,8 +98,7 @@ d8 $ g -- Electrified laggy moog
   )
   $ midiOn "^91" (segment "4 <4 <8 [8 16]>>")
   $ note (prog + "0 <12!4 12 12 16 <12 16>>")
-  # "moog"
-  # cut 8
+  # "moog:2" # legato 0.25
   # crushbus 8 (range 10 3.4 "^55")
   # gM' 0 1.8 "^83"
   # pan 0.6

live/midi/nova/party/80s_neon.tidal

+
+-- Tentative SynthWave #2
+
+-- Noises pacman-like
+"tacscan:4"
+
+"electro1:2" -- Drums 80s
+"electro1:3" -- Drums 80s
+
+once $ "electro1:1" # gain 1.5
+
+do
+let modIndex = pF "modIndex"
+let f1 = (# djfbus 1 (range 0.15 0.85 "^49"))
+let f2 = (# djfbus 2 (range 0.15 0.85 "^29"))
+let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
+let m = mBreak
+setcps (110/60/4)
+d1 $ f1
+  $ midiOn "^41" (fast 4)
+  $ "[jazz,bd]"
+  # midiG' "^78" 0 1.8
+d2 $ f1
+  $ whenmod 8 6 (superimpose (const
+    $ n "~ 2*<1 2> ~ <2 2*2 3 [3 2]>"
+    # "electro1"
+    # midiG' "^79" 0 1.8
+  ))
+  $ "~ snare:20"
+  # midiG' "^79" 0 1.8
+d3 $ f1
+  $ "t*[16!3 <8!3 16>]"
+  -- $ "t*[<4!4 8!4> <8!3 [16 <16 8>]>]"
+  # "[tek_hh:1,drum:2]"
+  # midiG' "^80" 0 1.4
+d4 $ f2
+  $ superimpose (
+    (# cut 4)
+    . (|+| note ("12 <7!3 9>" - 12))
+  )
+  $ midiOn "^57" (chop 8)
+  $ note "<d4 d4 e4 f4 d4 d4 g4 f4>"
+  # "supersaw"
+  # octave 4
+  # voice 0.05
+  # crushbus 4 (range 16 2 "^53")
+  # midiG' "^81" 0 1.3
+d5 $ f2
+  $ note "<d'min d'min d'7sus2 d'min d'min d'min d'7sus2 d'min d'7sus2 d'7sus2 d'min d'7sus2 d'min d'min d'7sus2 d'min>"
+  # "FMRhodes1"
+  # modIndex (range 0.1 32 "^54")
+  # crushbus 5 (range 10 2 "^34")
+  # midiG' "^82" 0 1.8
+  # pan 0.8
+
+
+
+d4
+  $ "moog/2" # n "<2!4 5!4>"
+  # cut 4
+  # legato 2
+  # gain 0.4
+
+
+d5
+  $ "fsynth/2" # n "<13>"
+  # cut 5
+  # gain 0.8

live/midi/nova/party/electro_blues.tidal

@@ -3,30 +3,33 @@ resetCycles
 -- Electro-jazz grille du blues snakish
 do
 setcps (80/60/4)
-let g = (# djfbus 1 (range 0.1 0.9 "^49"))
+let f1 = (# djfbus 1 (range 0.1 0.9 "^49"))
+let f2 = (# djfbus 1 (range 0.1 0.9 "^49"))
+let f3 = (# djfbus 1 (range 0.1 0.9 "^49"))
 let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"]
 let chord = "c'maj"
 let chordAug = "c'maj'8"
 d1 -- Kick rarement doublé
-  $ g
-  $ fast 2 -- Cause this is REPETITIVE MUSIC
-  $ midiOn  "^41" ((<| "k*4") . (superimpose (# "kick:5")))
-  $ midiOff  "^41" (<| "k . k(<1 3 1 3 1 3 3 5 1 3 1 3 1 3 3 5 3 5 3 5 1 3 3 5>,8)")
+  $ f1
+  $ midiOn "^41" (fast 2) -- Cause this is REPETITIVE MUSIC
+  $ midiOn  "^42" ((<| "k*4") . (superimpose (# "kick:5")))
+  $ midiOff  "^42" (<| "k . k(<1 3 1 3 1 3 3 5 1 3 1 3 1 3 3 5 3 5 3 5 1 3 3 5>,8)")
   $ "super808"
   # midiG' "^78" 0 1.1
-d2 $ g
+d2 $ f1
   $ midiOn  "^43" (fast 2)
   $ "~ [jazz:4,cp]"
   # hpf (range 0 10000 perlin)
   # room 0.6  # sz 0.6 # dry 0.99
   # midiG' "^79" 0 1.2
-d3 $ g -- Snakes
+d3 $ f1 -- Snakes
+  $ midiOn "^41" (fast 2) -- Cause this is REPETITIVE MUSIC
   $ juxBy (slow 8 $ range 0.1 0.9 sine) rev
-  $ fast 4
-  $   "s . s <s!3 ~> <~!3 s>"
+  $ fast 2
+  $ "s . s <s!3 ~> <~!3 s>"
   # "hh*6"
   # midiG "^80"
-d4 $ g
+d4 $ f2
   $ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
   $ midiOn "^57" (juxBy 0.2 (
     -- ply "<2 4 [4 8] 8>" .
@@ -35,7 +38,7 @@ d4 $ g
     -- . (|* gain 0.8)
     -- . (# pan 0.6)
     -- . (# crush 16)
-    . (|+ note 12)
+    -- . (|+ note 12)
   ))
   $ note (
     cat blues + chord
@@ -47,7 +50,7 @@ d4 $ g
   # voice 0.8
   # crushbus 41 (range 10 3 "^53")
   # midiG' "^81" 0 1.3
-d5 $ g -- Choeurs
+d5 $ f2 -- Choeurs
   $ juxBy 0.5 (
   (0.5 ~>) . midiOn "^58" (superimpose (
     arp "<converge!8 diverge!4>"
@@ -66,7 +69,7 @@ d5 $ g -- Choeurs
   # midiG' "^82" 0 1.4
   # room 0.4
   # size 0.7 # dry 1.05
-d9
+d9 $ f1
   $ loopAt (2 + (2 * "^92"))
   $ midiOn "^60" (slice 8 (run ("<8!4 [8!3 16] [8 16] [16 8] [16 32 8 ~]>"))) -- Rush
   $ midiOff "^60" (slice 8 (run ("<8!4 16 [8 . 32 16] [8 . 16 8] [8 4]>"))) -- Decroissance

live/mood/tired/afternoon.tidal

@@ -13,17 +13,14 @@ let mel = "<e3 [g3 <a3 f3>] e3 b3>"
 let prog = "<e3 [g3'maj7'2 f3'min'2] e3 <b3'min7'2 b3'maj7'2>>"
 let modIndex = pF "modIndex"
 let gDJF = (# djfbus 1 (range 0.15 0.85 "^49"))
--- let gFreqL = (# lpq (range 0 0.25 "^29"))
--- let gFreqH = (# hpq (range 0 0.25 "^30"))
--- let gFreqs = (gFreqH . gFreqL)
 let g = (gDJF)
 d1 $ g -- BEAT
   $ fast 2
   $ midiOn "^41" (<| "k k k <k [<~ k> k]>")
   $ midiOff "^41" (<| "k . ~ k ~ ~ ")
-  $ "[jazz,reverbkick,hh27:6]"
+  $ "[reverbkick,hh27:6]"
   # release "<0.7!3 1>"
-  # midiG' "^78" 0 1.4
+  # midiG' "^78" 0 1.7
 d3 $ g -- Snare contretemps rushé
    $ mask "t(16,32)"
    $ whenmod 4 3 (ply "2 4")
@@ -36,7 +33,6 @@ d3 $ g -- Snare contretemps rushé
    # midiG' "^79" 0 1.4
 d2 $ g -- BREAK
   $ sometimesBy (range 0.1 0.99 "0 ^32!15") (scramble 8)
-  $ whenmod 32 16 (# djf (slow 32 (cosine + 0.5)))
   $ slice 8 (
     fast "<8 [8 16] 8 [16 <8 4>]>"
     -- "<0!4 [0 1]!4 <0 1 2 3 4 5 6 7>!4>"
@@ -44,8 +40,7 @@ d2 $ g -- BREAK
     )
   $ loopAt 2
   $ "break:3"
-  # speed (range 0.5 1.5 "^52")
-  # midiG' "^80" 0 2
+  # midiG' "^80" 0 1.5
   # cut 2
 d7 $ g -- Hello PWM!
   $ (|* gain "<1!15 0.8>")
@@ -63,11 +58,13 @@ d6 $ g -- Nappes Rhodes
   $ note (
     prog
     + "0 12"
+    - 12
   )
   # "FMRhodes1"
-  # pan 0.2
+  # pan 0.7
+  # room 0.5
   # modIndex (range 0 100 "^54")
-  # crushbus 61 (range 16 5 "^34")
+  # crushbus 61 (range 16 4.85 "^34")
   # midiG' "^82" 0 1.5
 d9 $ g
   $ midiOff "^60" (mask "<f!8 t!124>")