pigs-nose.tidal 7.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369
  1. {-
  2. anny fm: pig's nose ep
  3. originally recorded @ home, elephant & castle, 5th april 2014
  4. released on fwonk*: fwonk.co.uk/132/
  5. _____
  6. / /
  7. /____/
  8. anny.audio/album/pigs-nose-ep
  9. __
  10. c||| o_
  11. c||||| ___o
  12. soundcloud.com/anny-fm/sets/pigs-nose-ep
  13. -}
  14. cps (117/60)
  15. -- multi-silence
  16. let msil = mapM_ ($ silence)
  17. -- shortfix for bps->cps
  18. let cf = slow 2
  19. -- channel map
  20. let d'drum = d1
  21. d'print = d2
  22. d'wobb = d2
  23. d'qs = d3
  24. d'jbass = d4
  25. d'mons = d5
  26. d'bass = d6
  27. d'casio = d7
  28. d'ql = d8
  29. d'arm = d8
  30. d'baa = d9
  31. {-
  32. [1]
  33. -}
  34. -- intro hat
  35. let pn'hointro = s "[~ [~ ho] ~ ho ~ ~ ho ~]/2"
  36. -- drums pretty much all the way thru
  37. let pn'sn = s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
  38. let pn'bd = s "[bd [~ ~ ~ bd] bd*2 ~]/2"
  39. let pn'hh = s "[hh*8 [hh*4 ho]]/2"
  40. -- qspace (= space but quieter)
  41. let pn'qs sl = slow sl . striate 4 $ s "qspace"
  42. -- off tempo intro
  43. d'print $ cf $ slow 2.5 . striate 6 $ s "print"
  44. d'print $ cf $ slow 2.5 . striate 6 $ s "print"
  45. # vowel (slow 3 "a e i")
  46. d'qs $ cf $ pn'qs 4
  47. d'qs $ cf $ pn'qs 2
  48. d'drum $ cf $ pn'hointro
  49. d'print $ cf $
  50. jux (slow 1.1) $
  51. slow 2.5 . striate 6 $ s "print"
  52. # vowel (slow 3 "a e i")
  53. d'qs $ cf $ jux (iter 8) $ pn'qs 2
  54. d'drum $ cf $ pn'sn
  55. d'qs $ cf $ jux (iter 8) $ pn'qs 2
  56. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  57. d'print $ cf $
  58. jux (slow 1.1) $
  59. slow 2.5 . striate 6 $ s "{print, wobble}"
  60. # vowel (slow 3 "a e i")
  61. d'drum $ cf $ overlay (slow 2 $ s "bd") $ pn'sn
  62. -- good qspace
  63. d'qs $ cf $
  64. spread density [1,2] $
  65. jux (iter 8) $ pn'qs 2
  66. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  67. -- drums r srs now
  68. d'drum $ cf $ overlay (pn'bd) $ pn'sn
  69. d'print $ cf $
  70. jux (slow 1.1) $
  71. slow 2.5 . striate 6 $ s "wobble"
  72. -- pushy qspace
  73. d'qs $ cf $
  74. spread density [1,1,2,0.5] $
  75. jux (iter 8) $ pn'qs 2
  76. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  77. d'drum $ cf $
  78. every 3 rev $
  79. overlay (pn'bd) $ pn'sn
  80. d'drum $ cf $
  81. jux (iter 4) . every 3 rev $
  82. overlay (pn'bd) $ pn'sn
  83. d'drum $ cf $
  84. every 8 (density 2) $
  85. jux (iter 4) . every 3 rev $
  86. overlay (pn'bd) $ pn'sn
  87. d'drum $ cf $
  88. jux (density 2 . iter 4) . every 3 rev $
  89. overlay (pn'bd) $ pn'sn
  90. -- chiller qspace
  91. d'qs $ cf $
  92. spread density [1,1,0.5,2] $
  93. jux (iter 8) $ pn'qs 2
  94. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  95. d'print silence
  96. d'drum $ cf $ overlay (pn'bd) $ pn'sn
  97. d'drum $ cf $
  98. overlay (pn'hh) $
  99. overlay (pn'bd) $ pn'sn
  100. d'drum $ cf $
  101. overlay (pn'hh) $
  102. every 3 rev $
  103. overlay (pn'bd) $ pn'sn
  104. d'jbass $ slow 8 $ ((1%32) <~) $ s "jungbass jungbass:1"
  105. # pan (slow 2 sinewave1)
  106. # speed "1.2"
  107. d'drum $ cf $
  108. overlay (pn'hh) $
  109. jux (iter 4) . every 3 rev $
  110. overlay (pn'bd) $ pn'sn
  111. -- start tailing off
  112. d'ql $ slow 2 $ s "[qlatibro:1 qlatibro]*2"
  113. d'drum $ cf $
  114. overlay (pn'hh) $
  115. jux (iter 4) . every 3 rev $
  116. overlay (pn'bd) $ pn'sn
  117. d'qs silence
  118. d'mons $ cf $
  119. slow 2 $ s "monsterb"
  120. # gain "0.7"
  121. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  122. d'mons $ cf $
  123. striate 4 $ slow 2 $ s "monsterb"
  124. # gain "0.7"
  125. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  126. d'drum $ cf $
  127. overlay (pn'hh) $
  128. every 8 (density 2) $
  129. jux (iter 4) . every 3 rev $
  130. overlay (pn'bd) $ pn'sn
  131. -- calm
  132. msil [d'drum, d'jbass]
  133. d'mons silence
  134. {-
  135. [2]
  136. -}
  137. let pn'bass4 = s "bass*2 bass*2 bass*3 bass*3"
  138. let pn'bass5 = s "bass*2 bass*2 bass*3 bass*3 ~"
  139. d'ql $ slow (10%4) $ spread density [1,5%4] $
  140. s "[qlatibro:1 qlatibro]*2"
  141. # vowel "e"
  142. -- yknow this is a pretty neat sample
  143. d'casio $ cf $ s "casio*2 ~"
  144. d'drum $ cf $ pn'hh
  145. d'mons $ cf $
  146. striate 4 $ slow 2 $ s "monsterb"
  147. # gain "0.7"
  148. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  149. d'mons $ cf $
  150. spread density [1,2] $
  151. striate 4 $ slow 2 $ s "monsterb"
  152. # gain "0.7"
  153. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  154. -- real bass at last
  155. d'bass $ slow 4 $ pn'bass4
  156. d'drum $ cf $ overlay (pn'sn) $ pn'hh
  157. d'bass $ cf $ slow 2 $ pn'bass4
  158. # speed ((+1) <$> density 2.4 sinewave1)
  159. d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
  160. s "bd*2"
  161. d'qs $ cf $
  162. spread density [1,2] $
  163. jux (iter 8) $ pn'qs 2
  164. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  165. d'bass $ slow 5 $ pn'bass5
  166. # speed ((+1) <$> density 2.4 sinewave1)
  167. -- real kick drum at last!
  168. d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
  169. s "house*2"
  170. d'qs $ cf $
  171. spread density [1,1,2,0.5] $
  172. jux (iter 8) $ pn'qs 2
  173. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  174. -- quickly
  175. d'drum silence
  176. d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
  177. s "house(3,8)"
  178. d'qs $ cf $
  179. spread density [1,1,0.5,2] $
  180. jux (iter 8) $ pn'qs 2
  181. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  182. d'jbass $ slow 8 $ s "jungbass jungbass:1"
  183. # pan (slow 2 sinewave1)
  184. # speed "1.2"
  185. d'bass $ slow 5 $ pn'bass4
  186. # speed ((+1) <$> density 2.4 sinewave1)
  187. msil [d'qs, d'mons]
  188. -- mess with casio a bit then get rid. a transition
  189. d'casio $ cf $
  190. spread density [1,4%3] $ s "casio*2 ~"
  191. d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
  192. every 4 (brak . density 2) $ s "house(3,8)"
  193. d'casio $ cf $
  194. jux (slow (4%3)) $
  195. spread density [1,4%3] $ s "casio*2 ~"
  196. msil [d'casio, d'ql]
  197. d'mons $ cf $
  198. spread density [1,2] $
  199. striate 4 $ slow 2 $ s "monsterb"
  200. # gain "0.7"
  201. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  202. -- sometimes i regret putting a sheep in this song
  203. d'baa $ slow 6 $ s "baa"
  204. # vowel "e"
  205. msil [d'print, d'qs, d'jbass, d'mons, d'baa]
  206. -- nice
  207. solo $ d'drum $ cf $
  208. overlay pn'hh $
  209. jux (iter 4 . rev) $ pn'sn
  210. {-
  211. [3]
  212. -}
  213. -- drum intro
  214. d'drum $ cf $
  215. density (8%3) $ s "sn:0 hh hh"
  216. d'drum $ cf $
  217. overlay (s "house*2") $
  218. density (8%3) $ s "sn:0 hh hh"
  219. d'drum $ cf $
  220. overlay (s "house*2") $
  221. every 4 (density 2 . brak) $
  222. density (8%3) $ s "sn:0 hh hh"
  223. d'drum $ cf $
  224. overlay (s "house*2") $
  225. every 4 (density 2 . brak) $
  226. density (8%3) $ s "sn:0 hh rm"
  227. -- weird low
  228. d'arm $ cf $
  229. slow 4 $ s "armora"
  230. d'arm $ cf $
  231. every 8 (# speed "2") $
  232. slow 4 $ s "armora"
  233. d'arm $ cf $
  234. every 2 (density 3) $
  235. every 8 (# speed "2") $
  236. slow 4 $ s "armora"
  237. d'arm $ cf $
  238. every 2 (density 3) $
  239. every 8 (# speed "2") $
  240. slow 4 $ s "armora"
  241. # shape ((/1.5) <$> slow 4 sinewave1)
  242. -- bring monster back
  243. d'mons $ cf $
  244. striate 4 $ slow 2 $ s "monsterb"
  245. # gain "0.7"
  246. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  247. -- and qspace
  248. d'qs $ cf $ pn'qs 2
  249. d'qs $ cf $ jux (iter 8) $ pn'qs 2
  250. d'qs $ cf $
  251. jux (iter 8) $ pn'qs 2
  252. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  253. d'qs $ cf $
  254. spread density [1,2] $
  255. jux (iter 8) $ pn'qs 2
  256. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  257. d'drum $ cf $
  258. overlay (s "house*2") $
  259. every 4 (density 2 . brak) $
  260. density (8%3) $ (s "sn:0 hh rm" # n "[0 1]/5")
  261. -- bring back 5/4 bass
  262. d'bass $ slow 5 $ pn'bass5
  263. # speed ((+1) <$> density 2.4 sinewave1)
  264. d'drum $ cf $
  265. overlay (every 4 (density 3) $ s "house*2") $
  266. every 4 (density 2 . brak) $
  267. density (8%3) $ (s "sn:0 hh rm" # n "[0 1]/5")
  268. d'jbass $ slow 8 $ s "jungbass jungbass:1"
  269. # pan (slow 2 sinewave1)
  270. # speed "1.2"
  271. -- gradually 1.1->1.5
  272. cps ((117*1.5)/60)
  273. d'wobb $ cf $
  274. jux (slow 1.1) $
  275. slow 2.5 . striate 6 $ s "wobble"
  276. -- still don't know why i put a fuckin sheep in here
  277. d'baa $ slow 6 $ s "baa"
  278. # vowel "e"
  279. -- all at once
  280. hush