Exploring Analogue Synth Techniques by Jacob Joaquin email jacobjoaquin@gmail.com web www.thumbuki.com/csound/articles/east/ (C)2007 Jacob Joaquin sr = 44100 kr = 4410 ksmps = 10 nchnls = 2 instr 1 idur = p3 iamp = p4 iwave = p5 ifpch = p6 ilength = ftlen(ifpch) aclock phasor 1/idur kclock downsamp aclock ktpch table kclock * ilength, ifpch, 0, 0, 1 kpch = cpspch(ktpch) avco1 vco 1, kpch, iwave, .5, 1, 1/(cpspch(7.00)) avco2 vco 1, kpch*.994, iwave, .5, 1, 1/(cpspch(7.00)) avco = (avco1 + avco2) * .5 * iamp agate linseg 0, .015625, 1, idur - .03125, 1, .015625, 0 outs avco * agate, avco * agate endin f1 0 8192 10 1 f100 0 8 -2 7.00 7.03 7.02 7.06 7.05 7.09 7.08 7.12 t 0 90 i1 0 4 10000 2 100 i1 + 2 10000 1 100 i1 + 2 10000 1 100 e