2
0

notts.notes.tidal 4.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242
  1. let bpm b = cps (b/60)
  2. {-
  3. 1a> p6 @ 138
  4. -}
  5. d'bass $ bass'6
  6. d'bz $ bass2'6
  7. d'fly $ plode'6
  8. d'cymb $ density (5%4) $ whenmod 9 4 (density 1.5) $ cymb'6
  9. d'perc $ wt'2 # gain "0.85"
  10. d'drum $ overlay sn'6 $ drum'6
  11. d'misc $ slow 16 $ bass' 64
  12. d'gnome $ wtsn'6
  13. d'bass $ (0.6 ~>) $ bass'4
  14. msil [d'perc,d'gnome,d'misc]
  15. d'gnome $ gnome'6 5 -- then 3
  16. msil [d'drum,d'fly,d'bz,d'cymb]
  17. d'drum $ sound "[[k k:1]*2 [sn k:1 ~ k] [~ k:1 k ~] [~ sn ~ k]]/8"
  18. d'fly $ fly'5 False
  19. d'cymb $ (0.5 <~) $ cymb'2 "0.7"
  20. msil [d'perc,d'fly,d'bz]
  21. {-
  22. 1b> r @ 117
  23. -}
  24. msil [d'gnome, d'bass]
  25. d'ql $ slow (10%4) $ spread density [1,5%4] $
  26. sound "[qlatibro:1 qlatibro]*2"
  27. # vowel "e"
  28. d'cymb silence
  29. d'drum $ overlay (cf $ pn'hh) $ drum'6
  30. d'casio $ cf $ s "casio*2 ~"
  31. d'bass $ every 2 (density 2) $ bass'5
  32. d'qs $ cf $
  33. spread density [1,1,2,0.5] $ -- (2) & (3) [1,1,0.5,2]
  34. jux (iter 8) $ pn'qs 2
  35. # speed ((+0.7).(/2) <$> slow 3.2 triwave1) -- (1) & later, +1.2
  36. # gain "0.95"
  37. d'mons $ cf $
  38. spread density [1,2] $ -- (1)
  39. striate 4 $ slow 2 $ s "monsterb"
  40. # gain "0.7"
  41. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  42. d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
  43. s "k(3,8)"
  44. d'jbass $ slow 8 $ sound "jungbass jungbass:1"
  45. # pan (slow 2 sinewave1)
  46. # speed "1.2"
  47. {-
  48. 1c> b1 @ 125
  49. -}
  50. d'hand $ b1'hand
  51. # shape ((/2) <$> slow (10%4) sinewave1) -- (1)
  52. # pan (halfosc <$> slow (8%3) sinewave1) -- (2)
  53. d'qs silence
  54. d'fly $ fly'5 True
  55. d'bass $ slow 4 $ b1'bass
  56. # n "0 1 0 0"
  57. # speed (thirdosc1 <$> slow 8 sinewave1)
  58. d'perc $ cf $
  59. -- slow 2 . spread slow [2,4,2,3] $ -- (4) replacing (3)
  60. spread slow [2,1] $ -- (3) after ++bpm
  61. jux (0.25 <~) $ -- (2)
  62. b1'perc
  63. # n (density 3 $ run 2) -- (1)
  64. msil [d'fly, d'casio, d'jbass]
  65. d'bass $ cf $
  66. spread slow [1,3] $
  67. striate 16 $
  68. b1'bass
  69. # n "0 1 0 0"
  70. # speed (halfosc1 <$> slow 8 sinewave1)
  71. # gain "0.9"
  72. d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
  73. d'drum $ cf $
  74. overlay (
  75. every' 8 8 (density 1.5) $
  76. every 2 (density 3) $
  77. sound "[~ psn:1]"
  78. ) $
  79. overlay (pn'hh) $
  80. every 4 (brak . density 2) $ s "k(3,8)"
  81. msil [d'tac, d'bass]
  82. {-
  83. 1d> p3
  84. -}
  85. d'cymb $ (0.5 <~) $ cymb'2 "0.7"
  86. d'bass2 $ bass'3 "o i" "1" True # gain "1" -- "0"
  87. d'misc $ bass2'3
  88. d'warb $ b1'warbler
  89. msil [d'hand, d'bz, d'bass, d'bass2, d'cymb]
  90. {-
  91. 2> j @ 99
  92. -}
  93. d'bass $
  94. slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $ -- (4) later
  95. whenmod 4 2 (density 3) $ -- (3)
  96. whenmod 3 2 (slow 2) $ -- (2)
  97. bassbass -- (1) bassbass'
  98. d'drum $ overlay ((1 ~>) $ s "cy/8") $ -- (3) briefly
  99. overlay ((0.5 ~>) $ s "rsn/2") $ -- (2)
  100. morek $ -- (1)
  101. every' 12 2 (density 3) $ -- (4)
  102. s "k"
  103. d'perc $ iter 4 $ -- (4)
  104. (# pan (density 16 "0.25 0.75")) $ -- (3)
  105. whenmod 16 15 (density 3) $ -- (1)
  106. hhb False -- (2) True
  107. d'udu $ (every' 5 3 $ brak) $ -- (3)
  108. (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ -- (1)
  109. (whenmod 7 5 $ trunc (5%6)) $ -- (2)
  110. ududu
  111. d'wbass $
  112. (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $ -- (6)
  113. every' 4 4 (0.32 ~>) $
  114. chop 16 $
  115. -- sound "[wb wb:1 ~ ~]/4" -- (1) initial
  116. -- sound "[wb [wb:1 wb:2] ~ ~]/4" -- (2)
  117. -- sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" -- (3)
  118. sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" -- (5)
  119. # gain "0.9"
  120. # speed "[1 1 2]/3" -- (4)
  121. d'eg $ (0.18 <~) $ every 2 (const silence) $ -- (5) then (6) w/o silence
  122. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ -- (2)
  123. density 0.25 $ -- (3) 0.245
  124. slowspread density [1, 2, 0.5, 2] $ -- (1)
  125. eg
  126. # gain "0.8"
  127. mapM_ ($ silence) [d'perc, d'bass]
  128. d'pc $ whenmod 7 5 (density 1.25) $ -- (3)
  129. slowspread ($) [rev, id, brak, (0.25 ~>), id] $ -- (2)
  130. slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ -- (1)
  131. pcbeep
  132. d'gt $ density 0.98 $ -- (2)
  133. gt
  134. # gain "0.87"
  135. # speed ((+1).(/4) <$> slow 1.95 sinewave1) -- (1)
  136. mapM_ ($ silence) [d'eg, d'wbass]
  137. d'drum $ ju'drum2
  138. mapM_ ($ silence) [d'bass, d'udu, d'pc, d'perc]
  139. {-
  140. 3a> b2 @ 125
  141. -}
  142. d'perc $ cf $ s "uxay*2"
  143. # n "1"
  144. mapM_ ($ silence) [d'gt, d'drum]
  145. d'perc $ b2'ux
  146. # speed "[0.7 1 1.2]/2"
  147. d'drum $ overlay (s "k") $ -- (3)
  148. cf $ every 3 (0.125 <~) $ -- (2)
  149. b2'psr -- (1) then psrf
  150. d'perc $ b2'ux2 False -- (1) True
  151. d'tr $ cf $ b2'trump "[~ trump ! !] ~"
  152. # speed (halfosc1 <$> slow 4 sinewave1) -- (1)
  153. d'bass $ b2'bass
  154. -- # shape (halfosc <$> saw1) -- (3) replacing (2)
  155. # shape "0.1" -- (1) 0.2 (2) 0.3
  156. d'arpy $ cf $
  157. whenmod 7 4 (|+| vowel "a") $
  158. iter 9 $ b2'arpy
  159. msil [d'misc, d'perc]
  160. d'drum $ s "k/4"
  161. d'bass silence
  162. {-
  163. 3b> b3
  164. -}
  165. d'fly $ fly'7
  166. # orbit "2"
  167. # delay "0.6"
  168. # delayfeedback "0.4"
  169. # delaytime "0.62" --(112/60)/3
  170. d'perc $ cf $
  171. slow 2 . spread slow [2,4,2,3] $
  172. jux (0.25 <~) $ b1'perc
  173. # n (density 3 $ run 2)
  174. d'drum $ overlay (s "k/4") $
  175. cf $ b3'perc
  176. d'bass $ cf $
  177. spread slow [2,(7%4)] $ -- (2)
  178. whenmod 7 6 (density 1.5) $ -- (1)
  179. iter 4 $ -- (3)
  180. b3'bass