;;; -*- logo -*-
;; This is offered as part of the sound API.  It's intention is to
;; draw the graph of an array of numbers, presumably corresponding
;; to audio data.
;;
;; copyright University of Victoria, 2005

to scalewave :wave :delta

make "owave (array count wave 0)

make "i 0
repeat count wave [
  setitem i owave (delta * item i wave)
  make "i i+1
]

output owave

end
