[CM] How have this to be modified

Bill Schottstaedt bil@ccrma.Stanford.EDU
Thu, 9 May 2002 05:39:26 -0700

> Now I used this again but it doesn't work. scan-across-all-chans isn't there
> available anymor. data-max seams to be icompatible, gives an error.
> Can someone tell me how I have to modify these functions?

scan-across-all-chans is in snd4.scm.  Here's a quick stab at a replacement:

(define (maxlevel)
  (let ((mx 0.0))
     (lambda (snd)
       (set! mx (max mx (apply max (maxamp snd #t)))))

Or if you want the list of all maxes: (maxamp #t #t).