clearinfo

print Vowel 'tab$' BeginTime 'tab$' EndTime 'tab$' Pitch 'newline$'
selectObject: "TextGrid Recording"
num_intervals=Get number of intervals: 1
selectObject: "Sound Recording"
To Pitch: 0, 75, 600

for vowel_interval from 1 to num_intervals
	selectObject: "TextGrid Recording"
	label$ = Get label of interval: 1, vowel_interval

	if label$ <> ""
		vowel_interval = 8
		selectObject: "TextGrid Recording"
		x=Get start point: 1, vowel_interval
		y=Get end point: 1, vowel_interval

		print 'label$' 'tab$'
		print begin time = 'x' 'tab$'
		print end time = 'y'  'tab$'

		pitch_time = (y+x)/2
		selectObject: "Pitch Recording"
		pitch=Get value at time: pitch_time, "Hertz", "Linear"
		print pitch = 'pitch' 'newline$'
	endif
endfor