## the goal of this script is to measure vowel formants at the onset and half way through
## the vowel. The script does this by locating intervals on a textgrid tier labelled as 
## "V". For each "V" interval, the cursor is placed at 5% into the vowel and then again at 
## 50% into the vowel. At each cursor point, F1, F2, and F3 are measured. The values are exported
## to an Excel spread sheet.


clearinfo

sound$ = selected$ ("Sound")
textgrid$ = selected$ ("TextGrid")

select TextGrid 'textgrid$'
numberofintervals = Get number of intervals... 1


fileappend 'sound$'.xls Segment 'tab$' 'F1beg' 'tab$' 'F2beg' 'tab$' 'F1mid' 'tab$' 'F2mid' 'newline$'


for i = 1 to numberofintervals
intervallabel$ = Get label of interval... i

if intervallabel$ = "V"

start = Get starting point of interval... i
end = Get end point of interval... i
dur = (end - start)

beg = start + (dur*(5/100))
mid = start + (dur*(50/100))
Move cursor to... beg
Formant listing
f1beg = Get first formant
f2beg = Get second formant 
f3beg = Get third formant
Move cursor to... mid
f1mid = Get first formant
f2mid = Get second formant
f3mid = Get third formant


print f1beg f2beg f3beg f1mid f2mid f3mid

resultline$ = "'intervallabels$' 'tab$' 'F1beg' 'tab$' 'F2beg' 'tab$' 'F3beg' 'tab$' 'F1mid' 'tab$' 'F2mid' 'F3mid' 'tab$' 'newline$'"
fileappend 'sound$'.xls 'resultline$'

endif

next