2
0

piston-notes.tidal 5.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253
  1. {-
  2. anny: piston lp performance (notes to self)
  3. see piston.tidal for full composition
  4. -}
  5. cps (138/60)
  6. -- [1]
  7. d'fly $ whenmod 5 2 (# vowel "i o") $ whenmod 3 1 (slow 2) $ brak $ -- takeoff
  8. fly'1 # gain "1" -- intro
  9. d'perc $ s "{wt/2, [~ wtsn]/8}" -- start wt/2 only
  10. d'bass $ slow 8 $ (0.25 <~) $
  11. bass' 16
  12. d'perc $ within (0.5, 1) (slow 1.5 . chop 4) $
  13. whenmod 5 3 (rev . chop 8) $ -- only rev 1st
  14. snare43'1
  15. d'gnome $ gnome'1
  16. d'drum $ within (0.5, 1) (chop 8) $ -- briefly, after bass'1'm
  17. overlay shnare'1 $ kick38'1 -- overlay sn 1st
  18. d'bass $ bass'1'm $
  19. slow 8 $ bass' 16
  20. d'drum $ overlay ((3.75 ~>) $ s "wtsn/4") $ -- for transition to 2
  21. overlay sn $ kick38'1
  22. -- [2]
  23. -- silence fly, gnome
  24. d'perc $ s "[~ wt*4 ~ wt*2 ~]/5"
  25. d'drum $ s "[k [sn k] [k sn] [~ sn] [~ k] sn [k [k wtsn]]]/7"
  26. d'perc $ wt'2
  27. d'bass $ bass'2 -- synth params only in pt 2.5
  28. # vowel "u a"
  29. # speed "0.8 1.2"
  30. d'ant $ ant'2
  31. d'shard $ ((1%16) <~) $ shard'2
  32. d'fly $ fly'2
  33. d'drum $ (0.5 <~) $ s "[[k k:1] [sn ~ ~ k]]/2"
  34. d'cymb $ whenmod 5 3 (density 3) $
  35. (0.25 ~>) $ cymb'2 "0.65"
  36. d'shard $ every 2 (density 1.5) $ whenmod 5 3 (density 2) $
  37. rev $ shard'2
  38. # shape ((+0.25).(/2) <$> density 8 saw1)
  39. d'drum $ s "[[k sn] [~ k:1 k:1 ~]]/2"
  40. d'drum $ s "[k [sn k:1 k:1 ~]]/2"
  41. d'perc $ s "~ wt*2"
  42. -- [3]
  43. -- silence bass, cymb, fly
  44. d'drum $ k
  45. d'bz $ bz'3
  46. d'drum $ s "[k k sn k]/2"
  47. d'drum $ drum'3
  48. d'bass $ bass'3 "o i" "1" True
  49. d'perc $ within (0, 0.5) (# vowel "o") $
  50. whenmod 3 2 rev $ chop 16 $
  51. within (0.5, 1.5) (perc'3'delay) $
  52. overlay (s "~ wt*2") $
  53. perc'3
  54. d'misc $ bass2'3
  55. d'shard $ iter 4 . density 2 $ -- last bit that makes it greatsome
  56. (0.5 <~) $ ((1%16) <~) $ shard'2
  57. # vowel "e o"
  58. # gain "0.6"
  59. d'gnome $ gnome'1
  60. d'drum $ s "[k k sn k*2]/2"
  61. -- [4]
  62. -- solo misc
  63. d'perc $ smash 4 [0.5,0.25] $ iter 3 $
  64. drum5'4
  65. d'shard $ whenmod 7 3 (density (5%4)) $
  66. plox'4 "[ice plode]*2"
  67. d'drum $ s "[k sn k*2 [~ sn] [~ k]]/5"
  68. d'drum $ s "[[k k:1]*2 sn k*2 [~ sn] [~ k]]/5"
  69. d'bz $ bz'4
  70. d'bass $ (0.75 ~>) $ bass'4
  71. d'bz $ every 3 brak $ -- every 2 @ end
  72. bzox'4 "bz bzl" -- bz, bz*2, bz bzl
  73. d'drum $ s "[k*2 sn [~ k] sn]/4"
  74. d'shard $ whenmod 7 3 (density (5%4)) $
  75. plox'4 "[ice wtsn]*2"
  76. # vowel "u e"
  77. -- [5]
  78. d'perc $ perc'5
  79. d'drum $ overlay (s "[[k ~ ~ k] ~ [~ k] ~]/4") $ drum'5
  80. d'ant $ ant'2
  81. -- rapidly
  82. d'drum $ drum'5
  83. msil [d'bz,d'ant]
  84. d'drum $ overlay k $ drum'5
  85. d'bass $ within (0.5, 0.75) (# vowel "u o") $
  86. every 2 (density 2) $
  87. whenmod 3 2 (density 1.6) $ -- restore whenmod before within ^
  88. bass'5
  89. # speed ((+0.75).(/2) <$> slow 1.3 sinewave1) -- b4 d'bz speed
  90. d'fly $ fly'5 False
  91. d'bz $ within (0, 0.5) rev $
  92. whenmod 4 3 (density 1.8) $
  93. bass2'5
  94. # shape ((/3) <$> density 3 sinewave1)
  95. d'shard $ whenmod 5 3 (slow 1.5) $ rev $ stack [
  96. gnome'5 [0.5,1] id,
  97. gnome'5 [(1/2.5),1] (0.5 <~)
  98. ]
  99. -- [6]
  100. solo $ d'bass $ bass'6
  101. d'bz $ bass2'6
  102. d'fly $ plode'6
  103. d'cymb $ density (5%4) $ whenmod 9 4 (density 1.5) $
  104. cymb'6
  105. d'perc $ wt'2 # gain "0.85"
  106. d'drum $ overlay sn'6 $
  107. drum'6
  108. d'misc $ slow 16 $ bass' 64
  109. d'gnome $ wtsn'6
  110. d'bass $ (0.6 ~>) $ bass'4
  111. d'gnome $ gnome'6 3 -- 5 then 3
  112. d'drum $ s "[[k k:1]*2 [sn k:1 ~ k] [~ k:1 k ~] [~ sn ~ k]]/8"
  113. d'fly $ fly'5 False
  114. d'cymb $ (0.5 <~) $ cymb'2 "0.7"
  115. -- [7]
  116. -- silence fly, bz, ...gnome
  117. solo $ d'drum $ whenmod 3 2 (slow (4%3)) $
  118. s "[k*2 [sn ~ ~ wt] k*2 sn [~ k]]/5"
  119. d'drum $ every 3 (density 2) $
  120. within (0, 0.5) (jux ((1%3) ~>)) $
  121. s "[k [sn ~ k] [~ ~ sn] ~]/8"
  122. d'shard $ shard'7 "0.02" -- later, 0.76
  123. hush
  124. d'drum $ s "[k [sn ~ k] [~ ~ sn] ~]/8"
  125. d'perc $ s "[wt*3 ~]/2"
  126. # shape ((/2) <$> slow 3 saw1)
  127. d'bass $
  128. (# begin (bass'7'm id)) $
  129. (# end (bass'7'm (+0.05))) $
  130. bass'7 id
  131. d'fly $ fly'7
  132. # delay "0.6"
  133. # delayfeedback "0.4"
  134. # delaytime "0.62"
  135. d'bz $ rev . chop 12 $ s "bz/4"
  136. # vowel "o"
  137. d'drum $ s "{[[k ~ k] k]/2, ~ sn}"
  138. d'bass $ bass'7 (within (0.33, 0.67) (0.25 ~>))
  139. # vowel "o"
  140. d'drum $ within (0, 0.5) (jux ((1%3) ~>)) $ -- jux -> superimpose, in 8
  141. s "[k [sn ~ k] [~ ~ sn] ~]/8"
  142. -- [8]
  143. -- silence bass, bz
  144. d'bass $ slow 16 $ bass' 32 -- then 64
  145. d'bz $ bz'8 # gain "0.9"
  146. d'drum $ s "[k*2 [sn ~ ~ wt] [~ k] sn [~ k]]/5"
  147. d'drum $ s "[k [sn ~ ~ wt] [~ k] sn]/4" -- swap wt for k
  148. d'ant $ ant'2
  149. d'misc $ fly'2
  150. d'shard $ bass'5f
  151. d'perc $ s "{wt/2, [~ wtsn]/8}"
  152. d'cymb $ cymb'6f
  153. d'perc $ overlay fly'1f $ -- 2nd last
  154. within (0.5, 1) (slow (3%2) . chop 4) $ -- last
  155. whenmod 5 3 (rev . chop 8) $ -- only rev 1st
  156. snare43'1
  157. -- [9]
  158. msil [d'fly,d'bz,d'shard,d'misc,d'ant,d'cymb]
  159. d'misc $ overlay bass'5f $
  160. (0.75 ~>) $ bass'4
  161. d'drum $ s "[k*2 [sn ~ ~ k] [k k*2] sn]/4"
  162. d'shard $ whenmod 7 3 (density (5%4)) $ plox'4 "[ice plode]*2"
  163. d'fly $ fly'5 True
  164. d'ant $ bass2'6
  165. d'cymb $ wtsn'6
  166. d'gnome $ gnome'6 3
  167. d'bz $ within (0.5, 1) (density 2) $
  168. shard'3f
  169. msil [d'fly,d'shard,d'bz,d'misc,d'cymb]
  170. d'misc $ (0.75 ~>) $ bass'4
  171. d'cymb $ (2.75 ~>) $ cymb'2 "0.7"
  172. msil [d'gnome,d'ant]
  173. d'bz $ every 3 brak $ bzox'4 "~ bzl"
  174. msil [d'bz,d'cymb,d'misc]
  175. solo $ d'perc $ within (0.5, 1) (slow (3%2) . chop 4) $
  176. whenmod 5 3 (rev . chop 8) $
  177. snare43'1
  178. hush