hsetup 642 B

123456789101112131415161718192021222324
  1. # -*- mode: snippet -*-
  2. # name: hsetup
  3. # group: haddeo
  4. # key: hsetup
  5. # expand-env: (yas-indent-line fixed)
  6. # --
  7. let bpm b = cps (b/60)
  8. withmod a b c d = (whenmod a b . within (c, d))
  9. every' n o f = when ((== (o-1)) . (\`mod\` n)) f
  10. msil = mapM_ ($ silence)
  11. tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
  12. swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
  13. d'drum = d1
  14. d'bass = d3
  15. d'bass2 = d2
  16. d'wax = d4
  17. d'nim = d5
  18. d'hi = d6
  19. d'fx1 = d8
  20. d'fx2 = d9
  21. d'fx3 = d10
  22. -- given bpm = 105
  23. tmod' s e = tmod (s*(1/(105/60))) e
  24. mt i = slow 16 $ tmod' 0.5 3 $ density 16 $ i