clappingMusic.tidal

-- https://en.wikipedia.org/wiki/Clapping_Music

do {
  resetCycles;
  d1 $ seqP [ 
    (
      0,
      13 * 4,
      n "0 0 0 ~ 0 0 ~ 0 ~ 0 0 ~"
      # pan (range 0.2 0.25 perlin)
      # gain (range 0.8 1.0 rand)
      # sound "cp"
    ),
    (
      0,
      13 * 4,
      repeatCycles 4
      $ iter "12"
      $ n "0 0 0 ~ 0 0 ~ 0 ~ 0 0 ~"
      # pan (range 0.7 0.75 perlin)
      # gain (range 0.8 1.0 rand)
      # sound "cp"
    )
  ]
}