Carroz

live/chill/birds.tidal

+setcps 0.5
+
+-- b0: chirp 2s
+-- b1: chirp aigu leger 2s
+-- b2: leger monte descend 3s
+-- b3: leger haut bas haut 3s
+-- b4: siffle aigu cool
+
+d1 $ -- base
+s "birds/4"
+# room 0.9
+# size 0.5
+# gain 0.5
+
+d3 -- aigu lead?
+$ slow 2 $ up "<0 2 7 0>"
+# s "birds:4"
+|- up 7
+# gain 0.7
+
+d2 --  occasionel padlong
+$ s "~ birds:3/8"
+# gain 0.9
+
+d5 -- pivert
+$ whenmod 64 48 (# gain 0.9)
+$ often (stut 5 0.9 0.05)
+$ s "birds3:6(<1 1 3 1> ,8)"
+# gain 0.9
+
+d6 -- scratch moineau
+$ whenmod 128 80 (# gain 1.2)
+$ whenmod 128 72 (# gain 1.1)
+$ whenmod 128 64 (# gain 1)
+-- $ degradeBy "<0 .. 0.5 0.5 .. 0.2 0.2 .. 0.6 0.6 .. 0>"
+$ whenmod 16 16 (# up 12)
+$ whenmod 16 15 (# up 10)
+$ whenmod 8 7 (# up 7)
+$ whenmod 8 4 (# up 1)
+$ n "0*16"
+# s "birds3"
+# n (choose [0,0,2])
+# gain 0.6

live/chill/neige.tidal

+setcps 0.5
+
+d1
+$ degrade
+$ whenmod 16 14 (# silence)
+$ euclid 6 8
+$ s "kick:7"
+# gain 0.6
+
+d3
+$ someCyclesBy 0.1 (# s "snare:7") -- tok
+$ someCyclesBy 0.1 (# s "snare:6") -- frappe
+$ someCyclesBy 0.3 (# s "snare:5") -- etouffe
+$ whenmod 16 10 (# s "sn:1")
+$ someCycles (off 0.125 (|+ 0))
+$ s "~ snare"
+# gain 0.6
+
+d4
+$ whenmod 32 0 ( -- variation
+  someCycles (off 0.25 (|- 7) . rev . degrade)
+  )
+-- $ whenmod 8 4 (|- n 3) -- tierce
+$ off 0.25 (|+ 5)
+$ n (scale "ma" "<[0,3,7] [0,3,5] [0,3,4] [0,3,2] [0,3]>")
+# s "defaultB"
+# gain 0.7
+# room 0.2
+# size 0.2
+
+d5
+$ slow 2
+$ whenmod 16 8 (degrade)
+$ sometimes (off 0.125 (|+ 0))
+$ sometimes (off 0.25 (|+ note 3))
+$ sometimes (|+ note 2)
+$ note "<0 0*2 0?*4> <3?*4 3*2 3>"
+# s "bass3"
+# gain 0.7
+# room 0.9
+# size 0.7
+# release (0.4 + rand / 2)

live/jam/chalet.tidal

+setcps 0.45
+
+d1 -- regular beat
+$ whenmod 16 8 (fast 2)
+$ euclid "<1 2>" 8
+$ s "808bd:2"
+
+d2 -- cymbale legere reguliere
+$ someCyclesBy 1 (# n "0 5")
+$ swing 3
+$ euclid "<4 <3 4>>" 8
+$ s "hh"
+# gain 0.8
+
+d3 -- cymbale occasionnelle
+$ sometimesBy 0.8 (# silence)
+$ sometimesBy 1 (# n 7) -- plus d'echo
+$ sometimesBy 0.1 (# n 0) -- plus pleine
+$ euclid "<1 3>" 8
+$ s "808cy"
+# n 5
+# release 0.5
+
+d4 -- drumroll
+$ whenmod 32 16 (# gain 0.6)
+$ whenmod 32 16 (# gain 0.7)
+$ whenmod 32 8 (# gain 0.8)
+$ someCycles ((fast 2) . (# room 0.8) . (# size 0.1))
+$ someCyclesBy 0.1 (# silence)
+$ s "hh:5 dr*4 dr*2 dr"
+# gain 0.7
+
+d5 -- drums sautillants
+$ someCycles ((# n 4) . (# gain 0.8)) -- tambour armee
+-- $ sometimes (# n 0)
+$ sometimesBy 0.8 (off 0.25 (|+ 0))
+$ sometimes (off 0.125 (|+ 0))
+$ s "~ 808sd:2"
+
+d6 -- bass
+$ whenmod 32 16 (rev)
+$ whenmod 16 15 (# gain 0.5)
+$ whenmod 16 12 (# silence)
+$ whenmod 16 10 (# release 0.1)
+$ whenmod 16  2 (# gain 0.8)
+$ whenmod 16  1 (# gain 0.7)
+$ whenmod 16  0 (# gain 0.6)
+--   [b  ] [b b]
+$ s "[b ~ b ~] [b ~ ~ ~] [b <~ b> <~ ~ ~ b> b] [~ b? ~ b?]"
+# s "bass3:5"
+# note "0          5     [[8   5] [8   <12 5>]]      0     "
+
+d7
+$ sometimes (degrade)
+$ off 0.125 (|+ 7)
+$ off 0.25 (|+ 3)
+$ s "[b ~ b ~] [b ~ ~ ~] [b <~ b> <~ ~ ~ b> b] [~ b? ~ b?]"
+# sustain 0.1
+# gain 0.4
+# sustain 0.2
+# s "superpiano"
+# note "0          5     [[8   5] [8   <12 5>]]      0     "
+
+
+d7 -- 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.6

live/techno/breakbeat.tidal

+setcps 0.67
+
+d1
+$ s "breaks157" # cut 1
+# gain 0.9
+
+d1
+$ s "k k k [<k [k k] k [k k?]>]"
+# s "kick808"
+
+d2
+$ fast 2
+$ s "snareElectro [clap clap?]"
+
+d3
+$ whenmod 16 8 (|- note 2)
+$ someCycles (off 0.125 (|+ note 5))
+$ euclid "<1 2>" 4
+$ note "0 7? [3 7?]"
+# s "notes"
+
+d4
+$ whenmod 16 8 (|- note 2)
+$ someCycles (|- note 7)
+$ note "0 3 0 3 7"
+# s  "bassWarsaw"
+
+d5 $ s "~ [kurt kurt?]"
+# n (choose [2,3])

live/techno/feeling_electric.tidal

 setcps 1
 
 d1 -- bass
-$ whenmod 64 32 ((# gain 1) . (# room 0.2))
-$ whenmod 32 16 (# silence)
+-- $ whenmod 64 32 ((# gain 1) . (# room 0.2))
+-- $ whenmod 32 16 (# silence)
 $ slow 2
 $ note (
   scale "major" (
@@ -23,7 +23,7 @@ $ someCycles (off 0.25 (|- 7))
 $ n (scale "major" "[0 0] ~ 1 0 1 1 0 0")
 |- 14
 # s "subBass1"
-# gain 1.2
+# gain 0.9
 
 
 d2 -- hit roll
@@ -52,8 +52,8 @@ $ s (cat [
 # release 0.5
 
 d5 -- kick
--- $ fast 2
-$ fast "<2 4 2 2 1 0>"
+$ fast 2
+-- $ fast "<2 4 2 2 1 0>"
 $ every 4 (degrade)
 -- $ s "kick:19"
 $ s "kick:5"

live/techno/kart.tidal

+setcps 1
+
+d1 $ "bd bd?"
+
+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
+$ someCyclesBy 0.2 (off 0.25 (|+ 0))
+$ s "~ clap:1"
+# gain 0.9
+
+d3
+$ whenmod 8 4 (# silence)
+$ whenmod 8 6 (# n 2)
+$ whenmod 8 4 (# n 1)
+$ whenmod 8 6 (# gain 0.9)
+$ degradeBy 0.2
+$ s "dr*8"
+
+d4
+-- $ whenmod 16 8 (|- note 2)
+$ whenmod 8 4 (|- note 2)
+-- $ off 0.125 (degrade . (# room 0.2) . (# size 0.8))
+$ superimpose ((# s "bass3:2") . (|+ note 7) . (# gain 0.6))
+$ note "0 [~ 0 ~] . <0 <[0 3] [0 -2]>>"
+|- note 14
+# s "bassWarsaw"
+# gain 0.9
+
+d5
+$ someCycles (superimpose rev)
+$ off 0.125 (|+ 5)
+$ note (scale "major" "[0,5] [7,10]")
+# s "laserbeam"
+# gain 0.75
+
+d6
+$ almostNever (# gain 0.8)
+$ degradeBy 0.6
+$ swing 3
+$ s "~ cc*2"
+# n (choose [1,2,3])
+# gain 0.6
+
+d7
+$ whenmod 8 4 (off 0.25 (|+ 3))
+$ s "prayerBell"
+# gain 0.6
+
+d8 -- gong lazer
+$ whenmod 16 8 (rev)
+$ every 4 (rev)
+$ note "0 .. 7"
+# s "supergong"
+# voice "<0.1 .. 0.9 1 .. 5>"
+# accelerate "<0 .. 10 9 .. 2 5 .. 8 10 .. 0>"
+# gain 0.9
+|- note 0
+
+d9 $ n (slow 2
+  $ fmap (*7) $ run 8)
+  # s "supergong"
+  # decay "[1 0.2]/4" # voice "[0.5 0]/8"
+# gain 1.2

live/techno/laser_roll.tidal

+setcps 1
+
+d1 -- lightly varying kick
+$ jux (|+ 0)
+$ whenmod 16 10 (every' 2 1 (0.125 ~>))
+$ every 8 (0.25 <~)
+$ every 4 (0.5 ~>)
+$ s "kick:5"
+
+d2 -- lead laser!
+$ jux rev $ iter 4 $ chop 4
+$ whenmod 16 10 (someCyclesBy 0.2 (fast 2))
+$ whenmod 128 64 (someCycles (superimpose (# note (scale "major" "[-21,14,3]"))
+))
+$ whenmod 64 60 ((# gain 0.7) . (stut 4 0.9 "<0.25,0.05 .. 0.50>"))
+$ whenmod 32 30 ((# gain 0.7) . (stut 4 0.9 0.1))
+$ whenmod 32 28 (# silence)
+$ whenmod 16 15 (# gain (tri * 1.2))
+$ whenmod 16 14 (# silence)
+$ s "bd" >| speed (segment 50 $ range 40 5 (saw))
+|+ note (scale "major" "<14 7 5 3 1 0 7 0 -7 14>")
+# pan 0.8
+# gain 0.8
+
+d3 -- simple claps
+$ whenmod 64 32 (# gain "<0.64,0.01 .. 0.96>")
+$ whenmod 64 28 (# gain "<0.4,0.05 .. 0.6>")
+$ whenmod 64 0 (# gain 0)
+$ every 8 (off 0.25 (|+ 0))
+$ every 4 (off 0.25 (|+ 0))
+$ (0.5 ~>)
+$ s "jazz:4"
+
+d4 -- drumroll
+$ whenmod 16 10 (degradeBy "<0.8,0.1 .. 0> <0,0.1 .. 0.6>")
+$ whenmod 4 3 (degradeBy "0 0.5 0.5 0.9")
+$ s "dr*8"
+# n 0
+# pan "<0.4,0.05 .. 0.7>"

live/techno/soleil_neige.tidal

+setcps 1
+
+d1 $ s "<kick [~ kick ~ ~]>"
+# n 4
+# gain 0.8
+
+d2
+$ every 4 (off 0.25 (|+ 0))
+$ s "~ kick:1"
+# gain 0.9
+
+d3
+-- $ every' 4 3 (off 0.25 (|+ 0))
+$ s "~ <clap clap clap [clap clap]>"
+# gain 0.8
+
+d4
+$ whenmod 64 32 (swing 2)
+$ whenmod 16 12 (|- note 3)
+$ whenmod 16 8 (|- note 2)
+$ s "b <~ b b ~> <~ ~ b <~ ~ ~ b>>"
+# s "bass3"
+# note (scale "minor" "0 2 4")
+# gain 0.9
+# room 0.3
+
+d5
+$ whenmod 32 31 (|- note 2)
+$ whenmod 32 30 (|- note 2)
+$ whenmod 32 29 (|- note 2)
+$ whenmod 32 28 (|- note 1)
+$ whenmod 32 24 (|+ note 7)
+$ whenmod 8 4 (|+ note 1)
+-- $ sometimes (swing 3)
+$ degrade
+$ off 0.25 (|+ note 5)
+$ s "[<[~ p] [p ~]> p]"
+# s "superpiano"
+# n (scale "aeolian" "[0,3] [0,5]")
+# gain 0.5
+# velocity 0.8