<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'>Hi,<br>I'm stuck on a bit of info from snd/clm manual re: summing combs. I was able to do it in snd/clm using comb-bank, but I'm stuck on cl/clm approach where you need to loop thru and sum the combs. Hoping I can get some help with my code, below. I may have made a mess of it, but can't seem to figure out how to do it. Thank you.<br><br> (let ((sum 0.0)) <br> (do ((i 0 (+ i 1)))<br> ((= i n) sum)<br> (set! sum (+ sum (comb (combs i) x)))))<br><br>can be replaced with:<br><br>(let ((cb (make-comb-bank combs)))<br> ...<br> (comb-bank cb x))<br><br>----------------<br>error:<br>The LET* binding spec (COMBS 1 (MAKE-COMB 1.0 600)) is malformed.<br><br>(definstrument mult-combs (beg dur freq amp)<br> (let* ((start (floor (* beg *srate*)))<br> (end (+ start (floor (* dur *srate*))))<br> (os (make-oscil freq))<br> (combs 1 (make-comb 1.0 600))<br> (combs 2 (make-comb 2.0 300))<br> (combs 3 (make-comb 3.0 100))<br> (sum 0.0) ) <br> (do ((i 0 (+ i 1))) <br> ((= i 3) sum) <br> (set! sum (+ sum (comb (combs i) 0.02))) )<br> (run<br> (loop for i from start to end do<br> (outa i (comb sum (* amp (oscil os)))) <br> (outb i (comb sum (* amp (oscil os)))) ))))<br> <br> (with-sound (:channels 2 :srate 48000 :header-type mus-riff :output "mytest.wav")<br> (mult-combs 0 5 200 .8)<br> )<br> </div></body>
</html>