juliese.tidal 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209
  1. {-
  2. anny: juliese
  3. to be performed at leeds algorave, 29th april 2016
  4. -}
  5. cps (99/60)
  6. -- alt every
  7. let every' n o f = when ((== (o-1)) . (`mod` n)) f
  8. -- channel maps
  9. let d'drum = d1
  10. d'perc = d2
  11. d'bass = d3
  12. d'eg = d4
  13. d'gt = d5
  14. d'udu = d6
  15. d'pc = d7
  16. d'pcl = d8
  17. d'wbass = d9
  18. -- bass template
  19. let bassbass = s "[[vb vb:1] ~]/2"
  20. # end (slow 1.4 "0.2 0.4")
  21. # vowel "e o"
  22. let bassbass' = bassbass # speed (slow 2.5 "1 -1")
  23. -- lay more k over 4tf k
  24. let morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
  25. -- final main drum loop, for reference
  26. -- n.b. DO NOT copy such shit all over the place like you did with piston, you ass
  27. let drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
  28. -- basic hats
  29. let hhb m = smash 16 [0.25, 0.5] $
  30. (if m then (every 3 (append $ s "hh:1 hh")) else id) $
  31. s "hh hh:2"
  32. # gain "0.6"
  33. -- udu
  34. let ududu = slow 4 . chop 128 $
  35. s (samples "udu" (slow 4 $ irand 4))
  36. # gain "0.8"
  37. # cut "6"
  38. -- guitar (i think)
  39. let eg = gap 128 $ s "eg*2"
  40. # cut "4"
  41. -- other guitar
  42. let gt = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
  43. chop 128 $
  44. s "[gt [~ gt] ! ~]/2"
  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. d'bass $ bassbass
  55. d'perc $ hhb False
  56. d'bass $ bassbass'
  57. d'drum $ s "k"
  58. d'drum $ morek $ s "k"
  59. d'perc $ whenmod 16 15 (density 3) $ hhb False
  60. d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  61. d'bass $ whenmod 3 2 (slow 2) $ bassbass'
  62. d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  63. d'drum $ overlay ((1 ~>) $ s "cy/8") $
  64. overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  65. d'perc $ whenmod 16 15 (density 3) $ hhb True
  66. d'perc $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  67. d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  68. d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  69. d'udu $ ududu
  70. d'wbass $ chop 16 $ s "[wb wb:1 ~ ~]/4" # gain "0.9"
  71. d'wbass $ chop 16 $ s "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9"
  72. d'eg $ density 0.25 $ eg
  73. # gain "0.8"
  74. d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
  75. d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  76. density 0.25 $ eg
  77. # gain "0.8"
  78. d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  79. density 0.25 $
  80. slowspread density [1, 2, 0.5, 2] $ eg
  81. # gain "0.8"
  82. d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
  83. # speed "[1 1 2]/3"
  84. d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  85. density 0.245 $ -- !
  86. slowspread density [1, 2, 0.5, 2] $ eg
  87. # gain "0.8"
  88. d'drum $ overlay ((1 ~>) $ s "cy/8") $
  89. overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  90. mapM_ ($ silence) [d'perc, d'bass]
  91. -- fuck yeah. const rules
  92. d'eg $ (0.18 <~) $ every 2 (const silence) $
  93. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  94. density 0.245 $
  95. slowspread density [1, 2, 0.5, 2] $ eg
  96. # gain "0.8"
  97. d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  98. d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu
  99. d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ every' 12 2 (density 3) $ s "k"
  100. d'pc $ pcbeep
  101. d'pc $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  102. d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  103. (whenmod 7 5 $ trunc (5%6)) $ ududu
  104. d'pc $ 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. d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
  107. # speed "[1 1 2]/3"
  108. d'pc $ whenmod 7 5 (density 1.25) $
  109. slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  110. slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  111. d'gt $ gt
  112. # gain "0.87"
  113. d'gt $ gt
  114. # gain "0.87"
  115. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  116. -- OOOOOOHHHH MY FUCK
  117. d'wbass $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
  118. every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
  119. # speed "[1 1 2]/3"
  120. d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  121. d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  122. -- funkier bassline w slowspread lambda, thanks yaxu. thaxu
  123. d'bass $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
  124. whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  125. d'udu $ (every' 5 3 $ brak) $
  126. (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  127. (whenmod 7 5 $ trunc (5%6)) $ ududu
  128. -- bye const
  129. d'eg $ (0.18 <~) $
  130. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  131. density 0.245 $
  132. slowspread density [1, 2, 0.5, 2] $ eg
  133. # gain "0.8"
  134. d'gt $ density 0.98 $ gt
  135. # gain "0.87"
  136. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  137. mapM_ ($ silence) [d'eg, d'wbass]
  138. let ju'drum2 = stack [
  139. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
  140. every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
  141. ]
  142. d'drum $ ju'drum2
  143. d'pcl $ slow 16 . gap 64 $ s "pclow"
  144. # gain "0.8"
  145. d'pcl $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
  146. # gain "0.8"
  147. d'pcl $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
  148. # gain "0.8"
  149. # speed "1 1.5"
  150. mapM_ ($ silence) [d'bass, d'udu, d'pc]
  151. d'pcl $ slow 16 . gap 64 $ s "pclow"
  152. # gain "0.8"
  153. mapM_ ($ silence) [d'perc, d'gt]
  154. hush