Skip to content

T
Tidal
Unverified Commit 983db0cc by PLN (Algolia)
Options

live: soleil -> confine

parent 073e1bb3
Showing with 975 additions and 2 deletions
collide.sh 0 → 100755
#! /usr/bin/env sh
sclang
./link_jack.sh
live/chill/dub/dam.tidal 0 → 100644
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
live/chill/mondam.tidal 0 → 100644
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)
live/dnb/vendredi_dnb.tidal 0 → 100644
-- 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 "~ ~ <b ~ b b?> ~"
# 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 "[<k <k*2 k?>>] ~ <k [k k?]> ~" # 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
live/fusion/blue_party.tidal 0 → 100644
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? 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 b? <~ b> <~ b?>] b*4 <b*8 [b*4 b]>>")
# 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*2> [p p] <p p p*2 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"
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)"
......
live/fusion/confine.tidal 0 → 100644
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 <k k*2 k k> <k k*2> <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
live/hardcore/printanier.tidal 0 → 100644
-- 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 n*2> . [n*2|n] . n n . <n [n|n*2]> 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
live/hardcore/soleil.tidal 0 → 100644
-- 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)
live/techno/cocon.tidal 0 → 100644
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
live/techno/dambell.tidal 0 → 100644
-- 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)
live/techno/late_train.tidal 0 → 100644
-- Late hardcore beat
d1 -- kick regulos
$ every' 8 7 (<| s "k*8")
$ s "k k <k k k k*2> [<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 "<up down updown converge down up downup disconverge>"
$ 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 "<up down updown converge down up downup disconverge>"
$ note (
whenmod 16 12 (0 - )
"c'maj'<4 5> e'min"
)
# sound "bassWarsaw"
# gain 0.8
# room 0.4
|- note 12
live/techno/raclette.tidal 0 → 100644
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 [c ~ <~ ~ 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
live/techno/virus.tidal 0 → 100644
setcps 1
d1 -- kick
$ whenmod 32 30 (degradeBy "1")
$ whenmod 32 28 (degradeBy "0.8")
$ whenmod 32 24 (degradeBy "0.2")
$ s "<k k k k*2> 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 c c? c> <~ ~ ~ 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
live/techno/vite.tidal 0 → 100644
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 ~"
samples.txt
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)
......
study/brave_effects.tidal 0 → 100644
-- 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"
study/building_up.tidal 0 → 100644
Building an arpeggio from notes
-- simple sequences of notes
d1 $ n "c a f e"
# sound "supermandolin"
-- play one per cycle
d1 $ n "<c a f e>"
# sound "supermandolin"
-- on top of that, put a copy of the sequence, offset in time and pitch:
d1 $ n (off 0.125 (|+ 7) "<c a f e>")
# sound "supermandolin"
-- add some structure to the original sequence
d1 $ n (off 0.125 (|+ 7) "<c*2 a(3,8) f(3,8,2) e*2>")
# sound "supermandolin"
# legato 2
-- reverse in one speaker
d1 $ jux rev $ n (off 0.125 (|+ 7) "<c*2 a(3,8) f(3,8,2) e*2>")
# sound "supermandolin"
# legato 2
-- add another layer
d1 $ jux rev $ n (off 0.125 (|+ 12) $ off 0.125 (|+ 7) "<c*2 a(3,8) f(3,8,2) e*2>")
# 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 "<pinkyup down thumbup up>" $ n "c'maj'4 e'min"
# sound "supermandolin"
# sustain 0.5
-- change the chords, add some reverb
d1 $ jux rev $ arp "<pinkyup down thumbup up>" $ n "<c'maj'4 e4'min'8 f4'maj'4>"
# sound "supermandolin"
# sustain 2 # room 0.3 # sz 0.9
-- add some variety with 'chunk'
d3 $ chunk 4 (|- note 5) $ jux rev $
arp "<pinkyup down thumbup up>" $ n "<c'maj'4 e4'min'8 f4'maj'4>"
# 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 "<a o i>")
$ 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 "<a o i>")
$ 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
study/visuals.tidal 0 → 100644
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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment