From 983db0cc15ab5279441ada2f73e6958612818794 Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Sat, 21 Mar 2020 15:39:04 +0100 Subject: [PATCH] live: soleil -> confine --- collide.sh | 3 +++ live/chill/dub/dam.tidal | 37 +++++++++++++++++++++++++++++++++++++ live/chill/mondam.tidal | 68 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/dnb/vendredi_dnb.tidal | 113 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/fusion/blue_party.tidal | 126 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/fusion/bogdanerie.tidal | 2 +- live/fusion/confine.tidal | 69 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/hardcore/printanier.tidal | 85 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/hardcore/soleil.tidal | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++ live/techno/cocon.tidal | 9 +++++++++ live/techno/dambell.tidal | 61 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/techno/late_train.tidal | 47 +++++++++++++++++++++++++++++++++++++++++++++++ live/techno/raclette.tidal | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/techno/virus.tidal | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/techno/vite.tidal | 37 +++++++++++++++++++++++++++++++++++++ samples.txt | 2 +- study/brave_effects.tidal | 7 +++++++ study/building_up.tidal | 139 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ study/visuals.tidal | 8 ++++++++ 19 files changed, 975 insertions(+), 2 deletions(-) create mode 100755 collide.sh create mode 100644 live/chill/dub/dam.tidal create mode 100644 live/chill/mondam.tidal create mode 100644 live/dnb/vendredi_dnb.tidal create mode 100644 live/fusion/blue_party.tidal create mode 100644 live/fusion/confine.tidal create mode 100644 live/hardcore/printanier.tidal create mode 100644 live/hardcore/soleil.tidal create mode 100644 live/techno/cocon.tidal create mode 100644 live/techno/dambell.tidal create mode 100644 live/techno/late_train.tidal create mode 100644 live/techno/raclette.tidal create mode 100644 live/techno/virus.tidal create mode 100644 live/techno/vite.tidal create mode 100644 study/brave_effects.tidal create mode 100644 study/building_up.tidal create mode 100644 study/visuals.tidal diff --git a/collide.sh b/collide.sh new file mode 100755 index 0000000..3d59f66 --- /dev/null +++ b/collide.sh @@ -0,0 +1,3 @@ +#! /usr/bin/env sh +sclang +./link_jack.sh diff --git a/live/chill/dub/dam.tidal b/live/chill/dub/dam.tidal new file mode 100644 index 0000000..f30423f --- /dev/null +++ b/live/chill/dub/dam.tidal @@ -0,0 +1,37 @@ +setcps 0.25 + +d1 -- beat +$ whenmod 64 8 (# gain 0.8) +$ whenmod 64 0 (# gain 0) +$ s "drum:2" + +d2 +$ whenmod 16 10 (# gain 0) +$ whenmod 4 2 (# note 1) +$ s "dr:2(3,8)" +# gain 0.8 + +d3 $ s "dr*8" + +d3 +$ sometimesBy "<0.2 0.8 1>" (off (1/16) id) +$ fast 8 +$ s "~ drum:2" +# gain 0.8 + +d2 $ s "hh" + +d5 +$ degradeBy "0 <0 0.2 0.8 1>" +$ superimpose (|+ note 12) +$ note (scale "major" "0 7") +# s "superpiano" +|- note 32 +# velocity 0.4 + +d4 -- bass +$ degradeBy (slow 8 $ "<0 [0.2 0.8]>") +$ chop (slow 8 $ "<1 16>") +$ s "bassWarsaw" +|- note 32 +# gain 0.8 diff --git a/live/chill/mondam.tidal b/live/chill/mondam.tidal new file mode 100644 index 0000000..04b3b3c --- /dev/null +++ b/live/chill/mondam.tidal @@ -0,0 +1,68 @@ +setcps 0.5 + +d1 +$ whenmod 16 10 (# gain 0) +$ every 4 (sometimes (off 0.125 (# gain "1 0"))) +$ every 4 (sometimes (off 0.125 (# gain "0 1"))) +$ s "d d" +# s "clubkick:7" +# gain 0.9 + +d2 +$ whenmod 16 15 (# gain 1) +$ whenmod 16 12 (# gain 0) +$ sometimesBy "0.1 0.9" (off ("[1/8 1/16]") id) +$ s "~ sn:2" +# gain 0.9 + +d3 +$ whenmod 16 4 (# gain 1) +$ whenmod 16 3 (# gain tri) +$ whenmod 16 0 (# gain 0) +$ whenmod 8 6 (sometimes (|- gain 0.2)) +$ whenmod 8 4 (sometimes (fast 2)) +$ whenmod 16 8 (off (1/16) id) +$ sometimes (# s "drum:20") +$ sometimes (# s "drum:8") +$ s "dr*8" + +-- drum:8 +-- drum:20 + +-- drum:9 maracas + +d4 -- basse +$ s "b(<7 7 7 8>,8,<1 2>)" +# s "bassWarsaw" +# note (scale "major" ( + every 8 rev $ + whenmod 8 6 ((7 -) . (|> "0 2 2 4 <7 1>")) -- renversement + "0 2 2 4 0" + )) +# gain (slow 16 $ sine * 0.4 + 0.6) +|- note 24 + +d5 -- noise guitar +$ whenmod 64 48 (swing "2 1") +$ whenmod 8 6 (swing "1 2") +$ sometimesBy "<0 0 0 [0 1]>" ((0/16) ~>) +$ whenmod 8 4 (# lpf 3000) +$ s "b(<7 7 7 8>,8,<1 2>)" +# crush 4 +# s "bassWarsaw" +# note ( scale "major" ( + every 8 rev $ + whenmod 8 6 ((7 -) . (|> "0 2 2 4 <7 1>")) -- renversement + "0 2 2 4 0" +)) +# gain 0.9 +# release 0.9 + + +d9 +$ euclid (slow 16 $ "<1 3 5>") 8 +$ s "superfork" +# note "<0 <0 <0 1>> 0 <0 1>>" +|- note "[<0 0 0? 0>,<12 12?>]" +# room 0.9 +-- # gain (slow 32 $ sine * 0.4 + 0.5) diff --git a/live/dnb/vendredi_dnb.tidal b/live/dnb/vendredi_dnb.tidal new file mode 100644 index 0000000..33b9f9e --- /dev/null +++ b/live/dnb/vendredi_dnb.tidal @@ -0,0 +1,113 @@ +-- Base: DNB Dansante! +setcps 0.75 + +d1 -- Poum tchak +$ whenmod 8 4 (someCycles (fast "1 2")) +$ whenmod 16 12 (# silence) +$ someCyclesBy 0.2 (fix (# s "snare:8") (s "sn:2")) +$ fix (# s "sn:2") (s "s") +$ fix (# s "[bskick,kicklinn]") (s "b") +$ s "b? ~ s ~ ~ b s <~ <~ <~ s>>>" + +d3 -- drumroll +$ rarely (off (1/16) id) +$ sometimesBy 0.05 (# n 1) +$ s "dr*8" +# room (slow 16 $ sine * 0.3) +# size 0.2 +# gain (slow 32 $ sine * 0.9 + 0.1) + +d5 $ s "brass:6" # note 0 +# gain 0.85 + +d6 +$ whenmod 32 24 ( -- final trompette! + superimpose (const $ s "~ ~ ~" + # s "brass:6" # gain 0.95) + ) +$ whenmod 8 4 (degradeBy 0.5) +$ superimpose (|+ note 12) +$ superimpose (|- note 12) +$ s "brass:2" +# note "<0 0 0 <<12 5> 0>>" +# cut 1 +# gain 0.85 + +d7 -- toys +$ every' 16 15 ( -- petit coup + superimpose (const $ s "~ ~ brass:9 ~")) +$ every 16 ( -- intense! + sometimes (superimpose (const $ s "~ ~ brass:10 ~"))) +$ s "~ brass:7/4 ~ brass:5/8" +# gain 0.8 + +d9 -- basse +$ stut 4 0.75 0.125 +$ chop (slow 4 $ "<1 2 1 4 1 4 8>") +$ (|+ note (scale "major" "7")) +$ whenmod 8 4 (|+ note (scale "major" "5")) +$ off 0.125 ((# room 0.2) . (# size 0.8)) +-- $ superimpose ((# s "bass3") . (|+ note 0)) +$ note "0" +|- note 14 +# gain 0.9 +# attack (0.5 + rand / 2) +# s "bassWarsaw" + +-- Elimines pendant + +-- +-- d5 -- synthe fou +-- $ euclid "<5 8>" 8 +-- $ superimpose ((|+ note 5) . (stut 4 0.8 0.25)) +-- $ note (scale "aeolian" "[0|12]") +-- |- note 24 +-- # s "defaultB" + +--- Test echoue, peutetre du contenu? + +d1 +$ fix (# s "[kick:8,kick:9]") (s "p") +-- $ s "bd ~ s ~ ~ bd s <~ s>" +$ s "p ~ t <~ t ~ ~> ~ p t <~ p>" + +d1 $ weave 16 (pan sine) +[ +s "[>] ~ ~" # s "kick:4", +s "~ [s|~] [s s?] ~" # s "snare:4" +] +# room 0.1 + +d2 +$ sometimes (off (1/16) id) +$ every 2 (degradeBy 0.2) +$ s "dr*8" + +d3 +-- $ superimpose ((# crush 4) . (# gain 0.9)) +$ superimpose (|+ note 12) +$ note (scale "major" "0 0 5 <-1>") +# s "bassWarsaw" +|- note 24 +# gain 0.9 + +d4 $ s "superpiano" + +d7 -- noise +$ euclid "<3 3 5 1>" 8 +$ s "glitch:5" +# gain 0.7 + +d8 -- forks! +-- $ fast 2 +$ degradeBy "0 0 1 0" +$ whenmod 32 26 (degradeBy 0.2) +$ 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.5 +# pan (slow 4 $ sine) +|- note 12 diff --git a/live/fusion/blue_party.tidal b/live/fusion/blue_party.tidal new file mode 100644 index 0000000..61a99ca --- /dev/null +++ b/live/fusion/blue_party.tidal @@ -0,0 +1,126 @@ +setcps 0.4 + +---- +-- Instrumental +---- + +d4 $ s "~ cp" +# room 0.6 +# size 0.5 +# dry 1 +# gain 0.7 + +d1 -- batterie +$ superimpose -- kick! +(every 4 (off 0.125 id)) +. whenmod 64 56 (# gain 0) +. whenmod 32 16 (fast 2) +. (# s "clubkick:4") +. (# gain 0.5) +. (# cps 0.5) +$ whenmod 32 30 (# gain 0) +$ whenmod 32 24 (# gain (slow 4 $ tri)) +$ whenmod 32 16 (# gain 0.5) +$ whenmod 32 9 (# gain 0) +$ whenmod 32 8 (# gain tri) +$ every 8 ((slow 8 $ "0 <0.125 0.25>") ~>) +$ s "d d" +# s "drum" +# gain 0.5 + +d3 -- hihat 3/5 sur 8 +$ every 8 ( -- caisse metal variations + sometimes (# n 2) . (# gain 0.45) . ( + stut (slow 4 $ "<4 8>") (slow 4 $ "[0.8|0.9]") (1/16)) -- echos varies + ) +$ euclid (slow 4 $ "<3 .. 5>") 8 +$ s "bshihat" +# n (wchoose [(0,5),(1,4),(2,1)]) +# gain (slow 16 $ cosine * 0.4 + 0.3) + +d5 -- basse grille blues +-- $ whenmod 128 96 (superimpose (# crush 5) . (|- gain 0.1)) --electronoise +-- $ whenmod 64 32 (# gain (slow 32 $ tri / 4 + 0.6)) +$ s +-- "b" +"b b? b?" +# note (scale "major" ( + whenmod 64 48 (7 -) -- renversement + "<0 3 4 0> 3 0 <0 0 4 4>" + )) +# s "bassWarsaw" +|- note 24 +# legato 1.5 + +d6 -- aigu fou blues +$ 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 "major" ( + whenmod 64 48 (7 -) -- renversement + "<0 3 4 0> 3 0 <0 0 4 4>" -- base blues +)) +# s "superpiano/2" +# velocity (slow 32 $ sine * 0.3 + 0.5) + +-- . . . . . . . . +-- 10110101101 + +d7 -- piano aigu +$ whenmod 64 60 (degradeBy "0") -- de retour! +$ whenmod 64 56 (degradeBy "0.8") -- le reste suit +$ whenmod 64 48 (degradeBy "0.8 0.2") -- le debut part? +$ whenmod 64 32 (superimpose (|+ note "5,12")) -- accord quinte +$ whenmod 64 16 (off 0.25 (|- velocity 0.1)) -- echo rebond +$ note +"[0 ~ 0] [3 ~ 5] [~ ~ 0] [3 ~ 5]" + +"<0 5 7 0> 5 0 <0 0 7 7>" +# s "superpiano" +# velocity (slow 64 $ sine * 0.4 + 0.4) + +---- + + +d8 $ s "superfork(<[5|5|3] 5>,8)" +# note (scale "major" ( +"<0 3 4 0> 3 0 <0 0 4 4>" ++ 7 +)) +-- "<12 <17 [17 17 17 <17 12> <12 17>]>>" +# legato 2 +# gain (slow 23 $ sine * 0.5 + 0.2) + + + +-- +--- sandbox +-- + +d6 -- piano main gauche blues semi-reguliere +-- $ swing 2 +-- $ whenmod 64 48 (degradeBy "0 1 0.75 1") +-- $ whenmod 64 32 (degradeBy "0 0.5 0.25 0.5") +$ every 4 (degrade) +-- $ off ( + -- slow 4 $ ("<0.0625 0.0625 0.0625 0.5625>") + -- ) (|+ note "0,12") +$ superimpose (# s "superpiano") . (# n "0 3 5 7") . (|- velocity 0.1) +$ s +"

[p p]

[p p]" +# note (scale "major" ( + whenmod 64 48 (7 -) -- renversement + "<0 3 4 0> 3 0 <0 0 4 4>" + + (slow 8 $ "<[1 <0 2> <5 0> <0 0 -2 7>]>") -- impro variations +)) +# s "superpiano" +# velocity 0.5 +# sustain 2 +|- note 24 +# gain 0.75 + +-- lead rythme? +d1 $ s "{a a a a a ~ . ~ a ~ ~ a ~ }" +# note (every 8 (12 -) "1 3 1 3 6 ~ . 8" + "<0 12>") +|- note 12 +# s "supermandolin" diff --git a/live/fusion/bogdanerie.tidal b/live/fusion/bogdanerie.tidal index 1aafdbb..21da0fa 100644 --- a/live/fusion/bogdanerie.tidal +++ b/live/fusion/bogdanerie.tidal @@ -19,7 +19,7 @@ $ whenmod 16 10 ( -- 80s drumroll -- const $ n "[2 <[3 2] [2 3]> ~] [3 2 <3? ~>]" # s "electro1" ) $ whenmod 32 16 (degrade) -$ whenmod 16 8 (off 0.125 (|+ 0)) +$ whenmod 16 8 (off 0.125 id) $ sometimes (# s "dr") $ s "hh(<4 4 3 4>,8)" diff --git a/live/fusion/confine.tidal b/live/fusion/confine.tidal new file mode 100644 index 0000000..1c1fc18 --- /dev/null +++ b/live/fusion/confine.tidal @@ -0,0 +1,69 @@ +setcps 0.5 + + +d1 +$ euclid ("<4 2 4 2 5 6 5 6 8 8 5 6 8 6 8 8 4 8 16 12 8 16 16 12 8 4>") 8 $ s "k" +-- $ s +-- "k <~ k?> ~ <~ k>" +-- "k " +# s "bskick" + +d2 +$ sometimes (0.125 ~>) +$ sometimesBy (slow 16 $ "<0 0.25 0.5 0.75 1>") (off (1/16) id) +$ sometimesBy (slow 2 $ "<0 0.25 0.5 0.75 1>") (off (1/8) id) +$ s "~ snare:4" +# gain 0.85 +# room 0.3 +# size 0.2 +# dry 1 + +d3 +$ whenmod 64 32 (# gain (slow 32 $ saw * 0.4 + 0.6)) +$ whenmod 64 24 (# gain 0.6) +$ whenmod 64 16 (# gain 0.5) +$ whenmod 64 0 (# gain 0) +$ degradeBy "<0 0.2> 0.1 0.8 <0 0.1>" $ fast 2 +$ s "dr*8" + +d4 +$ someCyclesBy 0.1 (# n 1) +$ whenmod 16 12 (fast 2) +$ every 4 (off 0.125 id) +$ s "~ ~ clap:3 ~" + +d5 +$ swing 2 +$ note (scale "major" ( + whenmod 32 16 (3 -) + "0 . <~ 3? 3> 3 . ~ <1 0 1 0> . <0 1 1 0> ~" + -- + (slow 16 $ "<0 4>") + + (slow 16 $ "<0 0 4 4> . <0 4 0 4>") +)) +# s "bassWarsaw" +# legato 2 +# gain 0.75 +|- note 24 + +d9 +$ s "tink(<3 3 3 3 5 5 3 3 5 5 5 1 1 3 1 3>,8)" +# note (scale "major" + "[0?,2?,4?,7,9?,<~ 11?>]" + + ("<2 4 2 2 1 2 2 4 2 2 4 2 2 4 2 4 4 2 2 1 2>") +) +|- note 48 + +d11 -- cymbale +$ every 4 (almostNever ( -- rare prolonge reprise + superimpose (const $ s "~ ~ 808cy:1 ~")) + ) +$ whenmod 64 32 (always (# n 3)) -- prolonge +$ whenmod 16 8 (# note 0) +$ whenmod 16 0 (# note 7) +$ swing (slow 64 $ "<3 5>") +$ sometimesBy "0 0.05 0.05 0.5 0" ((1/8) ~>) +$ sometimes (|- gain 0.1) +$ euclid 5 4 +$ s "~ cy" +# s "808cy" +# gain 0.65 diff --git a/live/hardcore/printanier.tidal b/live/hardcore/printanier.tidal new file mode 100644 index 0000000..7e1e61f --- /dev/null +++ b/live/hardcore/printanier.tidal @@ -0,0 +1,85 @@ +-- HardCor printamnier + +setcps 1 + +d1 -- kick +$ whenmod 64 62 ( -- 80s drumroll + -- const $ every 4 (off 0.25 (# n 2)) + -- $ n "[2 3] . 2 . 3 . 3 2" # s "electro1" + const $ n "[2 <[3 2] [2 3]> ~] [3 2 <3? ~>]" # s "electro1" +) +$ whenmod 64 60 (# gain 0) +$ whenmod 8 4 ( -- sometimes double + sometimesBy (slow 16 $ 0.25 + sine * 0.5) + (off (1/8) id)) +$ s "k*2" +# s "kick:5" +# gain 0.8 + +d2 -- snare glitche noisy +$ whenmod 64 60 (# gain 0) +$ whenmod 64 8 (# gain 0) +$ whenmod 64 0 (# gain 0) +$ whenmod 8 6 ( -- add glitch + superimpose ((|- gain 0.1) . (# s "glitch:7")) +) +$ (0.25 ~>) +$ s "snare:1" +# gain 0.8 + +d3 -- drum-fucking-roll +$ whenmod 64 61 (# gain 1) +$ whenmod 64 60 (# gain tri) +$ whenmod 64 55 (# gain 0) +$ whenmod 64 54 (# gain (1-tri)) +$ degradeBy ("<0 0 0.25 0> 0 <0 0.25 0.75 1> <0.25 0.2 0.15 0>") +$ fast (slow 8 $ "<2 4 8 4>") +$ s "drum:8" +# gain (slow 64 $ sine * 0.5 + 0.6) + +d4 +$ whenmod 64 32 ( -- traine aigue + superimpose (rev . (|+ note 12) . (0.125 ~>)) +) +$ whenmod 64 48 (fast 2) +$ whenmod 64 32 (slow 2 . (swing 2)) +$ whenmod 64 0 (slow 2) +$ whenmod 64 4 (# gain 1) +$ whenmod 64 0 (# gain 0) +$ s " . [n*2|n] . n n . n" +# note ( + scale "major" "<0 4> .. <3 1> <5 5 4 4> .. <5 6>" +) +# s "superpiano" +# velocity 0.5 + +d5 -- trompete joyeuse courte +$ whenmod 64 50 (# gain 0) +$ whenmod 64 48 (# gain "<0.5 0.4 0.3>") +$ whenmod 64 16 (# gain 0.6) +$ whenmod 64 16 (# gain 0.6) +$ off 0.5 (|+ note (slow 4 $ "<5 -4>")) +$ note "<0 2>/4" +# s "brass:4" +# gain 0 + +d6 -- saxo lent lancinant +$ whenmod 64 48 (# gain 0.6) +$ whenmod 64 32 (# gain 0.5) +$ note "<2 <7 0>>/4" +# s "brass:2" +# gain 0 + +d7 -- toy conclusif joyeux trompete +$ whenmod 64 62 (# gain 0) +$ whenmod 64 60 (# gain 0.5) +$ whenmod 64 50 (# gain 0.6) +$ whenmod 64 48 (# gain 0.5) +$ s "[~ brass:6]/2" +# gain 0 + +d8 -- tension! +$ whenmod 32 30 (# gain 0.8) +$ whenmod 32 0 (# gain 0) +$ s "brass:8/2" +# legato 1 diff --git a/live/hardcore/soleil.tidal b/live/hardcore/soleil.tidal new file mode 100644 index 0000000..e77c366 --- /dev/null +++ b/live/hardcore/soleil.tidal @@ -0,0 +1,51 @@ +-- TODO: Hardcore ensoleille? + +setcps 0.5 + +d1 +$ every 4 ( sometimesBy "0.9 0 0 0" (0.125 ~>)) +$ s +"k*4" +# s "kick" +# n 5 +# gain (slow 16 $ 0.25 * sine + 0.6) + +d2 -- drumroll +$ someCycles (degradeBy 0.1) +$ sometimesBy 0.8 (off (1/16) id) +$ s "dr*16" +# gain 0.9 + +d3 +$ euclid (slow 4 $ "<8 <3 5>>") 8 +$ superimpose (|+ note 5) +$ s "superfork" +# gain 0.8 +|- note 24 + +d4 +-- $ rev +$ (|+ note 0) +-- $ chop 8 +$ whenmod 8 4 (|+ note 12) +$ superimpose (|+ note 4) +$ note (scale "aeolian" "[1 0 1] [2 1 2] [3 2 3] [4 3 4]") +|- note 12 +# s "superpiano" +# gain 0.9 +# velocity (slow 4 $ 0.8 + sine * 0.2) + + +d5 +$ whenmod 32 24 rev +$ degradeBy 0.2 +$ chop (slow 4 $ "<1 <2 4>>") +$ note (scale "aeolian" (run 8)) +-- $ note ("0") +# s "superhoover" +# gain 0.65 + +d10 +$ euclid "<3 5>" 8 +$ s "glitch:2" +# gain (slow 16 $ sine * 0.9) diff --git a/live/techno/cocon.tidal b/live/techno/cocon.tidal new file mode 100644 index 0000000..b37b5d4 --- /dev/null +++ b/live/techno/cocon.tidal @@ -0,0 +1,9 @@ +d1 +$ every' 4 0 (off 0.125 id) +$ s "k" +# s "clubkick" + +d2 +$ every' 4 2 (off 0.125 id) +$ s "~ clap" +# gain 0.8 diff --git a/live/techno/dambell.tidal b/live/techno/dambell.tidal new file mode 100644 index 0000000..ec59805 --- /dev/null +++ b/live/techno/dambell.tidal @@ -0,0 +1,61 @@ +-- DamBells! Techno hypnotic drumrolling bells + +setcps 0.5 + +d1 +$ whenmod 64 48 (# gain 0) -- grand pont +$ whenmod 16 10 (# gain 0) -- petit pont +$ whenmod 32 16 (fast 2) +$ s "d*2" +# s "clubkick:2" +# gain 0.9 + +d9 -- Lead Bells +$ euclid (slow 16 $ "<1 3 5>") 8 +$ s "superfork" +# note "<0 <0 <0 1>> 0 <0 1>>" +|- note "[<0 0 0? 0>,<12 12?>]" +# room 0.9 +# gain (slow 32 $ sine * 0.4 + 0.5) + +d2 +$ whenmod 64 56 (# gain 0) -- grand pont +$ whenmod 16 15 (# gain 1) -- petit pont (fin) +$ whenmod 16 12 (# gain 0) -- petit pont +$ sometimesBy "0.1 0.9" (off ("[1/8 1/16]") id) +$ s "~ sn:2" +# gain 0.88 + +d3 -- drums +$ sometimesBy 0.8 (fast 2 . degrade) +-- $ whenmod 16 10 (# gain 0) -- petit pont +-- $ whenmod 16 4 (# gain 1) +-- $ whenmod 16 3 (# gain saw) +-- $ whenmod 16 0 (# gain 0) +$ whenmod 8 6 (sometimes (|- gain 0.2)) +$ whenmod 8 4 (sometimes (fast 2)) +$ whenmod 16 8 (off (1/8) id) +$ sometimesBy (slow 8 $ "<0.1 0.2 0.5 0.7 0.9>") (# s "dr,drum:20") +$ sometimesBy (slow 8 $ "<0.9 0.7 0.5 0.2 0.1>") (# s "dr,drum:8") +$ s "dr*4" + +d4 -- basse +$ whenmod 64 48 (# gain (slow 16 $ isaw * 0.6)) -- grand pont +$ whenmod 16 10 (fast 2 . (stut 2 0.9 0.125)) -- petit pont +$ superimpose (|+ note (slow 16 $ "<12 5>")) +$ superimpose ( + (# crush (slow 16 $ "<5 .. 16 15 .. 5>")) . + (# gain 0.85) +) +$ euclid (slow 16 $ "<1 3 5>") 8 +$ s "bassWarsaw" +# note "<0 <0 <0 1>> 0 <0 1>>" +|- note 24 +# gain (slow 32 $ 0.9 - sine * 0.4) + +d8 -- claps +$ every' 16 6 (off "0.0625" id) -- doublee +$ every' 8 6 (off "0.125" id) -- doublee +$ s "[~ c]*2" +# s "realclaps" # n "[0?,1?,2?,3?]" +# gain (slow 64 $ isaw * 0.5 + 0.5) diff --git a/live/techno/late_train.tidal b/live/techno/late_train.tidal new file mode 100644 index 0000000..89185be --- /dev/null +++ b/live/techno/late_train.tidal @@ -0,0 +1,47 @@ +-- Late hardcore beat + +d1 -- kick regulos +$ every' 8 7 (<| s "k*8") +$ s "k k [ <~ k k k>]" +# s "kick:5" +# pan 0.4 +# gain 0.9 + +d2 +$ sometimes (# pan (rand * 0.75)) +$ whenmod 16 12 (# s "ulgab gabbaloud") +$ whenmod 16 8 (# s "ulgab") +$ whenmod 12 4 (# s "gabbaloud ulgab") +$ euclid (slow 4 $ "<<3 <8 7>> 5>") 8 +$ s "gabbaloud" +# gain 0.7 + +d3 +$ whenmod 8 4 (sometimesBy "<0.25 0.5 0.75 0.95>" (off (1/16) id)) +$ whenmod 16 8 (<| s "d*8") +$ s "d*4" +# s "drum:18" +# pan (slow 3 $ sine) + + +d4 +$ whenmod 32 16 rev +$ arp "" +$ note ( + whenmod 16 12 (0 - ) + "c'maj'<4 5> e'min" + ) +# sound "cheapPiano1" +# gain (slow 18 $ sine * 0.2 + 0.5) +# room 0.4 + +d5 +$ arp "" +$ note ( + whenmod 16 12 (0 - ) + "c'maj'<4 5> e'min" + ) +# sound "bassWarsaw" +# gain 0.8 +# room 0.4 +|- note 12 diff --git a/live/techno/raclette.tidal b/live/techno/raclette.tidal new file mode 100644 index 0000000..593f3bd --- /dev/null +++ b/live/techno/raclette.tidal @@ -0,0 +1,59 @@ +d1 +$ whenmod 64 60 (degradeBy "<0.25 0.5 0.75 1>") +$ whenmod 32 16 (fast 2) +$ euclid 4 8 +$ s "k" +# s "kick:5" +-- # s "clubkick:2" + +d2 +$ whenmod 64 48 (# gain (slow 16 $ tri)) +$ whenmod 64 48 (fast 2) +$ s "~ s ~ <~ s>" +# s "snare:1" + +d3 +$ sometimesBy "0.125 <0.25 0.75> <0,0.1 .. 1> 0.75" (off (1/16) id) +-- $ degradeBy "0 0.9 0 0.2" +$ s "dr dr dr*2 dr" +# n 9 +# gain (slow 32 $ 0.4 * sine + 0.4) + +d5 -- chopped bass +$ every 4 rev +$ chop 4 +$ (# crush 6.5) +$ superimpose (|+ note 5) +$ note (scale "major" (fast 2 $ "0 .. 7")) +# s "bassWarsaw" +|- note 24 +# gain (slow 32 $ sine * 0.3 + 0.5) + +d6 -- sync synth +$ swing 2 +$ whenmod 128 64 (|+ note 12) . (# phaserdepth "<0,0.25 .. 32>"). (# phaserrate "<0.025 .. 32>") +$ whenmod 32 16 rev +$ every 4 (someCyclesBy 1 (chop 2) . (|+ note "0 [0,12]")) +-- $ superimpose (|+ note 5) +$ superimpose (# s "superpiano") +$ note (scale "major" ("<0,2.0 .. 5>" + "<0 3 5 7>" ++ (slow 16 $ "<5>")) +) +# s "defaultB" +|- note 24 +# gain 0.7 + +d4 +$ s "~ <~ ~ ~ c?> ~ <~ ~ c>]>" +# s "clap" +# gain (slow 64 $ 0.7 - tri * 0.3) +# pan (slow 32 $ sine * 0.5) +# room 0.4 # size 0.4 # dry 1 + +d5 +$ someCycles (jux rev) +$ every 4 rev +$ superimpose (|+ note 5) +$ note (scale "major" ("<0,2.0 .. 5>" + "<0 3 5 7>")) +# s "moogBass" +# gain 0.8 diff --git a/live/techno/virus.tidal b/live/techno/virus.tidal new file mode 100644 index 0000000..fd3c52b --- /dev/null +++ b/live/techno/virus.tidal @@ -0,0 +1,54 @@ +setcps 1 + +d1 -- kick +$ whenmod 32 30 (degradeBy "1") +$ whenmod 32 28 (degradeBy "0.8") +$ whenmod 32 24 (degradeBy "0.2") +$ s " k" +# s "kick:5" +# gain 0.9 + +d2 -- snares +$ (0.5 ~>) +$ whenmod 32 24 (sometimes (off 0.125 id)) +$ sometimesBy (slow 16 $ sine + 0.2) (off 0.25 id) +$ s "snare:6" +# room (slow 64 $ cosine * 0.8) +# size (slow 8 $ sine * 0.9) +# dry 0.95 +# lpf (slow 8 $ 1000 + sine * 9000) + +d3 $ s "d*8" +# s "drum:14" +# gain (slow 8 $ sine * 0.2 + 0.7) + +d4 -- blip melodie +$ whenmod 64 48 (# gain (slow 16 $ 1 - sine * 0.8)) +$ whenmod 64 32 (superimpose ( -- choeur + (# s "moogBass") + . jux rev + . (# gain 0.85) . (# lpf 1000) + )) +$ note (scale "aeolian" +( + whenmod 16 10 (7 -) + $ every 2 (rev) + "<0 2 4 6> .. <4 6 8 10>" +)) +# s "chaoscillator" + +d5 +$ s "~ . <~ ~ ~ c> ~ ~" +# s "clap:2" +# gain (slow 64 $ 0.5 * sine + 0.4) + + +-- weird toys + +d9 +$ note (scale "hexMajor6" ( + "0 .. 2 . 3 .. 5 . 4 .. 3 . 0" +)) +# s "bleep" +# gain (slow 64 $ sine * 0.8) +|- note 24 diff --git a/live/techno/vite.tidal b/live/techno/vite.tidal new file mode 100644 index 0000000..cbac41b --- /dev/null +++ b/live/techno/vite.tidal @@ -0,0 +1,37 @@ +setcps 1 + +---- +-- TECHNO +---- +d1 $ "k" +# s "clubkick" + +d2 $ s "dr*4" +# gain (slow 16 $ cosine * 0.8 + 0.4) + +let scale = getScale (scaleTable ++ [("blues", [0, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12])]) + +d3 +$ every 4 (|- note 12) +$ every' 8 7 (|+ note 10) +$ superimpose (|+ note 6) +$ whenmod 8 6 (superimpose ( -- piano! + (# s "superpiano") +. (# velocity 0.7) +. (0.125 ~>) + )) +$ rev +$ note (scale "blues" "0 .. 3 <7 7 10 6 7> .. <8 10 7 7 7>") +|- note 12 +# s "defaultB" +# gain 0.9 + +d4 +$ note (scale "blues" "<0 [0 5]>") +# s "bassWarsaw" +|- note 24 +# pan 0 + +d4 +$ every 4 (off "<0.25 [0.25|0.125]>" id) +$ s "~ ~ cp ~" diff --git a/samples.txt b/samples.txt index b39e963..fc1f9d7 100644 --- a/samples.txt +++ b/samples.txt @@ -1,6 +1,6 @@ 808 (6) 808bd (25) 808cy (25) 808hc (5) 808ht (5) 808lc (5) 808lt (5) 808mc (5) 808mt (5) 808oh (5) 808sd (25) 909 (1) ab (12) ade (10) ades2 (9) ades3 (7) ades4 (6) alex (2) alphabet (26) amencutup (32) armora (7) arp (2) arpy (11) auto (11) -baa (7) baa2 (7) bass (4) bass0 (3) bass1 (30) bass2 (5) bass3 (11) bassdm (24) bassfoo (3) battles (2) bd (24) bend (4) bev (2) bin (2) birds (10) birds3 (19) bleep (13) blip (2) blue (2) bottle (13) break (33) breaks125 (2) breaks152 (1) breaks157 (1) breaks165 (1) breath (1) bsbass (9) bsguitar (19) bshihat (3) bskick (9) bsnoise (22) bsperc (7) bssnare (8) bsvocals (13) bubble (8) +baa (7) baa2 (7) bass (4) bass0 (3) bass1 (30) bass2 (5) bass3 (11) bassdm (24) bassfoo (3) battles (2) bd (24) bend (4) bev (2) bin (2) birds (10) birds3 (19) bleep (13) blip (2) blue (2) bottle (13) brass (38) break (33) breaks125 (2) breaks152 (1) breaks157 (1) breaks165 (1) breath (1) bsbass (9) bsguitar (19) bshihat (3) bskick (9) bsnoise (22) bsperc (7) bssnare (8) bsvocals (13) bubble (8) can (14) casio (3) cb (1) cc (6) chin (4) circus (3) clak (2) clap (8) click (4) clubkick (5) co (4) coins (1) control (2) cosmicg (15) cp (2) cpu (23) cpu2 (29) cr (6) crow (4) d (4) db (13) diphone (38) diphone2 (12) dist (16) dork2 (4) dorkbot (2) dr (42) dr2 (6) dr55 (4) dr_few (8) drum (6) drumtraks (13) dsynth (3) e (8) east (9) electro1 (13) em2 (6) erk (1) diff --git a/study/brave_effects.tidal b/study/brave_effects.tidal new file mode 100644 index 0000000..ab78823 --- /dev/null +++ b/study/brave_effects.tidal @@ -0,0 +1,7 @@ +-- feeling brave ? + +-- Try more effects: https://tidalcycles.org/index.php/Category:Control_Functions + +delay / delaytime / delayfeedback / cutoff / resonance / room / size + +d1 $ degradeBy 0.2 $ sound "tink*16" diff --git a/study/building_up.tidal b/study/building_up.tidal new file mode 100644 index 0000000..d24cca5 --- /dev/null +++ b/study/building_up.tidal @@ -0,0 +1,139 @@ +Building an arpeggio from notes + +-- simple sequences of notes +d1 $ n "c a f e" + # sound "supermandolin" + +-- play one per cycle +d1 $ n "" + # sound "supermandolin" + +-- on top of that, put a copy of the sequence, offset in time and pitch: +d1 $ n (off 0.125 (|+ 7) "") + # sound "supermandolin" + +-- add some structure to the original sequence +d1 $ n (off 0.125 (|+ 7) "") + # sound "supermandolin" + # legato 2 + +-- reverse in one speaker +d1 $ jux rev $ n (off 0.125 (|+ 7) "") + # sound "supermandolin" + # legato 2 + +-- add another layer +d1 $ jux rev $ n (off 0.125 (|+ 12) $ off 0.125 (|+ 7) "") + # sound "supermandolin" + # legato 2 + +Building an arpeggio from chords + +-- start with c major + +d1 $ n "c'maj" + # sound "supermandolin" + # legato 2 + +-- arpeggiate up +d1 $ arp "up" $ n "c'maj" + # sound "supermandolin" + # sustain 0.5 + +-- add another note to the chord +d1 $ arp "up" $ n "c'maj'4" + # sound "supermandolin" + # sustain 0.5 + +-- add another chord +d1 $ arp "up" $ n "c'maj'4 e'min" + # sound "supermandolin" + # sustain 0.5 + +-- change the arpeggiator +d1 $ arp "pinkyup" $ n "c'maj'4 e'min" + # sound "supermandolin" + # sustain 0.5 + +-- pattern the arpeggiator +d1 $ arp "" $ n "c'maj'4 e'min" + # sound "supermandolin" + # sustain 0.5 + +-- change the chords, add some reverb +d1 $ jux rev $ arp "" $ n "" + # sound "supermandolin" + # sustain 2 # room 0.3 # sz 0.9 + +-- add some variety with 'chunk' +d3 $ chunk 4 (|- note 5) $ jux rev $ + arp "" $ n "" + # sound "supermandolin" + # sustain 2 # room 0.3 # sz 0.9 + # gain 0.8 + +Building up a rhythm + +-- Simple bass drum - snare +d1 $ sound "bd sn" + +-- Choose a different snare sample +d1 $ sound "bd sn:3" + +-- Change the rhythm +d1 $ sound "bd*2 [~ sn:3]" + +-- Add some toms +d1 $ sound "bd*2 [[~ lt] sn:3] lt:1 [ht mt*2]" + +-- Start to transform, shift a quarter cycle every other cycle +d1 $ every 2 (0.25 <~) $ sound "bd*2 [[~ lt] sn:3] lt:1 [ht mt*2]" + +-- Pattern the shift amount +d1 $ every 2 ("<0.25 0.125 0.5>" <~) $ sound "bd*2 [[~ lt] sn:3] lt:1 [ht mt*2]" + +-- Add some patterned effects +d1 $ every 2 ("<0.25 0.125 0.5>" <~) $ sound "bd*2 [[~ lt] sn:3] lt:1 [ht mt*2]" + # squiz "<1 2.5 2>" + # room (slow 4 $ range 0 0.2 saw) + # sz 0.5 + # orbit 1 + +-- More transformation +d1 $ jux' [id,rev,(# speed 2)] $ every 2 ("<0.25 0.125 0.5>" <~) $ sound "bd*2 [[~ lt] sn:3] lt:1 [ht mt*2]" + # squiz "<1 2.5 2>" + # room (slow 4 $ range 0 0.2 saw) + # sz 0.5 + # orbit 1 + +Building up another rhythm + +-- start with a sequence.. +d1 $ n "0 0 [2 0] [2 3]" # sound "feel" # speed 1.5 + +-- Add a bit of flavour +d1 $ n "0 <0 4> [2 0] [2 3]" # sound "feel" # speed 1.5 + +-- Swap the samples round every other cycle +d1 $ every 2 (rot "<1 3 2>") $ n "0 <0 4> [2 0] [2 3]" # sound "feel" # speed 1.5 + +-- Always worth trying a jux rev +d1 $ jux rev $ every 2 (rot "<1 3 2>") $ n "0 <0 4> [2 0] [2 3]" # sound "feel" # speed 1.5 + +-- Calm it down a bit by reducing the amount of panning +d1 $ juxBy 0.4 rev $ every 2 (rot "<1 3 2>") $ n "0 <0 4> [2 0] [2 3]" # sound "feel" # speed 1.5 + +-- Vary the speed +d1 $ juxBy 0.4 rev $ every 2 (rot "<1 3 2>") $ n "0 <0 4> [2 0] [2 3]" # sound "feel" # speed "1.75 2" + +-- Add an offset vowel effect +d1 $ off 0.25 (# vowel "") + $ juxBy 0.4 rev $ every 2 (rot "<1 3 2>") $ n "0 <0 4> [2 0] [2 3]" # sound "feel" # speed "1.75 2" + +-- Give it a friend +d1 $ off 0.25 (# vowel "") + $ juxBy 0.4 rev $ every 2 (rot "<1 3 2>") $ n "0 <0 4> [2 0] [2 3]" # sound "feel" # speed "1.75 2" + +d2 $ juxBy 0.5 rev $ chunk 4 ((+ speed (1 + sine)) . ply 8) $ note "3(3,8)" # sound "bass" + # speed "<2 4>" + # legato 1 diff --git a/study/visuals.tidal b/study/visuals.tidal new file mode 100644 index 0000000..cd74f7d --- /dev/null +++ b/study/visuals.tidal @@ -0,0 +1,8 @@ + + +import Sound.Tidal.Vis +import qualified Graphics.Rendering.Cairo as C +import Data.Colour +import Data.Colour.Names +import Data.Colour.SRGB +let draw pat = vLines (C.withSVGSurface) "test.svg" (600,200) pat 3 1 -- libgit2 0.27.0