[CM] translating spirals into music CLM

[john henry dale]

------=_Part_133342_24761821.1185446222290
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

Thanks very much for that Bill,
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 ?
Thanks,
JH

On 7/25/07, Bill Schottstaedt <bil@ccrma.stanford.edu> wrote:
>
> > Ok, does anyone have any insight on how/what I would use in CLM to send
> > panning information to a 5 channel speaker system with a tweeter tree
> > speaker sitting above the audience in the center of the room ?
>
> If the individual notes are in one place, you could do something like:
>
> (with-sound (:channels 5)
>   (let ((loc (make-locsig :channels 4 :output *output*))
>         (osc (make-oscil 440.0))
>         (j 0))
>     (run
>       (lambda ()
>         (do ((i 0 (1+ i)))
>             ((= i 360))
>           (do ((k 0 (1+ k)))
>               ((= k 1000))
>             (let ((sig (* .5 (oscil osc))))
>               (locsig loc j sig)
>               (out-any j sig 4 *output*)
>               (set! j (1+ j))))
>           (move-locsig loc (exact->inexact i) 1.0))))))
>
> This sends out 360 notes a degree at a time -- locsig is used for the
> circle
> in 4 chans, and the 5th chan is just out-any.  dlocsig can move a single
> sound (panning, Doppler, etc).  I don't know how convincing this would be
> with only 5 speakers.
>
>

------=_Part_133342_24761821.1185446222290
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

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>

------=_Part_133342_24761821.1185446222290--