Friday: Vie Hivernale

live/bdmania.tidal

@@ -26,7 +26,7 @@ $ sound "bd"
   )
 # gain 0.5
 
-d4 -- helico
+d8 -- helico
 $ every' 4 3 (off 0.125 (|+ 0))
 $ every 8 (# gain 0)
 $ every' 8 7 (# gain 1.2)

live/noise/vie_hivernale.tidal

+setcps 0.5
+
+d1
+$ whenmod 4 2 (sometimes (stut 2 0.75 0.125))
+$ degradeBy 0.05
+$ s
+-- "k*2"
+"k(4,4)"
+-- "k(3,4)"
+# s "kick:5"
+# gain 0.55
+# pan 0.2
+
+d2
+$ whenmod 8 4 (sometimes (stut 2 0.5 (choose [0.125, 0.0625])))
+$ sometimesBy 0.1 (# n 31)
+$ s "<~ ~ [~ s?] ~> s? <~ ~ ~ [~ s?]> s"
+# s "sn" # n "[30|31|32|33]"
+# pan 0.8
+# gain 0.65
+
+d3
+$ every 4 (degrade)
+$ fast 8
+$ s "insect"
+# room (slow 16 $ sine * 0.9)
+# gain (slow 32 $ sine * 0.4 + 0.3)
+
+d4
+$ euclid 3 8
+$ s "insect:1"
+# gain (slow 16 $ tri * 0.4 + 0.2)
+# room (slow 8 $ tri * 0.6 + 0.2)
+
+d5 -- roll
+$ sometimesBy "0.8 0.2 0.8 0.1" (fast 2)
+$ degradeBy "0 0 0.5 0.1"
+$ s "d*8"
+# s "birds3:10"
+# gain 0.6
+
+d6  -- scratch
+$ often (hurry 2) -- SCRATCH IT!
+$ s
+-- "b(8,8)" -- MORE
+"b(<3 5 8 8>,8,<0 .. 7>)" -- More
+-- "b(5,8)"
+# n "[1|2|3|9]"
+# s "birds3"
+-- # gain 0.8
+
+d6
+$ fast 2
+$ superimpose (# s "cheapPiano1") . (# gain (slow 32 $ sine - 0.3))
+$ note (scale "melodicMajor" "0 7 0 <7 [4 7]>")
+# s "superpiano"
+# sustain 2
+# velocity 0.9
+# gain 0.9
+
+d8
+$ degradeBy "0 0.8 0 0.2"
+$ superimpose (  -- complement med cloche
+  -- (off (1/16) (|+ 0)) . -- double
+  fast 2 .
+  (# s "808mc") .
+  (# gain 0.5)
+)
+$ superimpose ( --
+  stut 4 1 (1/8) . degradeBy 0.1 .
+  (|+ note "~ [12,24] ~"))
+$ s "f*8"
+# s "superfork"
+|- note 24
+# gain 0.7
+
+d10
+$ every' 4 1 (often (off 0.125 (|+ 0)))
+$ fast 2
+$ s "~ clap:1"
+# gain (slow 16 $ sine * 0.5 + 0.3)

live/techno/experience_vertige.tidal

 setcps 0.5
 
 d1
-$ sometimesBy "0 0 0 0.8" (off 0.125 (|+ 0))
+$ sometimesBy "0.9 0 0.1 0" (0.125 ~>) -- decalage
+$ sometimesBy "0 0 0 0.8" (off 0.125 (|+ 0)) -- double heartbeat
 $ s "k*4"
-# s "kick:4"
+# s "kick:5"
+# gain 0.6
 
 d1
 $ fast 4
-$ every' 16 15 (# gain 0)
+-- $ every' 16 15 (# gain 0)
 $ every' 8 7 (0.25 ~>)
-$ whenmod 8 6 (sometimes (off 0.5 (|+ 0)))
+-- $ whenmod 8 6 (sometimes (off 0.5 (|+ 0)))
 $ s "kick:4"
--- # gain 0.7
+# gain 0.65
 
 d1
 $ every' 16 15 (# gain 0)
@@ -19,58 +21,70 @@ $ every' 8 7 (0.25 ~>)
 $ sometimes (off 0.5 (|+ 0))
 $ euclid 5 8
 $ s "kick:4"
-# gain 0.9
+# gain 0.65
 
 d2
-$ fast "<2 4> <8 16>"
+$ fast "4 <8 16>"
 $ s "d"
 # s "dr"
-# gain 0.75
 # pan (slow 16 $ sine / 2)
 # room (slow 32 $ sine * 0.7 + 0.1)
 # size 0.5
--- # dry (slow 64 $ cosine)
+# dry (slow 64 $ cosine)
+
+d3
+$ fast 2
+$ every 4 (sometimes (off "<0.25 0.125>" (|+ 0)))
+$ s "~ s"
+# s "snare"
+# gain 0.8
 
-d4 -- FIXME INAUDIBLE
-$ s "~ ~ c ~"
-# s "clapElectro"
+d4
+$ sometimesBy -- double
+(slow 16 $ sine * 0.8 + 0.1)
+(off "<0.25 0.125>" (|+ 0))
+$ s "<~ c?> ~ c ~"
+# s "clap:8"
+# gain (slow 4 $ (0.9 - tri * 0.5))
 
 d5 -- chopped bass
+$ superimpose (iter 4 . rev . (# crush 4) . (# gain 0.5))
 $ chop (slow 4 $ "<<1 4> 2>")
 $ stut 4 0.5 0.125
 $ (# crush ("<6,0.05 .. 0>"))
-$ note  "[7|0] [0|7] <0 [12|0]>"
+$ note (scale "major" (fast 2 $ "[0,<~ <[7|4] <14 <10 14>>>>]"))
 # s "bassWarsaw"
-# gain 0.7
+# gain 0.75
 |- note 24
 
 d6 -- continuous laser
--- $ rev
+$ rev
 $ s "bd" >| speed (
   segment 100 $
   range (slow 8 $ cosine * 50)
         (slow 8 $ "<20 30 40 50 40 30 20>")
   saw
 )
-# gain (slow 32 $ sine * 0.3 + 0.6)
+# gain 0.5
 |- note "[<12 ~>,24,<-12 -12?>]"
 
-d5 -- basse moog weird
+d7 -- basse grave moog weird
 $ whenmod 16 8 rev
-$ every 8 (degrade)
-$ every 4 (degrade)
-$ every 2 (degrade)
-$ note "0 7 <12 7 5 12>"
+$ whenmod 8 6 (fast 2)
+$ whenmod 8 4 (fast 2)
+$ note (scale "major" ("<<7 14> 4>"))
 # s "moog"
-# gain 0.75
+# gain 0.5
 
-d7 -- forks!
-$ whenmod 64 32 (fast 2)
+d8 -- forks!
+-- $ fast 2
 $ whenmod 32 26 (degradeBy 0.2)
-$ whenmod 32 24 (|> note (scale "aeolian" (run 8)))
-$ superimpose (|+ note (slow 4 $ "<5 3> 5"))
+$ whenmod 32 24 (|> note (scale "aeolian" (run 8) - "[0,12]"))
+$ superimpose (|+ note (slow 4 $ "<5 3> 5"))  . (# gain 0.8)
 $ euclid "[<3 3?>,5?]" 8
 $ s "s"
 # s "superfork"
 # room 0.5
+# gain 0.85
+# pan (slow 4 $ sine)
 |- note 12