#######################################
###   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_pitch_extract.txt
endform

Read from file... 'textGridFile$'.TextGrid
	pitch_label1 = Get label of interval... 3 2
	pitch_label2 = Get label of interval... 3 4

fileappend 'outputFile$' 'textGridFile$' 'tab$' 'pitch_label1' 'tab$' 'pitch_label2' 'tab$' 'newline$'

Remove

####### END OF SCRIPT #######