sr = 44100 ksmps = 1 nchnls = 1 0dbfs = 1 instr 1 icps = p4 imainlobezero = 22050 iwindowwidth = 4.5/imainlobezero idutycycle = .25 aramp1 phasor icps aramp2 phasor icps, idutycycle ifactor = 1/icps/iwindowwidth aindex1 = ifactor*aramp1 aindex2 = ifactor*aramp2 aread1 tablei aindex1, 1, 1 aread2 tablei aindex2, 1, 1 aout = aread1-aramp1-aread2+aramp2 adeclick linseg 0, 1/icps, 1, p3-2/icps, 1, 1/icps, 0 out adeclick*aout endin f 1 0 65537 -9 .5 -.59814453125 90 1.5 .11962890625 90 2.5 -.02392578125 90 3.5 .00244140625 90 i 1 0 1 220 i 1 1 1 440 i 1 2 1 880 i 1 3 1 1760 e