Exploring Analogue Synth Techniques
by     Jacob Joaquin
email  jacobjoaquin@gmail.com
web    www.thumbuki.com/csound/articles/east/

(C)2007 Jacob Joaquin




<CsoundSynthesizer>
<CsInstruments>
sr     = 44100
kr     = 4410
ksmps  = 10
nchnls = 1


instr 1
	idur  = p3
	iamp  = p4
	inamp = p5
	ipch  = cpspch(p6)
	inpch = cpspch(p7)
	itime = p8

	kenv1 linseg iamp, idur - itime, iamp, itime, inamp
	kenv2 linseg ipch, idur - itime, ipch, itime, inpch
	aosc  oscil  kenv1, kenv2, 1, -1

	out aosc
endin

</CsInstruments>




<CsScore>
f1 0 2 2 1 -1

i1 0 1     10000 np4 7.04 np6  .5
i1 + .     .     np4 7.11 np6  .1
i1 + .1666 .     np4 8.04 np6  .05
i1 + .     .     np4 8.01 np6  .
i1 + .     .     np4 7.09 np6  .
i1 + .     .     np4 8.04 np6  .05
i1 + .     .     np4 8.01 np6  .
i1 + .     .     np4 7.09 np6  .
i1 + .     .     np4 8.02 np6  .
i1 + .     .     np4 7.11 np6  .
i1 + .     .     np4 7.07 np6  .
i1 + 1     .     np4 8.07 np6  .05
i1 + .5    .     np4 8.06 np6  .
i1 + .     .     0   8.04 8.04 .
e

</CsScore>
</CsoundSynthesizer>