#######################################
###   Pitch extraction from TextGrid files
###   Written by Kyuchul Yoon
###   kyoon@ling.osu.edu   1-29-2002
#######################################
form Select a file and parameters for spectral analysis
	word textGridFile_(to_be_created) ky_askip
	word outputFile_(to_be_created_for_duration) RESULTS_duration_extract.txt
endform

Read from file... 'textGridFile$'.TextGrid
	dur_label1 = Get label of interval... 2 2
	dur_label2 = Get label of interval... 2 3
	dur_label3 = Get label of interval... 2 4

fileappend 'outputFile$' 'textGridFile$' 'tab$' 'dur_label1' 'tab$' 'dur_label2' 'tab$' 'dur_label3'	'newline$'

Remove