for-mix2.tidal 1.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111
  1. -- original ravey
  2. cps (155/60)
  3. d1 $ stack [
  4. (1 ~>) $ sound "cy/8",
  5. s "[k {k, sn}]/2"
  6. ]
  7. d2 $
  8. whenmod 16 15 (density 3) $
  9. smash 16 [0.25, 0.5] $
  10. s "hh hh:2"
  11. # gain "0.6"
  12. d3 $
  13. (within (0, 0.5) $ gap 16) $
  14. (s $ samples "[[~ wb ~ ~] wb]/2" (slow 5 $ irand 5))
  15. # shape ((/3) <$> slow 16 saw1)
  16. # vowel "[i o]*2"
  17. d4 $
  18. (0.5 <~) $
  19. slowspread density [1,2,0.5,2] $
  20. chop 32 $ s "eg:4/2"
  21. # gain "0.8"
  22. # speed ((+1).(/2) <$> slow 1.88 saw1)
  23. mapM_ ($ silence) [d3,d4]
  24. hush
  25. d1 $ stack [
  26. (1 ~>) $ sound "cy/8",
  27. whenmod 16 14 (trunc 0.4) $
  28. sound "[k {k, sn}]/2"
  29. ]
  30. -- slower bit
  31. cps (100/60)
  32. d1 $
  33. -- (overlay $ (1 ~>) $ sound "cy/8") $
  34. -- whenmod 16 14 (trunc 0.4) $
  35. stack [
  36. whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
  37. whenmod 11 10 (density 3) $
  38. s "k",
  39. (0.5 ~>) $ s "sn/2"
  40. -- (1 ~>) $ s "sn/2"
  41. ]
  42. d2 $
  43. -- iter 4 $
  44. whenmod 16 15 (density 3) $
  45. smash 16 [0.25, 0.5] $
  46. -- every 3 (append $ s "hh:1 hh") $
  47. s "hh hh:2"
  48. # gain "0.6"
  49. d3 $
  50. -- whenmod 3 2 (density 1.5 . rev) $
  51. (density 1.5) $
  52. -- chop 256 .
  53. slow 8 $ sound "[vb:1 [~ vb:1] !? ~ vb [~ vb:1]? [~ vb] ~]"
  54. -- # speed "0.6"
  55. -- # end "0.2"
  56. # cut "3"
  57. d3 $
  58. s "[[vb vb:1] ~]/2"
  59. # end "0.2"
  60. # cut "3"
  61. d3 $
  62. whenmod 3 2 (slow 2) $
  63. (whenmod 4 2 $ density 3) $
  64. s "[[vb vb:1] ~]/2"
  65. # end (slow 1.4 "0.2 0.4")
  66. # cut "3"
  67. # speed (slow 2.5 "1 -1")
  68. hush
  69. d4 $
  70. (1 ~>) $
  71. within (0, 0.5) (density (5%3)) $
  72. every 2 (0.07 ~>) $
  73. (s $ samples "[[~ wb ~ ~] wb]/2" (slow 5 $ irand 5))
  74. # shape ((/3) <$> slow 16 saw1)
  75. # speed "0.6"
  76. # cut "4"
  77. d4 $
  78. within (0, 0.5) (density (5%3)) $
  79. every 2 (0.07 ~>) $
  80. (s $ samples "[[~ wb ~ ~] wb]/2" (slow 5 $ irand 5))
  81. # shape ((/3) <$> slow 16 saw1)
  82. -- # speed "0.6"
  83. # cut "1"
  84. d5 $
  85. -- stut 4 0.6 1.25 $
  86. (0.5 <~) $
  87. slowspread density [1,2,0.5,2] $
  88. chop 32 $ s "eg/2"
  89. # gain "0.8"
  90. # speed ((+1).(/2) <$> slow 1.88 saw1)
  91. # cut "1"
  92. hush