haddeo.megalet.tidal 762 B

123456789101112131415161718192021222324
  1. -- megalet for haddeo.tidal
  2. let bpm b = cps (b/60)
  3. withmod a b c d = (whenmod a b . within (c, d))
  4. every' n o f = when ((== (o-1)) . (`mod` n)) f
  5. msil = mapM_ ($ silence)
  6. tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
  7. swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
  8. swing' = swing 0.14 --0.05
  9. d'drum = d1
  10. d'bass = d3
  11. d'bass2 = d2
  12. d'wax = d4
  13. d'nim = d5
  14. d'hi = d6
  15. d'fx1 = d8
  16. d'fx2 = d9
  17. d'fx3 = d10
  18. nim'osc = (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))
  19. nim'del = (# orbit "1") .
  20. (# delay "0.5") .
  21. (# delayfeedback "0.6") .
  22. (# delaytime "0.25")
  23. tmod' s e = tmod (s*(1/(105/60))) e
  24. mt s d i = slow s $ tmod' 0.5 3 $ density d $ i