Skip to content

T
Tidal
Unverified Commit 2ce48561 by PLN (Algolia)
Options

feat: from blocks to sunny

parent a3c4e326
Showing with 379 additions and 52 deletions
LICENSE 0 → 100644
This work is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
See full terms: https://creativecommons.org/licenses/by-nc-sa/3.0/
blocks/rolls.tidal 0 → 100644
d3 -- Et tititi, et tatata, et titititatatatititi, et tititi...
$ every' 8 7 (degradeBy "1 0")
$ every' 8 6 (<| s "d*6 [d? d]*3")
$ s "d <d d*3> <d <d d*3>> d*3"
# s "dr"
d3 -- Tatatata (ta ta) x3, Tatatata-Tatatata-Tatatata (ta ta)
$ s "d*<4 4 4 <4 0>> d*<2 2 4 2>"
# s "dr:9"
live/boeuf/samedi_confine_extra.tidal
......@@ -42,7 +42,7 @@ d1 $ superimpose ((|-| n 12) . (# gain 0.0)) $ n (scale "aeolian" (iter 6 $ "[-2
d4 $ n (scale "aeolian" ("[-7,-2,4,7,9,11,13]*4" + prog)) # s "superhammond" # attack 1 # gain 0.65 # lpf (slow 32 $ range 300 2500 sine) # lpq (slow 8 $ range 0 0.15 sine) # silence
d2 $ s "supersaw(<5 7 3>,8, <0 2>)" # n (scale "aeolian" (prog - 14)) # gain 0.85 # voice 0.1 # room 0.5 # orbit 0 # silence
d2 $ s "supersaw(<5 7 3>,8, <0 2>)" # n (scale "aeolian" (prog - 14)) # gain 0.85 # voice 0.1 # room 0.5 # orbit 0
-- BON CETAIT GRAVE COOL MAIS JE VAIS MARRETER ET JOUER A BLACK MESAAVEC SONIA !!!
-- ON SE REFAIT CA DEMAIN ? ;)
......
live/fusion/blue_party.tidal
......@@ -15,8 +15,7 @@ $ superimpose -- kick!
(every 4 (off 0.125 id))
. whenmod 64 56 (# gain 0)
. whenmod 32 16 (fast 2)
. (# s "clubkick:4")
. (# gain 0.5)
. (# s "jazz")
. (# cps 0.5)
$ whenmod 32 30 (# gain 0)
$ whenmod 32 24 (# gain (slow 4 $ tri))
......@@ -26,7 +25,11 @@ $ whenmod 32 8 (# gain tri)
$ every 8 ((slow 8 $ "0 <0.125 0.25>") ~>)
$ s "d d"
# s "drum"
# gain 0.5
# gain 0.8
d1 -- techno!
$ s "j j j <[~ k] <k [~ k]>>"
# s "jazz"
d3 -- hihat 3/5 sur 8
$ every 8 ( -- caisse metal variations
......@@ -62,7 +65,7 @@ $ s (slow 1 $ "<b [b b? <~ b> <~ b?>] b*4 <b*8 [b*4 b]>>")
"<0 3 4 0> 3 0 <0 0 4 4>" -- base blues
))
# s "superpiano/2"
# velocity (slow 32 $ sine * 0.3 + 0.5)
# velocity (slow 32 $ sine * 0.3 + 0.3)
-- . . . . . . . .
-- 10110101101
......
live/fusion/dessin.tidal 0 → 100644
d1 -- Variations hardcore
$ whenmod 64 32 (<| s "k*<8 [8 4] 4 <8 16>>")
$ whenmod 64 16 (<| s "k k k <k*2 [~ k]>")
$ whenmod 64 8 (<| s "k*<4 2 2 4 2 2 4 4>")
$ whenmod 64 6 (<| s "k*2")
$ whenmod 64 4 (<| s "<k k*2>")
$ whenmod 64 0 (<| s "k")
$ s "k"
# s "kick:5"
# lpf (slow 64 $ range 200 2000 sine)
# gain 0.8
d1 -- TECHNO
$ whenmod 40 30 (# gain (slow 10 $ range 0.9 0.5 isaw))
$ s "k k k <[~ k] k*2>"
# s "kick:5"
# lpf (slow 16 $ range 200 2000 sine)
d2 -- snares
$ sometimesBy "0 0.5 0.5 0.75" (# n 1)
$ s "s(<3 [3|5]>,8)"
# s "snare"
# n "0"
d9
$ euclid (slow 4 $ "<1 <5 3>>") 8
$ s "glitch:5"
# hpf 2000
# gain 1.2
d3
$ whenmod 8 6 (# gain 0)
$ sometimesBy (slow 8 $ range 0 0.5 sine) (fast 2)
$ degradeBy (slow 8 $ range 0 0.5 cosine)
$ s "dr*12"
# s "drum:8"
d5
$ bite 4 "<0 1> <1 0> <3 2*2> <3 2>"
$ s "s(<1 3>,<1 8>)"
# note (scale "major"
"[0,5]"
+ "<0 2 4 2 7 5 7 9>"
- 28
)
d5 -- basse régulière montée/descente
$ s "b"
# note (scale "major" (-14 + "[0,5]" + (slow 2 $ "<0 <5 -2>>")))
# s "supersaw"
# voice 0.1
# gain 0.8
d6 $ s "birds" # n (irand 6) # speed (range 0.5 2 rand) # gain 0.9
d4
$ jux (# s "cheapPiano1")
$ s "0 <0 <~ 0*2>> 0 0 0*2 0*2 <0 ~> 0"
# note (scale "major" "[0,5]" + (slow 2 $ "<0 5>"))
# s "superpiano"
# velocity 0.5
# room 0.1
live/fusion/kaalamite.tidal 0 → 100644
setcps 1
once
$ note (scale "major" 1 - (run 4))
# s "kaamelott:1"
# end 0.04
# gain 0.9
d1
$ every 8 (# silence)
$ s "k <k ~> k <~ <k k*2>>" # s "kick:5"
# gain 0.8
d2
$ sometimesBy "<0 0 0 [0 0.5 0 1]>" (hurry 2)
$ sometimes (fast 2)
$ s "~ sn:1*2"
d4 $ s "~ [~|c|c|c*2|c ~ c]"
# s "clap:2"
# gain 0.8
d3 $ note ( scale "major" (
1 - (bite 4 ("<0 3>*[1|2] <1 2 3 4> <2 3 4 1> <3 0>*[1|2]") $ run 4
) + "<0 0 0 0 0 2 4 6 0>"
)
- 24
)
# s "supersaw"
# voice 0.01
# gain 0.8
d7 -- choeur!
$ note (scale "major" "[0,3,<<~ 7> 5>]/2")
# s "kaamelott:1"
# end 0.04
# sustain 2
# gain 0.9
once $ s "kaamelott:1" # begin 0.85 -- les oiseaux petits
-- # end 0.92
# cut 1
live/hip/beats.tidal
-- SirenBeat
setcps 0.45
d1 -- regulo techno
-- $ whenmod 16 10 (# gain 0)
$ (# s "clubkick:2")
$ fix ((# note 0) . (# lpf 2000)) (s "h")
$ fix ((# note 1) . (# lpf 5000)) (s "l")
$ s "h l? . h <~ l> . <h h h [~ h]> . h <h? [h|h|~]>"
|- note 2
# gain 0.8
-- #
-- #
d1 -- reverbkick varie
$ whenmod 16 14 (# gain 0.8) -- fin break 1? TODO test
$ whenmod 16 10 (# gain 0) -- break 1
$ every' 16 13 (fast 2)
-- $ whenmod 16 13 (# gain 1) -- fin break 1
-- $ whenmod 16 10 (# gain 0) -- break 1
$ (# s "reverbkick")
$ fix ((# note 0) . (# lpf 2000)) (s "h")
$ fix ((# note 1) . (# lpf 5000)) (s "l")
$ s "h . ~ <~ l> . ~ [~|~|h] . <~ l> <l ~>"
|- note 2
# gain 0.8
# pan 0.2
d2 -- amen sur 8
......@@ -38,7 +19,7 @@ $ off (1/16) degrade
$ every 2 (sometimes $ degrade . fast 2)
$ someCyclesBy 1 (sometimes (# n "[4|4|2]"))
$ s "a(<<3 4> <5 8>>,8)" # n "5 2 [1|1|3] 0" # s "amencutup"
# gain 0.5
# gain (slow 64 $ range 0.5 0.8 sine)
# pan 0.8
d3 -- Drumroll
......@@ -48,7 +29,7 @@ $ whenmod 8 4 (fast "<1 2> . 2 <2 1>")
$ sometimesBy "0 <0.5 0.5 0.75 0.25>" (off (1/16) id)
$ s "d*8"
# s "dr"
# gain (slow 32 $ sine * 0.4 + 0.4)
# gain (slow 32 $ sine * 0.5 + 0.4)
# pan (slow 8 $ 0.2 + tri * 0.8)
d4 -- Hats motif rythme
......@@ -59,25 +40,23 @@ $ n "f'maj e'min d'maj ~"
# sustain 0.2
# gain 0.5
d5 -- lead
-- $ whenmod 4 2 (sometimes $ jux rev)
$ whenmod 8 4 (sometimes $ degradeBy 0.25)
$ every 4 (chunk 4 (|- n "[5,12]" )) -- variante chunkee quinte
$ superimpose (|- n 12) -- octave
$ arp (slow 4 $ "<up [up updown] updown down [down up] downup>")
$ n ("f'maj e'min d'maj ~" - 12)
# s "supersiren"
# gain 0.2
d5 -- Sirene
$ s "supersiren/4"
# note (slow 4 $ "<f e c e5>"
- 36)
# gain 0.5
d6 -- basse motif
$ whenmod 60 64 (
swing 2
. (# gain 1.1)
)
$ arp "thumbup"
$ n "f'maj e'min d'maj ~"
$ whenmod 16 10 ( -- break 1
superimpose (# s "subBass2") . (|- gain 0.1))
$ whenmod 60 64 (swing 2)
$ arp (slow 8 $ "<thumbup [thumbup down] downup [downup up]>")
$ note ("f'maj e'min d'maj ~"
+ (slow 4 $ "<0 4 2 <0 12>>") -- descente
- 24)
# s "subBass1"
|- n 24
# gain 1
# room 0.4 # size 0.2
d7 -- sometimes, slow bass synth
$ whenmod 64 61 (chop 2)
......@@ -88,13 +67,45 @@ $ n "f'maj ~ e'min ~ d'maj ~"
# legato "1 1 2 ~"
# sustain "1 1 4 ~"
|- n 24
# gain 0
# gain 0.4
d10 -- scratch moineau!
$ sometimesBy 0.2 (off (1/32) id)
$ degradeBy "0 0.1 0.8 0"
$ euclid (slow 8 $ "<8 16>") 16
$ euclid (slow 8 $ "<3 5>") 16
$ n "0"
# s "birds3"
# n (choose [0,0,2])
# gain 0.6
d11 $ s "birds/4" # n (irand 6) # speed (0.5 + rand * 2)
# gain (0.4 + rand / 2)
-- SANDBOX
d1 -- regulo techno
-- $ whenmod 16 10 (# gain 0)
$ (# s "clubkick:2")
$ fix ((# note 0) . (# lpf 2000)) (s "h")
$ fix ((# note 1) . (# lpf 5000)) (s "l")
$ s "h l? . h <~ l> . <h h h [~ h]> . h <h? [h|h|~]>"
|- note 2
# gain 0.8
d5 -- lead
-- $ whenmod 16 10 (# gain 0) -- break 1
-- $ whenmod 4 2 (sometimes rev)
-- $ whenmod 8 4 (sometimes $ degradeBy 0.25)
$ every 4 (chunk 4 (|- n "[5,12]" )) -- variante chunkee quinte
$ (superimpose $
arp (slow 4 $ "<up [up updown] updown down [down up] downup>")
. (|+ gain 0.3)
. (|- note 24)
)
$ note ("f4'maj e4'min d4'maj ~")
# s "supersiren"
# sustain 0.25
# gain 0.4
live/hip/sunny.tidal 0 → 100644
setcps 0.3
d1
$ sometimes (stut 3 0.9 0.125)
$ rarely (# cut "[1,2]")
$ s "k ~ k . k k <k ~>"
# s "kick" # n "[2,9]"
# lpf (slow 32 $ range 200 20000 sine)
# gain 0.8
d2 -- Snares plus ou moins reguliers
$ whenmod 48 36 (# gain (slow 12 $ 0.9 - saw / 2))
$ fast 2
$ sometimes (fast 2)
$ s "~ <~ s?> . s s?"
# "snare"
# n "[2|3] . <4 6>"
# gain (slow 32 $ range 0.5 0.9 cosine)
d3 -- Et tititi, et tatata, et titititatatatititi, et tititi...
$ rarely (degrade)
$ rarely (fast 2)
$ s "dr*8"
# s "drum:8"
# gain (slow 32 $ range 0.5 1.2 sine)
d4 $ n (stack [
"0(3,8,<0 4>)"
,"<~ 1*2?>(1,8,7)"
,"[2, 3?](3,8,<0 0 0 0 2 2 2 4>)"
])
# s "hh"
d5
$ juxBy 0.2 (# crush 5)
$ arp (slow 4 $ "<pinkyup updown downup speedupdown speeddownup>")
$ whenmod 16 8 (someCyclesBy 0.75 rev)
$ note (scale "aeolian" (
"f4'maj d4'min d4'maj c4'maj" - 7
))
# s "supersaw" # voice 0.05
# gain 0.75
d7
$ every 2 (superimpose ((swing 2) . (arp "[updown|downup]") . (# room 0.5)))
$ note (scale "aeolian" "<d4'maj e4'maj f4'min <d f>4'maj>")
# s "toys"
# begin 0.3 # end 0.5
# gain 0.6
-- Sandbox
d4 -- basse tension chelou
$ whenmod 32 18 (# gain 0.8)
$ whenmod 32 17 (# gain "0.8 0")
$ whenmod 32 16 (# gain 0)
$ note "0 . 0*<1 2 4 2> . 0*<1 1 4 1>"
# note (scale "aeolian" "0 .. 5" + "[0,7]" + (slow 4 $ "<-7 0>")
- 21)
# s "supersaw"
# voice 0.05
# gain 0.7
d8
$ s "s/4"
# note (scale "aeolian" (slow 4 $ "<-2 -5>"))
|- note 24
# s "supersiren"
# voice 0.1
# gain 0.8
d2
-- $ euclid "<7 3 4 7>" 8
$ n "0? <~ <0? 0>> 0? 0"
# s "sn:[2|8]"
# room 0.5 # dry 1.1 # size 0.5
live/hip/volette.tidal
......@@ -5,13 +5,13 @@ 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*2 ~]> . k ~ <~ k?> <k? k>"
# s "kick:6"
# s "reverbkick"
# lpf 500
# gain 0.6
# pan 0.1
d2
$ whenmod 8 6 (jux (# crush 4))
$ whenmod 8 6 (juxBy 0.2 (# crush 4))
$ someCycles (jux $ hurry 2)
$ sometimes ((# n 3) . stut 4 0.75 0.125)
$ s "~ s? ~ s?*2"
......@@ -38,7 +38,7 @@ $ s "dr"
d4
$ someCycles (degrade . (# sustain 0.25))
$ someCycles (slow 2)
$ bite 4 "[0|0 0] 2 1*2 <3 3 0 3>"
$ bite 4 "<[0 1 2 3] [0 1 1 1] [0 3 2 1] [[0|0 0] 2 1*2 <3 3 0 3>]>"
$ note ("5 6 8 ~ 8 [6 5] 6 ~"
- "[24,36]"
)
......
live/techno/80s.tidal 0 → 100644
setcps 0.4
d1
$ s "k k? <k k?> k*<1 1 2 1 2 2 2 1>"
-- $ s "k [<~ k> <~ k> k? k]"
# s "jazz"
d4
$ someCycles (juxBy 0.2 rev)
$ sometimes (hurry 2)
$ sometimes (off (1/8) id)
$ n "2 ~ 3 2 . ~ 3 2 3" # s "electro1"
d3 -- Tatatata (ta ta) x3, Tatatata-Tatatata-Tatatata (ta ta)
$ s "d*<4 4 4 <4 0>> d*<2 2 4 2>"
# s "dr:9"
# gain (slow 16 $ range 0.5 0.9 sine)
# pan (slow 32 $ sine)
d5
$ sometimesBy (slow 4 $ "<0 0.25 0.5 1>") arpeggiate
$ s "cs80leadMH*2"
# note (scale "major" "e'maj" + "<[0 <3 [3|<7 5>]>]>" - 21
)
# gain 0.6
d6
$ sometimes (arp (slow 8 $ "<updown downup>"))
$ note (scale "major" (
whenmod 32 24 (5 - )
"c'maj" + "<[0 <3 [3|<7 5>]>]>")
- 21)
# s "supersaw"
# voice 0.1
# gain 0.7
d7
$ s "glitch(<5 5 5 <4 3>>,8)"
# n (slow 8 $ "<5 [2|6|7]>")
# lpf (slow 64 $ range 10000 20000 sine)
# hpf (slow 64 $ range 0 200 cosine)
# gain 0.9
# room 0.4
# size 0.5
# dry 1
live/techno/german_wings.tidal
-- Techno - 80s - aerian
setcps 0.6
setcps 0.4
d1
-- $ fast 4 . (off 0.5 (# s "<~ clap>"))
......
live/techno/jump.tidal 0 → 100644
setcps 0.6
d1
$ often (
superimpose (
(stut 4 0.5 0.125) .
(# s "electro1:3") .
(# gain 0.8)
))
$ note "0 <0 0?> <0 0 0? 0> [[0|1] 1]"
-- $ note "<0 [0|0*2]>*4"
-- $ note "[0|0*2] . ~ <0 0 0 ~>" -- attente
# s "jazz"
# pan 0.3
# gain 0.75
d2 -- Snares reguliers
$ whenmod 8 4 (fast 2)
$ s "~ ~ s ~"
# s "snare:8"
# room (slow 20 $ range 0 0.6 sine)
# size (slow 40 $ range 0.6 0.6 cosine)
# dry 0.9
# gain 0.9
d3 -- Drumroll FIXME
$ degrade
$ s "dr*16"
# gain 0.8
d4 --
-- Todo: vars interne a la mesure
$ s "supersaw(<5 7 3>,8, <0 2>)"
# n (scale "aeolian" ("<0 0 0 0 2 2 4 <-2 3>>" - 14))
# gain (slow 16 $ range 0.5 0.65 sine)
# voice 0.1 # room 0.5 # orbit 0
d5 -- Bulles folles
$ bite 4 "<0 3>(1,3,<1 3>) <1 1(3,8)> 2 <3 3*2 0 3>"
$ note (scale "major" (
whenmod 16 8 (8 -)
(run 8)
+ (slow 4 $ "<-14 -7 0 -14>") -- gamme
+ "[0,7]" -- accord
))
# s "supersaw"
# voice 0.05
# accelerate 1
# gain (slow 16 $ range 0.6 0.4 sine)
d6 -- Sirene
-- $ whenmod 16 8 (chop ("<2 2 16 16 8 64 32 16>"))
$ s "supersiren/4"
# sustain 3 -- FIXME: Except when chopped
# n (scale "aeolian" ("<0 0 0 0 2 2 4 <-2 3>>" - 14))
# gain 0.6
d7 -- glitchs!
$ jux rev
$ s "g(<3 5 8 1>,8,<0 2>)"
# s "glitch:2"
# gain 0.6
# pan (rand / 4)
d8 -- Bulles finales
$ often (# crush 4)
$ someCycles (stut 8 0.5 (1/16))
$ every' 8 7 (# gain 0.7)
$ s "~ s ~ s ~ s s ~"
# s "supersnare"
# n (-12)
# accelerate 8
# sustain 1
# gain 0
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