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


to normalizewave :iarray
  local [ oarray biggest i ]
  make "biggest (getbiggest iarray) * 1.111

  make "oarray (array count iarray 0)
  make "i 0
  repeat count iarray [
    setitem i oarray (item i iarray)/biggest 
    make "i i+1
  ]

  output oarray
end


to getbiggest :iarray
  local [ next biggest i ]

  make "biggest 0

  make "i 0
  repeat count iarray [
    make "next item i iarray
    if less? biggest next [ make "biggest next ]
    make "i i+1
  ]
  
  output biggest
end
