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