something-to-say.megalet.tidal 697 B

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