;==============================

;AUTOTUNER

;(C) 2023 Luca Pavan

;==============================


sr =96000
kr =96000
ksmps = 1
nchnls= 1

gkt init 16.35
gkm init 0
gkj init 0
 
instr 1

ifftsize = 2048  
iwtype = 0

a1 soundin "soundfile.wav"

fsig pvsanal a1, ifftsize, ifftsize/4, ifftsize, iwtype
kamp, kfr pvsbin fsig, p4
a:
gkm = gkj
k1 = gkt * 1.0594631
gkj = k1 - kfr
gkt = k1
if abs(gkj) <= abs(gkm) goto b
goto c
b:
kp = gkj
c:
if k1 < 20000 goto a
kfr = kfr + kp
gkt = 16.35
adm poscil kamp, kfr, 1
  out adm
   endin