2
<emphasis role="csdtag"><CsoundSynthesizer></emphasis>
3
<emphasis role="csdtag"><CsOptions></emphasis>
4
<emphasis role="comment">; Select audio/midi flags here according to platform</emphasis>
5
-odac <emphasis role="comment">;;;RT audio out</emphasis>
6
<emphasis role="comment">;-iadc ;;;uncomment -iadc if RT audio input is needed too</emphasis>
7
<emphasis role="comment">; For Non-realtime ouput leave only the line below:</emphasis>
8
<emphasis role="comment">; -o deltapi.wav -W ;;; for file output any platform</emphasis>
9
<emphasis role="csdtag"></CsOptions></emphasis>
10
<emphasis role="csdtag"><CsInstruments></emphasis>
12
<emphasis role="ohdr">sr</emphasis> <emphasis role="op">=</emphasis> 44100
13
<emphasis role="ohdr">ksmps</emphasis> <emphasis role="op">=</emphasis> 32
14
<emphasis role="ohdr">nchnls</emphasis> <emphasis role="op">=</emphasis> 2
15
<emphasis role="ohdr">0dbfs</emphasis> <emphasis role="op">=</emphasis> 1
17
gasig <emphasis role="opc">init</emphasis> 0
18
gidel <emphasis role="op">=</emphasis> 1 <emphasis role="comment">;delay time in seconds</emphasis>
20
<emphasis role="oblock">instr</emphasis> 1
22
ain <emphasis role="opc">pluck</emphasis> .7, 440, 1000, 0, 1
23
<emphasis role="opc">outs</emphasis> ain, ain
25
<emphasis role="opc">vincr</emphasis> gasig, ain <emphasis role="comment">;send to global delay</emphasis>
26
<emphasis role="oblock">endin</emphasis>
28
<emphasis role="oblock">instr</emphasis> 2
30
ifeedback <emphasis role="op">=</emphasis> p4
32
abuf2 <emphasis role="opc">delayr</emphasis> gidel
33
adelL <emphasis role="opc">deltapi</emphasis> .4 <emphasis role="comment">;first tap (on left channel)</emphasis>
34
adelM <emphasis role="opc">deltapi</emphasis> 1 <emphasis role="comment">;second tap (on middle channel)</emphasis>
35
<emphasis role="opc">delayw</emphasis> gasig <emphasis role="op">+</emphasis> (adelL <emphasis role="op">*</emphasis> ifeedback)
37
abuf3 <emphasis role="opc">delayr</emphasis> gidel
38
kdel <emphasis role="opc">line</emphasis> 1, p3, .01 <emphasis role="comment">;vary delay time</emphasis>
39
adelR <emphasis role="opc">deltapi</emphasis> .65 <emphasis role="op">*</emphasis> kdel <emphasis role="comment">;one pitch changing tap (on the right chn.)</emphasis>
40
<emphasis role="opc">delayw</emphasis> gasig <emphasis role="op">+</emphasis> (adelR <emphasis role="op">*</emphasis> ifeedback)
41
<emphasis role="comment">;make a mix of all deayed signals </emphasis>
42
<emphasis role="opc">outs</emphasis> adelL <emphasis role="op">+</emphasis> adelM, adelR <emphasis role="op">+</emphasis> adelM
44
<emphasis role="opc">clear</emphasis> gasig
45
<emphasis role="oblock">endin</emphasis>
47
<emphasis role="csdtag"></CsInstruments></emphasis>
48
<emphasis role="csdtag"><CsScore></emphasis>
50
<emphasis role="stamnt">i</emphasis> 1 0 1
51
<emphasis role="stamnt">i</emphasis> 1 3 1
52
<emphasis role="stamnt">i</emphasis> 2 0 3 0 <emphasis role="comment">;no feedback</emphasis>
53
<emphasis role="stamnt">i</emphasis> 2 3 8 .8 <emphasis role="comment">;lots of feedback</emphasis>
54
<emphasis role="stamnt">e</emphasis>
55
<emphasis role="csdtag"></CsScore></emphasis>
56
<emphasis role="csdtag"></CsoundSynthesizer></emphasis>
b'\\ No newline at end of file'