sr = 44100 ksmps = 1 nchnls = 1 0dbfs = 1 instr 1 afeedback init 0 icps = p4 asweep expsega 1, 2, .5 amainlobezero = 4.5*icps+asweep*(22050-4.5*icps) awindowwidth = 4.5/amainlobezero icorrect = .5*4.5/22050 acorrect = .5*awindowwidth*icps aramp phasor icps, icorrect aindex = 1/icps/awindowwidth*aramp aread tablei aindex, 1, 1 adeclick linseg 0, 1/icps, 1, p3-2/icps, 1, 1/icps, 0 aout = adeclick*(aread-aramp+acorrect-.875*afeedback) afeedback vdelay aout, 1000/amainlobezero, 1000/icps 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 16 55 e