2
0

something-to-say.megalet.tidal 719 B

1234567891011121314151617181920212223242526
  1. {-
  2. anny fm: something to say megalet
  3. see something-to-say.tidal for full composition
  4. -}
  5. let cf = slow 2
  6. iter' n p = slowcat $ map (\i -> ((fromIntegral i)%(fromIntegral n)) ~> p) [0 .. n]
  7. ss'stab = s "stab"
  8. # n (slow 6 "1 2 3 4 [5 6]/3")
  9. # vowel "i"
  10. ss'kurt = s "kurt"
  11. # speed "0.6"
  12. # shape "0.3"
  13. # vowel "u"
  14. ss'perc = s "{[bd ~ ~ bd] msg, hh*2}"
  15. ss'perc' = s "{[rm ~ ~ rm] msg, hh*2}"
  16. ss'verse = s "sitw"
  17. # n (slow 8 $ run 8)
  18. ss'chorus = s "sitwc"
  19. # n (slow 4 $ run 4)
  20. d'drum = d1
  21. d'bass = d2
  22. d'voc = d9 -- vocal
  23. d'gt = d3 -- guitar [stab]
  24. d'kurt = d4
  25. d'moog = d5