<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'><br><div><br>> Date: Sat, 28 Feb 2015 11:51:43 -0800<br>> From: "Bill Schottstaedt" <bil@ccrma.Stanford.EDU><br>> Subject: Re: [CM] analog-filter.scm<br>> To: James Hearon <j_hearon@hotmail.com>, "cmdist@ccrma.Stanford.EDU"<br>> <cmdist@ccrma.Stanford.EDU><br>> Message-ID: <20150228195009.M14338@ccrma.Stanford.EDU><br>> Content-Type: text/plain; charset=iso-8859-1<br>> <br>> They're in mus-config.h. SNDLIB_CONFIG_path is very obsolete --<br>> it has no effect on anything. I tried fc21 with all those settings<br>> and it worked fine. I don't know what the problem is.<br><br>Hi,<br>Thanks Bill. I tried this and it seems working now.<br><br>./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<br><br>------<br>(load "/opt/snd-15.4/analog-filter.scm")<br><br>(define (filter-sweep flt)<br> (let ((phase 0.0)<br> (freq 0.0)<br> (incr (/ (* 2 pi) 144000.0))<br> (samps (seconds->samples 0.5)))<br> (do ((i 0 (+ i 1)))<br> ((= i samps))<br> (let ((sval (* .8 (sin phase))))<br> (set! phase (+ phase freq)) <br> (set! freq (+ freq incr))<br> (outa i (flt sval)) <br> (outb i (flt sval)) ))))<br><br>(with-sound (:output "test.wav" :srate 48000 :channels 2<br> :header-type mus-riff)<br> ;(filter-sweep (make-butterworth-lowpass 8 .1))<br> (filter-sweep (make-bessel-lowpass 8 .2))<br> ;(filter-sweep (make-chebyshev-lowpass 8 .1))<br> ;(filter-sweep (make-inverse-chebyshev-lowpass 8 .1))<br> ;(filter-sweep (make-elliptic-lowpass 8 .01))<br> )<br><br><br><br><br></div> </div></body>
</html>