; this CSD file was generated with makecsd v1.1 ; (written by Istvan Varga, Mar 2003) ; set command line options here -Wdo test.wav sr = 44100 kr = 44100 ksmps = 1 nchnls = 1 ; Basic waveform (sine). giwavfn ftgen 1, 0, 32768, 10, 1 ; (empty) table of partial frequencies gifrqfn ftgen 2, 0, 16, 7, 0, 16, 0 ; (empty) table of partial amplitudes giampfn ftgen 3, 0, 16, 7, 0, 16, 0 instr 1000 ; iscale = 0.4 ; fudge icps = cpspch(p4) iamp = iscale*ampdbfs(p5) icnt = p6 ; kindex = 0 ktime linseg 1, p3, 5 krads linseg 0, p3, 3.1415927 ; setup: kfrq pow 3/2, kindex/2 kvibamp = ktime*0.0024 kfrq = kfrq*(1+kvibamp*sin(krads*kfrq*p3 + kindex)) kamp = 1 / (kindex+1) kamp pow kamp, ktime tablew kfrq, kindex, gifrqfn tablew kamp, kindex, giampfn kindex = kindex + 1 if (kindex < icnt) kgoto setup ; asig adsynt iamp, icps, giwavfn, gifrqfn, giampfn, icnt kenv linen 1, 0.01, p3, 0.05 kfall expseg 1, p3, 0.01 out asig*kenv*kfall ; endin ; fn time size gen parameters ; p1 p2 p3 p4 p5 p6 p7 p8 p9 ; inst time dur pch dBfs icnt i 1000 0 10 7.09 -3 11 i 1000 2 10 8.02 0 13 i 1000 4 10 7.07 -4 10 i 1000 6 10 7.06 -8 8 i 1000 10 10 7.09 -6 9 i 1000 12 10 8.02 -3 11 i 1000 14 10 8.07 0 14