diff options
Diffstat (limited to 'examples-xml/spdist.csd.xml')
| -rw-r--r-- | examples-xml/spdist.csd.xml | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/examples-xml/spdist.csd.xml b/examples-xml/spdist.csd.xml new file mode 100644 index 0000000..ce78bdf --- /dev/null +++ b/examples-xml/spdist.csd.xml @@ -0,0 +1,66 @@ +<programlisting> +<emphasis role="csdtag"><CsoundSynthesizer></emphasis> +<emphasis role="csdtag"><CsOptions></emphasis> +<emphasis role="comment">; Select audio/midi flags here according to platform</emphasis> +-odac <emphasis role="comment">;;;realtime audio out</emphasis> +<emphasis role="comment">;-iadc ;;;uncomment -iadc if realtime audio input is needed too</emphasis> +<emphasis role="comment">; For Non-realtime ouput leave only the line below:</emphasis> +<emphasis role="comment">; -o spdist.wav -W ;;; for file output any platform</emphasis> +<emphasis role="csdtag"></CsOptions></emphasis> +<emphasis role="csdtag"><CsInstruments></emphasis> + +<emphasis role="ohdr">sr</emphasis> <emphasis role="op">=</emphasis> 44100 +<emphasis role="ohdr">ksmps</emphasis> <emphasis role="op">=</emphasis> 32 +<emphasis role="ohdr">0dbfs</emphasis> <emphasis role="op">=</emphasis> 1 +<emphasis role="ohdr">nchnls</emphasis> <emphasis role="op">=</emphasis> 4 + +ga1 <emphasis role="opc">init</emphasis> 0 +ga2 <emphasis role="opc">init</emphasis> 0 +ga3 <emphasis role="opc">init</emphasis> 0 +ga4 <emphasis role="opc">init</emphasis> 0 + +<emphasis role="oblock">instr</emphasis> 1 <emphasis role="comment">;uses GEN28 file "move2", as found in /manual/examples</emphasis> + +ifreq <emphasis role="op">=</emphasis> 1 +kx <emphasis role="opc">init</emphasis> 0 +ky <emphasis role="opc">init</emphasis> 0 +ktime <emphasis role="opc">line</emphasis> 0, 5.6, 5.6 <emphasis role="comment">;same time as in table 1 (="move2")</emphasis> +kdist <emphasis role="opc">spdist</emphasis> 1, ktime, kx, ky +kfreq <emphasis role="op">=</emphasis> (ifreq<emphasis role="op">*</emphasis>340) <emphasis role="op">/</emphasis> (340 <emphasis role="op">+</emphasis> kdist) <emphasis role="comment">;calculate doppler shift</emphasis> +<emphasis role="opc">printk2</emphasis> kdist <emphasis role="comment">;print distance values</emphasis> +asig <emphasis role="opc">diskin2</emphasis> "flute.aiff", kfreq, 0, 1 <emphasis role="comment">;sound source is looped</emphasis> +a1, a2, a3, a4 <emphasis role="opc">space</emphasis> asig, 1, ktime, .1, kx, ky <emphasis role="comment">;use table 1 = GEN28</emphasis> +ar1, ar2, ar3, ar4 <emphasis role="opc">spsend</emphasis> <emphasis role="comment">;send to reverb</emphasis> + +ga1 <emphasis role="op">=</emphasis> ga1<emphasis role="op">+</emphasis>ar1 +ga2 <emphasis role="op">=</emphasis> ga2<emphasis role="op">+</emphasis>ar2 +ga3 <emphasis role="op">=</emphasis> ga3<emphasis role="op">+</emphasis>ar3 +ga4 <emphasis role="op">=</emphasis> ga4<emphasis role="op">+</emphasis>ar4 + <emphasis role="opc">outq</emphasis> a1, a2, a3, a4 + +<emphasis role="oblock">endin</emphasis> + +<emphasis role="oblock">instr</emphasis> 99 <emphasis role="comment">; reverb instrument</emphasis> + +a1 <emphasis role="opc">reverb2</emphasis> ga1, 2.5, .5 +a2 <emphasis role="opc">reverb2</emphasis> ga2, 2.5, .5 +a3 <emphasis role="opc">reverb2</emphasis> ga3, 2.5, .5 +a4 <emphasis role="opc">reverb2</emphasis> ga4, 2.5, .5 + <emphasis role="opc">outq</emphasis> a1, a2, a3, a4 + +ga1<emphasis role="op">=</emphasis>0 +ga2<emphasis role="op">=</emphasis>0 +ga3<emphasis role="op">=</emphasis>0 +ga4<emphasis role="op">=</emphasis>0 + +<emphasis role="oblock">endin</emphasis> +<emphasis role="csdtag"></CsInstruments></emphasis> +<emphasis role="csdtag"><CsScore></emphasis> +<emphasis role="stamnt">f</emphasis>1 0 0 28 "move2" <emphasis role="comment">;from left front and left rear to the middle in front</emphasis> + +<emphasis role="stamnt">i</emphasis> 1 0 5.6 <emphasis role="comment">;same time as ktime</emphasis> +<emphasis role="stamnt">i</emphasis> 99 0 10 <emphasis role="comment">;keep reverb active</emphasis> +<emphasis role="stamnt">e</emphasis> +<emphasis role="csdtag"></CsScore></emphasis> +<emphasis role="csdtag"></CsoundSynthesizer></emphasis> +</programlisting>
\ No newline at end of file |