[CM] analog-filter.scm

[James Hearon]

> Date: Sat, 28 Feb 2015 11:51:43 -0800
> From: "Bill Schottstaedt" <bil at ccrma.Stanford.EDU>
> Subject: Re: [CM] analog-filter.scm
> To: James Hearon <j_hearon at hotmail.com>,	"cmdist at ccrma.Stanford.EDU"
> 	<cmdist at ccrma.Stanford.EDU>
> Message-ID: <20150228195009.M14338 at ccrma.Stanford.EDU>
> Content-Type: text/plain;	charset=iso-8859-1
> 
> They're in mus-config.h.  SNDLIB_CONFIG_path is very obsolete --
> it has no effect on anything.  I tried fc21 with all those settings
> and it worked fine.  I don't know what the problem is.

Hi,
Thanks Bill.  I tried this and it seems working now.

./configure  --with-s7 --with-gsl --with-motif --with-alsa CFLAGS=HAVE_COMPLEX_NUMBERS CFLAGS=HAVE_COMPLEX_TRIG CFLAGS="-I/usr/include/linux/param.h" SNDLIB_CONFIG_path=/opt/sndlib

------
(load "/opt/snd-15.4/analog-filter.scm")

(define (filter-sweep flt)
  (let ((phase 0.0)
    (freq 0.0)
    (incr (/ (* 2 pi) 144000.0))
        (samps (seconds->samples 0.5)))
    (do ((i 0 (+ i 1)))
    ((= i samps))
      (let ((sval (* .8 (sin phase))))
    (set! phase (+ phase freq)) 
    (set! freq (+ freq incr))
    (outa i (flt sval)) 
    (outb i (flt sval))  ))))

(with-sound (:output "test.wav" :srate 48000 :channels 2
                     :header-type  mus-riff)
  ;(filter-sweep (make-butterworth-lowpass 8 .1))
  (filter-sweep (make-bessel-lowpass 8 .2))
  ;(filter-sweep (make-chebyshev-lowpass 8 .1))
  ;(filter-sweep (make-inverse-chebyshev-lowpass 8 .1))
  ;(filter-sweep (make-elliptic-lowpass 8 .01))
  )




 		 	   		  
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://ccrma-mail.stanford.edu/mailman/private/cmdist/attachments/20150228/eb1fd536/attachment.html