# Name: to_pitch_all.praat
# Purpose: a Praat script to get Pitch object for all wav files
# Input: $basename.wav
# Output: $basename.Pitch
# Date: 2005-09-01
# Author: Mafuyu Kitahara

Create Strings as file list... list *.wav
n = Get number of strings
#print 'n'

for i to n
        select Strings list
	filename$ = Get string... i
	Read from file... 'filename$'
	soundname$ = selected$ ("Sound")
	To Pitch... 0.01 75 800
	output$ = "'soundname$'.Pitch"
	Write to binary file... 'output$'
endfor