diff --git a/live/chill/birds.tidal b/live/chill/birds.tidal new file mode 100644 index 0000000..1210961 --- /dev/null +++ b/live/chill/birds.tidal @@ -0,0 +1,43 @@ +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 diff --git a/live/chill/neige.tidal b/live/chill/neige.tidal new file mode 100644 index 0000000..7ba4894 --- /dev/null +++ b/live/chill/neige.tidal @@ -0,0 +1,42 @@ +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) diff --git a/live/jam/chalet.tidal b/live/jam/chalet.tidal new file mode 100644 index 0000000..07940b4 --- /dev/null +++ b/live/jam/chalet.tidal @@ -0,0 +1,78 @@ +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 diff --git a/live/techno/breakbeat.tidal b/live/techno/breakbeat.tidal new file mode 100644 index 0000000..5d8058a --- /dev/null +++ b/live/techno/breakbeat.tidal @@ -0,0 +1,29 @@ +setcps 0.67 + +d1 +$ s "breaks157" # cut 1 +# gain 0.9 + +d1 +$ s "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]) diff --git a/live/techno/feeling_electric.tidal b/live/techno/feeling_electric.tidal index 0760fd8..d17b5c6 100644 --- a/live/techno/feeling_electric.tidal +++ b/live/techno/feeling_electric.tidal @@ -1,8 +1,8 @@ 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" diff --git a/live/techno/kart.tidal b/live/techno/kart.tidal new file mode 100644 index 0000000..9ca2896 --- /dev/null +++ b/live/techno/kart.tidal @@ -0,0 +1,69 @@ +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 diff --git a/live/techno/laser_roll.tidal b/live/techno/laser_roll.tidal new file mode 100644 index 0000000..2bad268 --- /dev/null +++ b/live/techno/laser_roll.tidal @@ -0,0 +1,39 @@ +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>" diff --git a/live/techno/soleil_neige.tidal b/live/techno/soleil_neige.tidal new file mode 100644 index 0000000..f9d4893 --- /dev/null +++ b/live/techno/soleil_neige.tidal @@ -0,0 +1,41 @@ +setcps 1 + +d1 $ s "" +# 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 "~ " +# 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