pigs-nose.tidal 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261
  1. {-
  2. Anny FM: Pig's Nose EP
  3. anny.audio
  4. Current version: 1.0.0
  5. Compatibility: Tidal Cycles 1.0-dev + SuperDirt 1.0-dev + SuperCollider 3.8
  6. License: CC-BY-SA https://creativecommons.org/licenses/by-sa/4.0/
  7. See README.md for more information
  8. -}
  9. let bpm b = cps (b/60)
  10. msil = mapM_ ($ silence)
  11. cf = slow 2
  12. d'drum = d1
  13. d'print = d2
  14. d'wobb = d2
  15. d'qs = d3
  16. d'jbass = d4
  17. d'mons = d5
  18. d'bass = d6
  19. d'casio = d7
  20. d'ql = d8
  21. d'arm = d8
  22. d'baa = d9
  23. bpm 117
  24. {-
  25. @pn1
  26. Decant
  27. -}
  28. -- @pn1print
  29. let p = s "print" -- (3) "{print, wobble}" -- (4) "wobble"
  30. in d'print $ cf $
  31. -- jux (slow 1.1) $ -- (2)
  32. slow 2.5 . striate 6 $ p
  33. -- # vowel (slow 3 "a e i") -- (1)
  34. -- pn1print @ 1
  35. -- @pn1qs
  36. d'qs $ cf $
  37. -- fastspread density [1,2] $ -- (4) -- (5) [1,1,2,0.5] -- (6) [1,1,0.5,2]
  38. -- jux (iter 8) $ -- (2)
  39. slow 4 . striate 4 $ -- (1) 2
  40. s "qspace"
  41. -- # speed (scale 0.7 1.2 $ slow 3.2 triwave1) -- (3)
  42. -- pn1qs @ 1
  43. d'drum $ cf $ s "[~ [~ ho] ~ ho ~ ~ ho ~]/2"
  44. -- pn1print @ 2
  45. -- pn1qs @ 2
  46. d'drum $ cf $ s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
  47. -- pn1qs @ 3
  48. -- pn1print @ 3
  49. d'drum $ cf $ stack [
  50. s "bd/2",
  51. s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
  52. ]
  53. -- pn1qs @ 4
  54. -- @pn1drum
  55. d'drum $ cf $
  56. -- overlay (s "[hh*8 [hh*4 ho]]/2") $ -- (5)
  57. -- every 8 (density 2) $ -- (3)
  58. -- jux (iter 4) . -- (2)
  59. -- jux (density 2 . iter 4) . -- (4) replace (2)(3)
  60. -- every 3 rev $ -- (1)
  61. stack [
  62. s "[bd [~ ~ ~ bd] bd*2 ~]/2",
  63. s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
  64. ]
  65. -- pn1print @ 4
  66. -- pn1qs @ 5
  67. -- pn1drum @ 1
  68. -- pn1drum @ 2
  69. -- pn1drum @ 3
  70. -- pn1drum @ 4
  71. -- pn1qs @ 6
  72. d'print silence
  73. -- pn1drum @ 0
  74. -- pn1drum @ 5
  75. -- pn1drum @ 5 w/ 1
  76. -- @pn1jbass
  77. d'jbass $ slow 8 $
  78. ((1/32) <~) $ -- (1) remove
  79. s "jungbass jungbass:1"
  80. # pan (slow 2 sinewave1)
  81. # speed 1.2
  82. -- pn1drum @ 5 w/ 1,2
  83. -- (pn2ql @ 0)
  84. d'ql $ slow 2 $ s "[qlatibro:1 qlatibro]*2"
  85. d'qs silence
  86. d'mons $ cf $
  87. -- striate 4 $ -- (1)
  88. slow 2 $ s "monsterb"
  89. # gain 0.7
  90. # speed (scale 0.6 1.1 $ slow 4 sinewave1)
  91. -- pn1drum @ 5 w/ 1,2,3
  92. msil [d'drum, d'jbass]
  93. d'mons silence
  94. {-
  95. @pn2
  96. Raise
  97. -}
  98. -- @pn2ql
  99. d'ql $
  100. -- slow 2 $ -- (0)
  101. slow (10/4) $ fastspread density [1,5/4] $ -- (0) remove
  102. s "[qlatibro:1 qlatibro]*2"
  103. # vowel "e" -- (0) remove
  104. -- @pn2casio
  105. d'casio $ cf $
  106. -- jux (slow (4/3)) $ -- (2)
  107. -- fastspread density [1,4/3] $ -- (1)
  108. s "casio*2 ~"
  109. d'drum $ cf $ s "[hh*8 [hh*4 ho]]/2"
  110. -- @pn2mons
  111. d'mons $ cf $
  112. -- fastspread density [1,2] $ -- (1)
  113. striate 4 $ slow 2 $ s "monsterb"
  114. # gain 0.7
  115. # speed (scale 0.6 1.1 $ slow 4 sinewave1)
  116. -- pn2mons @ 1
  117. -- @pn2bass
  118. let p = slow 4 $ s "bass*2 bass*2 bass*3 bass*3" -- (3) slow 5
  119. -- p = slow 5 $ s "bass*2 bass*2 bass*3 bass*3 ~" -- (2)
  120. in d'bass $ p
  121. -- # speed (scale 1 2 $ density 2.4 sinewave1) -- (1)
  122. d'drum $ cf $ stack [
  123. s "[hh*8 [hh*4 ho]]/2",
  124. s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
  125. ]
  126. -- pn2bass @ 1
  127. -- @pn2drum
  128. d'drum $ cf $ stack [
  129. s "[hh*8 [hh*4 ho]]/2",
  130. s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2",
  131. -- every 4 (brak . density 2) $ -- (3)
  132. s "bd*2" -- (1) "house*2" -- (2) "house(3,8)"
  133. ]
  134. -- pn1qs @ 4
  135. -- pn2bass @ 2
  136. -- pn2drum @ 1
  137. -- pn1qs @ 5
  138. d'drum silence
  139. -- pn2drum @ 2
  140. -- pn1qs @ 6
  141. -- pn1jbass @ 1
  142. -- pn2bass @ 3
  143. msil [d'qs, d'mons]
  144. -- pn2casio @ 1
  145. -- pn2drum @ 3
  146. -- pn2casio @ 2
  147. msil [d'casio, d'ql]
  148. -- pn2mons @ 1
  149. -- @pn2baa
  150. d'baa $ slow 6 $ s "baa"
  151. # vowel "e"
  152. msil [d'print, d'qs, d'jbass, d'mons, d'baa]
  153. solo $ d'drum $ cf $
  154. overlay (s "[hh*8 [hh*4 ho]]/2") $
  155. jux (iter 4 . rev) $ s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
  156. {-
  157. @pn3
  158. Savour
  159. -}
  160. -- @pn3drum
  161. d'drum $ cf $
  162. {- overlay ( -- (1)
  163. -- every 4 (density 3) $ -- (5)
  164. s "house*2"
  165. ) $ -- -}
  166. -- every 4 (density 2 . brak) $ -- (2)
  167. density (8/3) $
  168. s "sn:0 hh hh" -- (3) "sn:0 hh rm"
  169. -- # n "[0 1]/5" -- (4)
  170. -- pn3drum @ 1
  171. -- pn3drum @ 2
  172. -- pn3drum @ 3
  173. -- @pn3arm
  174. d'arm $ cf $
  175. -- every 2 (density 3) $ -- (2)
  176. -- every 8 (# speed "2") $ -- (1)
  177. slow 4 $ s "armora"
  178. -- # shape (scale 0 (2/3) $ slow 4 sinewave1) -- (3)
  179. -- pn3arm @ 1
  180. -- pn3arm @ 2
  181. -- pn3arm @ 3
  182. -- pn2mons @ 0
  183. -- pn1qs @ 1
  184. -- pn1qs @ 2
  185. -- pn1qs @ 3
  186. -- pn1qs @ 4
  187. -- pn3drum @ 4
  188. -- pn2bass @ 2
  189. -- pn3drum @ 5
  190. -- pn1jbass @ 1
  191. bpm (117 * 1.1) -- gradually to 1.5
  192. -- pn1print @ 4
  193. -- pn2sheep
  194. hush