something-to-say.tidal 3.8 KB

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