julsetup 359 B

123456789101112131415161718
  1. # -*- mode: snippet -*-
  2. # name: julsetup
  3. # group: juliese
  4. # key: julsetup
  5. # expand-env: (yas-indent-line fixed)
  6. # --
  7. let bpm b = cps (b/60)
  8. every' n o f = when ((== (o-1)) . (\`mod\` n)) f
  9. msil = mapM_ ($ silence)
  10. d'drum = d1
  11. d'perc = d2
  12. d'bass = d3
  13. d'eg = d4
  14. d'gt = d5
  15. d'udu = d6
  16. d'pc = d7
  17. d'pcl = d8
  18. d'wbass = d9