juliese.tidal 3.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169
  1. {-
  2. anny: juliese
  3. to be performed at leeds algorave, 29th april 2016
  4. -}
  5. let bpm b = cps (b/60)
  6. every' n o f = when ((== (o-1)) . (`mod` n)) f
  7. msil = mapM_ ($ silence)
  8. d'drum = d1
  9. d'perc = d2
  10. d'bass = d3
  11. d'eg = d4
  12. d'gt = d5
  13. d'udu = d6
  14. d'pc = d7
  15. d'pcl = d8
  16. d'wbass = d9
  17. bpm 99
  18. hush
  19. -- @jdrum
  20. d'drum $ -- overlay ((1 ~>) $ s "cy/8") $ -- (3), (4) remove
  21. -- overlay ((0.5 ~>) $ s "sn/2") $ -- (2)
  22. -- every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ -- (1)
  23. -- every' 12 2 (density 3) $ -- (5)
  24. s "k"
  25. -- @jbass
  26. d'bass $
  27. -- slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $ -- (4)
  28. -- whenmod 4 2 (density 3) $ -- (3)
  29. -- whenmod 3 2 (slow 2) $ -- (2)
  30. sound "[[vb vb:1] ~]/2"
  31. # end (slow 1.4 "0.2 0.4")
  32. # vowel "e o"
  33. -- # speed (slow 2.5 "1 -1") -- (1)
  34. -- ~jdrum @ 1
  35. -- @jperc
  36. d'perc $
  37. -- iter 4 $ -- (4)
  38. -- (# pan (density 16 "0.25 0.75")) $ -- (3)
  39. -- whenmod 16 15 (density 3) $ -- (1)
  40. smash 16 [0.25, 0.5] $
  41. -- every 3 (append $ sound "hh:1 hh") $ -- (2)
  42. sound "hh hh:2"
  43. # gain 0.6
  44. -- ~jbass @ 1
  45. -- ~jperc @ 1
  46. -- ~jdrum @ 2
  47. -- ~jperc @ 2
  48. -- ~jdrum @ 3
  49. -- ~jbass @ 2
  50. -- ~jperc @ 3
  51. -- ~jdrum @ 4
  52. -- ~jbass @ 3
  53. -- ~jperc @ 4
  54. -- @judu
  55. d'udu $
  56. -- (every' 5 3 $ brak) $ -- (3)
  57. -- (every' 3 2 . sometimesBy 0.5 $ density (4/3)) $ -- (1)
  58. -- (whenmod 7 5 $ trunc (5/6)) $ -- (2)
  59. slow 4 . chop 128 $
  60. sound (samples "udu" (slow 4 $ irand 4))
  61. # gain 0.8
  62. # cut 6
  63. -- @jwbass
  64. d'wbass $ -- (sometimesBy 0.6 $ superimpose (rev . slow (5/4))) $ -- (5)
  65. -- every' 4 4 (0.32 ~>) $ -- (2)
  66. chop 16 $
  67. sound "[wb wb:1 ~ ~]/4"
  68. -- sound "[wb [wb:1 wb:2] ~ ~]/4" -- (1)
  69. -- sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" -- (2)
  70. -- sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" -- (4)
  71. # gain 0.9
  72. -- # speed "[1 1 2]/3" -- (3)
  73. -- ~jwbass @ 1
  74. -- ~jwbass @ 2
  75. -- @jeg
  76. d'eg $ -- (0.18 <~) $ -- (4)
  77. -- every 2 (const silence) $ -- (4), (5) remove
  78. -- (# speed (scale 0.8 1.3 $ slow 4 saw1)) $ -- (2)
  79. density 0.25 $ -- (3) 0.245
  80. -- slowspread density [1, 2, 0.5, 2] $ -- (1)
  81. gap 128 $ s "eg*2"
  82. # cut 4
  83. # gain 0.8
  84. -- ~jeg @ 1
  85. -- ~jeg @ 2
  86. -- ~jwbass @ 3
  87. -- ~jeg @ 3
  88. msil [d'perc, d'bass]
  89. -- ~jeg @ 4
  90. -- ~judu @ 1
  91. -- ~jdrum @ 5
  92. -- @jpc
  93. d'pc $
  94. -- whenmod 7 5 (density 1.25) $ -- (3)
  95. -- slowspread ($) [rev, id, brak, (0.25 ~>), id] $ -- (2)
  96. -- slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ -- (1)
  97. slow 16 $ gap 48 $ sound "pc:1"
  98. # gain 0.7
  99. # cut 7
  100. # speed "[1 0.7]"
  101. -- ~jpc @ 1
  102. -- ~judu @ 2
  103. -- ~jpc @ 2
  104. -- ~jwbass @ 4
  105. -- ~jpc @ 3
  106. -- @jgt
  107. d'gt $ -- density 0.98 $ -- (2)
  108. every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
  109. chop 128 $
  110. s "[gt [~ gt] ! ~]/2"
  111. # cut 5
  112. # gain 0.87
  113. -- # speed (scale 1 1.25 $ slow 1.95 sinewave1) -- (1)
  114. -- ~jgt @ 1
  115. -- ~jwbass @ 5
  116. -- ~jperc @ 4
  117. -- ~jbass @ 4
  118. -- ~judu @ 3
  119. -- ~jeg @ 5
  120. -- ~jgt @ 2
  121. msil [d'eg, d'wbass]
  122. -- @jdrum2
  123. d'drum $ stack [
  124. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
  125. every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
  126. ]
  127. -- @jpcl
  128. d'pcl $ -- superimpose (slow (10/9) . rev) $ -- (1)
  129. slow 16 . gap 64 $ s "pclow"
  130. # gain 0.8
  131. -- # speed "1 1.5" -- (2)
  132. -- ~jpcl @ 1
  133. -- ~jpcl @ 2
  134. msil [d'bass, d'udu, d'pc]
  135. -- ~jpcl @ 0
  136. hush