notts.notes.tidal 9.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441
  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. msil [d'mons, d'drum, d'ql]
  43. d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
  44. s "k(3,8)"
  45. d'jbass $ slow 8 $ sound "jungbass jungbass:1"
  46. # pan (slow 2 sinewave1)
  47. # speed "1.2"
  48. {-
  49. 1c> b1 @ 125
  50. -}
  51. d'hand $ b1'hand
  52. # shape ((/2) <$> slow (10%4) sinewave1) -- (1)
  53. -- # pan (halfosc <$> slow (8%3) sinewave1) -- (2)
  54. d'qs silence
  55. d'fly $ fly'5 True
  56. d'bass $ slow 4 $ b1'bass
  57. # n "0 1 0 0"
  58. # speed (thirdosc1 <$> slow 8 sinewave1)
  59. d'perc $ cf $
  60. -- slow 2 . spread slow [2,4,2,3] $ -- (4) replacing (3)
  61. -- spread slow [2,1] $ -- (3) after ++bpm
  62. -- jux (0.25 <~) $ -- (2)
  63. b1'perc
  64. -- # n (density 3 $ run 2) -- (1)
  65. msil [d'fly, d'casio, d'jbass]
  66. d'bass $ cf $
  67. spread slow [1,3] $
  68. striate 16 $
  69. b1'bass
  70. # n "0 1 0 0"
  71. # speed (halfosc1 <$> slow 8 sinewave1)
  72. # gain "0.9"
  73. d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
  74. d'drum $ cf $
  75. overlay (
  76. {- every' 8 8 (density 1.5) $
  77. every 2 (density 3) $ -}
  78. sound "[~ psn:1]"
  79. ) $
  80. overlay (pn'hh) $
  81. every 4 (brak . density 2) $ s "k(3,8)"
  82. msil [d'tac, d'bass]
  83. {-
  84. 1d> p3
  85. -}
  86. d'cymb $ (0.5 <~) $ cymb'2 "0.7"
  87. d'bass2 $ bass'3 "o i" "1" True # gain "1" -- "0"
  88. d'misc $ bass2'3
  89. d'warb $ b1'warbler
  90. msil [d'hand, d'bz, d'bass, d'bass2, d'cymb]
  91. {-
  92. 2> j @ 99
  93. -}
  94. d'bass $
  95. -- slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $ -- (4) later
  96. -- whenmod 4 2 (density 3) $ -- (3)
  97. -- whenmod 3 2 (slow 2) $ -- (2)
  98. bassbass -- (1) bassbass'
  99. d'drum $ -- overlay ((1 ~>) $ s "cy/8") $ -- (3) briefly
  100. -- overlay ((0.5 ~>) $ s "rsn/2") $ -- (2)
  101. -- morek $ -- (1)
  102. -- every' 12 2 (density 3) $ -- (4)
  103. s "k"
  104. d'perc $ -- iter 4 $ -- (4)
  105. -- (# pan (density 16 "0.25 0.75")) $ -- (3)
  106. -- whenmod 16 15 (density 3) $ -- (1)
  107. hhb False -- (2) True
  108. d'udu $ -- (every' 5 3 $ brak) $ -- (3)
  109. -- (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ -- (1)
  110. -- (whenmod 7 5 $ trunc (5%6)) $ -- (2)
  111. ududu
  112. d'wbass $
  113. -- (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $ -- (6)
  114. every' 4 4 (0.32 ~>) $
  115. chop 16 $
  116. sound "[wb wb:1 ~ ~]/4" -- (1) initial
  117. -- sound "[wb [wb:1 wb:2] ~ ~]/4" -- (2)
  118. -- sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" -- (3)
  119. -- sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" -- (5)
  120. # gain "0.9"
  121. -- # speed "[1 1 2]/3" -- (4)
  122. d'eg $ (0.18 <~) $ every 2 (const silence) $ -- (5) then (6) w/o silence
  123. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ -- (2)
  124. density 0.25 $ -- (3) 0.245
  125. slowspread density [1, 2, 0.5, 2] $ -- (1)
  126. eg
  127. # gain "0.8"
  128. mapM_ ($ silence) [d'perc, d'bass]
  129. d'pc $ -- whenmod 7 5 (density 1.25) $ -- (3)
  130. -- slowspread ($) [rev, id, brak, (0.25 ~>), id] $ -- (2)
  131. -- slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ -- (1)
  132. pcbeep
  133. d'gt $ -- density 0.98 $ -- (2)
  134. gt
  135. # gain "0.87"
  136. -- # speed ((+1).(/4) <$> slow 1.95 sinewave1) -- (1)
  137. mapM_ ($ silence) [d'eg, d'wbass]
  138. d'drum $ ju'drum2
  139. mapM_ ($ silence) [d'bass, d'udu, d'pc, d'perc]
  140. {-
  141. 3a> b2 @ 125
  142. -}
  143. d'perc $ cf $ s "uxay*2"
  144. # n "1"
  145. mapM_ ($ silence) [d'gt, d'drum]
  146. d'perc $ b2'ux
  147. # speed "[0.7 1 1.2]/2"
  148. d'drum $ -- overlay (s "k") $ -- (3)
  149. cf $
  150. -- every 3 (0.125 <~) $ -- (2)
  151. b2'psr -- (1) then psrf
  152. d'perc $ b2'ux2 False -- (1) True
  153. d'tr $ cf $ b2'trump "[~ trump ! !] ~"
  154. # speed (halfosc1 <$> slow 4 sinewave1) -- (1)
  155. d'bass $ b2'bass
  156. -- # shape (halfosc <$> saw1) -- (3) replacing (2)
  157. # shape "0.1" -- (1) 0.2 (2) 0.3
  158. d'arpy $ cf $
  159. -- whenmod 7 4 (|+| vowel "a") $ -- (2)
  160. -- iter 9 $ -- (1)
  161. b2'arpy
  162. msil [d'misc, d'perc]
  163. d'drum $ s "k/4"
  164. d'bass silence
  165. {-
  166. 3b> b3
  167. -}
  168. d'fly $ fly'7
  169. # orbit "2"
  170. # delay "0.6"
  171. # delayfeedback "0.4"
  172. # delaytime "0.62"
  173. d'perc $ cf $
  174. slow 2 . spread slow [2,4,2,3] $
  175. jux (0.25 <~) $ b1'perc
  176. # n (density 3 $ run 2)
  177. d'drum $ overlay (s "k/4") $
  178. cf $ b3'perc
  179. -- # n (slow 3 $ run 4) -- (1)
  180. d'bass $ cf $
  181. -- spread slow [2,(7%4)] $ -- (2)
  182. -- whenmod 7 6 (density 1.5) $ -- (1)
  183. -- iter 4 $ -- (3)
  184. b3'bass -- (4) b3'bassf
  185. d'hand $ b1'hand
  186. # shape ((/2) <$> slow (10%4) sinewave1)
  187. # pan (halfosc <$> slow (8%3) sinewave1)
  188. d'tac $ cf $ cf . whenmod 7 4 (density 1.5) $ b1'tac -- note 2x cf
  189. d'arpy $ cf $ iter 9 $ b2'arpy
  190. msil [d'bass, d'hand, d'fly]
  191. d'drum $ cf $
  192. overlay (b3'drum) $ -- (1) b3'drumf
  193. (b3'perc # n (slow 3 $ run 4))
  194. d'arpy silence
  195. d'shard $ whenmod 7 3 (density (5%4)) $ plox'4 "[ice plode]*2"
  196. d'bass $ bass'5f
  197. d'fly $ fly'2
  198. d'perc $ s "{wt/2, [~ wtsn]/8}"
  199. d'perc $ -- overlay fly'1f $ -- (3)
  200. -- within (0.5, 1) (slow (3%2) . chop 4) $ -- (4)
  201. -- whenmod 5 3 (rev) $ -- (1) then (2) rev . chop 8
  202. snare43'1
  203. msil [d'ant, d'fly, d'perc, d'hand, d'shard, d'tac]
  204. d'drum $ cf $
  205. -- every 3 rev $ -- (4) -- (5a) remove
  206. -- every' 8 8 rev $ -- (3)
  207. overlay (b3'drumf) $ -- (5b) remove
  208. -- whenmod 5 3 (density 2) $ -- (1)
  209. -- iter 2 $ -- (2)
  210. (b3'perc # n (slow 3 $ run 4))
  211. msil [d'bass, d'arpy, d'bass2]
  212. {-
  213. 3c> p8 @ 138
  214. -}
  215. d'bass $ slow 16 $ bass' 64
  216. d'drum $ overlay (s "[k [sn ~ ~ k] [~ k*2] sn]/4") $
  217. -- overlay (s "[k*2 [sn ~ ~ k] [k k*2] sn]/4") $ -- (1)
  218. cf $ b3'perc # n (slow 3 $ run 4) -- (2) remove
  219. d'misc $ overlay bass'5f $ -- (1)
  220. (0.75 ~>) $ bass'4
  221. d'fly $ fly'5 True
  222. d'ant $ bass2'6
  223. d'cymb $ wtsn'6
  224. d'gnome $ gnome'6 5 -- (1) 3
  225. d'bz $ within (0.5, 1) (density 2) $ -- (1)
  226. shard'3f
  227. msil [d'fly,d'shard,d'bz,d'misc,d'cymb]
  228. d'drum $ s "[k*2 [sn ~ ~ k] [k k*2] sn]/4"
  229. d'cymb $ (2.75 ~>) $ cymb'2 "0.7"
  230. msil [d'gnome,d'ant]
  231. d'bz $ every 3 brak $ bzox'4 "~ bzl"
  232. msil [d'bz,d'cymb,d'misc]
  233. {-
  234. 4> h(ar) 105
  235. -}
  236. -- pt1/2
  237. d'drum $ stack [
  238. n "[1*2]/8" # s "drum"
  239. ]
  240. d'drum $ stack [
  241. n "[1*2, 0*8]/8" # s "drum",
  242. n "[~ 0]" # s "kit"
  243. ]
  244. d'perc silence
  245. d'wax $ slow 16 . striate 256 $ s "icarus"
  246. d'wax $ retrig $ slow 20 $ sound "icarus:1"
  247. d'nim $ superimpose (iter 4 . nim'osc) $
  248. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  249. d'drum $ -- mt 16 16 $
  250. stack [
  251. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  252. -- whenmod 3 2 (density 2) $
  253. -- withmod 11 5 0.5 1 (density 2) $
  254. n "[~ 0]" # s "kit"
  255. -- n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  256. ]
  257. d'fx3 $
  258. (1.5 ~>) $
  259. slow 4 $ chop 48 $
  260. sound (samples "snoo" <$> slow 7 $ run 7)
  261. # gain "0.8"
  262. # cut "10"
  263. d'fx1 $ -- mt 16 16 $
  264. -- superimpose (slow 2) $
  265. (2 ~>) $ chop 16 $
  266. s "dorr/4"
  267. # hresonance "0.05"
  268. # hcutoff "200"
  269. # gain "0.8"
  270. d'nim $ superimpose (iter 6 . nim'osc . (# nudge "0")) $
  271. mt 16 16 $
  272. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  273. msil [d'wax, d'fx2, d'fx3]
  274. d'fx2 $ mt 16 16 $
  275. stack [
  276. 1.75 ~> s "tubal/4"
  277. {- chop 16 $
  278. 3.75 ~> s "duck/4"
  279. # gain "0.6"
  280. # speed "0.9" -}
  281. ]
  282. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  283. mt 16 16 $ -- (1)
  284. every 3 (density 2) $
  285. every' 2 2 (within (0, 0.5) (const silence)) $
  286. whenmod 5 3 rev $
  287. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  288. -- pt 3/4
  289. msil [d'fx1, d'fx2]
  290. let s = striate 16
  291. in d'bass $
  292. slow 8 $ stack [
  293. s $ sound "hbass",
  294. s $ sound "sine"
  295. ]
  296. # gain "0.9"
  297. d'drum $ n "0*4" # s "kit"
  298. # gain "0.9"
  299. d'drum $ swing' $ {- mt 16 16 $ -} stack [
  300. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  301. -- n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  302. every' 16 16 (const $ sound "kit:3") $
  303. whenmod 3 2 (density 2) $
  304. withmod 11 5 0.5 1 (density 2) $
  305. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  306. -- n "[~ 0]" # s "kit",
  307. -- n "[~ 1]/2" # s "hsn"
  308. ---- n "[~ [1 0/8 1/2 0/2]]/2" # s "hsn"
  309. -- # gain "0.85"
  310. ]
  311. d'nim $ superimpose (iter 4 . nim'osc) $
  312. every' 16 1 ((# vowel "o u") . nim'del) $
  313. whenmod 16 12 (# vowel "[a i]/3") $
  314. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  315. d'bass2 $ swing' $
  316. n "[~ [~ 1] [~!! 0] [~ 0 1 ~]]/4" # s "bass2"
  317. # speed (0.5 ~> "[2 1]")
  318. # gain "0.82"
  319. msil [d'nim, d'wax, d'fx2, d'fx3]
  320. d'hi $
  321. swing' $
  322. every 3 rev $
  323. whenmod 12 8 (0.5 <~) $
  324. (0.5 ~>) $
  325. slow 8 $
  326. gap 64 $
  327. n "[0 1]/2" # s "nimble"
  328. # speed ((-4+).(*(-1)) <$> density 1.1 sine1)
  329. d'nim $ -- mt 16 16 $
  330. (0.25 ~>) $
  331. whenmod 4 2 (const silence) $
  332. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  333. # vowel "o"
  334. d'fx3 $ 3 ~> n "[0 1]/8" # s "duon"
  335. # gain "0.9"
  336. msil [d'bass, d'bass2, d'hi, d'fx1, d'fx3]
  337. hush