for-mix2.tidal 4.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183
  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. hush
  12. {-
  13. some defs cause i'm starting to lose track of all the copy pasta
  14. and fuck up my function ordering and gains
  15. n.b. cutgroup denotes channel e.g. cut "4" == d4
  16. -}
  17. -- bass template
  18. let bassbass = s "[[vb vb:1] ~]/2"
  19. # end (slow 1.4 "0.2 0.4")
  20. # vowel "e o"
  21. let bassbass' = bassbass # speed (slow 2.5 "1 -1")
  22. -- lay more k over 4tf k
  23. let morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
  24. -- final main drum loop, for reference
  25. -- n.b. DO NOT copy such shit all over the place like you did with piston, you ass
  26. let drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
  27. -- basic hats
  28. let hhb m = smash 16 [0.25, 0.5] $
  29. (if m then (every 3 (append $ s "hh:1 hh")) else id) $
  30. s "hh hh:2"
  31. # gain "0.6"
  32. -- udu
  33. let ududu = slow 4 . chop 128 $
  34. s (samples "udu" (slow 4 $ irand 4))
  35. # gain "0.8"
  36. # cut "6"
  37. -- guitar (i think)
  38. let eg g = gap 128 $ s "eg*2"
  39. # gain g
  40. # cut "4"
  41. -- other guitar
  42. let gt g = chop 128 $ s "[gt [~ gt] ! ~]/2"
  43. # gain g
  44. # cut "5"
  45. let pcbeep = slow 16 $ gap 48 $ s "pc:1"
  46. # gain "0.7"
  47. # cut "7"
  48. # speed "[1 0.7]"
  49. {-
  50. here goes i guess
  51. -}
  52. d3 $ bassbass
  53. d2 $ hhb False
  54. d3 $ bassbass'
  55. d1 $ s "k"
  56. d1 $ morek $ s "k"
  57. d2 $ whenmod 16 15 (density 3) $ hhb False
  58. d1 $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  59. d3 $ whenmod 3 2 (slow 2) $ bassbass'
  60. d3 $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  61. d1 $ overlay ((1 ~>) $ s "cy/8") $
  62. overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  63. d2 $ whenmod 16 15 (density 3) $ hhb True
  64. d2 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  65. d1 $ overlay ((1 ~>) $ s "cy/8") $
  66. overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
  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") $ every' 12 2 (density 3) $ morek $ s "k"
  69. d6 $ ududu
  70. -- fade up to gain 0.8
  71. d4 $ density 0.25 $ eg "0.8"
  72. d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  73. density 0.25 $ eg "0.8"
  74. d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  75. density 0.25 $
  76. slowspread density [1, 2, 0.5, 2] $ eg "0.8"
  77. d6 $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu
  78. d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  79. density 0.245 $ -- !
  80. slowspread density [1, 2, 0.5, 2] $ eg "0.8"
  81. d1 $ overlay ((1 ~>) $ s "cy/8") $
  82. overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
  83. mapM_ ($ silence) [d2,d3]
  84. -- fuck yeah. const rules
  85. d4 $ (0.18 <~) $ every 2 (const silence) $
  86. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  87. density 0.245 $
  88. slowspread density [1, 2, 0.5, 2] $ eg "0.8"
  89. d1 $ overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
  90. d7 $ pcbeep
  91. d7 $ slowspread (\x -> within x (slow 2)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  92. d6 $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  93. (whenmod 7 5 $ trunc (5%6)) $ ududu
  94. d6 $ (every' 5 3 $ brak) $
  95. (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  96. (whenmod 7 5 $ trunc (5%6)) $ ududu
  97. d7 $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  98. slowspread (\x -> within x (slow 2)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  99. d7 $ whenmod 7 5 (density 1.25) $
  100. slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  101. slowspread (\x -> within x (slow 2)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  102. d3 $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  103. d4 $ (0.18 <~) $ --every 2 (const silence) $
  104. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  105. density 0.245 $
  106. slowspread density [1, 2, 0.5, 2] $ eg "0.8"
  107. -- fade up to 0.75 (or 0.8? used to be 0.8 but its pretty loud)
  108. d5 $ gt "0.75"
  109. -- funkier bassline w slowspread lambda, thanks yaxu. thaxu
  110. d3 $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
  111. whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  112. d5 $ gt "0.75"
  113. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  114. d5 $ density 0.98 $ gt "0.75"
  115. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  116. d2 $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  117. d1 $ stack [
  118. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
  119. every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
  120. ]
  121. mapM_ ($ silence) [d4,d5]
  122. d8 $ slow 16 . gap 64 $ s "pclow"
  123. # gain "0.8"
  124. mapM_ ($ silence) [d6,d7]
  125. d2 silence
  126. hush
  127. {-
  128. scratch area to keep stuff that's interesting but maybe doesn't fit in
  129. -}
  130. -- totally different drum line, feelwise. even though it's nearly the same
  131. -- kinda don't like it but not gonna chuck it yet
  132. d1 $ overlay ((1 ~>) $ s "sn/2") $ morek $ s "k"