This repository has been archived on 2026-09-07. You can view files and clone it. You cannot open issues or pull requests or push a commit.
Files
tidal-live-kit/snippets-override/haskell-mode/livesetup
T

63 lines
1.3 KiB
Plaintext
Raw Normal View History

# -*- mode: snippet -*-
# name: livesetup
# group: live
# key: livesetup
# expand-env: (yas-indent-line fixed)
# --
let bpm b = cps (b/60)
msil = mapM_ ($ silence)
bassP = (# gain 0.7) . (# hcutoff 485) . (# hresonance 0.001)
cf = slow 2
every' n o f = when ((== (o-1)) . (\`mod\` n)) f
2017-07-09 11:59:08 +01:00
withmod a b c d = (whenmod a b . within (c, d))
tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
-- given bpm = 105
tmod' s e = tmod (s*(1/(105/60))) e
mt i = slow 16 $ tmod' 0.5 3 $ density 16 $ i
d'drum = d1
2017-07-09 11:59:08 +01:00
d'hi = d2
d'perc = d2
d'print = d2
d'wobb = d2
d'bass = d3
-- d'gnome = d3
-- d'qs = d3
-- d'bass = d4
d'bleep = d4
d'eg = d4
d'gnome = d4
d'hand = d4
-- d'jbass = d4
d'qs = d4
2017-07-09 11:59:08 +01:00
d'wax = d4
d'fly = d5
d'gt = d5
d'mons = d5
2017-07-09 11:59:08 +01:00
d'nim = d5
d'warb = d5
d'bass2 = d6
d'bz = d6
d'gt2 = d6
2017-07-09 11:59:08 +01:00
-- d'hi = d6
d'udu = d6
d'arpy = d7
d'casio = d7
d'gt3 = d7
d'pc = d7
d'shard = d7
d'arm = d8
2017-07-09 11:59:08 +01:00
d'fx1 = d8
d'misc = d8
d'pcl = d8
d'ql = d8
d'tr = d8
d'ant = d9
d'baa = d9
2017-07-09 11:59:08 +01:00
d'fx2 = d9
d'tac = d9
d'wbass = d9
d'cymb = d10
2017-07-09 11:59:08 +01:00
d'fx3 = d10
2017-07-08 19:14:31 +01:00
d'jbass = d10