for-mix2.tidal 1.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475
  1. -- original ravey
  2. cps (155/60)
  3. d1 $ stack [
  4. (1 ~>) $ sound "cy/8",
  5. s "[k {k, sn}]/2"
  6. ]
  7. d2 $
  8. whenmod 16 15 (density 3) $
  9. smash 16 [0.25, 0.5] $
  10. s "hh hh:2"
  11. # gain "0.6"
  12. d3 $
  13. (within (0, 0.5) $ gap 16) $
  14. (s $ samples "[[~ wb ~ ~] wb]/2" (slow 5 $ irand 5))
  15. # shape ((/3) <$> slow 16 saw1)
  16. # vowel "[i o]*2"
  17. d4 $
  18. (0.5 <~) $
  19. slowspread density [1,2,0.5,2] $
  20. chop 32 $ s "eg:4/2"
  21. # gain "0.8"
  22. # speed ((+1).(/2) <$> slow 1.88 saw1)
  23. mapM_ ($ silence) [d3,d4]
  24. hush
  25. d1 $ stack [
  26. (1 ~>) $ sound "cy/8",
  27. whenmod 16 14 (trunc 0.4) $
  28. sound "[k {k, sn}]/2"
  29. ]
  30. -- slower bit
  31. cps (100/60)
  32. d1 $ stack [
  33. (1 ~>) $ sound "cy/8",
  34. -- whenmod 16 14 (trunc 0.4) $
  35. whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
  36. s "[k sn]/2"
  37. ]
  38. d2 $
  39. iter 4 $
  40. whenmod 16 15 (density 3) $
  41. smash 16 [0.25, 0.5] $
  42. every 3 (append $ s "hh:1 hh") $
  43. s "hh hh:2"
  44. # gain "0.6"
  45. d3 $
  46. every 7 (0.25 ~>) $
  47. (within (0, 0.5) $ gap 16) $
  48. every 2 (0.07 ~>) $
  49. (s $ samples "[[~ wb ~ ~] wb]/2" (slow 5 $ irand 5))
  50. # shape ((/3) <$> slow 16 saw1)
  51. # vowel "[i o]*2"
  52. # speed "0.8"
  53. d4 $
  54. -- stut 4 0.6 1.25 $
  55. (0.5 <~) $
  56. slowspread density [1,2,0.5,2] $
  57. chop 32 $ s "eg/2"
  58. # gain "0.8"
  59. # speed ((+1).(/2) <$> slow 1.88 saw1)
  60. # cut "1"
  61. hush