Save session

blocks/drums.tidal

+setcps 0.8
+
+d1 $ "<dr <dr*2 dr?*8>>" # s ( choose ["hh", "dr"])
+
+d2 $ euclid "<1 3>" 8
+$ s "glitch"
+# n 1
+# gain (1 + rand)
+
+d9 $ "808bd:1"
+# gain 0.9
+
+d1
+$ every 2 (off (6/12) (|+0))
+$ every' 2 1 (off (3/12) (|+0))
+$ every' 4 1 (off (5/12) (|+0))
+$ every' 4 1 (off (6/12) (|+0))
+$ every' 8 6 (# n "2 0 0")
+$ every' 8 7 (# gain 0)
+$ s "dr"
+# n 0
+
+d2 $ s "dr*2 ~ dr  ~ dr*8"
+
+d1
+-- $ degrade
+$ s "dr dr dr dr dr dr sn ~ dr dr dr dr sn"
+
 d1
 $ every 1 (off (8/16) (|+ 0))
 $ every 2 (off (9/16) (|+0))

blocks/voice.tidal

+d1
+$ n "8 13 3 4 15 4 13 19"
+# s "alphabet*8"

copycat.tidal

@@ -14,6 +14,14 @@ d2 $ s "<808bd 808cy 808hc 808ht 808lc 808lt 808mc 808mt 808oh 808sd 909 ~ ~>"
 
 -- TODO: Parov - Fusion, Klangwolke (Pt.2 pattern piano 2.15)
 
+-- Dre - Kush
+d1 $ s "bd ~ [bd*2]"
+
+. .. . . .
+
+
+
+
 -- Parov : Psychedelic jazz
 setcps 0.46
 

hello.tidal

-setcps 0.1
-
-solo 2
-
-hush
-
-d1 $ s "<bd:14([3,5],8) <cp bd*2>>"
-
-d2 $ s "<amencutup*8>" # n (run 16)
-
-d1 $ s "dr_few bd(3,5) sn"
-
-d2 $ s "superpiano"
-
-d1 $ s "bd*2 sn bd*2 <cp bd,cp sn,cp cp*2>"
-
-d2 $ s "alphabet*2" # n "24 20"
-# shape 0.2 # gain 0.5
-
-d3 $ n "[0 5 <9,16> <5,12>]*2"
-# s "superpiano" # sustain 0.3
-
-d1 $ s "~ sn:1 ~ sn:1"
-
-d2 $ s "[808bd*2 [~ bd*2] [~ bd bd ~] ~]"
-
-d3 $ n (off 0.125 (|+7) $ off 0 (|+12) "1*2 <3 8> 5 8")
-# s "supermandolin"
-# gain 0.85
-
-d1 $ s "[<cp>](5,8)"
-
-d2 $ s "[808cy*24]/3 ~" # n "0 .. 23" # gain "1.5"
-
-d2 $ slow 4 $ chop "1" $ s "bev cp*4"
-
-d1 $ jux rev $ n
-(
-  off 0.125 (|+ 12)
-$ off 0.125 (|+ 7)
-  "<c*2 a(3,8) f(3,8,2) e*2>")
-# s "notes"
-# gain 0.5
--- # legato (0.5 + (rand / 2))
-
 -- Pattern add
 -- Structure 5:
 --  *1*
@@ -144,8 +99,61 @@ $ off 0.125 (|+ 7)
 -- 7 bass drum + static
 -- 8 tom sec
 
+-- Piano notes:
+-- do  -14 -7 0 07 14 21
+-- re  -13 -6 1 08 15
+-- mi  -12 -5 2 09 16
+-- fa  -11 -4 3 10 17
+-- sol -10 -3 4 11 18
+-- la  -09 -2 5 12 19
+-- si  -08 -1 13 20
+
 -- Playground
 
+setcps 0.1
+
+solo 2
+
+hush
+
+d1 $ s "<bd:14([3,5],8) <cp bd*2>>"
+
+d2 $ s "<amencutup*8>" # n (run 16)
+
+d1 $ s "dr_few bd(3,5) sn"
+
+d2 $ s "superpiano"
+
+d1 $ s "bd*2 sn bd*2 <cp bd,cp sn,cp cp*2>"
+
+d2 $ s "alphabet*2" # n "24 20"
+# shape 0.2 # gain 0.5
+
+d3 $ n "[0 5 <9,16> <5,12>]*2"
+# s "superpiano" # sustain 0.3
+
+d1 $ s "~ sn:1 ~ sn:1"
+
+d2 $ s "[808bd*2 [~ bd*2] [~ bd bd ~] ~]"
+
+d3 $ n (off 0.125 (|+7) $ off 0 (|+12) "1*2 <3 8> 5 8")
+# s "supermandolin"
+# gain 0.85
+
+d1 $ s "[<cp>](5,8)"
+
+d2 $ s "[808cy*24]/3 ~" # n "0 .. 23" # gain "1.5"
+
+d2 $ slow 4 $ chop "1" $ s "bev cp*4"
+
+d1 $ jux rev $ n
+(
+  off 0.125 (|+ 12)
+$ off 0.125 (|+ 7)
+  "<c*2 a(3,8) f(3,8,2) e*2>")
+# s "notes"
+# gain 0.5
+-- # legato (0.5 + (rand / 2))
 hush
 
 setcps 0.5