<CsoundSynthesizer>
<CsOptions>
csound -R -W -f -d -o dac
</CsOptions>
<CsInstruments>
sr = 48000
ksmps = 128
nchnls = 2
instr 1
ishift = .00666667
ipch = cpspch(p5)
ioct = octpch(p5)
kvib oscili 1/120, ipch/50, 1
ag pluck 2000, cpsoct(ioct+kvib), 1000, 1, 1
agleft pluck 2000, cpsoct(ioct+ishift), 1000, 1, 1
agright pluck 2000, cpsoct(ioct-ishift), 1000, 1, 1
af1 expon .1, p3, 1.0
af2 expon 1.0, p3, .1
adump delayr 2.0
atap1 deltapi af1
atap2 deltapi af2
ad1 deltap 2.0
ad2 deltap 1.1
delayw ag
out agleft+atap1+ad1, agright+atap2+ad2
endin
instr 3
ishift = .00666667
ipch = cpspch(p5)
ioct = octpch(p5)
aadsr linseg 0, p3/3, 1.0, p3/3, 1.0, p3/3, 0
amodi linseg 0, p3/3, 5, p3/3, 3, p3/3, 0
amodr linseg p6, p3, p7
a1 = amodi*(amodr-1/amodr)/2
a1ndx = abs(a1*2/20)
a2 = amodi*(amodr+1/amodr)/2
a3 tablei a1ndx, 3, 1
ao1 oscili a1, ipch, 2
a4 = exp(-0.5*a3+ao1)
ao2 oscili a2*ipch, ipch, 2
aoutl oscili 1000*aadsr*a4, ao2+cpsoct(ioct+ishift), 1
aoutr oscili 1000*aadsr*a4, ao2+cpsoct(ioct-ishift), 1
out aoutl, aoutr
endin
</CsInstruments>
<CsScore>
f1 0 65536 10 1
f2 0 65536 11 1
f3 0 65536 -12 20.0
i3 0 15 0 7.06 2.0 0.2
i3 . . . 8.01 . .
i3 . . . 8.06 . .
e
</CsScore>
</CsoundSynthesizer>