battery123.megalet.tidal 2.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. {-
  2. anny fm: battery 1,2,3 megalet
  3. see battery123.tidal for full composition
  4. -}
  5. cps (125/60)
  6. let cf = slow 2
  7. every' n o f = when ((== (o-1)) . (`mod` n)) f
  8. halfosc = (/2).(+0.5)
  9. halfosc1 = (+1).(/2)
  10. thirdosc1 = (+1).(/3)
  11. d'drum = d1
  12. d'perc = d2
  13. d'bass = d3
  14. d'mosq = d4
  15. d'tac = d9 -- tacscan
  16. d'warb = d6 -- warbler
  17. d'arpy = d7
  18. d'tr = d8 -- trump
  19. d'bass2 = d5 -- more bass right at the end
  20. b1'bass = s "bass3 [~ bass3] ! ~"
  21. # begin "0.2"
  22. b1'mosq = slow 8 $ rev . striate 256 $ s "hand*8"
  23. # speed "0.7"
  24. b1'perc = slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  25. b1'tac = s "[~ tacscan] ! ~ ~"
  26. # gain "0.8"
  27. # vowel (slow 3 "e u")
  28. b1'warbler = slow 4 $ striate 32 $ s "warbler"
  29. # n (slow 7 $ run 7)
  30. # gain "0.8"
  31. b2'uxp = (# gain "0.8") .
  32. (# speed "[0.7 1 1.2]/2")
  33. b2'psr = s "psr*4 psr*2"
  34. # gain "0.6"
  35. b2'psrf = s "[[psr*4 psr*2] ! ! psr*8]/4"
  36. # gain "0.6"
  37. b2'trump p = whenmod 5 4 rev $ s p
  38. # n (slow 3.2 $ run 4)
  39. # gain "0.8"
  40. # speed (halfosc1 <$> slow 4 sinewave1)
  41. # vowel (slow 3.2 "a e o")
  42. # shape "0.6"
  43. b2'bass = slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
  44. # n (slow 2.8 "0 1 2")
  45. # vowel "i"
  46. # speed "0.8"
  47. b2'arpy = s "arpy*8"
  48. # n "2 1 3 1"
  49. # gain "0.7"
  50. b3'perc = s "[tok*2 [rm tok]] [psr:1 tok*2]"
  51. b3'bass = s "bass*4"
  52. # n "0 1"
  53. # begin "0.4"
  54. # speed "1.2"
  55. # shape "0.2"
  56. b3'bassf = s "{bass*4, wobble*3}"
  57. # n "0 1"
  58. # begin "0.4"
  59. # speed "1.2"
  60. # shape "0.2"
  61. b3'drum = slow 2 $ s "peri [~ ~ ~ peri] [~ peri peri ~] ~"
  62. b3'drumf = slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~"