https://soundcloud.com/enigmacurry/tidal-tek

22-08-24.a.tidal

hush

//"<a1 [a4 a5]> <a3 a2> <a1 a4> a2_rev <a2 [a5 a4 a2 a1]>"
//a1 <a5 a4> <a2 a2_rev> a5 a4

let patterns =
      [
        ("o", sound "break:2" # cps (122.06/60/4)),
        ("a1", slow 2 $ rev $ jux (rev) $ striate 8 (sound "break:7")),
        ("a2", juxBy 0.25 (rev) $ inside 2 rev $ slow 2 $ striate 8 (sound "break:3")),
        ("a2_rev", rev $ juxBy 0.5 (fast 2) $ slow 2 $ striate 8 (sound "break:4")),
        ("a3", slow 3 $ striate 16 (sound "break:5")),
        ("a4", slow 2 $ striate 4096 (sound "break:7")),
        ("a5", rev $ slow 2 $ striate 32 (sound "break:0")
           # squiz 8 # hpf 1000),
        ("a6", jux (slow 4) $ slow 2 $ striate 32 (sound "break:10"))
      ]
in
d1 $ ur 12 "<a4 a1> <a5 a6> <a3 a4> <a2_rev a2>" patterns []
  # cps (140/60/4)
  # fshift (slow (slow 2 $ sine) $ range (range (-800) (-200) $ sine) (500) $ sine)
  # lpq 0.1
  # lpf 4000




d1 $ slow 2 $ n "[11!5] 2 [5 6]"
  # s "<cpu speech bin>" # crush 15
  # lpf (slow 22 $ range 200 1000 $ saw)
  # speed (range 0.5 2.0 $ sine)

let patterns =
      [
        ("t1", n "0 1 2 3" # striate 1 (s "tabla")),
        ("t2", n "1 4 2 1" # striate 1 (s "tabla")),
        ("t3", n "6 [[4 4] [<4 6 5> <3 9 7>]] [2 2] 3" # striate 1 (s "tabla"))
      ]
in
d2 $ slow 2 $ ur 2 "t1 t2 t3" patterns []
  # lpf (slow 2 $ range 400 1000 $ sine)
  # pan ((sine / 5) - 0.435) # speed "<0.5 0.7 1.75> 1 2"


p "piano" $ n (scale "minor" "-9 <-14 [-14 -14]>") # s "midi"

p "piano"
  $ stut 1 2 (2)
  $ stripe 2
  $ slow 2
  $ slow "1 <1.8 0.45>"
  $ n (arp "<thumbup!2 thumbdown!2>" "<a'm11s c'm11s>" - "<24 12 0>")
  # sound "midi" # amp (sine / 2 + 0.12)

p "piano" $ silence