intensity-scaling

############################
#
#  Scales the intensity of all the files
#  in a specified directory to be equal.
#
############################


form Scale intensity
	comment Directory of sound files
	text sound_directory D:\UoA\04research\01PB_verbal\00CreateTextgrids\CV-20210810\
	sentence Sound_file_extension .wav
	comment Directory for resulting files
	text end_directory D:\UoA\04research\01PB_verbal\00CreateTextgrids\CV-20210810\
	comment Scale to what intensity
	positive intensity 60.0
endform

# you make a listing of all the sound files in a directory.

Create Strings as file list... list 'sound_directory$'*'sound_file_extension$'
numberOfFiles = Get number of strings


for ifile to numberOfFiles
	# A sound file is opened from the listing:

	filename$ = Get string... ifile
	Read from file... 'sound_directory$''filename$'

	# Scale intensity

	Scale intensity... intensity

	# Save resulting file
	newname$= filename$ - ".wav" + "_int.wav"
	Write to WAV file... 'end_directory$''newname$'

	select Strings list
endfor

select all
Remove