# Raised the f0 of all files by the specified factor.
# Ver. 10/15/2013
# Written with an older version of Praat.
# Contact the author if it does not run well with your version of Praat. 

form Files
	comment Input folder
	text input_directory ./
	comment Factor
	positive highfactor 1.1
endform

createDirectory ("output")

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

for i from 1 to number_files
	select Strings list
	current_file$=Get string... 'i'
	Read from file... 'input_directory$''current_file$'

	sound_one$ = selected$ ("Sound")
	To Manipulation... 0.01 75 600
	Extract pitch tier
	Formula... self * highfactor; 
	select Manipulation 'sound_one$'
#	plus PitchTier untitled
	plus PitchTier 'sound_one$'
	Replace pitch tier
	select Manipulation 'sound_one$'
	Get resynthesis (PSOLA)
	Write to WAV file... ./output/'sound_one$'.wav

	
	select all
	minus Strings list
	Remove

endfor

select all
Remove