# This Praat script will get F0 value at regular interval.
# Date: 26 January 2008
# Author: MATSUURA Toshio
# Input: TextGrid and Pitch (must have the same name)

clearinfo
form Get F0 at regular interval
   word File 2-a-beru
   positive number_of_sampling_point 5
endform
select TextGrid 'file$'

int=Get number of intervals... 1

for i from 1 to 'int'
select TextGrid 'file$'
label$ = Get label of interval... 1 'i'
printline ['label$']
durStart = Get starting point... 1 'i'
durEnd = Get end point... 1 'i'
duration = durEnd - durStart

for k from 0 to number_of_sampling_point
fvalue = duration / number_of_sampling_point * k + durStart
select Pitch 'file$'
vofPitch = Get value at time... 'fvalue' "Hertz (logarithmic)" Linear
printline ['i'] ['k'] 'fvalue' 'vofPitch'
endfor

endfor
fappendinfo 'file$'.txt