2
0

for-mix2.tidal 1.7 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394
  1. cps (100/60)
  2. let every' n o f = when ((== (o-1)) . (`mod` n)) f
  3. d1 $ stack [
  4. (1 ~>) $ sound "cy/8",
  5. whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
  6. every' 12 2 (density 3) $
  7. s "k",
  8. (0.5 ~>) $ s "sn/2"
  9. ]
  10. d2 $
  11. iter 4 $
  12. (# pan (density 16 "0.25 0.75")) $
  13. whenmod 16 15 (density 3) $
  14. smash 16 [0.25, 0.5] $
  15. every 3 (append $ s "hh:1 hh") $
  16. s "hh hh:2"
  17. # gain "0.6"
  18. d3 $
  19. whenmod 3 2 (slow 2) $
  20. (whenmod 4 2 $ density 3) $
  21. s "[[vb vb:1] ~]/2"
  22. # end (slow 1.4 "0.2 0.4")
  23. # speed (slow 2.5 "1 -1")
  24. d1 $ stack [
  25. whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
  26. every' 12 2 (density 3) $
  27. s "k",
  28. (0.5 ~>) $ s "sn/2"
  29. ]
  30. d4 $
  31. (0.18 <~) $
  32. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  33. density 0.245 $
  34. slowspread density [1, 2, 0.5, 2] $
  35. gap 128 $
  36. s "eg*2"
  37. # gain "0.8"
  38. # cut "4"
  39. d2 silence
  40. d4 $
  41. (0.18 <~) $
  42. every 2 (const silence) $
  43. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  44. density 0.245 $
  45. slowspread density [1, 2, 0.5, 2] $
  46. gap 128 $
  47. s "eg*2"
  48. # gain "0.8"
  49. # cut "4"
  50. d1 $ stack [
  51. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
  52. s "[k ~ k*2 ~]/4",
  53. every' 32 31 (const $ (0.07 ~>) $ s "[~ ~ ~ sn]") $
  54. every' 16 16 (const $ s "sn*2") $
  55. (1 ~>) $ s "sn/2"
  56. ]
  57. d5 $
  58. (0.32 ~>) $
  59. slow 4 . chop 256 $ sound "gt"
  60. # gain "0.7"
  61. # speed ((+0.8).(/3) <$> slow 8 sinewave1)
  62. d4 $
  63. (0.18 <~) $
  64. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  65. slowspread density [1, 2, 0.5, 2] $
  66. density 0.245 $
  67. gap 128 $
  68. s "[eg [~ eg] ! ~]/2"
  69. # gain "0.8"
  70. # cut "4"
  71. d1 $ stack [
  72. (1 ~>) $ sound "cy/8",
  73. whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
  74. every' 12 2 (density 3) $
  75. s "k",
  76. (1 ~>) $ s "sn/2"
  77. ]
  78. d4 silence
  79. d2 silence
  80. hush