[CM] How have this to be modified

[Bill Schottstaedt]

> 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))
    (for-each
     (lambda (snd)
       (set! mx (max mx (apply max (maxamp snd #t)))))
     (sounds))
    mx))

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