;;; -*- logo -*-
;; This is offered as part of the sound API.
;;
;; copyright University of Victoria, 2005


to beatbox :hits :scale

  if empty? hits [ stop ]

  make "next first hits

  ;; scale the pause between sounds
  if equal? first next "rest [
    make "next list "rest (last next) * scale
  ]

  run next
  beatbox butfirst hits scale

end

bury [beatbox]
