cuadrillion.tidal 2.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132
  1. {-
  2. Anny: Cuadrillion (Demo)
  3. anny.audio
  4. First played for Algorave's fith birthday, #algofive 17th March 2017
  5. Written for Fwonk release nr. 200 out in March 2017. FW200 is Fwonk's
  6. final release, at least in its current form, but its catalogue will
  7. live on. There is a lot of very good electronic music in there, so be
  8. sure to check it out some time!
  9. fwonk.co.uk
  10. See README.md
  11. -}
  12. let bpm b = cps (b/60)
  13. every' n o f = when ((== (o-1)) . (`mod` n)) f
  14. d'drum = d1
  15. d'perc = d2
  16. d'bass = d3
  17. d'bleep = d4
  18. d'gt = d5
  19. d'gt2 = d6
  20. d'gt3 = d7
  21. bpm 149
  22. -- @bleep
  23. d'bleep $
  24. -- every' 5 2 (iter 4) $ -- (2)
  25. -- every 3 (rev . slow 2 . chop 4) $ -- (1)
  26. n "[[~ 0] ~ 1 ~]/4" # s "bleep"
  27. # gain "1.2"
  28. d'drum $
  29. every' 16 16 (overlay $ n "~ 1!!" # s "drum") $
  30. 1 <~ n "1/16" # s "drum"
  31. -- @drumintro
  32. d'drum $
  33. every' 16 16 (overlay $ n "~ 1!!" # s "drum") $
  34. n "{1, [~! [~ 0]!]/4}" # s "drum"
  35. d'drum $
  36. every' 16 16 (overlay $ n "~ 1!!" # s "drum") $
  37. n "{1, [~! [~ 0]!]/4, [[~ 3] 3]/2}" # s "drum"
  38. d'perc $ n "[~ 1 ~ ~]/4" # s "drum2"
  39. -- @perc
  40. d'perc $
  41. stack [
  42. n "[~ 1 0 ~]/4",
  43. 0.5 ~> n "[3 2 ~]/3"
  44. -- 0.75 ~> n "[3 2 ~ 2 3]/5", -- (1)
  45. -- 0.25 ~> n "[~ 3 2 ~ 0 2 3]/7" -- (2)
  46. ]
  47. # s "drum2"
  48. -- @drum
  49. d'drum $
  50. -- every' 16 16 (density 2) $ -- (1) replacing (0)
  51. every' 16 16 (within (0.5, 1) $ density 2) $ -- (0)
  52. n "{0, 1, [~! [~ 0]!]/4, [[~ 3] 3]/2}" # s "drum"
  53. -- @bass
  54. d'bass $
  55. -- slowspread slow [1,1,1,2,3] $ -- (2)
  56. (0.5 <~) $ rev $ gap 32 $
  57. -- superimpose ((# gain "0.7") . (# speed "3")) $ -- (1)
  58. every' 32 31 (overlay $ n "2" # s "drbass") $
  59. every' 16 16 (overlay $ n "1 ~" # s "drbass") $
  60. n "[0 0 [~ 0] !]/4" # s "drbass"
  61. # gain "0.9"
  62. # vowel "{a, i}"
  63. # shape "0.4"
  64. # orbit "1" # room "0.2" # size "0.1"
  65. # resonance "0.1" # cutoff "130" -- 10 -> 130
  66. -- @gt
  67. d'gt $ -- every' 8 8 (const silence) $ -- (1) then (3) remove
  68. -- every 3 (slow 32) $ -- (1) then (2) remove
  69. every 2 rev $
  70. (0.5 ~>) $
  71. slow 8 $ smash 16 [1,2] $ striate 16 $
  72. n "0" # s "acb"
  73. # cut "7"
  74. # gain "0.8" -- 0.1 -> 0.8
  75. # speed (scale 0.7 1.4 $ slow 3 sine1)
  76. # vowel "u"
  77. -- @gt2
  78. d'gt2 $ (0.5 <~) $
  79. slow 8 $
  80. iter 4 $
  81. striate 16 $
  82. sound "acg"
  83. # cut "6"
  84. # shape "0.4"
  85. # gain "0.9"
  86. -- ~drum w/ (1)
  87. -- @gt3
  88. let hp = "240"
  89. lp = "1200"
  90. r = "0.3"
  91. in d'gt3 $
  92. (3 ~>) $
  93. -- every' 4 2 (superimpose (3 <~)) $ -- (1) and (2) remove
  94. slow 16 . gap 8 $ -- (0) and (2) remove
  95. -- slow 30 . gap 15 $ -- (2)
  96. sound "dg"
  97. # gain "0.9"
  98. # orbit "1" # room "0.2" # size "0.1"
  99. # speed (scale 1 1.25 $ slow 4.1 sine1)
  100. # cutoff lp # resonance r
  101. # hcutoff hp # resonance r
  102. mapM_ ($ silence) [d'gt, d'gt2, d'gt3]
  103. -- ~perc w/ (1)
  104. -- ~perc w/ (2)
  105. -- ~gt w/ (1)
  106. -- ~bass w/ (1)
  107. -- ~gt2
  108. -- ~gt w/ (2) then (3)
  109. -- ~gt3 w/ (2)
  110. mapM_ ($ silence) [d'gt, d'gt2, d'gt3, d'bass]
  111. hush