techno: toujours pareil?

live/techno/blade-piano.tidal

@@ -3,58 +3,61 @@ setcps (-1)
 setcps (0.5)
 
 d1
-$ whenmod 64 32 (# silence)
-$ whenmod 32 16 (rev)
-$ chop "1 4"
+-- $ fast 2
+-- $ whenmod 64 32 (# silence)
+-- $ whenmod 32 16 (rev)
+$ chop "<1 2> <4 4 1 1>"
 $ s "cs80leadMH*2"
 # note (scale "major" "<[0 3] [3 5] [5 7] [7 10]>")
-# gain 0.9
+# room 0.3
+# dry 2
 
 d2
-$ whenmod 64 48 (# silence)
-$ fast 2
-$ every 4 (off 0.75 (|+ 0))
-$ off 0.5 (|+ 0)
-$ s "kicklinn"
+-- $ whenmod 64 48 (# silence)
+-- $ fast 2
+-- $ every 4 (off 0.75 (|+ 0))
+-- $ off 0.5 (|+ 0)
+$ s "reverbkick(<2 4 4 4 3 4>,4)"
 
 d3
-$ whenmod 64 48 (# gain 0)
-$ whenmod 64 8 (# gain 1)
+-- $ whenmod 64 48 (# gain 0)
+-- $ whenmod 64 8 (# gain 1)
 $ fast 2
 $ every 2 (off 0.25 (|+ 0))
 $ s "~ cp"
 # s "realclaps"
 # pan 0.4
-# gain 0
 
-d4
-$ someCyclesBy 0.2 (fast 2)
+d4 -- drumrolls
+$ someCyclesBy 0.2 (slow 2)
 $ s "[dr*4 <dr*4 [dr*4 ~]>]"
 # pan 0.2
 
 d6
+$ swing 3
 $ whenmod 31 24 (|+ note 0)
 $ whenmod 31 16 (|- note 7)
 $ whenmod 31 8 (|+ note 0)
 $ whenmod 31 0 (|+ note 7)
-$ someCyclesBy 0.2 (off (1/16) (|+ 0))
-$ someCycles (off (1/8) (|- 7))
-$ swing 4
+-- $ someCyclesBy 0.2 (off (1/16) (|+ 0))
+-- $ someCycles (off (1/8) (|- 7))
+-- $ swing 4
 $ note (
-  3 * (-7) +
+  -- 3 * (-7) +
   (scale "major" "[0, 3, 5]") +
-  "<0 5 7 12>")
+  "<0 5 7 12>"
+  )
 # s "cheapPiano1"
-# gain 0.8
+# gain 0.9
 
 d5
 $ whenmod 16 14 (# velocity 0.5)
 $ whenmod 16 10 (stut 8 0.5 0.1)
-$ whenmod 16 8 (off 0.25 ((|+ note 7) . rev))
-$ whenmod 16 0 (off 0.25 ((|+ note 7)))
+-- $ whenmod 16 8 (off 0.25 ((|+ note 7) . rev))
+$ whenmod 16 0 (off 0.125 ((|+ note 7)))
 $ someCyclesBy 0.2 (# release 0.2)
-$ off 0.125 ((# s "superpiano") . (|- note 7))
+-- $ off 0.125 ((# s "superpiano") . (|- note 7))
 $ s "superpiano"
 # note (scale "major" "<[0 3] [3 5] [5 7] [7 10]>" - 7)
 # pan 0.8
-# velocity 0.5
+# velocity 0.9

live/techno/phazer.tidal

@@ -6,7 +6,7 @@ $ whenmod 64 1 (|+ note 7)
 $ someCyclesBy 0.1 (chop 2 . superimpose (rev))
 $ off (1/8) (|+ 7)
 $ off (3/16) (|- 7)
-$ someCyclesBy 1 (<|
+$ someCyclesBy 0.2 (<|
   note (scale "major" "<0*2 2(3,<4 8>) 7(3,<4 8>,2) <5 5 4>*2>"))
 $ note (scale "major" "<0 2 7 <5 5 4>*2>")
 # s "phazer"
@@ -15,7 +15,7 @@ $ note (scale "major" "<0 2 7 <5 5 4>*2>")
 unmute 1
 
 d2 -- beat + dark amp
-$ (fast 4 . (fix (# n "[9?,7?]") (s "kick"))) -- FASTER!
+$ (fast 4 . (fix (# n "[9,7?]") (s "kick"))) -- FASTER!
 $ every' 4 3 (# gain "0 <0 1 1 0>") -- dark amp
 $ whenmod 32 0 (fix (# gain 0) (s "arp"))
 $ whenmod 32 16 (someCycles (fix (# silence) (s "electro1")))
@@ -37,6 +37,10 @@ d5
 $ whenmod 32 16 (someCycles (off (1/16) (|+ 0)))
 $ s "~ ~ ~ glitch:2"
 
+d6 $ note (scale "aeolian" "0 .. 1")
+# s "bassWarsaw"
+|- note 21
+
 d6
 -- $ whenmod 16 12 (# n 0)
 -- $ whenmod 16 0 (# n 1)

live/techno/violent_violin.tidal

+setcps 1
+
+d1 -- beat
+-- $ fix ((euclid 2 2) . (every 4 $ off 0.5 (# s "kick"))) (s "kick") -- faster
+-- $ slow "1 2" -- calm
+$ every' 4 1 (stut 2 0.9 0.25)
+$ s "kick:5 dr:9(<<1 1 1 3> 1 1 <3 2 2 2>>,4)"
+# gain 0.8
+
+d2 -- claps
+$ whenmod 64 32 (# s "clap:1")
+$ every 4 (stut 2 0.5 0.25)
+$ someCyclesBy 1 (# s "sn:3")
+$ s "~ sn:1"
+# gain 0.8
+
+d3 -- mid drums 80s
+$ whenmod 32 24 (# gain 1)
+$ someCycles (# n 3)
+$ s "electro1:2(<3 5 3 5 3 5 3 8>,8)"
+# gain 0
+
+d4 -- bass
+-- $ degrade  . fast 2 -- rythme glitch
+$ whenmod 64 32 (# silence) -- aere
+-- $ whenmod 128 24 (# gain "0.7,0.05 .. 1") TODO REFRESH rythm for bass
+$ euclid "<1 <2 3 1>>" 8
+$ n ("<0 [[0 .. 1]*2] [3 0 0] [0 3 <7 0> 3]>" - 14) -- trille
+# room 0.2
+# size 0.2
+# gain 0.85
+# s "bassWarsaw"
+
+d5 -- lead violin
+$ whenmod 64 48 (degradeBy 0.25)
+$ whenmod 64 32 (degrade)
+$ every 4 (|+ note 5)
+$ every 8 (off 0.25 (|+ 7))
+$ every' 4 3 (|+ note 12)
+$ someCycles (off 0.125 (|- 7))
+$ n (scale "aeolian" "~ <[0 3] [5 4]>")
+# s "violin"
+# gain 0.9
+
+d6
+$ whenmod 16 12 (|+ 7)
+$ whenmod 16 8 (off 0.125 (|+ "<5 4>"))
+$ someCyclesBy 0.2 (arpeggiate . degrade)
+$ superimpose (# n "[0?,3?,7?]")
+$ n (scale "aeolian" "<[5 4] ~> ~")
+# s "kalimba"
+# gain 0.9
+|- note "7 0 0 7"
+
+d7
+$ every 2 (# silence)
+$ jux rev
+$ slow 2
+$ off 0.125 (|+ 7)
+$ note "[0,7] [3,<5 12>]"
+# s "cs80leadMH"
+# gain 0.7