for-mix2.tidal 1.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596
  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. (1.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. d1 $ stack [
  40. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
  41. s "[k ~ k*2 ~]/4",
  42. every' 32 31 (const $ (0.07 ~>) $ s "[~ ~ ~ sn]") $
  43. every' 16 16 (const $ s "sn*2") $
  44. (1 ~>) $ s "sn/2"
  45. ]
  46. d2 silence
  47. {-
  48. d4 $
  49. (1.18 <~) $
  50. every 2 (const silence) $
  51. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  52. density 0.245 $
  53. slowspread density [1, 2, 0.5, 2] $
  54. gap 128 $
  55. s "eg*2"
  56. # gain "0.8"
  57. # cut "4"
  58. -}
  59. d5 $
  60. (0.32 ~>) $
  61. slow 4 . chop 256 $ sound "gt"
  62. # gain "0.7"
  63. # speed ((+0.8).(/3) <$> slow 8 sinewave1)
  64. {-
  65. d4 $
  66. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  67. density 0.98 $
  68. chop 128 $
  69. s "[eg [~ eg] ! ~]/2"
  70. # gain "0.8"
  71. # cut "4"
  72. -}
  73. d1 $ stack [
  74. whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
  75. -- every' 12 2 (density 3) $
  76. s "k",
  77. (1 ~>) $ s "sn/2"
  78. ]
  79. d4 silence
  80. d2 silence
  81. d5 silence
  82. hush