2
0

something-to-say.tidal 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200
  1. {-
  2. anny fm: something to say
  3. originally recorded @ home, elephant & castle, 15th march 2014
  4. released on "a tribute to kurt cobain" compilation on fwonk*: fwonk.co.uk/129/
  5. __
  6. c||| o_
  7. c||||| ___o
  8. soundcloud.com/anny-fm/something-to-say
  9. -}
  10. cps (106/60)
  11. -- shortfix for bps->cps
  12. let cf = slow 2
  13. -- fixed iter to reproduce pre-0.6 behaviour
  14. let iter' n p = slowcat $ map (\i -> ((fromIntegral i)%(fromIntegral n)) ~> p) [0 .. n]
  15. -- guitar-ish
  16. let ss'stab = s "stab"
  17. # n (slow 6 "1 2 3 4 [5 6]/3")
  18. # vowel "i"
  19. -- possibly guitar-ish. was never quite sure what this is
  20. let ss'kurt = s "kurt"
  21. # speed "0.6"
  22. # shape "0.3"
  23. # vowel "u"
  24. -- drums base
  25. let ss'perc = s "{[bd ~ ~ bd] msg, hh*2}"
  26. ss'perc' = s "{[rm ~ ~ rm] msg, hh*2}"
  27. -- vocal
  28. let ss'verse = s "sitw"
  29. # n (slow 8 $ run 8)
  30. -- other vocal
  31. let ss'chorus = s "sitwc"
  32. # n (slow 4 $ run 4)
  33. -- channel defs
  34. let d'drum = d1
  35. d'bass = d2
  36. d'voc = d9 -- vocal
  37. d'gt = d3 -- guitar [stab]
  38. d'kurt = d4
  39. d'moog = d5
  40. -- go
  41. d'gt $ cf $ ss'stab
  42. # speed "0.7"
  43. d'gt $ cf $
  44. slow 2 $ every 4 (density 2) $ every 2 (density 2) $
  45. ss'stab
  46. # speed "0.7"
  47. d'voc $ cf $ slow 4 $ ss'verse
  48. |+| vowel "e"
  49. d'kurt $ cf $ ss'kurt
  50. # n (slow 7 $ run 7)
  51. d'drum $ cf $ slow 2 $ ss'perc
  52. d'kurt $ cf $ s "kurt"
  53. # n (slow 4 "5 6 4")
  54. d'gt $ cf $
  55. density 2 $ iter 2 $
  56. ss'stab
  57. # speed "0.7"
  58. d'gt $ cf $
  59. density 2 $ iter 2 $
  60. ss'stab
  61. # speed ((+0.7).(/2) <$> slow 5 sinewave1)
  62. d'voc $ cf $ slow 4 $ ss'chorus
  63. # vowel "e"
  64. d'voc $ cf $ slow 4 $
  65. iter 3 . striate 4 $
  66. ss'chorus
  67. # vowel "e"
  68. d'bass $ cf $ striate 4 $ sound "wobble [wobble]/3"
  69. # pan (slow 3 sinewave)
  70. -- break down to rebuild
  71. d'voc silence
  72. mapM_ ($ silence) [d'drum, d'bass, d'gt, d'kurt]
  73. d'drum $ cf $ slow 2 $ ss'perc
  74. d'voc $ slow 8 $ ss'verse
  75. # vowel "e"
  76. d'drum $ cf $
  77. every 2 (superimpose $ iter' 3) $
  78. slow 2 $ ss'perc
  79. d'gt $ cf $
  80. slow 2 $ every 4 (density 2) $ every 2 (density 2) $
  81. ss'stab
  82. # speed "0.7"
  83. -- quickly
  84. d'kurt $ cf $ ss'kurt
  85. # n (slow 7 $ run 7)
  86. d'voc $ cf $ slow 4 $ ss'chorus
  87. # vowel "e"
  88. d'kurt $ cf $ ss'kurt
  89. # n (slow 4 "5 6 4")
  90. d'moog $ cf $
  91. slow 8 . striate 8 $
  92. 0.25 <~ s "moog"
  93. # n (slow 2 "0 1")
  94. # speed "0.6 0.7"
  95. # pan (slow 8 sinewave)
  96. d'voc $ cf $ slow 2 $
  97. iter 3 . striate 4 $
  98. ss'chorus
  99. # vowel "e"
  100. d'voc $ cf $ slow 2 $
  101. iter 3 . striate 4 $
  102. ss'chorus
  103. # vowel "e"
  104. # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
  105. d'voc $ cf $ slow 4 $ ss'chorus
  106. # vowel "e"
  107. -- another breakdown
  108. mapM_ ($ silence) [d'drum, d'gt, d'kurt]
  109. d'drum $ cf $
  110. every 2 (superimpose $ iter' 3) $
  111. slow 2 $ ss'perc'
  112. d'voc $ cf $ slow 2 $
  113. iter 3 . striate 4 $
  114. ss'chorus
  115. # vowel "e"
  116. # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
  117. d'voc $ cf $
  118. iter 3 . striate 4 $
  119. ss'chorus
  120. # vowel "e"
  121. # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
  122. -- real drums start... now
  123. d'drum $ overlay (s "house") $ cf $
  124. every 2 (superimpose $ iter' 3) $
  125. slow 2 $ ss'perc'
  126. d'voc silence
  127. d'bass $ cf $ striate 4 $ sound "wobble [wobble]/3"
  128. # pan (slow 3 sinewave)
  129. d'drum $ overlay (s "house") $ cf $
  130. every 2 (superimpose $ iter' 3) $
  131. slow 2 $ ss'perc
  132. d'gt $ cf $
  133. density 2 $ iter 2 $
  134. ss'stab
  135. # speed ((+0.7).(/2) <$> slow 5 sinewave1)
  136. -- god this is nuts as shit. why did i do this
  137. d'voc $ cf $
  138. iter 3 . striate 4 $
  139. ss'chorus
  140. # vowel "e"
  141. # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
  142. d'kurt $ cf $ ss'kurt
  143. # n (slow 4 "5 6 4")
  144. d'bass $ cf $ striate 4 $ sound "bass [bass:1]/3"
  145. # pan (slow 3 sinewave)
  146. d'drum $ overlay (s "house" # gain "1.5") $ cf $
  147. every 2 (superimpose $ iter' 3) $
  148. slow 2 $ ss'perc
  149. -- quickly
  150. d'voc $ slow 8 $ ss'verse # vowel "e"
  151. mapM_ ($ silence) [d'bass, d'gt, d'kurt, d'moog]
  152. d'drum $ cf $ slow 2 $ ss'perc
  153. hush