juliese.megalet.tidal 1.3 KB

123456789101112131415161718192021222324252627282930313233343536373839
  1. -- megalet for juliese.tidal
  2. let every' n o f = when ((== (o-1)) . (`mod` n)) f
  3. d'drum = d1
  4. d'perc = d2
  5. d'bass = d3
  6. d'eg = d4
  7. d'gt = d5
  8. d'udu = d6
  9. d'pc = d7
  10. d'pcl = d8
  11. d'wbass = d9
  12. bassbass = sound "[[vb vb:1] ~]/2"
  13. # end (slow 1.4 "0.2 0.4")
  14. # vowel "e o"
  15. bassbass' = bassbass # speed (slow 2.5 "1 -1")
  16. morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
  17. drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
  18. hhb m = smash 16 [0.25, 0.5] $
  19. (if m then (every 3 (append $ sound "hh:1 hh")) else id) $
  20. sound "hh hh:2"
  21. # gain "0.6"
  22. ududu = slow 4 . chop 128 $
  23. sound (samples "udu" (slow 4 $ irand 4))
  24. # gain "0.8"
  25. # cut "6"
  26. eg = gap 128 $ s "eg*2"
  27. # cut "4"
  28. gt = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
  29. chop 128 $
  30. s "[gt [~ gt] ! ~]/2"
  31. # cut "5"
  32. pcbeep = slow 16 $ gap 48 $ sound "pc:1"
  33. # gain "0.7"
  34. # cut "7"
  35. # speed "[1 0.7]"
  36. ju'drum2 = stack [
  37. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
  38. every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
  39. ]