Thanks very much for that Bill, <br>can you tell me how I write this if I were to use the 9 speaker set up I described earlier? Would I need a soundcard with 5 (or 9) outs to be able to achieve this 360 degree effect ? <br>
Thanks,<br>JH<br><br><div><span class="gmail_quote">On 7/25/07, <b class="gmail_sendername">Bill Schottstaedt</b> &lt;<a href="mailto:bil@ccrma.stanford.edu">bil@ccrma.stanford.edu</a>&gt; wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
&gt; Ok, does anyone have any insight on how/what I would use in CLM to send<br>&gt; panning information to a 5 channel speaker system with a tweeter tree<br>&gt; speaker sitting above the audience in the center of the room ?
<br><br>If the individual notes are in one place, you could do something like:<br><br>(with-sound (:channels 5)<br>&nbsp;&nbsp;(let ((loc (make-locsig :channels 4 :output *output*))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(osc (make-oscil 440.0))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(j 0))
<br>&nbsp;&nbsp;&nbsp;&nbsp;(run<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(lambda ()<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(do ((i 0 (1+ i)))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;((= i 360))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(do ((k 0 (1+ k)))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;((= k 1000))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(let ((sig (* .5 (oscil osc))))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(locsig loc j sig)
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(out-any j sig 4 *output*)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(set! j (1+ j))))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(move-locsig loc (exact-&gt;inexact i) 1.0))))))<br><br>This sends out 360 notes a degree at a time -- locsig is used for the circle
<br>in 4 chans, and the 5th chan is just out-any.&nbsp;&nbsp;dlocsig can move a single<br>sound (panning, Doppler, etc).&nbsp;&nbsp;I don&#39;t know how convincing this would be<br>with only 5 speakers.<br><br></blockquote></div><br>