<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>For explanation or reverb.&nbsp; Thank you for that info. I'm still trying to understand what it means by example.&nbsp; I don't think I quite have it yet.&nbsp; My try below just seems to be increasing gain but not creating reverb.&nbsp; I also looked at locsig explanation in the clm manual, but that's a bit beyond me to start.&nbsp; I just need a simple understanding of how reverb is working in ins design to help get started.&nbsp; Are there any simple examples around?&nbsp; I've grepped thru clm-4 and snd but don't see much by way of example for nrev, jcrev, or rev2. <br><br>I'm getting hung up on the out-any part with trying to add reverb to the stream.&nbsp; For ins with complex outputs a clearer example of wet/dry would be appreciated to see how it's done.<br><br>re: The reverb instrument has to send to the *reverb* output stream an <br>appropriately scaled version of its main output, something like:<br>&nbsp;<br>(outa i (* sample reverb-amount) *reverb*)<br>&nbsp;<br>What clm does is, after with-sound processes the whole "note list" that <br>is its body, it runs the reverb instrument that you supply over the <br>reverb soundfile that it generated as part of running the body and then <br>merges the output of that instrument run into the main soundfile generated.<br>///////////<br><br>(definstrument simple-saw (beg dur frq amp)<br>&nbsp; (let* ((os (make-sawtooth-wave frq))<br>&nbsp;&nbsp;&nbsp; &nbsp; (start (floor (* beg *srate*)))<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; (end (+ start (floor (* dur *srate*))))<br>&nbsp;&nbsp;&nbsp;&nbsp; )<br>&nbsp;&nbsp;&nbsp; (run<br>&nbsp;&nbsp;&nbsp;&nbsp; (loop for i from start to end do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (outa i (* amp (sawtooth-wave os)) )<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )))) <br><br>(definstrument simple-sawRev (beg dur frq amp)<br>&nbsp; (let* ((os (make-sawtooth-wave frq))<br>&nbsp;&nbsp;&nbsp; &nbsp; (start (floor (* beg *srate*)))<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; (end (+ start (floor (* dur *srate*))))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (rev-amount .9)<br>&nbsp;&nbsp;&nbsp;&nbsp; )<br>&nbsp;&nbsp;&nbsp; (run<br>&nbsp;&nbsp;&nbsp;&nbsp; (loop for i from start to end do <br>(outa i (* (* amp (sawtooth-wave os)) rev-amount) *reverb* )<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )))) <br><br>(with-sound (:reverb nrev :reverb-data (:reverb-factor 0.5 :lp-coeff .45) :channels 2 <br>:srate 48000) (simple-saw 0 1 220.0 0.3)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (simple-sawRev 2 1 220.0 0.3))<br><br><div><br></div>                                               </div></body>
</html>