chore: VCS My stuff

blocks/drums.tidal

@@ -91,3 +91,13 @@ d1 $ s "[a*4 ~] a*8"
 # s "armora"
 
 d1 $ "jazz" # 3
+
+
+--  TODO : 80s drum transition
+once
+-- $ rarely (superimpose (# n 4))
+$ degrade
+$ fast 2
+$ n ("0 . 0 0 0 . 0 . 0 <0 ~> <0 ~> . 0 . 0 . <0 ~>" + "2 [2|3] 2 [2 3]")
+# s "electro1" # gain 1.3
+# room 0.2

blocks/instruments.tidal

@@ -3,3 +3,13 @@ once $ s "supersnare"
 # n (-12)
 # accelerate 8
 # sustain 1
+
+-- BOUNCE!#
+once
+$ note ("5 6 8 ~ 8 [6 5] 6 ~"
+- 36
+)
+# s "supersaw"
+# voice 0.05
+# accelerate 1
+# gain 0.8

blocks/melody.tidal

@@ -22,6 +22,11 @@ once $ s "arp" # n 0
 -- Basse synthé :)
 d2 $ s "supersaw(<5 7 3>,8, <0 2>)" # n (scale "aeolian" (prog - 14)) # gain 0.85 # voice 0.1 # room 0.6 # orbit 0
 
+-- Descente ineluctable, avec un vague espoir
+$ note (scale "aeolian" (
+  "[<0 0 -2 <-2 -1>> ~ 2 1 0]/2"
+))
+
 d1 -- continuous laser
 $ s "bd" >| speed (segment 50 $ range 40 5 (saw))
 

live/boeuf/samedi_confine_extra.tidal

@@ -56,7 +56,7 @@ d3 $ stack [s "d(1,8)" # s "drum:6", s "cp(2,4,1)"]
 
 d4 $ whenmod 8 6 (degradeBy 0.75) $ inside 2 (sometimesBy 0.1 (ply 2)) $ iter 4 $ n ("[0 0 2 ~ [5 4] 2 <3 5> [1 [2 2]]]" + "<5 5 5 8 2 3>") # s "<dr dr dr jazz>" # silence
 
-d5 $ s "insect*4" # n (irand 6) # speed (range 0.125 2 rand) # crush 4 # gain 1 # silence 
+d5 $ s "insect*4" # n (irand 6) # speed (range 0.125 2 rand) # crush 4 # gain 1 # silence
 
 
 hush

live/chill/ritusen.tidal

+setcps 0.4
+
+d1 -- Kick
+$ whenmod 8 7 (degradeBy "1 0.5 0.25 0")
+$ fast (slow 4 $ "<1 2> <2 2 1 1>")
+$ note "0 0"
+# s "cpu2" # note "0 0 0 1"
+
+d2 -- Snares
+$ chunk 4 (hurry 2 . (# crush 4))
+$ n "~ [2|3] [6 7?] [2 [2|8]]"
+# s "cpu2"
+
+d3 -- chunked drumroll TODO: Roll more
+$ chunk' 4 (degradeBy 0.25 . fast 4)
+$ chunk 4 (degrade)
+$ s "dr*8"
+# gain 0.9
+
+d5
+$ juxBy (slow 16 $ sine) ( -- BASSLINE
+  whenmod 8 7 (# crush 6) .
+  whenmod 8 6 rev .
+  (# s "supersaw") . (# voice 0.01) .
+  (|- note "[24,<~ 12>]") . (|- gain 0.4)
+)
+$ note (scale "ritusen"
+(bite 4 "0 0*2 1 <2 3>" $ "0 1 ~ 2 ~ 3 4 ~"))
+# s "cpu2:16"
+# gain 0.9

live/dnb/chemise.tidal

-setcps 0.6
-
+setcps 0.5
 
 -- Dub en chemise blanche
 
-d2
+d2 -- Beat + Tocs sur 8
 $ degradeBy (slow 7 $ cosine * 0.6)
 $ fix (sometimes (# crush 4)) (n "1")
 $ fix ( -- tok occasionnel contretemps
   whenmod 4 3 (sometimes (# n 3))
   . sometimesBy "<0 0.25 0.75 1>" (stut 4 0.6 0.125)
   ) (n 1)
-$ n "[0 <~ <1 1?>>]*2"
+$ n "[[0 [7|~|~ 7|7*2]] 0 <~ <1 1?>>]*2"
 # s "jazz"
 
-d3
+d6 -- Baguette-roll
 $ every' 4 3 (sometimes (jux id . (fast "<2 2 2 1>")))
 $ fast "<2 2 1 1> <2 1 2 4>"
 $ s "0 0"
 # s "drum:8"
 
-d3
+d3 -- Toms variés sur 8
 $ sometimesBy (slow 9 $ sine * 0.8) (# gain 0)
 $ someCyclesBy 1 (often ((# lpf 200) . (|+ gain 0.2)))
+$ someCycles (# s "[808lt|808mt] [808mt|808ht] [808lt|808ht]")
 $ euclid ("<3 1 3 1 3 2 3 1 5 3 5 1 5 8 3 1>") 8
 $ s "t"
 # s "[lt|mt] [mt|ht] [lt|ht]"
@@ -29,9 +29,9 @@ $ s "t"
 
 d4 -- Basse TODO: Not reggae
 $ sometimesBy "0 1 0 0 0" (every' 4 3 ((2/16) ~>))
--- $ every' 4 2 (sometimesBy "0 0 0 0 0" ((1/8) ~>))
--- $ whenmod 8 6 (someCyclesBy 0.2 (rev . chop 2)) -- variations rev
--- $ rarely (stut 3 0.75 (1/16)) -- begaye
+$ every' 4 2 (sometimesBy "0 0 0 0 0" ((1/8) ~>))
+$ whenmod 8 6 (someCyclesBy 0.2 (rev . chop 2)) -- variations rev
+$ rarely (stut 3 0.75 (1/16)) -- begaye
 $ superimpose (|- note 12)
 $ note (scale "aeolian" (
   (slow 2 $ "<0 <-2 5>>")
@@ -40,7 +40,7 @@ $ note (scale "aeolian" (
 # voice 0.1
 # lpf (slow 6 $ range 500 1200 tri)
 # lpq (slow 4 $ sine * 0.1) -- vibrato
-# gain 0.8
+# gain 0.9
 |- note 24
 
 d5 -- Pompe mandoline
@@ -61,3 +61,23 @@ $ sometimes (off 0.5 id)
 $ s "~ ~ s ~"
 # s "birds" # n (irand 10)
 # gain 0.6
+
+-- Soudain? TECHNOOOOO
+d1
+$ sometimesBy (slow 4 $ tri) (slow 2)
+$ note "0 0 0 [3 <~ 5?>]"
+# s "jazz"
+
+d6 $ s "c?? ~ <c [c*2|~ c|~ c*2]> ~" # s "jazz:4"
+
+d4
+$ every 2 (chop 2)
+$ note (scale "aeolian" (
+  iter 6 $ "[-2 2 4 6]*2"
+  + "<0 0 0 0 2 2 4 4>"
+  - "0 -7 0 -7 0 0 -7"
+  - 21
+))
+# s "supersaw/4"
+# voice 0.1
+# gain 0.8

live/hip/bocal.tidal

+setcps 0.5
+
+scaleBocal = (scale "aeolian" (slow 4 $ "<0 <2 3>>"))
+
+d1
+$ whenmod 16 15 (>| note "0*4 . 0(7,8)")
+$ whenmod 8 6 (>| note "0")
+$ note "0 <0 ~> ~  . ~ . 0 . <~ [0 ~ ~]>"
+# s "jazz"
+# lpf (slow 16 $ range 50 2500 sine)
+
+d2
+$ whenmod 16 8 (# silence)
+$ s "~ <s [~ s|s ~ s s]> ~ <s [s*2|~|s s ~ s]>"
+# s "snare:2"
+# gain 0.9
+
+d3
+$ whenmod 16 12 (
+  (# speed (slow 4 $ range 1 2 saw))
+. (# gain (slow 4 $ range 0 0.8 isaw))
+  )
+$ whenmod 16 8 (juxBy 0.3 rev)
+$ degradeBy (slow 4 $ "<1 0.75 0.5 0.25> <1 0.5 0.4 0.2>")
+$ s "d*16"
+# s "drum:8"
+
+d4
+$ someCycles (fast 2)
+$ whenmod 16 12 (# gain (slow 4 $ range 0 0.8 isaw))
+$ whenmod 64 32 (-- chopped downgliding on 3/4
+  whenmod 4 3 (
+  superimpose $ chop 2
+   . (# accelerate (-0.1))
+   . (# gain 1)
+)
+)
+$ whenmod 8 5 (# accelerate "<0.125 0.125 0.25 0.5>")
+$ note "0"
+# s "supersaw"
+# voice 0.1
+# gain 0.8
+# note (scaleBocal - 24)
+
+d7 -- aigu fou
+$ whenmod 128 65 (# gain 0.6)
+$ whenmod 128 64 (# gain (0.6 * tri))
+$ degradeBy (slow 4 $ "<0,0.05 .. 0.5>")
+$ off (5/16) (# velocity 0.3)
+$ superimpose ((# gain 0.6) . (# s "cheapPiano1"))
+$ s (slow 1 $ "<b [b b? <~ b> <~ b?>] b*4 <b*8 [b*4 b]>>")
+# note (scale "aeolian" ((slow 4 $ "<0 <2 3>>")
+ + "0 12" + (iter 4 $ "0 <1 1*2> 2(3,8)")))
+# s "superpiano"
+# velocity (slow 32 $ sine * 0.3 + 0.5)
+# gain 0
+
+d6 -- Sirene occasionelle accordée
+$ whenmod 64 32 (# gain 0.5)
+$ s "supersiren/4"
+# note scaleBocal
+# gain 0
+
+d8 -- insects / scratch birds
+$ often (
+  superimpose $ (# s "birds3") . (# n (irand 7)) . (|- gain 0.1)
+)
+$ euclid (slow 2 $ "<1 3 5 7 8>") 8
+$ s "insect" # n "[1?, 2?]"
+# gain (slow 42 $ range 0.3 0.8 sine)
+# room 0.2

live/hip/volette.tidal

+-- A LA VOLETTE
+setcps 0.5
+
+d1
+$ someCycles (degradeBy "0 0.5 1 0" . fast 2)
+$ whenmod 8 6 (degradeBy "1 1 1 1 1 1 1 0")
+$ s "<k [k*2 ~]> . k ~ <~ k?> <k? k>"
+# s "kick:6"
+# lpf 500
+# gain 0.6
+# pan 0.1
+
+d2
+$ whenmod 8 6 (jux (# crush 4))
+$ someCycles (jux $ hurry 2)
+$ sometimes ((# n 3) . stut 4 0.75 0.125)
+$ s "~ s? ~ s?*2"
+# s "808sd:1"
+# gain 0.8
+# pan 0.2
+
+d3 -- Drumroll baby!
+$ whenmod 16 15 (# gain 0.8)
+$ whenmod 16 10 (# gain 0)
+$ whenmod 16 0 (# gain 0.8)
+$ fix (
+  (stut "[2|3]" 0.5 (1/32)
+  . (|- gain (slow 8 $ sine * 0.3))
+  . (# n "[6|1|[1, 9]]")
+  )) (n "1")
+$ (# n "0 . 0 0 0 1")
+$ whenmod 64 2 (fast "<2 1> <1 2>")
+$ whenmod 16 0 (fast 2)
+$ fast "8 <1 2 4>"
+$ s "dr"
+# pan (slow 32 $ sine / 2)
+
+d4
+$ someCycles (degrade . (# sustain 0.25))
+$ someCycles (slow 2)
+$ bite 4 "[0|0 0] 2 1*2 <3 3 0 3>"
+$ note ("5 6 8 ~ 8 [6 5] 6 ~"
+- "[24,36]"
+)
+# s "supersaw"
+# voice 0.05
+# resonance 0.1
+# decay (slow 32 $ range 0 0.5 cosine)
+# lfo (slow 16 $ range 0 1.8 sine)
+# gain 0.5
+
+
+-- Apris à - à la volette
+d5
+$ (|- note 8)
+$ whenmod 32 16 (superimpose ((# s "superfork") . (|+ gain 0.2)))
+$ degradeBy ("<0.75 0 0 0.5 0 0.9 0 0>")
+$ whenmod 8 7 (sometimes (# room 0.3))
+$ whenmod 8 6 (
+  >| note "1 5 3 ~ . 0 1" -- APRIS À VOLER
+)
+$ whenmod 8 4 (
+  |> note "3 5 6 ~ 6 [5 3] 5 ~" -- A LA VOLETTE!
+)
+$ note "5 6 8 ~ 8 [6 5] 6 ~ " -- Apris à - à la volette
+# s "superfork" # voice 0.25 # accelerate (0.025)
+# gain 0.7
+# room 0.1
+# size 0.1
+# pan 0.8
+
+once $ note "0 .. 4"
+# s "supersquare" # voice 0.25 # accelerate (-0.02)
+# gain 0.7
+
+d4
+$ (# n 0)
+$ fix ( -- mon petit / mon petit oiseau
+  every 4 (
+    superimpose ( const -- oiseau scratch
+      $ degradeBy "<0 .. 0.5 0.5 .. 0.2 0.2 .. 0.6 0.6 .. 0>"
+      $ n "0*16" # s "birds3" # n (choose [0,0,2]) # pan (slow 8 $ sine)
+      )
+    . (# end 0.08)
+    . (stut 2 1 0.25)
+  )
+  . (# end 0.2)
+  ) (n 0)
+$ fix (
+  (# begin 0.2)
+. (# end 0.4)
+) (n 1)
+$ n "<~ <0 1>>"
+# s "kaamelott"
+# gain 0.6
+
+once
+$ note (scale "major" 1 - (run 4))
+# s "kaamelott:1"
+# end 0.04 # cut 1
+# gain 0.9

live/techno/accel.tidal

+d1 -- Kick
+$ whenmod 8 6 (# silence)
+$ fast (slow 8 $ "<1 [1 2] 2 [2 1]>")
+$ fast 2
+$ n "0"
+# s "kick:5"
+
+d2 -- Snares + hats
+$ superimpose (const
+  $ sometimes (# crush 4)
+  $ sometimes (fast 2)
+  $ euclid (slow 4 $ "<5 7 8>") 8
+  $ s "linnhats" # n (slow 2 $ "<0 1 [2 0]>"))
+$ n "~ <3 3 [3 ~ 3 2] 3> ~ [2 <~ 3?>]"
+# s "sn"
+
+d3 -- Drumroll
+$ fast (slow 4 $ "<1 [0.5 2] 2 [1 0.5 2]>")
+$ sometimesBy "0 0 0 <0 [0|1]>" (# n 2)
+$ s "dr*8"
+# s "ifdrums:1"
+# pan 0
+
+d4 -- Basse
+$ note (scale "aeolian"
+(
+  whenmod 16 8 (iter 6)
+  "0 [4 5] 0"
++ "<0 0 0 0 2 2 4 -2>"
++ "<<0 0 7 7> 7>") - 36)
+# s "supersaw"
+# voice 0.1
+
+d5 -- Siren theme
+$ whenmod 128 64 (# gain 1)
+$ s "s/2"
+# s "supersiren"
+# note (scale "aeolian"
+(iter 1 $ "0 [4 5] 0"
++ "<0 0 0 0 2 2 4 -2>"
++ "<<0 0 7 7> 7>") - 36)
+# gain 0
+
+d6 -- claps graduels sur 64
+$ whenmod 16 13 (# note "<2 4 8>")
+$ whenmod 64 48 (>| n "~ 0*2 ~ 0*2")
+$ whenmod 64 32 (>| n "~ 0?*2 ~ 0?*2")
+$ whenmod 64 16 (>| n "~ 0 ~ 0*2")
+$ whenmod 64 8  (>| n "~ 0? ~ 0")
+$ n "~ ~ ~ 0"
+# s "clap:1"
+
+d7 -- synthe fou
+$ superimpose (
+  (# s "supercomparator") . (# voice (slow 64 $ sine * 8)) . (|- note 12)
+)
+$ whenmod 16 8 (sometimes (jux (|+ note 12))) -- jux eclairs!
+$ whenmod 16 0 (# gain 0.9)
+$ degradeBy "<1 1 1 0> <[1 1 1 0] [1 0] 0>"
+$ n "0*16"
+# voice "0.1"
+# s "supersquare"
+# note (scale "aeolian"
+"<0 0 0 0 2 2 4 -2>")
+# gain 0