for-mix2.tidal 5.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214
  1. {-
  2. anny's wicked funky new song
  3. totally not banging
  4. just funky
  5. woo woo
  6. i shouldn't drink before i comment code
  7. http://anny.audio
  8. -}
  9. cps (99/60)
  10. let every' n o f = when ((== (o-1)) . (`mod` n)) f
  11. {-
  12. some defs cause i'm starting to lose track of all the copy pasta
  13. and fuck up my function ordering and gains
  14. n.b. cutgroup denotes channel e.g. cut "4" == d4
  15. -}
  16. -- bass template
  17. let bassbass = s "[[vb vb:1] ~]/2"
  18. # end (slow 1.4 "0.2 0.4")
  19. # vowel "e o"
  20. let bassbass' = bassbass # speed (slow 2.5 "1 -1")
  21. -- lay more k over 4tf k
  22. let morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
  23. -- final main drum loop, for reference
  24. -- n.b. DO NOT copy such shit all over the place like you did with piston, you ass
  25. let drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
  26. -- basic hats
  27. let hhb m = smash 16 [0.25, 0.5] $
  28. (if m then (every 3 (append $ s "hh:1 hh")) else id) $
  29. s "hh hh:2"
  30. # gain "0.6"
  31. -- udu
  32. let ududu = slow 4 . chop 128 $
  33. s (samples "udu" (slow 4 $ irand 4))
  34. # gain "0.8"
  35. # cut "6"
  36. -- guitar (i think)
  37. let eg g = gap 128 $ s "eg*2"
  38. # gain g
  39. # cut "4"
  40. -- other guitar
  41. let gt g = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
  42. chop 128 $
  43. s "[gt [~ gt] ! ~]/2"
  44. # gain g
  45. # cut "5"
  46. let pcbeep = slow 16 $ gap 48 $ s "pc:1"
  47. # gain "0.7"
  48. # cut "7"
  49. # speed "[1 0.7]"
  50. {-
  51. here goes i guess
  52. -}
  53. hush
  54. d3 $ bassbass
  55. d2 $ hhb False
  56. d3 $ bassbass'
  57. d1 $ s "k"
  58. d1 $ morek $ s "k"
  59. d2 $ whenmod 16 15 (density 3) $ hhb False
  60. d1 $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  61. d3 $ whenmod 3 2 (slow 2) $ bassbass'
  62. d3 $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  63. d1 $ overlay ((1 ~>) $ s "cy/8") $
  64. overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  65. d2 $ whenmod 16 15 (density 3) $ hhb True
  66. d2 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  67. d2 $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  68. d1 $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  69. d6 $ ududu
  70. d9 $ chop 16 $ s "[wb wb:1 ~ ~]/4" # gain "0.9"
  71. d9 $ chop 16 $ s "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9"
  72. d4 $ density 0.25 $ eg "0.7"
  73. d9 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
  74. d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  75. density 0.25 $ eg "0.7"
  76. d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  77. density 0.25 $
  78. slowspread density [1, 2, 0.5, 2] $ eg "0.7"
  79. d9 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
  80. # speed "[1 1 2]/3"
  81. d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  82. density 0.245 $ -- !
  83. slowspread density [1, 2, 0.5, 2] $ eg "0.7"
  84. d1 $ overlay ((1 ~>) $ s "cy/8") $
  85. overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  86. mapM_ ($ silence) [d2,d3]
  87. -- fuck yeah. const rules
  88. d4 $ (0.18 <~) $ every 2 (const silence) $
  89. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  90. density 0.245 $
  91. slowspread density [1, 2, 0.5, 2] $ eg "0.75"
  92. d1 $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  93. d6 $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu
  94. d1 $ overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
  95. d7 $ pcbeep
  96. d7 $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  97. d6 $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  98. (whenmod 7 5 $ trunc (5%6)) $ ududu
  99. d7 $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  100. slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  101. d9 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
  102. # speed "[1 1 2]/3"
  103. d7 $ whenmod 7 5 (density 1.25) $
  104. slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  105. slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  106. d5 $ gt "0.75"
  107. d5 $ gt "0.75"
  108. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  109. -- OOOOOOHHHH MY FUCK
  110. d9 $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
  111. every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
  112. # speed "[1 1 2]/3"
  113. d2 $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  114. d3 $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  115. -- funkier bassline w slowspread lambda, thanks yaxu. thaxu
  116. d3 $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
  117. whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  118. d6 $ (every' 5 3 $ brak) $
  119. (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  120. (whenmod 7 5 $ trunc (5%6)) $ ududu
  121. -- bye const
  122. d4 $ (0.18 <~) $
  123. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  124. density 0.245 $
  125. slowspread density [1, 2, 0.5, 2] $ eg "0.7"
  126. d5 $ density 0.98 $ gt "0.75"
  127. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  128. mapM_ ($ silence) [d4,d9]
  129. d1 $ stack [
  130. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
  131. every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
  132. ]
  133. d8 $ slow 16 . gap 64 $ s "pclow"
  134. # gain "0.8"
  135. d8 $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
  136. # gain "0.8"
  137. d8 $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
  138. # gain "0.8"
  139. # speed "1 1.5"
  140. mapM_ ($ silence) [d3,d6,d7]
  141. d8 $ slow 16 . gap 64 $ s "pclow"
  142. # gain "0.8"
  143. mapM_ ($ silence) [d2,d5]
  144. hush
  145. {-
  146. scratch area to keep stuff that's interesting but maybe doesn't fit in
  147. -}
  148. -- totally different drum line, feelwise. even though it's nearly the same
  149. -- kinda don't like it but not gonna chuck it yet, got a nice hip hop bent
  150. d1 $ overlay ((1 ~>) $ s "sn/2") $ morek $ s "k"
  151. -- outro drum line, could be variabl...ized cause no way i can type this all out live
  152. d1 $ stack [
  153. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
  154. every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
  155. ]