messing around learning tidal
at main 80 lines 2.0 kB view raw
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