##########################################
###   LABELING two pitch intervals
###   Written by Kyuchul Yoon
###   kyoon@ling.osu.edu   1-30-2002
##########################################
form Select a file and parameters for spectral analysis
	word soundFile_(without_extension) ky_abandoned2
endform

Read from file... 'soundFile$'.TextGrid
Insert interval tier... 3 pitch

Read from file... 'soundFile$'.wav

Edit
editor Sound 'soundFile$'
	Set selection to zero
	pause Select Interval 1 / 2
	start1 = Get begin of selection
	end1 = Get end of selection
	minPitch1 = Get minimum pitch
	
	pause Select Interval 2 / 2
	start2 = Get begin of selection
	end2 = Get end of selection
	maxPitch2 = Get maximum pitch
	Close
endeditor
	
select TextGrid 'soundFile$'
	Insert boundary... 3 'start1'
	Insert boundary... 3 'end1'
	Set interval text... 3 2 'minPitch1:0'

	Insert boundary... 3 'start2'
	Insert boundary... 3 'end2'
	Set interval text... 3 4 'maxPitch2:0'
Write to text file... 'soundFile$'.TextGrid

select Sound 'soundFile$'
plus TextGrid 'soundFile$'
Edit
pause CONFIRM TextGrid
Remove

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