1<CsoundSynthesizer>
2<CsOptions>
3; Select audio/midi flags here according to platform
4-odac     ;;;RT audio out
5;-iadc    ;;;uncomment -iadc if RT audio input is needed too
6; For Non-realtime ouput leave only the line below:
7; -o deltap3.wav -W ;;; for file output any platform
8</CsOptions>
9<CsInstruments>
10
11sr = 44100
12ksmps = 32
13nchnls = 2
140dbfs = 1
15
16gasig  init 0
17gidel  = 1		;delay time in seconds
18
19instr 1
20
21ain  pluck .7, 440, 1000, 0, 1
22     outs ain, ain
23
24vincr gasig, ain	;send to global delay
25endin
26
27instr 2
28
29ifeedback = p4
30
31abuf2	delayr	gidel
32adelL 	deltapn	4000		;first tap (on left channel)
33adelM 	deltapn	44100		;second tap (on middle channel)
34	delayw	gasig + (adelL * ifeedback)
35
36abuf3	delayr	gidel
37kdel	line    100, p3, 1	;vary delay time
38adelR 	deltapn  100 * kdel	;one pitch changing tap (on the right chn.)
39	delayw	gasig + (adelR * ifeedback)
40;make a mix of all deayed signals
41	outs	adelL + adelM, adelR + adelM
42
43clear	gasig
44endin
45
46</CsInstruments>
47<CsScore>
48
49i 1 0 1
50i 1 3 1
51i 2 0 3  0	;no feedback
52i 2 3 8 .8	;lots of feedback
53e
54</CsScore>
55</CsoundSynthesizer>