messing around learning tidal
1-- use helvum for jack configuration
2-- ,ss send block
3-- ,s send line
4-- ,s1-9 play next stream 1-9
5-- ,1-9 silence stream
6-- ,h hush
7
8-- plugin: https://github.com/tidalcycles/vim-tidal
9-- synths: https://tidalcycles.org/docs/reference/synthesizers
10-- workshop: https://tidalcycles.org/docs/patternlib/tutorials/workshop
11-- mini-note: https://tidalcycles.org/docs/reference/mini_notation/
12-- effects: https://tidalcycles.org/docs/reference/audio_effects/
13
14do
15 hush
16 d1 $ s "drum*2 [drum:1 ~ drum drum:1] [drum drum:1 drum ~] drum:1"
17 d2 $ s "bd bd bd bd"
18 d3 $ s "hh*2 hh*2 hh*2 hh*2" # n 0 -- -> 3
19 d4 $ s "sn [sn ~ sn ~] [sn sn ~ sn] sn" # n 1
20 -- d5 $ s "cr cr cr cr"
21
22d1 $ n (slow 2 $ fmap (*7) $ run 8)
23 # s "supergong"
24 # decay "[1 0.2]/4"
25 # voice "[0.5 0]/8"
26
27d1 $ n (slow 2 $ fmap (*7) $ run 8) # s "supergong"
28
29d5 $ n "[b d]*4"
30 # s "drum"
31
32d4 $ n "1 2 3 4"
33 # s "supersaw"
34
35d6 $ n "a"
36 # s "supersaw"
37 # decay "1"
38
39d1 $ s "sax:1 sax:4 sax:2"
40
41-- stuff from the workshop:
42
43d1 $ s "[bd*2,hh*3,[~ cp]*2,bass]"
44d1 $ s "[bd*3,hh*4,[~ cp]*2,bass*4,[sn ~ sn:2]]"
45
46d2 $ s "bd!2 cp!2"
47d2 $ s "bd hh? bd hh?0.8"
48
49p "scroll" $ s "arpy:1 arpy:2 arpy:3 arpy:4 arpy:5"
50
51-- all right, that's better
52p "scroll" $ s "[bd*4, [arpy:1,arpy:2,arpy:3,arpy:4,arpy:5](5,8)]"
53
54d1 $ s "{bd sd stab, cp arpy cr arpy}"
55d1 $ s "{bd*2, hh*4, bd hh 808:4}"
56
57d1 $ sound "drum drum drum drum" # vowel "<a e p p>"
58
59d1 $ vowel "a o ~ i" # sound "drum"
60
61d1 $ sound "bd hh sn:1 hh sn:1 hh" # gain "1 0.7 0.5"
62
63d1 $ sound "numbers:1 numbers:2 numbers:3 numbers:4" # speed "1 1.5 2 0.5"
64
65d1 $ sound "kurt:4 kurt:4" # shape "0 0.78" # gain "0.7"
66
67d1 $ sound "tabla*4" # n "0 1 2 3" # cutoff 400 # resonance 0.2
68
69d1 $ sound "tabla*4" # n "0 1 2 3" # hcutoff 600 # hresonance 0.2
70
71d1 $ palindrome $ sound "arpy arpy:1 arpy:2 arpy:3"
72
73d1 $ s "bev ~" # cut 1
74d2 $ slow 4 $ s "pebbles ~" # cut 1
75
76f x = do
77 d1 $ sound "tabla*4" # n "0 1 2 3" # cutoff 400 # resonance 0.2
78 d2 $ sound "tabla*4" # n "0 1 2 3" # hcutoff 600 # hresonance 0.2
79
80f 1