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
	ipch = cpspch(p5)

	kenv  expseg 1, idur * .25, 6, idur * .5, 6, idur * .25, 1
	klfo1 oscil  .5, kenv, 1, 0
	klfo2 oscil  .5, kenv, 1, .5
	klfo1 =      klfo1 + .5
	klfo2 =      klfo2 + .5
	aosc1 oscil  10000, ipch, 2, -1
	aosc2 oscil  10000, ipch, 3, -1
	amix  =      aosc1 * klfo1 + aosc2 * klfo2

	out amix
endin

</CsInstruments>




<CsScore>
f1 0 8192 10 1
f2 0 8192 10 1 0 1 0 1 0 1 0
f3 0 8192 10 0 1 0 1 0 1 0 1

i1 0 1 10000 7.04
i1 + . .     6.11
i1 + 2 .     6.04
i1 + 1 .     7.06
i1 + . .     7.01
i1 + 2 .     6.06
i1 + 2 .     7.04

</CsScore>
</CsoundSynthesizer>