[CM] How have this to be modified

Marcus Roeckrath marcus.roeckrath@gmx.de
Wed, 8 May 2002 20:49:37 +0200


a long time agao, it must in times of snd 3 or so I put in the following 
definitions in ~/.snd:

(define data-max
  (lambda ()
    (let ((maxval 0.0))
      (lambda (data len)
         (if data
             (do ((i 0 (1+ i)))
                 ((= i len) #f)
               (let ((curval (abs (vector-ref data i))))
                 (if (> curval maxval) (set! maxval curval))))

(define maxlevel
  (lambda ()
    (scan-across-all-chans (data-max))))

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?



Gruss Marcus

Marcus Roeckrath -- Vikarsbusch 8 -- D-48308 Senden -- Germany
Phone  : +49-2536-9944 -- Mailer/BBS/Fax : +49-2536-9943 (V34, X75)
FidoNet: 2:2449/523
E-Mail : marcus.roeckrath@gmx.de
WWW    : http://home.foni.net/~marcusroeckrath/