pigs-nose.tidal 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258
  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. -}
  27. -- @pn1print
  28. let p = s "print" -- (3) "{print, wobble}" -- (4) "wobble"
  29. in d'print $ cf $
  30. -- jux (slow 1.1) $ -- (2)
  31. slow 2.5 . striate 6 $ p
  32. -- # vowel (slow 3 "a e i") -- (1)
  33. -- pn1print @ 1
  34. -- @pn1qs
  35. d'qs $ cf $
  36. -- fastspread density [1,2] $ -- (4) -- (5) [1,1,2,0.5] -- (6) [1,1,0.5,2]
  37. -- jux (iter 8) $ -- (2)
  38. slow 4 . striate 4 $ -- (1) 2
  39. s "qspace"
  40. -- # speed (scale 0.7 1.2 $ slow 3.2 triwave1) -- (3)
  41. -- pn1qs @ 1
  42. d'drum $ cf $ s "[~ [~ ho] ~ ho ~ ~ ho ~]/2"
  43. -- pn1print @ 2
  44. -- pn1qs @ 2
  45. d'drum $ cf $ s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
  46. -- pn1qs @ 3
  47. -- pn1print @ 3
  48. d'drum $ cf $ stack [
  49. s "bd/2",
  50. s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
  51. ]
  52. -- pn1qs @ 4
  53. -- @pn1drum
  54. d'drum $ cf $
  55. -- overlay (s "[hh*8 [hh*4 ho]]/2") $ -- (5)
  56. -- every 8 (density 2) $ -- (3)
  57. -- jux (iter 4) . -- (2)
  58. -- jux (density 2 . iter 4) . -- (4) replace (2)(3)
  59. -- every 3 rev $ -- (1)
  60. stack [
  61. s "[bd [~ ~ ~ bd] bd*2 ~]/2",
  62. s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
  63. ]
  64. -- pn1print @ 4
  65. -- pn1qs @ 5
  66. -- pn1drum @ 1
  67. -- pn1drum @ 2
  68. -- pn1drum @ 3
  69. -- pn1drum @ 4
  70. -- pn1qs @ 6
  71. d'print silence
  72. -- pn1drum @ 0
  73. -- pn1drum @ 5
  74. -- pn1drum @ 5 w/ 1
  75. -- @pn1jbass
  76. d'jbass $ slow 8 $
  77. ((1/32) <~) $ -- (1) remove
  78. s "jungbass jungbass:1"
  79. # pan (slow 2 sinewave1)
  80. # speed 1.2
  81. -- pn1drum @ 5 w/ 1,2
  82. -- (pn2ql @ 0)
  83. d'ql $ slow 2 $ s "[qlatibro:1 qlatibro]*2"
  84. d'qs silence
  85. d'mons $ cf $
  86. -- striate 4 $ -- (1)
  87. slow 2 $ s "monsterb"
  88. # gain 0.7
  89. # speed (scale 0.6 1.1 $ slow 4 sinewave1)
  90. -- pn1drum @ 5 w/ 1,2,3
  91. msil [d'drum, d'jbass]
  92. d'mons silence
  93. {-
  94. @pn2
  95. -}
  96. -- @pn2ql
  97. d'ql $
  98. -- slow 2 $ -- (0)
  99. slow (10/4) $ fastspread density [1,5/4] $ -- (0) remove
  100. s "[qlatibro:1 qlatibro]*2"
  101. # vowel "e" -- (0) remove
  102. -- @pn2casio
  103. d'casio $ cf $
  104. -- jux (slow (4/3)) $ -- (2)
  105. -- fastspread density [1,4/3] $ -- (1)
  106. s "casio*2 ~"
  107. d'drum $ cf $ s "[hh*8 [hh*4 ho]]/2"
  108. -- @pn2mons
  109. d'mons $ cf $
  110. -- fastspread density [1,2] $ -- (1)
  111. striate 4 $ slow 2 $ s "monsterb"
  112. # gain 0.7
  113. # speed (scale 0.6 1.1 $ slow 4 sinewave1)
  114. -- pn2mons @ 1
  115. -- @pn2bass
  116. let p = slow 4 $ s "bass*2 bass*2 bass*3 bass*3" -- (3) slow 5
  117. -- p = slow 5 $ s "bass*2 bass*2 bass*3 bass*3 ~" -- (2)
  118. in d'bass $ p
  119. -- # speed (scale 1 2 $ density 2.4 sinewave1) -- (1)
  120. d'drum $ cf $ stack [
  121. s "[hh*8 [hh*4 ho]]/2",
  122. s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
  123. ]
  124. -- pn2bass @ 1
  125. -- @pn2drum
  126. d'drum $ cf $ stack [
  127. s "[hh*8 [hh*4 ho]]/2",
  128. s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2",
  129. -- every 4 (brak . density 2) $ -- (3)
  130. s "bd*2" -- (1) "house*2" -- (2) "house(3,8)"
  131. ]
  132. -- pn1qs @ 4
  133. -- pn2bass @ 2
  134. -- pn2drum @ 1
  135. -- pn1qs @ 5
  136. d'drum silence
  137. -- pn2drum @ 2
  138. -- pn1qs @ 6
  139. -- pn1jbass @ 1
  140. -- pn2bass @ 3
  141. msil [d'qs, d'mons]
  142. -- pn2casio @ 1
  143. -- pn2drum @ 3
  144. -- pn2casio @ 2
  145. msil [d'casio, d'ql]
  146. -- pn2mons @ 1
  147. -- @pn2sheep
  148. d'baa $ slow 6 $ s "baa"
  149. # vowel "e"
  150. msil [d'print, d'qs, d'jbass, d'mons, d'baa]
  151. solo $ d'drum $ cf $
  152. overlay (s "[hh*8 [hh*4 ho]]/2") $
  153. jux (iter 4 . rev) $ s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
  154. {-
  155. @pn3
  156. -}
  157. -- @pn3drum
  158. d'drum $ cf $
  159. overlay (
  160. -- every 4 (density 3) $ -- (5)
  161. s "house*2"
  162. ) $ -- (1)
  163. -- every 4 (density 2 . brak) $ -- (2)
  164. density (8/3) $
  165. s "sn:0 hh hh" -- (3) "sn:0 hh rm"
  166. -- # n "[0 1]/5" -- (4)
  167. -- pn3drum @ 1
  168. -- pn3drum @ 2
  169. -- pn3drum @ 3
  170. -- @pn3arm
  171. d'arm $ cf $
  172. -- every 2 (density 3) $ -- (2)
  173. -- every 8 (# speed "2") $ -- (1)
  174. slow 4 $ s "armora"
  175. -- # shape (scale 0 (2/3) $ slow 4 sinewave1) -- (3)
  176. -- pn3arm @ 1
  177. -- pn3arm @ 2
  178. -- pn3arm @ 3
  179. -- pn2mons @ 0
  180. -- pn1qs @ 1
  181. -- pn1qs @ 2
  182. -- pn1qs @ 3
  183. -- pn1qs @ 4
  184. -- pn3drum @ 4
  185. -- pn2bass @ 2
  186. -- pn3drum @ 5
  187. -- pn1jbass @ 1
  188. bpm (117 * 1.1) -- gradually to 1.5
  189. -- pn1print @ 4
  190. -- pn2sheep
  191. hush