Skip to content

T
Tidal
Unverified Commit 4154b8b5 by PLN (Algolia)
Options

feat: from meth to blue mind

parent c31b8bcb
Showing with 304 additions and 2 deletions
blocks/once.tidal 0 → 100644
-- TODO: How can I play this once deterministically?
d1 -- snare rush
-- $ degradeBy "<0 [0 0.75 0.5 0.25]>"
$ fast (snowball 8 (+) (* 2) $ 2) $ s "sn:1"
# gain 0.6
d1 $ note (scale "minor" $ snowball 4 (+) (slow 2) $ (run 3))
# sound "gtr"
# gain 0.7
live/chill/blue_mind.tidal 0 → 100644
setcps 0.4
do
d1 -- KICK TECHNOFICATION
$ sometimesBy "0 0 0.1 0" (# silence) -- skip beat
$ s "k*4"
# s "jazz"
# gain 0.8
d2
-- $ sometimes (fast 2)
-- $ whenmod 16 8 (sometimes (stut 2 0.7 (1/12)))
$ n "0(1,8,<1 .. 7>)"
# s "snare:13"
# gain 0.6
d3
-- $ rarely (fast 2)
-- $ sometimes (fast 2)
-- $ always (fast 2)
$ s "d*4"
# s "drum:8"
# gain 0.9
d4 $ s "hh*4" # gain 0.6
-- Pianos
-- Graves accords sustain
d5
$ off 0.125 (|+ note 12)
$ note (scale "aeolian" (
"<c'maj e'maj>"
+ "<<0!3 -1> 0 0 <2!3 1>>"
) - 24
)
# s "superfork"
# gain 0.7
d6
$ whenmod 64 32 (superimpose (-- Arps!
whenmod 128 64 (swing 2)
. (off 0.5 (degradeBy "1 1 1 0" . rev))
. (arp "up")
. (# velocity (0.4 - (slow 32 $ saw * 0.3)))
. (|- note 12)
))
$ (0.25 ~>)
$ note "0*8"
# note (scale "aeolian" (
"<c'maj>"
+ "<<0!3 -1> 0 0 <2!3 1>>"
) + "<0 12 [0,12]>"
)
# s "supersaw"
# velocity 0.3
# gain 0
d7 -- Basse
$ s "supersaw"
# note (scale "aeolian" (
"<c'maj e'maj [c'maj e'maj] [e'maj c'maj]>"
+ "<<0!3 -1> 0 0 <2!3 1>>"
) - 24
)
# voice 0.1
# gain 0.4
-- Setup: solennel, hip, calme
do
d1 -- KICK Heartbeat rempli
$ s (slowcat ["k*2 ~ k ~",
"k ~ k ~",
"k(<5 7>,8,<0,5>)",
"k ~ k ~"
])
# s "jazz"
# gain 0.65
d2
$ sometimes (fast 2)
$ whenmod 16 8 (sometimes (stut 2 0.7 (1/12)))
$ degradeBy "<1 0.75 0.5 0.25>"
$ n "0*8"
# s "snare:13"
# gain 0.6
d3
$ often (fast 2)
$ s "d(3,8,<0!7 4>)"
# s "drum:8"
# gain 0.8
d4 $ s "hh*4" # gain 0.6
-- Pianos
-- Graves accords sustain
d5
$ off 0.125 (|+ note 12)
$ note (scale "aeolian" (
"<c'maj e'maj [c'maj e'maj] [e'maj c'maj]>"
+ "<<0!3 -1> 0 0 <2!3 1>>"
) - 12
)
# s "superpiano"
# velocity 0.3
# sustain 1
-- Aigu fou
d6
$ whenmod 64 32 (superimpose (-- Arps!
whenmod 128 64 (swing 2)
. (off 0.5 (degradeBy "1 1 1 0" . rev))
. (arp "up")
. (# velocity (0.4 - (slow 32 $ saw * 0.3)))
. (|- note 12)
))
$ (0.25 ~>)
$ note "0*8"
# note (scale "aeolian" (
"<c'maj e'maj [c'maj e'maj] [e'maj c'maj]>"
+ "<<0!3 -1> 0 0 <2!3 1>>"
) + 12
)
# s "superpiano"
# velocity 0.3
d7
$ s "supersaw"
# note (scale "aeolian" (
"<c'maj e'maj [c'maj e'maj] [e'maj c'maj]>"
+ "<<0!3 -1> 0 0 <2!3 1>>"
) - 24
)
# voice 0.1
# gain 0.5
live/chill/dim_blue.tidal 0 → 100644
setcps 0.45
d1
$ s "j j? j ~ j ~ j ~"
# s "jazz"
# lpf (slow 100 $ range 50 1000 sine)
once $ s "jazz:3"
# gain 0.9
# cut 2
once $ s "jazz:5"
d2 -- snare rush
-- $ degradeBy "<0 [0 0.75 0.5 0.25]>"
$ every' 8 7 (superimpose (fast "16 32 16 8"))
$ s "jazz:2"
# gain 0.4
-- beat jazz
d3
$ fast "1 2 1 [1 2]"
$ s "d d d d*<1 2 1 4>"
# s "jazz:3"
# gain 0.7
d4
-- $ arp "speedupdown"
$ note (
scale "aeolian"
"c4'major" - ("0 0 2 2 0 0 0 0 0 0 2 4 0 0 0 0")
)
-- |- note 21 -- gamme
# s "supersaw"
# voice (slow 32 $ range 0.1 0.25 sine)
# gain 0.8
d6
$ superimpose (
swing 2 . arp "up|downup"
. (# sustain 0.5)
)
$ note (scale "aeolian" (slow 4 $ "c4'major'<c4 f4 b3 c4>'six")
) # s "superpiano"
# velocity 0.6
# sustain 1
# gain 0.7
d7 -- moineau roll!
$ fast "[<1 <2 [2 4]>> <1 1 1 [2 1]>]"
$ s "birds3*8"
# n "2|3"
# gain 1.2
# room 0.7
# size 0.5
d8 -- claps!
$ fast "<1 1 2 1 2 2 1 1 2 1 2 2 4 2 1 1>"
$ s "c"
# s "jazz:4"
d9 -- continuous laser
$ s "bd" >| speed (
segment 120 $
range (10 - sine * 5)
(fast "<1 2 4>" $ sine * 50)
saw
)
# gain 0.4
live/dnb/meth.tidal 0 → 100644
setcps 0.6
-- Meth DNB: J'ai toujours préféré ta cuisine maison <3
do
let melody = "<<0 <2 4>>!2>"
-- Rythme DNB
d1
$ whenmod 24 20 (|> gain 0.3)
$ whenmod 24 18 (|> gain 0.2)
$ whenmod 24 16 (|> gain 0)
$ fix (# s "sn:5") (s "s")
$ fix (# s "[kick:1,ulgab?]") (s "k")
$ superimpose (# s "bd")
$ every 4 (
sometimesBy "0 0.5" (fast 2)
)
$ s "k ~ s ~ ~ k s <~ s>"
# gain 0.7
# pan 0.3
-- Lead: Comete!
d2 $ "methbass:10"
# gain (slow 16 $ range 0.4 0.55 sine)
# note (slow 2 $ "<0 0 2 2>")
# hpf 500
-- Alerte!
d3
$ whenmod 24 16 (|+ gain 0.05)
$ whenmod 24 14 (|+ gain 0.1)
$ whenmod 24 15 (# gain 0.25)
$ chop 2
$ s "~ methbass:4"
# note ("<0 -2>!2")
# gain 0
-- Nappes intenses
d4
$ euclid ("2^<1 2 4 2>") 8
$ s "abstract:0"
# note ("<0 -2>!4")
# gain 0.8 # cut 4
d5 -- noise hihat!
$ sometimes (# n 6)
$ "abstract:5(<[1|3|5] <4 [1|8]>>,8)"
# cut 5
# gain (slow 20 $ range 0.3 0.6 sine)
# pan (slow 16 $ 1 - sine / 2)
d6
$ sometimes (fast 4)
$ someCycles (slow 2)
$ arp "<down downup up updown>"
$ note (scale "aeolian" "c3'maj")
# s "abstract:11" # cut 7 # gain 1 # end 0.1
# pan (slow 16 $ sine / 2)
# n 10
# gain 0.7
note s "methbass:"
d2 $ s "methbass:1"
-- # gain 0.5
# cut 2# n 10
# note (slow 2 $ "<0 0 2 2>")
# gain 0.7
notes.md
......@@ -48,6 +48,36 @@
--- 0 grave
--- 1 aigu
--- Abstract sounds:
-- 0 long ominous
-- 1 8/8 kicks bruits
-- 2 ominous + aigu/elec
-- 3 Wob wob long 4s+
-- 4 Bzzt insecte electrique
-- 5 Hihat Insecte brule sec tshh
-- 6 Hihat Cendre eteinte
-- 7 Insecte envol libellule un peu dry
-- 8 Insecte tacatacaTACATACataca
-- 9 Bam badabam dabam sec bois
-- 10 Tik takitakit takitakit sec seau sable
-- 11 Plink light metal chord
-- 12 DNB 1/2 tchak tchak tchak!
-- 13 DNB Poum tchak poum tchakpoum poum tchak!
--- METHBASS
-- 0 grille pain bruitée
-- 1 B B . B BB B B (toudoudou background)
-- 2 Metal boum remonte
-- 3 Comete longue metallique noisy
-- 4 Montee ressort
-- 5 Brise verre espace
-- 6 Metal echo wob wob
-- 7 warp warp warp !!!
-- 8 Comete rapide zap
-- 9 Comete lente arrivee
-- 10 Comete grillant à point
-- bass Basse métallique
--- 0 clics
--- 1
......
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)
ab (12) abstract (58) 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) 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)
......@@ -11,7 +11,7 @@ if (5) ifdrums (3) incoming (8) industrial (32) insect (3) invaders (18)
jazz (8) jungbass (20) jungle (13) juno (12) jvbass (13)
kick (21) kicklinn (1) koy (2) kurt (7)
latibro (8) led (1) less (4) lighter (33) linnhats (6) lt (16)
made (7) made2 (1) mash (2) mash2 (4) metal (10) miniyeah (4) moan (1) monsterb (6) moog (7) mouth (15) mp3 (4) msg (9) mt (16) mute (28)
made (7) made2 (1) mash (2) mash2 (4) metal (10) methbass (28) miniyeah (4) moan (1) monsterb (6) moog (7) mouth (15) mp3 (4) msg (9) mt (16) mute (28)
newnotes (15) noise (1) noise2 (8) notes (15) numbers (9)
oc (4) odx (15) off (1) outdoor (6)
pad (3) padlong (1) pebbles (1) perc (6) peri (15) pluck (17) popkick (10) print (11) proc (2) procshort (8) psr (30)
......
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