#Mark lowest and highest f0 value points found in each interval of chosen
#tier, in a new point tier.
#
#This script retrieves the time of the lowest f0 value in each interval 
#of an interval tier, and marks that point with an L in a new point tier
#that is inserted at the top (tier 1). This process is then repeated 
#to find the highest f0 values in each interval, marked with H.
#
#In this script, tier 5 is the interval tier in which Praat searches
#the minimum and maximum values. At the beginning of the script,
#a pitch object is created, as well as a new tier, tier 1, where the f0
#values are marked.
#
#You must have a Sound and a TextGrid available in the object window
#prior to running this script.
#
#Created by Jessica Sertling Miller - sertling@uiuc.edu
#May 31, 2005
###########################################################################

select all
numberOfObjects = numberOfSelected ("Sound")
name$ = selected$ ("Sound")
numberOfGrids = numberOfSelected ("TextGrid")
grid$ = selected$ ("TextGrid")
select Sound 'name$'
To Pitch... 0.0 75 600
numberOfPitch = numberOfSelected ("Pitch")
pitch$ = selected$ ("Pitch")

clearinfo
select all
select TextGrid 'grid$'
Insert point tier... 1 f0IP
np5 = Get number of intervals... 5

for i to np5

select TextGrid 'grid$'
	
	startTime = Get starting point... 5 i
	endTime = Get end point... 5 i

select all
pitch$ = selected$ ("Pitch")
select Pitch 'pitch$'

	f0lowTime = Get time of minimum... startTime endTime Hertz Parabolic
	f0highTime = Get time of maximum... startTime endTime Hertz Parabolic
	
select TextGrid 'grid$'
	
	Insert point... 1 f0lowTime L
	Insert point... 1 f0highTime H

endfor