<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'> <div class="rmTopSpacer rmTop"> <div class="rmButtons"> <span class="rmPrev"><img src="https://blu182.mail.live.com/ol/clear.gif" class="i_rm_p"></span><span class="rmNext"><img src="https://blu182.mail.live.com/ol/clear.gif" class="i_rm_n"></span><span class="rmFull "><img src="https://blu182.mail.live.com/ol/clear.gif" class="i_r_fv"></span><span class="rmClose "><img src="https://blu182.mail.live.com/ol/clear.gif" class="g_close"></span> </div> <h2 class="rmSubject">Scheme, Outa, and reverb</h2> </div> <div class="paddingtop paddingbottom"> <div class="c-ReadMessagePartHeader"> <div class="t_hov MsgHover MsgPartGradient ia_hc Expanded"> <div class="ReadMsgFrom FloatLeft"> <div class="MsgPropertiesWrapper"> <div class="MsgProperties"> <div class="SenderLine FloatLeft"> <div class="FloatRight ClearRight NoWrap"> </div> <div class="SenderLineLeft"> <div class="MessageHeaderItem"> <a class="t_atc ICName"> James Hearon </a> </div> <div class="MessageHeaderItem"> </div> <div class="MessageHeaderItem"> <span class="Date TextSizeSmall"> 4/28/15 </span> </div> <span class="MessageHeaderItem Categories TextSizeSmall"> <a href="https://blu182.mail.live.com/ol/#" title=""> </a> </span> </div> </div> <div class="ReadMsgTo TextSizeSmall ClearLeft"> <div class="recip_c"> <div class="recip_to FloatLeft"> <span>To: cmdist@ccrma.Stanford.EDU</span> </div> <a class="DetailToggle FloatLeft toggleExpandHeader HideH" title="Show header details" href="https://blu182.mail.live.com/ol/#"> </a> </div> </div> </div> </div> <div id="icTmReadMessageContact0" class="c_ic c_ic_h_mxl icpwc"><div class="c_ic_img_h c_ic_img_mxl"><div class="c_ic_img_sub c_ic_img_mxl" id="icTmReadMessageContact0_usertilecontainer"><a id="icTmReadMessageContact0_frame_clip" title="" class="c_ic_frame_clip c_ml" target="_top" href="https://blu182.mail.live.com/ol/#"><div style="cursor: pointer;" class="c_ic_tile_clip"><img class="c_ic_tile" src="https://a.gfx.ms/ic/bluemanmxl.png" id="icTmReadMessageContact0_usertile" style="" alt=""></div></a></div></div></div> </div> </div> </div> </div> <div class="ClearBoth"> </div> <div class="ClearBoth"> </div>
Hi,<br>I might have figured out a way to add the reverberator using outa and *reverb* in the definstrument, and calling it using a scheme process. It may not be the best way but it seems to work...which is setting the *clm-reverb* global. (Now I need to figure out how to unset it.) TX. Jim<br><br>(if (not (provided? 'jcrev.scm))
<br> (load "jcrev.scm"))<br><br> (set! *clm-reverb* jc-reverb)<br><br>(definstrument (myexamp start-time duration frequency amplitude sampling-rate<br> (reverb-amount 0.01))
<br> (let* ((beg (floor (* start-time sampling-rate)))
<br> (end (+ beg (floor (* duration sampling-rate))))
<br> (sine-wave (make-oscil :frequency frequency)))
<br> (do ((i beg (+ i 1)))
<br> ((= i end)) <br>(outa i (* (* (* amplitude (oscil sine-wave))) reverb-amount) *reverb*)<br>(outb i (* (* (* amplitude (oscil sine-wave))) reverb-amount) *reverb*)
)))
<br><br>(with-sound (:output "test.wav" :srate 48000 :channels 2
<br> :data-format mus-lshort
<br> :header-type mus-riff<br> :reverb jc-reverb) <br>(myexamp 0 1 440.0 0.5 48000 :reverb-amount 0.15))<br><br>;---------------------------------<br>;using a process<br>(define (call_myexamp n r d flb fub amp sr)
<br>(process
<br> for freq = (between flb fub)
<br> repeat n do
<br> (send "myexamp" (elapsed) d freq amp sr :reverb-amount 0.15)
<br> (wait r) ))
<br> <br>(sprout(call_myexamp 40 .15 .10 500 2000 0.5 48000) "mytest.wav")<br> </div></body>
</html>