feat: from meth to blue mind

blocks/once.tidal

+-- 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

+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

+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

+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)