pigs-nose.tidal 5.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264
  1. {-
  2. anny fm: pig's nose ep
  3. -}
  4. -- still on bps atm, port to cps tomorrow like
  5. bps (117/60)
  6. {-
  7. [1]
  8. -}
  9. let pn'hointro = s "[~ [~ ho] ~ ho ~ ~ ho ~]/2"
  10. let pn'sn1 = s "[~ [~ sn:8] ~ sn:8 ~ ~ sn:8 ~]/2"
  11. let pn'bd1 = s "[bd:1 [~ ~ ~ bd:1] bd:1*2 ~]/2"
  12. let pn'qs1 sl = slow sl . striate 4 $ s "qspace"
  13. d2 $ slow 2.5 . striate 6 $ s "print:7"
  14. d2 $ slow 2.5 . striate 6 $ s "print:7"
  15. # vowel (slow 3 "a e i")
  16. d3 $ pn'qs1 4
  17. d3 $ pn'qs1 2
  18. d1 $ pn'hointro
  19. d2 $ jux (slow 1.1) $ slow 2.5 . striate 6 $ sound "print:7"
  20. d3 $ jux (iter 8) $ pn'qs1 2
  21. d1 $ pn'sn1
  22. d3 $ jux (iter 8) $ pn'qs1 2
  23. |+| speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  24. d2 $ jux (slow 1.1) $
  25. slow 2.5 . striate 6 $ sound "{print:7, wobble}"
  26. |+| vowel (slow 3 "a e i")
  27. d1 $ overlay (slow 2 $ s "bd") $ pn'sn1
  28. d3 $ spread density [1,2] $
  29. jux (iter 8) $ pn'qs1 2
  30. |+| speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  31. d1 $ overlay (pn'bd1) $ pn'sn1
  32. d2 $ jux (slow 1.1) $ slow 2.5 . striate 6 $ sound "wobble"
  33. -- angry qspace
  34. d3 $ spread density [1,1,2,0.5] $
  35. jux (iter 8) $ pn'qs1 2
  36. |+| speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  37. d1 $ every 3 rev $
  38. overlay (pn'bd1) $ pn'sn1
  39. d1 $ jux (iter 4) . every 3 rev $
  40. overlay (pn'bd1) $ pn'sn1
  41. d1 $ every 8 (density 2) $
  42. jux (iter 4) . every 3 rev $
  43. overlay (pn'bd1) $ pn'sn1
  44. d1 $ jux (density 2 . iter 4) . every 3 rev $
  45. overlay (pn'bd1) $ pn'sn1
  46. -- chiller qspace
  47. d3 $ spread density [1,1,0.5,2] $
  48. jux (iter 8) $ pn'qs1 2
  49. |+| speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  50. d2 silence
  51. d1 $ overlay (pn'bd1) $ pn'sn1
  52. d1 $ overlay (s "[hh*8 [hh*4 ho]]/2") $
  53. overlay (pn'bd1) $ pn'sn1
  54. d1 $ overlay (s "[hh*8 [hh*4 ho]]/2") $
  55. every 3 rev $
  56. overlay (pn'bd1) $ pn'sn1
  57. d4 $ slow 4 $ (1%32) <~ s "jungbass:2 jungbass:4"
  58. |+| pan (slow 2 sinewave1)
  59. |+| speed "1.2"
  60. d1 $ overlay (s "[hh*8 [hh*4 ho]]/2") $
  61. jux (iter 4) . every 3 rev $
  62. overlay (pn'bd1) $ pn'sn1
  63. d8 $ sound "[qlatibro:1 qlatibro]*2"
  64. d1 $ overlay (s "[hh*8 [hh*4 ho]]/2") $
  65. jux (iter 4) . every 3 rev $
  66. overlay (pn'bd1) $ pn'sn1
  67. d3 silence
  68. d5 $ slow 2 $ s "monsterb:6"
  69. # gain "0.7"
  70. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  71. d5 $ striate 4 $ slow 2 $ s "monsterb:6"
  72. # gain "0.7"
  73. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  74. d1 $ overlay (s "[hh*8 [hh*4 ho]]/2") $
  75. every 8 (density 2) $
  76. jux (iter 4) . every 3 rev $
  77. overlay (pn'bd1) $ pn'sn1
  78. mapM_ ($ silence) [d1,d4]
  79. d5 silence
  80. {-
  81. [2]
  82. -}
  83. d8 $ slow (5%4) $ spread density [1,5%4] $ sound "[qlatibro:1 qlatibro]*2"
  84. # vowel "e"
  85. d7 $ sound "casio*2 ~"
  86. d1 $ s "[hh*8 [hh*4 ho]]/2"
  87. d5 $ striate 4 $ slow 2 $ s "monsterb:6"
  88. # gain "0.7"
  89. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  90. d5 $ spread density [1,2] $ striate 4 $ slow 2 $ sound "monsterb:6"
  91. # gain "0.7"
  92. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  93. d6 $ slow 2 $ sound "bass*2 bass*2 bass*3 bass*3"
  94. d1 $ overlay (pn'sn1) $
  95. s "[hh*8 [hh*4 ho]]/2"
  96. d6 $ slow 2 $ sound "bass*2 bass*2 bass*3 bass*3"
  97. # speed ((+1) <$> density 2.4 sinewave1)
  98. d1 $ overlay (s "bd*2") $
  99. overlay (pn'sn1) $
  100. s "[hh*8 [hh*4 ho]]/2"
  101. d3 $ spread density [1,2] $
  102. jux (iter 8) $ pn'qs1 2
  103. |+| speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  104. d6 $ slow (5%4) . slow 2 $ sound "bass*2 bass*2 bass*3 bass*3 ~"
  105. # speed ((+1) <$> density 2.4 sinewave1)
  106. d1 $ overlay (s "house*2") $
  107. overlay (pn'sn1) $
  108. s "[hh*8 [hh*4 ho]]/2"
  109. d3 $ spread density [1,1,2,0.5] $
  110. jux (iter 8) $ pn'qs1 2
  111. |+| speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  112. d1 silence
  113. d1 $ overlay (s "house(3,8)") $
  114. overlay (pn'sn1) $
  115. s "[hh*8 [hh*4 ho]]/2"
  116. d3 $ spread density [1,1,0.5,2] $
  117. jux (iter 8) $ pn'qs1 2
  118. |+| speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  119. d4 $ slow 4 $ s "jungbass:2 jungbass:4"
  120. |+| pan (slow 2 sinewave1)
  121. |+| speed "1.2"
  122. d6 $ slow (5%4) . slow 2 $ sound "bass*2 bass*2 bass*3 bass*3"
  123. # speed ((+1) <$> density 2.4 sinewave1)
  124. mapM_ ($ silence) [d3,d5]
  125. d7 $ spread density [1,4%3] $ sound "casio*2 ~"
  126. d1 $ overlay (every 4 (brak . density 2) $ s "house(3,8)") $
  127. overlay (pn'sn1) $
  128. s "[hh*8 [hh*4 ho]]/2"
  129. d7 $ jux (slow (4%3)) $ spread density [1,4%3] $ sound "casio*2 ~"
  130. mapM_ ($ silence) [d7,d8]
  131. d5 $ spread density [1,2] $ striate 4 $ slow 2 $ sound "monsterb:6"
  132. # gain "0.7"
  133. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  134. d9 $ slow 3 $ sound "baa"
  135. |+| vowel "e"
  136. mapM_ ($ silence) [d2,d3,d4,d5,d9]
  137. solo $ d1 $ stack [
  138. jux (iter 4 . rev) $ slow 2 $ sound "~ [~ sn:8] ~ [sn:8 ~] ~ ~ sn:8 ~",
  139. slow 2 $ sound "hh*8 [hh*4 ho]"
  140. ]
  141. {-
  142. [3]
  143. -}
  144. d1 $ density 2 . density (4%3) $ sound "sn:2 hh hh"
  145. d1 $ overlay (s "house*2") $
  146. density 2 . density (4%3) $ sound "sn:2 hh hh"
  147. d1 $ overlay (s "house*2") $
  148. every 4 (density 2 . brak) $ density 2 . density (4%3) $ sound "sn:2 hh hh"
  149. d1 $ overlay (s "house*2") $
  150. every 4 (density 2 . brak) $
  151. density 2 . density (4%3) $ sound "sn:2 hh rm"
  152. d8 $ slow 4 $ sound "armora:5"
  153. d8 $ every 8 (|+| speed "2") $ slow 4 $ sound "armora:5"
  154. d8 $ every 2 (density 3) $ every 8 (|+| speed "2") $ slow 4 $ sound "armora:5"
  155. |+| shape ((/1.5) <$> slow 4 sinewave1)
  156. d5 $ striate 4 $ slow 2 $ s "monsterb:6"
  157. # gain "0.7"
  158. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  159. d3 $ pn'qs1 2
  160. d3 $ jux (iter 8) $ pn'qs1 2
  161. d3 $ jux (iter 8) $ pn'qs1 2
  162. |+| speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  163. d3 $ spread density [1,2] $
  164. jux (iter 8) $ pn'qs1 2
  165. |+| speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  166. d1 $ overlay (s "house*2") $
  167. every 4 (density 2 . brak) $
  168. density 2 . density (4%3) $ sound (samples "sn:2 hh rm" (slow 5 "0 1"))
  169. d6 $ slow (5%4) . slow 2 $ sound "bass*2 bass*2 bass*3 bass*3 ~"
  170. # speed ((+1) <$> density 2.4 sinewave1)
  171. d1 $ overlay (every 4 (density 3) $ s "house*2") $
  172. every 4 (density 2 . brak) $
  173. density 2 . density (4%3) $ sound "sn:2 hh hh"
  174. d4 $ slow 4 $ s "jungbass:2 jungbass:4"
  175. |+| pan (slow 2 sinewave1)
  176. |+| speed "1.2"
  177. bps ((117*1.5)/60) -- gradually 1.1->1.5
  178. d2 $ jux (slow 1.1) $ slow 2.5 . striate 6 $ sound "wobble"
  179. d9 $ slow 3 $ sound "baa"
  180. |+| vowel "e"
  181. hush