diff --git a/blocks/drums.tidal b/blocks/drums.tidal index 61193ca..e894611 100644 --- a/blocks/drums.tidal +++ b/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 diff --git a/blocks/instruments.tidal b/blocks/instruments.tidal index c51d131..2dc5b79 100644 --- a/blocks/instruments.tidal +++ b/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 diff --git a/blocks/melody.tidal b/blocks/melody.tidal index 513d38d..876328a 100644 --- a/blocks/melody.tidal +++ b/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)) diff --git a/live/boeuf/samedi_confine_extra.tidal b/live/boeuf/samedi_confine_extra.tidal index 4d3a04c..559a1d6 100644 --- a/live/boeuf/samedi_confine_extra.tidal +++ b/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 "" # 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 diff --git a/live/chill/ritusen.tidal b/live/chill/ritusen.tidal new file mode 100644 index 0000000..d08ea35 --- /dev/null +++ b/live/chill/ritusen.tidal @@ -0,0 +1,30 @@ +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 diff --git a/live/dnb/chemise.tidal b/live/dnb/chemise.tidal index 11c7206..7eec318 100644 --- a/live/dnb/chemise.tidal +++ b/live/dnb/chemise.tidal @@ -1,27 +1,27 @@ -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?? ~ ~" # 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 diff --git a/live/hip/bocal.tidal b/live/hip/bocal.tidal new file mode 100644 index 0000000..b180c8a --- /dev/null +++ b/live/hip/bocal.tidal @@ -0,0 +1,71 @@ +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 "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*4 >") +# 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 diff --git a/live/hip/volette.tidal b/live/hip/volette.tidal new file mode 100644 index 0000000..f4bbba7 --- /dev/null +++ b/live/hip/volette.tidal @@ -0,0 +1,101 @@ +-- 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?> " +# 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 diff --git a/live/techno/accel.tidal b/live/techno/accel.tidal new file mode 100644 index 0000000..8d4a3eb --- /dev/null +++ b/live/techno/accel.tidal @@ -0,0 +1,65 @@ +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