#
# Praat formant and pitch exteracter
# Author: Joseph Toscano <joseph-toscano@uiowa.edu>
#

form arguments
	word Directory  
	choice Method 1
		button burg
		button sl
	positive Time_Step 0.005
endform

print 'time_Step'

Create Strings as file list... list 'directory$'*.wav
number_files = Get number of strings

for a from 1 to number_files 
	select Strings list
     	current_file$ = Get string... 'a'
	Read from file... 'directory$''current_file$'
	object_name$ = selected$("Sound")
	To Formant ('method$')... 'time_Step' 0 5 5000 0.025 50
	#Track... 3 550 1650 2750 3850 4950 1 1 1
	Write to short text file... 'directory$''object_name$'.Formant

	select Sound 'object_name$'
	To Pitch... 'time_Step' 75 600
	To Matrix
	Write to short text file... 'directory$''object_name$'.Matrix
endfor
select all
Remove
clearinfo
print All done. Enjoy your freshly squeezed formant tracks.