(ns clapping "
   Clapping Music (1972)
   for two performers
  
   Steve Reich
  
   sheet music:
   https://sites.ualberta.ca/~michaelf/SEM-O/SEM-O_2014/Steve's%20piece/clapping_reich.jpg
   
   This alda version slightly tweaked from daveyarwood:
   https://gist.github.com/daveyarwood/4d5709725a123d6d9cf21cd020f24ad7
")

clap = o2 d+8
rest = r8
pattern = clap clap clap rest clap clap rest clap rest clap clap rest

(defn shift [n pattern]
  (take (count pattern) (drop n (cycle pattern))))

(tempo! 172)

midi-percussion:
  V1:
    (times 13
      (times 12 (alda-code "pattern")))

  V2:
    (for [n (range 13)]
      (times 12 (shift n (alda-code "pattern"))))