sr = 44100 ksmps = 1 nchnls = 1 0dbfs = 1 instr 1 icps = p4 imainlobezero = 22050 iwindowwidth = 4.5/imainlobezero icorrect = .5*iwindowwidth*icps aramp phasor icps, icorrect aindex = 1/icps/iwindowwidth*aramp aread tablei aindex, 1, 1 aout = aread-aramp+icorrect 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