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.
2016-04-24 18:44:45 +01:00
|
|
|
-- megalet for pigs-nose.tidal
|
|
|
|
|
let msil = mapM_ ($ silence)
|
|
|
|
|
cf = slow 2
|
|
|
|
|
d'drum = d1
|
|
|
|
|
d'print = d2
|
|
|
|
|
d'wobb = d2
|
|
|
|
|
d'qs = d3
|
|
|
|
|
d'jbass = d4
|
|
|
|
|
d'mons = d5
|
|
|
|
|
d'bass = d6
|
|
|
|
|
d'casio = d7
|
|
|
|
|
d'ql = d8
|
|
|
|
|
d'arm = d8
|
|
|
|
|
d'baa = d9
|
2016-04-23 13:08:16 +01:00
|
|
|
pn'hointro = s "[~ [~ ho] ~ ho ~ ~ ho ~]/2"
|
|
|
|
|
pn'sn = s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
|
|
|
|
|
pn'bd = s "[bd [~ ~ ~ bd] bd*2 ~]/2"
|
|
|
|
|
pn'hh = s "[hh*8 [hh*4 ho]]/2"
|
|
|
|
|
pn'qs sl = slow sl . striate 4 $ s "qspace"
|
|
|
|
|
pn'bass4 = s "bass*2 bass*2 bass*3 bass*3"
|
|
|
|
|
pn'bass5 = s "bass*2 bass*2 bass*3 bass*3 ~"
|
