p8perc 532 B

12345678910111213141516171819202122
  1. # -*- mode: snippet -*-
  2. # name: p8perc
  3. # group: pistonlp
  4. # key: p8perc
  5. # expand-env: (yas-indent-line fixed)
  6. # --
  7. -- @p8perc
  8. -- solo $
  9. d'perc $ stack [
  10. {- -- (3)
  11. -- (p1fly @ 2)
  12. whenmod 5 2 (# vowel "i o") $ whenmod 3 1 (slow 2) $ brak $
  13. slow 16 $ jux (0.5 <~) $ rev . striate 256 $ s "${1:fly}"
  14. # hcutoff 1985 -- 0.09 * (44100/2)
  15. # hresonance 0.06,
  16. -- -}
  17. -- (p1perc)
  18. -- within (0.5, 1) (slow 1.5 . chop 4) $ -- (4)
  19. -- whenmod 5 3 (rev) $ -- (1) (2) rev . chop 8
  20. density (4/3) $
  21. s "[${2:wtsn} ~ ${3:wt}]"
  22. ]