Skip to content

T
Tidal
Unverified Commit e775d58c by PLN (Algolia)
Options

feat: saturday :)

parent 3a78b02a
Showing with 202 additions and 82 deletions
blocks/rolls.tidal
...@@ -7,3 +7,16 @@ $ s "d <d d*3> <d <d d*3>> d*3" ...@@ -7,3 +7,16 @@ $ s "d <d d*3> <d <d d*3>> d*3"
d3 -- Tatatata (ta ta) x3, Tatatata-Tatatata-Tatatata (ta ta) d3 -- Tatatata (ta ta) x3, Tatatata-Tatatata-Tatatata (ta ta)
$ s "d*<4 4 4 <4 0>> d*<2 2 4 2>" $ s "d*<4 4 4 <4 0>> d*<2 2 4 2>"
# s "dr:9" # s "dr:9"
d1 $ n "0 <~ 0> [~ 0] ~"
# s "jazz"
d3
$ someCycles degrade
$ sometimesBy "0 0.5" (fast 2)
$ "dr:12(10,12)"
d3 -- Percroll
$ almostNever (# n 1) . degrade
$ s "d(<10!2 14 16>,16)"
# s "bsperc:5"
live/experimental/dildo_cycles.tidal deleted 100644 → 0
--- TODO: Sample Geisha by Les elles
-- Drone vibrating dildo
-- Chopped moans
live/fusion/du_code.tidal 0 → 100644
-- DU CODE !
do
d1 -- BEAT
$ whenmod 32 30 (# gain 0.9)
$ whenmod 32 25 (# gain 0)
$ sometimesBy "1 0.5 0.25 0" (fast 2) -- FASTER!
$ s "b ~ [b? b] <~ [~ b?]>"
# s "reverbkick"
# gain 0.8
# pan (slow 8 $ range 0.6 0.8 saw)
d2 -- Breaks
$ whenmod 32 19 rev
$ whenmod 32 18 (slow 2)
$ whenmod 32 17 (fast 2)
$ whenmod 32 16 rev
$ whenmod 32 30 (# gain "<0.5 0.6>")
$ whenmod 32 24 (# gain 0)
$ loopAt 2 $ chop (slow 4 "<2 8>") $ sound "break"
# gain 0.65
# pan (slow 8 $ range 0.2 0.8 saw)
d3 -- Percroll
$ almostNever (# n 1) . degrade
$ s "d(<10!2 14 16>,16)"
# s "bsperc:5"
# gain (slow 8 $ range 0.7 1 saw)
d4 -- basse bruitée
$ whenmod 32 16 (# crush 4) . (# lpf 12000)
$ sometimesBy 0.2 (fast 2)
$ chop (slow 4 $ "<[1|2] [4|8] 8 1>")
$ note (scale "aeolian" (
"[0, <~ [0 ~ <1 2> <2 1>]>]"
) - 24)
# s "supersaw"
# voice 0.25
# gain 0.55
d5 -- Claps dégradés
$ degradeBy "0.9 0 0.5"
$ s "c([3|5],8)"
# s "clap"
# n "0 [0|1]"
# gain 0.8
d6 -- PIANO FOU
$ note (scale "aeolian" (
"c5'maj(<[3|5|7] [10|12|14]>,16,[0|4])" -- accord
+ (iter 4 $ "{0 [2 0] 4 [2 0]}") -- melodie
+ "<0!4 7 0 -7>" -- gamme
)
)
# "superpiano"
# sustain (1/"[2|4|8]")
# velocity (slow 64 $ range 0.3 0.5 sine)
d7 -- Choeur nappes
$ note (scale "aeolian" ("c4'maj"))
# s "moogBass"
# amp (slow 4 $ "<0.2 0.4 0.6 0.8>") -- INTENSIFICATION
# gain (slow 4 $ "<1 0.9 0.8 0.8>") -- Compense volume
# cutoff (slow 16 $ (1000 * (1 + run 15))) -- Variations filtree
d8 -- du code
$ "~ kaamelott:2/8"
# begin (slow 8 $ "<0 0 0.5 0.55 0.75 0.5>")
# end (slow 8 $ "<0.5 0.5 1 1 1 1 >")
# crush (5 + irand 10)
# speed (0.85 + rand / 4)
# room 0.5
# gain 0.7
live/fusion/josephine.tidal 0 → 100644
once $ s "kaamelott:2"
live/fusion/lucy_sky.tidal 0 → 100644
setcps 0.5
d1
$ sometimesBy "0 0 0 <0 0.9>" (fast 2)
$ n "0 0*[1|2|4]"
-- "0 <~ ~ ~ 0?> 0 [<~ 0?> 0]"
-- "0!4 0*<2 [4 2] [4 8] [<4 8> <8 12>]>"
# s "jazz"
# gain 0.8
d2
$ bite 4 "0 1 2*<1 2> 3*<1 <2 4>>"
$ loopAt "<4 2!2 1>" $ chop 32 $ s "breaks125"
# gain 0.8
d3
$ almostNever (superimpose (<| s "~ ~ 808cy:1 ~"))
$ swing (slow 64 $ "<3 5>")
$ sometimesBy "0 0.05 0.05 0.5 0" ((1/8) ~>)
$ euclid 5 4
$ s "808cy"
# note "<4 4 4 4 7 7 7 7>"
# gain (slow 32 $ sine * 0.4 + 0.3)
d4
$ sometimes (hurry 2)
$ degrade
$ s "~ clap:2"
# gain 0.9
d5
$ whenmod 16 8 (superimpose $ arp "<updown downup pinkyup>")
$ s "<b [b b? <~ b> <~ b?>] b*4 <b*8 [b*4 b]>>"
# note (scale "major" "<c'maj <ds'maj f4'maj> <df'maj ff'maj>>([3|4],8)"
+ (
(slow 4 $ "<0 2>")
)
)
# s "superpiano" # velocity "0.6 [0.5 0.4] 0.5 [0.4 0.7]"
d6 $ silence
d10 -- basse
$ chop 4
$ whenmod 8 4 (off 0.125 (|+ note "<12 <7 [7 7]> <12 [3 0]>>"))
$ note (iter 4 $ "<0 <3 [3 3]> <0 [3 0]>>" - 24)
# s "bassWarsaw"
-- # hpf (slow 64 $ cosine * 900 + 100)
# room (slow 64 $ range 0.1 0.8 cosine)
# gain 0.8
live/hip/beats.tidal
-- SirenBeat -- SirenBeat
setcps 0.45 setcps 0.45
d1 -- reverbkick varie do
$ every' 16 13 (fast 2) d1 -- reverbkick varie
-- $ whenmod 16 13 (# gain 1) -- fin break 1 $ every' 16 13 (fast 2)
-- $ whenmod 16 10 (# gain 0) -- break 1 $ whenmod 16 13 (# gain 1) -- fin break 1
$ (# s "reverbkick") $ whenmod 16 10 (# gain 0) -- break 1
$ fix ((# note 0) . (# lpf 2000)) (s "h") $ (# s "reverbkick")
$ fix ((# note 1) . (# lpf 5000)) (s "l") $ fix ((# note 0) . (# lpf 2000)) (s "h")
$ s "h . ~ <~ l> . ~ [~|~|h] . <~ l> <l ~>" $ fix ((# note 1) . (# lpf 5000)) (s "l")
|- note 2 $ s "h . ~ <~ l> . ~ [~|~|h] . <~ l> <l ~>"
# pan 0.2 |- note 2
# pan 0.2
d2 -- amen sur 8 d2 -- amen sur 8
$ whenmod 16 10 (# gain 0) -- break 1 $ whenmod 16 10 (# gain 0) -- break 1
$ whenmod 16 8 (off 0.125 (|+ n 7)) $ whenmod 16 8 (off 0.125 (|+ n 7))
$ off (1/16) degrade $ off (1/16) degrade
$ every 2 (sometimes $ degrade . fast 2) $ every 2 (sometimes $ degrade . fast 2)
$ someCyclesBy 1 (sometimes (# n "[4|4|2]")) $ someCyclesBy 1 (sometimes (# n "[4|4|2]"))
$ s "a(<<3 4> <5 8>>,8)" # n "5 2 [1|1|3] 0" # s "amencutup" $ s "a(<<3 4> <5 8>>,8)" # n "5 2 [1|1|3] 0" # s "amencutup"
# gain (slow 64 $ range 0.5 0.8 sine) # gain (slow 64 $ range 0.5 0.8 sine)
# pan 0.8 # pan 0.8
d3 -- Drumroll
d3 -- Drumroll $ superimpose ( -- hats
$ superimpose ( -- hats (# s "superhat") . (# sustain (slow 8 $ sine * 0.1 + 0.1)) . (|- gain 0.1))
(# s "superhat") . (# sustain (slow 8 $ sine * 0.1 + 0.1)) . (|- gain 0.1)) $ whenmod 8 4 (fast "<1 2> . 2 <2 1>")
$ whenmod 8 4 (fast "<1 2> . 2 <2 1>") $ sometimesBy "0 <0.5 0.5 0.75 0.25>" (off (1/16) id)
$ sometimesBy "0 <0.5 0.5 0.75 0.25>" (off (1/16) id) $ s "d*8"
$ s "d*8" # s "dr"
# s "dr" # gain (slow 32 $ sine * 0.5 + 0.4)
# gain (slow 32 $ sine * 0.5 + 0.4) # pan (slow 8 $ 0.2 + tri * 0.8)
# pan (slow 8 $ 0.2 + tri * 0.8) d4 -- Hats motif rythme
$ sometimesBy (slow 4 $ isaw) (slow 2)
d4 -- Hats motif rythme $ arp (slow 4 $ "<up [up updown] updown down [down up] downup>")
$ sometimesBy (slow 4 $ isaw) (slow 2) $ n "f'maj e'min d'maj ~"
$ arp (slow 4 $ "<up [up updown] updown down [down up] downup>") # s "superhat"
$ n "f'maj e'min d'maj ~" # sustain 0.2
# s "superhat" # gain 0.5
# sustain 0.2 d5 -- Sirene
# gain 0.5 $ s "supersiren/4"
# note (slow 4 $ "<f e c e5>"
d5 -- Sirene - 36)
$ s "supersiren/4" # gain 0.6
# note (slow 4 $ "<f e c e5>" d6 -- basse motif
- 36) $ whenmod 16 10 ( -- break 1
# gain 0.5 superimpose (# s "subBass2") . (|- gain 0.1))
$ whenmod 60 64 (swing 2)
d6 -- basse motif $ arp (slow 8 $ "<thumbup [thumbup down] downup [downup up]>")
$ whenmod 16 10 ( -- break 1 $ note ("f'maj e'min d'maj ~"
superimpose (# s "subBass2") . (|- gain 0.1)) + (slow 4 $ "<0 4 2 <0 12>>") -- descente
$ whenmod 60 64 (swing 2) - 24)
$ arp (slow 8 $ "<thumbup [thumbup down] downup [downup up]>") # s "subBass1"
$ note ("f'maj e'min d'maj ~" # gain 1
+ (slow 4 $ "<0 4 2 <0 12>>") -- descente # room 0.4 # size 0.2
- 24) d7 -- sometimes, slow bass synth
# s "subBass1" $ whenmod 64 61 (chop 2)
# gain 1 $ whenmod 64 60 rev
# room 0.4 # size 0.2 $ whenmod 64 32 (every 4 (# gain 0.8))
$ n "f'maj ~ e'min ~ d'maj ~"
d7 -- sometimes, slow bass synth # s "bassWarsaw"
$ whenmod 64 61 (chop 2) # legato "1 1 2 ~"
$ whenmod 64 60 rev # sustain "1 1 4 ~"
$ whenmod 64 32 (every 4 (# gain 0.8)) |- n 24
$ n "f'maj ~ e'min ~ d'maj ~" # gain 0.4
# s "bassWarsaw" d10 -- scratch moineau!
# legato "1 1 2 ~" $ sometimesBy 0.2 (off (1/32) id)
# sustain "1 1 4 ~" $ degradeBy "0 0.1 0.8 0"
|- n 24 $ euclid (slow 8 $ "<3 5>") 16
# gain 0.4 $ n "0"
# s "birds3"
d10 -- scratch moineau! # n (choose [0,0,2])
$ sometimesBy 0.2 (off (1/32) id)
$ degradeBy "0 0.1 0.8 0"
$ euclid (slow 8 $ "<3 5>") 16
$ n "0"
# s "birds3"
# n (choose [0,0,2])
d11 $ s "birds/4" # n (irand 6) # speed (0.5 + rand * 2) d11 $ s "birds/4" # n (irand 6) # speed (0.5 + rand * 2)
# gain (0.4 + rand / 2) # gain (0.4 + rand / 2)
......
live/noise/decentering.tidal
...@@ -56,9 +56,9 @@ $ s "~ [b b?]]" ...@@ -56,9 +56,9 @@ $ s "~ [b b?]]"
# dry 0 # dry 0
d10 -- basse d10 -- basse
$ superimpose -- echos crushes! -- $ superimpose -- echos crushes!
(fast 2) . (chop 4) . (# crush (4 + (irand 10))) . (|- gain 0.2) -- (fast 2) . (chop 4) . (# crush (4 + (irand 10))) . (|- gain 0.2)
$ jux rev -- $ jux rev
$ whenmod 8 4 (off 0.125 (|+ note "<12 <7 [7 7]> <12 [3 0]>>")) $ whenmod 8 4 (off 0.125 (|+ note "<12 <7 [7 7]> <12 [3 0]>>"))
$ every 4 (someCycles (fast 2 . degrade)) $ every 4 (someCycles (fast 2 . degrade))
$ often (fast 2 . (0.25 ~>)) $ often (fast 2 . (0.25 ~>))
......
notes.md
...@@ -132,7 +132,6 @@ ...@@ -132,7 +132,6 @@
--- 6 Tac leger --- 6 Tac leger
-- bssnare -- bssnare
-- bsvocals -- bsvocals
......
tools/unsolo.tidal
...@@ -8,3 +8,4 @@ unsolo 7 ...@@ -8,3 +8,4 @@ unsolo 7
unsolo 8 unsolo 8
unsolo 9 unsolo 9
unsolo 10 unsolo 10
unsolo 11
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