pigs-nose.megalet.tidal 570 B

123456789101112131415161718192021
  1. -- megalet for pigs-nose.tidal
  2. let msil = mapM_ ($ silence)
  3. cf = slow 2
  4. d'drum = d1
  5. d'print = d2
  6. d'wobb = d2
  7. d'qs = d3
  8. d'jbass = d4
  9. d'mons = d5
  10. d'bass = d6
  11. d'casio = d7
  12. d'ql = d8
  13. d'arm = d8
  14. d'baa = d9
  15. pn'hointro = s "[~ [~ ho] ~ ho ~ ~ ho ~]/2"
  16. pn'sn = sound "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
  17. pn'bd = s "[bd [~ ~ ~ bd] bd*2 ~]/2"
  18. pn'hh = s "[hh*8 [hh*4 ho]]/2"
  19. pn'qs sl = slow sl . striate 4 $ s "qspace"
  20. pn'bass4 = s "bass*2 bass*2 bass*3 bass*3"
  21. pn'bass5 = s "bass*2 bass*2 bass*3 bass*3 ~"