something.tidal 1.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106
  1. cps (151/60)
  2. d1 $ stack [
  3. sound "[[~ hh ~ ~] sn]/2"
  4. ]
  5. d1 $ stack [
  6. whenmod 9 7 (density 2) $
  7. sound "[[~ hh ~ ~] sn]/2"
  8. ]
  9. d1 $ stack [
  10. whenmod 9 4 (density 2.5) $
  11. sound "[[~ hh ~ ~] sn]/2"
  12. ]
  13. d1 $ stack [
  14. whenmod 5 2 (rev . chop 4) $
  15. whenmod 9 4 (density 2.5) $
  16. sound "[[~ hh ~ ~] sn]/2"
  17. ]
  18. d1 $ stack [
  19. whenmod 6 3 (chop 8) $
  20. whenmod 5 2 (rev . chop 4) $
  21. whenmod 9 4 (density 2.5) $
  22. sound "[[~ hh ~ ~] sn]/2"
  23. ]
  24. {-
  25. d1 $ stack [
  26. within (0, 0.5) (slow (4%3)) $
  27. whenmod 6 3 (chop 8) $
  28. whenmod 5 2 (rev . chop 4) $
  29. whenmod 9 4 (density 2.5) $
  30. sound "[[~ hh ~ ~] sn]/2"
  31. ]
  32. -}
  33. d1 $ stack [
  34. whenmod 6 3 (chop 8) $
  35. whenmod 5 2 (rev . chop 4) $
  36. whenmod 9 4 (density 2.5) $
  37. sound "[[~ gnome ~ ~] gnome]/2"
  38. -- sound "[[~ hh ~ ~] sn]/2"
  39. |+| speed ((+0.3).(/2) <$> density 1.5 saw1)
  40. -- |+| speed ((+0.4).(/1.5) <$> density 2.1 saw1)
  41. |+| cut "1"
  42. ]
  43. d2 $ stack [
  44. sound "[[k sn ~ k] [k sn]]/2",
  45. sound "hh*4"
  46. |+| vowel "e o"
  47. ]
  48. d2 $ smash 32 [2, 4] $ sound "[[k sn ~ k] [k sn]]/2"
  49. d2 $ smash 16 [2, 4] $ sound "[[k sn ~ k] [k sn]]/2"
  50. d3 $ stack [
  51. sound "[[k sn ~ k] [k sn]]/2",
  52. sound "hh*4"
  53. |+| vowel "e o"
  54. ]
  55. hush
  56. --
  57. d1 $ stack [
  58. sound "[[k ~ ~ k] ~]/2",
  59. whenmod 9 7 (density 2) $
  60. sound "[[~ wt ~ ~] sn]/2"
  61. ]
  62. d1 $ stack [
  63. sound "[[k ~ ~ k] ~]/2",
  64. whenmod 9 4 (density 2.5) $
  65. sound "[[~ wt ~ ~] sn]/2"
  66. ]
  67. d1 $ stack [
  68. sound "[[k ~ ~ k] ~]/2",
  69. whenmod 5 2 (rev . chop 4) $
  70. whenmod 9 4 (density 2.5) $
  71. sound "[[~ wt ~ ~] sn]/2"
  72. ]
  73. d1 $ stack [
  74. sound "[[k ~ ~ k] k]/2",
  75. whenmod 5 2 (rev . chop 4) $
  76. whenmod 9 4 (density 2.5) $
  77. sound "[[~ hh ~ ~] sn]/2"
  78. ]
  79. d1 $ sound "[k {k, sn}]/2"
  80. d1 $ (every 2 $ overlay $ sound "[~ wt ~ wt]") $ sound "[k {k, sn}]/2"
  81. d2 $ whenmod 6 3 (chop 8) $
  82. whenmod 5 2 (rev . chop 4) $
  83. whenmod 9 4 (density 2.5) $
  84. sound "[[~ gnome ~ ~] gnome]/2"
  85. |+| speed ((+0.3).(/2) <$> density 1.5 saw1)
  86. |+| cut "1"
  87. hush