Ich sollte mehr commits machen

d0a5a6ec · PLN (Algolia) · 9bacde4a · d0a5a6ec · d0a5a6ec · d0a5a6ec
Unverified Commit d0a5a6ec authored Feb 15, 2020 by PLN (Algolia)
12 changed files
--- a/live/chill/swing.tidal
+++ b/live/chill/swing.tidal
 setcps 0.5

 d1
-$ whenmod 16 8 (
-  superimpose (# s "defaultB") . (# gain 0.9) . (# release 0.5)
-)
-$ note ("<<0 3> <0 3> <0 -4> <0 -4>>" + "0 7 ~ 0 6 7 6 3")
-# s "bass3"
-# gain 0.8
+$ fast 2 -- faster!
+$ euclid "<1 1 1 1 2 2 2 2>" 2
+$ s "jazz:0"

-d2
+d2 -- drums, someroll
 $ whenmod 16 8 (# gain 1)
 $ whenmod 16 4 (# gain 0.8)
 $ whenmod 16 0 (# gain 0.6)
@@ -16,15 +13,27 @@ $ fast 2
 $ sometimes (# s "dr 808cy:5")
 $ s "dr*<2 4> [hh hh?]"

-d3
+
+d3 -- bass
+$ note ("<<0 3> <0 3> <0 -4> <0 -4>>" + "0 7 ~ 0 6 7 6 3")
+# s "bass3"
+# gain 0.8
+
+d3 -- pont 80 drums
+$ fast 2
 $ someCycles ((off 0.625 (|+ 0)) . (# n "3"))
 $ off 0.125 (|+ 0)
 $ s "e"
 # s "electro1"
 # n "2"

-d4 $ silence-- TODO: gets annoying, do something
-$ chop 2
-$ s "sillyVoice" # cut 1
-# note "<0 0 3 0 0 3 7 0> <7 3>"
-# gain 1
+d4 -- TODO: gets annoying, do something
+$ (chop 4) . (# cut 1) -- chopped echo
+$ off 0.25 ((|+ note 7) . (# cut 1))
+$ off 0.125 (|+ note 3)
+$ "moogBass"
+# note "<0 0 0 0 3 3 3>"
+# gain 0.7
+-- # cut 1
+
+d6 $ s "cp/4"
--- a/live/chill/dub.tidal
+++ b/live/chill/dub.tidal
 setcps 0.6

 d1 -- beat: default chill, run tous les 64
-$ whenmod 128 0 ( -- run
+$ whenmod 128 64 ( -- run
  const $  "[r r?] r r [r r?]" # s "[kick:4,kick:10]"
  # release 0.8
  # gain 0.8
@@ -26,20 +26,19 @@ $ s "hh(<4 4 4 2>,4) [~ clap]" # n "8 8 8 <8 8 8 9> 3"
 d4 -- Basse
 -- $ rev
 $ jux degrade
-$ note (scale "aeolian"
+$ note (scale "major"
 "<[<3 [4 3]> . ~ <0 3>] [<0 3?> 1 0 1]> . <~ ~ <0 1>? ~>~"
 )
 # s "bassWarsaw"
 # attack 3
 # room 0.3
 # size 0.8
-# gain 1.1
 |- note 30


-d5 -- Synth fou dub
+d5 -- Reggaeman bloqué dub
 $ fast 2
-$ superimpose (|+ note "<5 5 3 3 0 0>")
+$ superimpose (|+ note "<3 3 5 5>")
 $ note (scale "major" "~ 0")
 # s "cheapPiano1"
 |- note 7
@@ -50,8 +49,8 @@ $ note (scale "major" "~ 0")

 d6 -- lead harpe joyeuse
 $ jux rev
-- $ sometimes (fast 2)
-- $ sometimes (off 0.125 (|+ 5))
+$ sometimes (fast 2)
+$ sometimes (off 0.125 (|+ 5))
 $ "h?*8"
 # n (scale "aeolian" "0 2 4 <7 9> <0 -3>")
 # s "harpsichord2"

--- a/live/chill/dub/80s.tidal
+++ b/live/chill/dub/80s.tidal
+setcps 0.5
+
+d3 -- bass
+$ whenmod 8 4 (|+ note 3)
+$ note (scale "minPent" "<<0 [0 0?]> [3 0]> <[3 .. 0][0 .. 3]>" )
+-- $ note (scale "minPent" "[[3 2] 0 3] [0 [<0 2 0 0> .. <2 0>]]")
+# s "ikedaBass"
+|- note 21
+
+d1 -- kick techno
+$ s "kick(2,4)" # room 0.2 #  dry 4 -- metallique
+-- $ s "kick:4(<1 2 4 4>,4,1)" -- rond
+# gain 0.9
+
+d2 -- drums 80s
+$ n "[2 <[3 2] [2 3]> ~] [3 2 <3? ~>]"
+# s "electro1"
+
+d4 -- synth fou dub
+$ whenmod 16 8 (|- note 3)
+$ fast 2
+$ superimpose (|+ note "<5 5 3 3>")
+$ superimpose (|- note "7")
+$ note (scale "major" "~ 0")
+# s "cheapPiano1"
+|+ note 8
+# gain 0.7
+# room 0.2
+
+d5
+$ someCycles (slow 2)
+$ always (superimpose (rev . (# gain 0.5)))
+-- $ someCyclesBy 0.8 (|- note (choose [1,2,3,5]))
+$ off 0.125 (|+ note 5)
+$ off 0.375 (|+ note 7)
+$ arpeggiate
+$ note (scale "major" "[0, 7, 5, 3]")
+# s "bsguitar:3"
+|- note 7
+# gain 0.7
+
+d6
+$ s "~ c ~ [c? ~ c?]"
+# s "clap"
+# n 2
--- a/live/chill/major_nostalgia.tidal
+++ b/live/chill/major_nostalgia.tidal
 setcps 0.5

 d1 -- batterie
+$ every' 4 3 (sometimes (# silence))
 $ every 4 (sometimes (# s "cpu:6"))
-$ s "[bd,[hh*2 dr:1 hh dr:1]]"
+$ s "[sosKick,[hh*2 dr:1 hh dr:1]]"

 d2 -- drums
 $ whenmod 16 8 (# gain (1.2 * tri))
 $ whenmod 16 6 (# gain (1 * tri))
 $ whenmod 16 4 (# gain (0.9 * tri))
 $ whenmod 16 0 (# gain (0.8 * tri))
-$ "hh:12(<2 4 2 6>,<4 8>)"
+$ someCycles (fast 2)
+$ euclid "<2 4 2 6>" "<4 8>"
+$ "hh:12"

 d3 -- basse
+$ whenmod 8 4 (|- note 5) -- quinte
 $ someCyclesBy 0.2 ((# room 0.2) . (# dry 8))
 $ someCycles (# attack 0.2)
 $ note (scale "major" "0(3,8) [<3 3 -6 -6> -2(<1 2 4>, 6)]" - 7)
@@ -20,6 +24,7 @@ $ note (scale "major" "0(3,8) [<3 3 -6 -6> -2(<1 2 4>, 6)]" - 7)

 d4 -- lead piano
 $ whenmod 32 16 (someCycles $ degrade)
+$ whenmod 8 4 (|- note 5) -- quinte
 $ someCycles (jux rev)
 $ whenmod 16 14 (|+ note 15)
 $ whenmod 16 10 (|- note 3)
@@ -32,18 +37,26 @@ $ note (scale "major" "~ [3,<8 7 5>,10]" - 7)
 # velocity 0.8
 # gain 0.8

-d5
+d5 -- choeur fou
+$ whenmod 64 60 (# gain "<0.8 0.75 0.7 0.65>")
+$ whenmod 64 32 (# gain 0.9)
+$ whenmod 8 4 (|- note 7) -- quinte
+-- $ superimpose ((|+ note 5) . degrade) -- variations quinte
 $ someCyclesBy 0.2 rev
 $ chop "<2 4 6 8>"
 $ off 0.25 (|+ 7)
 $ s "moogBass" # cut 1
 # note (scale "major" "<1 0 [1 3] ~>")
-# gain 0.9

-d5 -- final aigu
-$ degrade
-$ superimpose (|- note 7)
+d6 -- final aigu
+$ whenmod 64 32 degrade
+$ sometimes degrade
+$ sometimes rev
+$ whenmod 64 48 (# gain 0.8)
+$ off 0.25 (|- note 7)
+$ off 0.125 (|- note 7)
+$ off 0.125 (|- note 3)
 $ note (scale "major" "0 3 7 12")
 # s "~ sosBell ~"
 # release 0.5
-# gain 0.7
+# gain 0
--- a/live/fusion/anthropocene.tidal
+++ b/live/fusion/anthropocene.tidal
@@ -6,31 +6,33 @@ setcps 0.5
 -- Acte quatre: résolution

 d1 --beat
-- $ fix ((# s "sosKick") . (# gain 1.2)) (s "k") -- 1: kick soft
-- $ fix ((fast 2) . (off 0.5 (|+ 0)) . (# s "[kick:0,reverbkick]")) (s "k") -- 2: kick harder
-- $ fix (((off 0.125 (|+0) . (>| s "kick:5")))) (s "k") -- kick hard (heartbeat)
-$ fix ((someCyclesBy 0.25 (off 0.125 (|+0))) . (>| s "kick:5(<<2 2 4 4 4 4 2 2 3 4 4 3 2 2 0 0> 4>,4)")) (s "k") -- 3: kick hard (heartbeat)
 -- $ someCyclesBy 0.1 ((# s "beating") . (stut 4 0.5 0.25)) -- 2: tension
+$ fix ((# s "sosKick") . (# gain 1.2)) (s "k") -- 1: kick soft
+-- $ fix ((off 0.5 (|+ 0)) . (# s "[kick:0,reverbkick]")) (s "k") -- 2: kick harder
+-- $ fix (((off 0.125 (|+0) . (>| s "kick:5*<1 2 1 1>")))) (s "k") -- kick hard (heartbeat)
+-- $ fix ((someCyclesBy 0.25 (off 0.125 (|+0))) . (>| s "kick:5(<<2 2 4 4 4 4 2 2 3 4 4 3 2 2 0 0> 4>,4)")) (s "k") -- 3: kick hard (heartbeat)
 -- $ s "k(2,4)" -- 1 tranquille
-- $ s "k(<2 2 2 2 4 4 4 4>,4)" -- 1 setup 4 temps
-- $ s "k(<2 2 2 2 4 4 4 4>,4)" -- 1 final 4 temps
-$ s "k <k ~> k <k ~ k k>" -- 2 : variation pour kick hard
-# gain 0.9
+$ s "k(<2 2 2 2 4 4 4 4>,4)" -- 1 setup 4 temps
+-- $ s "k(4,4)" -- 1 final 4 temps
+-- $ s "k <k ~> k <k ~ k k>" -- 2 : variation pour kick hard
+# gain 0.8

-d2
-$ s "hh [dr:1,hh]"
-# gain "1 0.8"
+d2 -- 1: batterie tic tac
+-- $ fast 2 -- 1: faster!
+$ whenmod 8 4 (const $ n "2 1 . ~ . ~ . ~" # s "bshihat")
+$ n "2 1"
+# s "bshihat"

-d3 $ s "bskick:3(3,8)"

 d5 -- basse
 $ whenmod 8 4 (|- n 2)
-$ someCyclesBy 0.4 ((superimpose (|- 7)) . (|+ 7)) -- 2: matiere plastique
+$ someCyclesBy 0.8 (superimpose (# s "subBass2"))
+-- $ someCyclesBy 0.4 ((superimpose (|- 7)) . (|+ 7)) -- 2: matiere plastique
 $ someCycles (off 0.25 (|- 7))
 $ n (scale "major" "[0 0] ~ 1 0 1 1 0 0")
 |- 14
 # s "subBass1"
-# gain 1.0
+# gain 1.1

 -- ACTE 2: METAL ET PLASTIQUE

@@ -40,7 +42,8 @@ $ n "2 1 2 <1 1*2>"
 # s "bshihat"

 d3 -- batterie indus metal
-$ stut 2 0.9 0.05
+$ every 2 (someCycles (# silence))
+-- $ stut 2 0.7 0.1
 $ n "3 3 3 4"
 # s "bskick"
 # delay 5
@@ -49,37 +52,42 @@ $ n "3 3 3 4"
 d4 $ -- noise guitar tension
 s "bsguitar:6*2" # note "<0 0 0 0 1 1 1 1>"
 |- note 1
-# gain 0.7
+# gain 0.5

 -- 3 -> 4

 d6 -- claps encourageants
-$ fast 2
+-- $ whenmod 64 32 (# silence)
+-- $ fast 2
+-- $ every' 2 1 ((# release 0.8)) -- deuxieme clap sans echo
+$ fix ((# s "clap:2") . (# room 0)) (s "clap") -- claquements de doigts
 $ s "~ clap"
-# room "<0.2 .. 0.5 0.6 .. 0.2>"
-# dry "<1 .. 4 3 .. 0>"
+# room "<<0.2 .. 0.5 0.6 .. 0.2> 0>"
+# dry "<0 .. 3 3 .. 0>"
 -- Acte quatre: résolution

+d4 $ s "bsguitar:4" # cut 1 # begin 0.2

 -- ACTE 4
+d4 -- lead guitar pensive
+-- $ whenmod 16 8 (# begin 0.5)  -- 2: alterne au debut
+$ s "bsguitar:4" # cut 1
+-- # begin "<0 0 0.5 0.5 0.2 0.4 0 0>"
+-- # begin "0.6" -- pont!
+-- # begin "0.8" -- pont evanescent!
+# up 1
+# room 0.8
+# size 0.6
+# gain 1
+# size "<0.4,0.05 .. 0 0,0.1 .. 0.4>"

 d6  --phazer joyeux, resolution
+$ fast 2
 $ someCycles (rev)
 $ someCycles (chop 2)
 $ someCyclesBy 1 (|- n 2) -- 3: parfois mineure!
 $ jux (degrade . rev . chop "<1 2 4 8>")
 $ n (scale "major" "<3 [3,5] [3,7] [3, 5, 7]>")
 # s "phazer"
-# gain 0.5
-|- n 2 -- 3: parfois mineure!
-
-d4 -- lead guitar pensive
-- $ whenmod 16 8 (# begin 0.5)  -- 2: alterne au debut
-$ s "bsguitar:4" # cut 1
-- # begin "<0 0 0.5 0.5 0.2 0.2 0.3 0.3>"
-# begin "0.6" -- pont!
-- # begin "0.8" -- pont evanescent!
-# up 1
-# room 0.6
-# gain 0.7
-# size "<0.4,0.05 .. 0 0,0.1 .. 0.4>"
+# gain 0.6
+|- n "2" -- 3: parfois mineure!
--- a/live/late/temps.tidal
+++ b/live/late/temps.tidal
+setcps 0.5
+
+d1
+$ whenmod 16 8 (euclid 4 8)
+$ whenmod 16 0 (euclid 2 8)
+$ s "kick:5"
+
+d2
+$ euclid "<3 5>" 8
+$ s "[~ hh]"
+
+d3
+$ every 4 rev
+$ note "0 3 5 [7 7?]"
+# s "bass3"
+
+d4
+$ someCycles (# crush 5)
+$ superimpose (|- note 7)
+$ off 0.125 (|+ note "<3 5 7>")
+$ s "~ superpiano"
+
+d5
+
+$ off 0.25 (|+ note "<3 5 7>")
+$ s "superpiano"
+|- note 21
--- a/live/techno/delic_jazz.tidal
+++ b/live/techno/delic_jazz.tidal
@@ -12,22 +12,22 @@ $ s "tech:5*4" # note (-4)
 # gain 1.3

 d2
-$ s "[~ hh ~ <hh [hh ~ hh]>]*2"
 $ every 4 (const $ "[~ [hh,hh:8] ~ [hh ~ hh]]*2" # gain 1.2)
+$ s "[~ hh ~ <hh [hh ~ hh]>]*2"
 # gain 1.2

 d3
 $ s "bd sn bd <cp cp cp cp*2>"

 d4 -- main gauche
-- $ whenmod 32 24 (|+ note 7)
+$ whenmod 32 24 (|+ note 7)
 $ s "superpiano"
 # note "<-20 [-19,-15] [-20,-16] ~>"
-# velocity "<0.7 0.5 0.6>"
+# velocity "<0.7 0.6 0.7>"
 # sustain 3
-# gain 1.2

 d5 -- main droite
+$ whenmod 128 64 rev
 $ whenmod 64 48 (
  const
  $ slow 4
@@ -39,8 +39,6 @@ $ whenmod 64 48 (
  # velocity 1
  # sustain 2
 )
-$ whenmod 32 16 (# gain 0.8)
-$ whenmod 32 0 (# gain 0)
 $ every 4 ((>| s "superpiano*16") . (# note "6 <2 5> <2 1>"))
 $ someCycles (# sustain 3)
 $ s "[p?*3] . ~ . [p*2] . ~ [p? p] . ~"
@@ -48,7 +46,7 @@ $ s "[p?*3] . ~ . [p*2] . ~ [p? p] . ~"
 # note "<1 [2,6] [1,5] ~>"
 # velocity 0.8

-d5 -- white noise
+d6 -- white noise
 $ someCycles (# silence)
 $ sometimes (jux rev)
 $ (# speed (rand / 2))
@@ -56,7 +54,7 @@ $ s "glitch:2" -- # n (run 8)
 # cut 1
 # gain 1.2

-d6
+d7 -- ??? TODO: What is that supposed to be?
 $ someCyclesBy 0.2 (# gain 1)
 $ slow 2
 $ s "[~ jazz:2]*8"

--- a/live/techno/feeling_electric.tidal
+++ b/live/techno/feeling_electric.tidal
+setcps 1
+
+d1 -- bass
+$ whenmod 64 32 ((# gain 1) . (# room 0.2))
+$ whenmod 32 16 (# silence)
+$ slow 2
+$ note (
+  scale "major" (
+    cat [
+      " 1  1 ~ . ~ [~ 0]",
+      "0 [0 1] ~ ~ . ~  "
+    ]
+    + "[0, 7]" -- gamme
+  )
+)
+# s "bass3"
+# gain 0.8
+
+d1 -- autre Basse
+$ whenmod 8 4 (|- n 2)
+$ someCyclesBy 0.4 ((superimpose (|- 7)) . (|+ 7)) -- 2: matiere plastique
+$ someCycles (off 0.25 (|- 7))
+$ n (scale "major" "[0 0] ~ 1 0 1 1 0 0")
+|- 14
+# s "subBass1"
+# gain 1.2
+
+
+d2 -- hit roll
+$ someCycles (# s "dr:2")
+$ someCycles (# s "dr:1")
+$ s "<hh*4 hh*4 hh*4 [hh*4 ~]>"
+# s "hh"
+# release 0.5
+
+d3 -- claps
+$ whenmod 32 16 (degradeBy 0.2)
+$ s "<[~ cp] [~ cp] [~ cp] [~ cp . cp ~]>"
+# s "clap"
+# gain 1.1
+
+d4 -- fork
+$ whenmod 50 0 (# release "0.05,0.01 .. 0.5")
+$ off 0 ((# s "supergong") . (# gain 0.5) . (# release 0.5))
+$ s (cat [
+"~ f f*2 ~"
+, "f f ~ f"
+, "f*2 ~ f f"
+, "[f*4] ~"
+])
+# s "superfork" # n (scale "major" (-4))
+# release 0.5
+
+d5 -- kick
+-- $ fast 2
+$ fast "<2 4 2 2 1 0>"
+$ every 4 (degrade)
+-- $ s "kick:19"
+$ s "kick:5"
+
+d6 -- drums 80s
+$ degrade
+$ superimpose (# n 0) -- tick
+$ fast 8 $ "electro1" # n (choose [1,2,2,2,3,3,3])
+
+d7 -- lead orgue
+$ degradeBy 0.4
+$ rev
+-- $ slow 2 $ degrade $ (|+ note 7)
+$ sometimes (off "<0 0.125 0.25 0.25>" (# s "[organTonewheel0,organTonewheel4]") . (|- gain 0.1))
+-- $ superimpose (# s "organTonewheel2")
+$ superimpose (# s "organTonewheel3")
+$ chop "<2 4 4 8 8 2>"
+$ off (1/4) (|+ note "<5 7 3 0 5>")
+$ note "-7"
+# gain 0.75
+# room 0.8
+# dry 2
+# size "<0,0.05 .. 0.3 0.3,0.05 .. 0>"
+# s "organTonewheel1"
--- a/live/techno/german_wings.tidal
+++ b/live/techno/german_wings.tidal
+-- Techno - 80s - aerian
+setcps 0.5
+
+d1
+-- $ fast 4 . (off 0.5 (# s "<~ clap>"))
+$ (fast 2) . (off 0.5 ((# s "clap:1") . (# room 0.5) . (# dry 1)))
+$ s "kick:2"
+# gain 0.8
+
+d2 -- batterie, FIXME too loud
+$ fix (# s "electro1:0") (n 1)
+$ n "3 1 3 [[1 ~ 1?] 1]"
+# s "jazz"
+-- # note (irand 7)
+
+d3 -- drums
+$ whenmod 16 10 ( -- 80s drumroll
+  const $ every 4 (off 0.25 (# n 2))
+  $ n "[2 3] . 2 . 3 . 2 2 3 2" # s "electro1"
+  -- const $ n "[2 <[3 2] [2 3]> ~] [3 2 <3? ~>]" # s "electro1"
+)
+$ whenmod 32 16 (degrade)
+$ whenmod 16 8 (off 0.125 (|+ 0))
+$ sometimes (# s "dr")
+$ s "hh(<4 4 3 4>,8)"
+
+d4
+$ every 8 (fast 2)
+$ s "[~ electro1:1]*4"
+# gain 0.8
+
+d5
+$ whenmod 8 4 (|- note 2)
+$ off 0.125 (degrade . (# room 0.2) . (# size 0.8))
+$ superimpose ((# s "bass3:2") . (|+ note 7))
+$ note "0 [~ 0 ~] . <0 <[0 3] [0 -2]>>"
+|- note 14
+# s "bassWarsaw"
+
+d7 -- piano lead
+$ whenmod 8 0 (off (1/8) (# s "jazz:6")) -- scratched
+$ off (3/8) (|+ note 7)
+$ s "jazz:5?*16"
+# note (scale "major" "11")
+|+ note "7 0 -7"
+# gain 0.8
+
+d6 -- piano second
+$ whenmod 32 30 ((# s "control") . (# gain 0.8)) -- transition synth: violent
+$ whenmod 8 4 (|- note 2)
+$ sometimes (off 0.125 (|+ note 7))
+$ superimpose ((# s "FMRhodes2") . (|+ note 7))
+$ note "0 [~ 0 ~] . <0 <[0 3] [0 -2]>>"
+# s "FMRhodes1"
+
+d9 -- noise
+$ sometimes (# crush 6)
+$ whenmod 32 28 (often $ (# gain 0.7))
+$ whenmod 32 0 (almostNever $ (# gain 0.7))
+$ s "~ cosmicg:2/2"
+# gain 0
+
+d8 -- white noise
+$ someCycles (# silence)
+$ sometimes (jux rev)
+$ (# speed (rand / 2))
+$ s "glitch:2" -- # n (run 8)
+# cut 1
+# gain 1.2
+
+
+--- SANDBOX
+
+d6 -- lead synth? too low currently
+$ whenmod 32 30 ((# s "control") . (# gain 0.8)) -- transition synth: violent
+$ whenmod 8 7 (# note (scale "major" "1 3 5 7"))
+$ whenmod 8 6 (|+ note 7)
+$ whenmod 8 2 (|- note 7)
+-- $ whenmod 32 24 (degradeBy 0.8)
+-- $ whenmod 32 16 (degrade)
+$ superimpose ((# s "moogBass") . (# gain 0.8))
+$ s "FMRhodes1*8"
+# note (scale "major" "1 3 7 <5 ~>")
--- a/live/techno/major_nostalgia.tidal
+++ b/live/techno/major_nostalgia.tidal
+setcps 0.5
+
+d1 -- batterie
+$ whenmod 64 16 (fast 4 . (every 4 (off 0.5 (|+ 0))))
+$ s "kick:5"
+# gain 0.8
+
+d2 -- drums
+$ whenmod 64 16 (sometimes (# s "dr") . (# s "hh:5"))
+$ whenmod 64 14 (fast 2 . (# s "hh:1"))
+$ whenmod 4 3 (sometimes (# n "1"))
+$ someCycles (fast 2)
+$ euclid "<2 4 2 6>" "<4 8>"
+$ "hh:12"
+
+d3 -- basse
+$ whenmod 8 4 (|- note 5) -- quinte
+$ someCyclesBy 0.2 ((# room 0.2) . (# dry 8))
+$ someCycles (# attack 0.2)
+$ note (scale "major" "0(3,8) [<3 3 -6 -6> -2(<1 2 4>, 6)]" - 7)
+# s "bassWarsaw"
+# gain 0.9
+
+d4 -- lead piano
+$ whenmod 32 16 (someCycles $ degrade)
+$ whenmod 8 4 (|- note 5) -- quinte
+$ someCycles (jux rev)
+$ whenmod 16 14 (|+ note 15)
+$ whenmod 16 10 (|- note 3)
+$ whenmod 4 2 (|- note 7)
+$ someCycles (off 0.125 (|+ note "<12 7 12 12>"))
+$ someCycles (off 0.25 (|- note 5))
+$ note (scale "major" "~ [3,<8 7 5>,10]" - 7)
+# s "superpiano"
+# sustain 2
+# velocity 0.8
+# gain 0.8
+
+d5 -- choeur fou
+$ whenmod 64 60 (# gain "<0.8 0.75 0.7 0.65>")
+$ whenmod 64 32 (# gain 0.9)
+$ whenmod 8 4 (|- note 7) -- quinte
+-- $ superimpose ((|+ note 5) . degrade) -- variations quinte
+$ someCyclesBy 0.2 rev
+$ chop "<2 4 6 8>"
+$ off 0.25 (|+ 7)
+$ s "moogBass" # cut 1
+# note (scale "major" "<1 0 [1 3] ~>")
+
+d6 -- final aigu
+$ whenmod 64 32 degrade
+$ sometimes degrade
+$ sometimes rev
+$ whenmod 64 48 (# gain 0.8)
+$ off 0.25 (|- note 7)
+$ off 0.125 (|- note 7)
+$ off 0.125 (|- note 3)
+$ note (scale "major" "0 3 7 12")
+# s "~ sosBell ~"
+# release 0.5
+# gain 0
--- a/live/techno/phazer.tidal
+++ b/live/techno/phazer.tidal
@@ -12,8 +12,6 @@ $ note (scale "major" "<0 2 7 <5 5 4>*2>")
 # s "phazer"
 # gain 0.7

-unmute 1
-
 d2 -- beat + dark amp
 $ (fast 4 . (fix (# n "[9,7?]") (s "kick"))) -- FASTER!
 $ every' 4 3 (# gain "0 <0 1 1 0>") -- dark amp

--- a/live/techno/violent_violin.tidal
+++ b/live/techno/violent_violin.tidal
@@ -18,7 +18,7 @@ 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
+-- # gain 1.4

 d4 -- bass
 -- $ degrade  . fast 2 -- rythme glitch
@@ -42,21 +42,22 @@ $ n (scale "aeolian" "~ <[0 3] [5 4]>")
 # s "violin"
 # gain 0.9

-d6
+d6 -- lead carillon
 $ whenmod 16 12 (|+ 7)
 $ whenmod 16 8 (off 0.125 (|+ "<5 4>"))
 $ someCyclesBy 0.2 (arpeggiate . degrade)
+$ someCycles (off 0.25 (rev))
 $ superimpose (# n "[0?,3?,7?]")
 $ n (scale "aeolian" "<[5 4] ~> ~")
 # s "kalimba"
 # gain 0.9
-|- note "7 0 0 7"
+|- note "7 <0 0 2 2> <0 2 2 0> 7"

 d7
 $ every 2 (# silence)
 $ jux rev
 $ slow 2
 $ off 0.125 (|+ 7)
-$ note "[0,7] [3,<5 12>]"
+-- $ note "[0,7] [3,<5 12>]"
+$ note "<[7] [7 7 7 0]>"
 # s "cs80leadMH"
-# gain 0.7