fwonk-cauldron-1.bk.tidal 2.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182
  1. bps (150/60)
  2. --
  3. -- drum
  4. --
  5. -- 4 to floor
  6. d1 $ stack [
  7. superimpose (slow 1) $ sound "house*2",
  8. 0.5 ~> sound "cp"
  9. ]
  10. -- marching drum
  11. d1 $ stack [
  12. slow 2 $ sound "house house [house [house]/2] house",
  13. brak $ 0.5 ~> sound (pick <$> "sn*3 cp" <*> (spread iter [2,2,3]) "15 4 3 8")
  14. -- |+| shape ((/1.2) <$> slow 8 sinewave1)
  15. |+| resonance (slow 2 sinewave1)
  16. ]
  17. -- crazy ass drum
  18. d1 $ slow 1 $ stack [
  19. sound "house*2",
  20. jux (spread slow [3,5] . rev) $ every 3 (striate 3) $ every 2 (brak) $ sound "house*2",
  21. 0.5 ~> sound "cp"
  22. --sound "hh*4 [cp hh*2]"
  23. ]
  24. -- kinda funky
  25. d1 $ overlay (interlace (sound "rm*3") (sound "hh*3")) $ sound "house*2"
  26. --
  27. -- fwonk
  28. --
  29. -- cool fwonk lewp
  30. d2 $ every 3 (|+| resonance "0.5") $ slow 2 $ sound (pick <$> "fwonk*2 [fwonk/2]*3 fwonk/1" <*> spread slow [2,3,5] "1 2 3 4 5 10")
  31. |+| vowel "a"
  32. |+| shape ((/3) <$> sinewave1)
  33. -- weird fwonks
  34. d2 $ every 5 (jux rev) $ every 3 (|+| resonance "0.4") $ slow 2 $ sound (pick <$> "fwonk*2 [fwonk/2]*3 fwonk/1" <*> slow 5 "2 4 6 9")
  35. |+| vowel "a e"
  36. |+| shape ((/3) <$> sinewave1)
  37. -- spaced fwonk
  38. d2 $ jux (iter 3) $ slow 4 $ interlace (sound "fwonk/1 space*2") (0.5 ~> sound "[space/2 fwonk*2]")
  39. |+| vowel "a"
  40. |+| resonance "0.5"
  41. |+| shape "0.2"
  42. |+| pan (density 3 sinewave1)
  43. --
  44. -- wind
  45. --
  46. -- nice
  47. d3 $ every 3 (jux rev) $ smash 10 [1,2] $ sound (pick <$> "[wind]/2 [can*2 [can/2]*2]" <*> (spread density [3,4] . iter 3) "0 2 4 6 8 9")
  48. |+| shape ((/2) <$> slow 3 sinewave1)
  49. -- nice in 4/4
  50. d3 $ slow 2 $ sound (pick <$> "[wind]/2 [can*2 [can/2]*2]" <*> slow 2 "0 2 4 5 7 1 3 5")
  51. |+| shape ((/2) <$> slow 2 sinewave1)
  52. -- simple wind 4/4
  53. d3 $ sound (pick <$> "[wind]/2 [can*2 [can/2]*2]" <*> density 2 "0 1 2 3 7")
  54. |+| vowel "e u"
  55. |+| resonance ((/1.2) <$> sinewave1)
  56. --
  57. -- space - n.b. samples are way too loud
  58. --
  59. -- Sweet space break #1
  60. d4 $ spread striate [3,4] $ sound (pick <$> "space invaders" <*> spread density [2,2,5] "0 2 4 5 8 15 7")
  61. |+| vowel "e"
  62. |+| resonance "0.2"
  63. -- Sweet space break #2
  64. d4 $ striate 4 $ sound (pick <$> "[space invaders]*3" <*> spread density [2,3,5] "0 2 4 6")
  65. |+| vowel "e"
  66. |+| resonance "0.2"