Example 289. Example

		
ifftsize = 1024  
iwtype = 1    /* cleaner with hanning window */
ipos = -0.8  /* to the left of the stereo image */
iwidth = 20  /* use peaks of 20 points around it */

a1   soundin "input.wav"

fsig pvsanal   a1, ifftsize, ifftsize/4, ifftsize, iwtype
kcen pvscent   fsig
adm  oscil     32000, kcent, 1
   
       out    adm