juliese.tidal 5.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202
  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'drum $ s "k"
  55. d'bass $ bassbass
  56. d'perc $ hhb False
  57. d'bass $ bassbass'
  58. d'drum $ morek $ s "k"
  59. d'perc $ hhb True
  60. d'perc $ whenmod 16 15 (density 3) $ hhb True
  61. d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  62. d'drum $ overlay ((1 ~>) $ s "cy/8") $
  63. overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  64. d'bass $ whenmod 3 2 (slow 2) $ bassbass'
  65. d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  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'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
  73. d'eg $ density 0.25 $ eg
  74. # gain "0.8"
  75. d'eg $
  76. slowspread density [1, 2, 0.5, 2] $ 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. mapM_ ($ silence) [d'perc, d'bass]
  89. -- fuck yeah. const rules
  90. d'eg $ (0.18 <~) $ every 2 (const silence) $
  91. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  92. density 0.245 $
  93. slowspread density [1, 2, 0.5, 2] $ eg
  94. # gain "0.8"
  95. d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu
  96. d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ every' 12 2 (density 3) $ s "k"
  97. d'pc $ pcbeep
  98. d'pc $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  99. d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  100. (whenmod 7 5 $ trunc (5%6)) $ ududu
  101. d'pc $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  102. slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  103. 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"
  104. # speed "[1 1 2]/3"
  105. d'pc $ whenmod 7 5 (density 1.25) $
  106. slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  107. slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  108. d'gt $ gt
  109. # gain "0.87"
  110. d'gt $ gt
  111. # gain "0.87"
  112. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  113. -- OOOOOOHHHH MY FUCK
  114. d'wbass $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
  115. every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
  116. # speed "[1 1 2]/3"
  117. d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  118. -- funkier bassline w slowspread lambda, thanks yaxu. thaxu
  119. d'bass $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
  120. whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  121. d'udu $ (every' 5 3 $ brak) $
  122. (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  123. (whenmod 7 5 $ trunc (5%6)) $ ududu
  124. -- bye const
  125. d'eg $ (0.18 <~) $
  126. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  127. density 0.245 $
  128. slowspread density [1, 2, 0.5, 2] $ eg
  129. # gain "0.8"
  130. d'gt $ density 0.98 $ gt
  131. # gain "0.87"
  132. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  133. let ju'drum2 = stack [
  134. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
  135. every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
  136. ]
  137. mapM_ ($ silence) [d'eg, d'wbass]
  138. d'drum $ ju'drum2
  139. d'pcl $ slow 16 . gap 64 $ s "pclow"
  140. # gain "0.8"
  141. d'pcl $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
  142. # gain "0.8"
  143. d'pcl $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
  144. # gain "0.8"
  145. # speed "1 1.5"
  146. mapM_ ($ silence) [d'bass, d'udu, d'pc]
  147. d'pcl $ slow 16 . gap 64 $ s "pclow"
  148. # gain "0.8"
  149. hush