battery123.megalet.tidal 2.2 KB

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