þÿ# segmentizeTheOtherIntervals.praat

# First, use the segmentizeInterval.praat

# followed by this one for all the other intervals



form Parameters

	word inFolder Æ´Ç(¼õÈ

	word subFolder sentence1

	word processedFolder done3

endform



# Provide interval details

intervalText$ = "The"

numSegments = 2

segment1$ = "th"

segment2$ = "e"



Create Strings as file list... fileListObj 'inFolder$'/'subFolder$'/*.wav

Sort

numFiles = Get number of strings



# Loop through all the sentence 1 files

for iFile to numFiles

	select Strings fileListObj

	fileName$ = Get string... iFile

	prefix$ = fileName$ - ".wav"

	Read from file... 'inFolder$'/'subFolder$'/'fileName$'

	Rename... soundObj

	Read from file... 'inFolder$'/'subFolder$'/'prefix$'.TextGrid

# No need to duplicate because it's already done with 

# the segmentizeInterval.praat script

	numIntervals = Get number of intervals... 2

	Rename... textgridObj

	plus Sound soundObj

	Edit



	# Get the target interval number in tier 1

	select TextGrid textgridObj

	iInterval = 0

	flagFound = 0

	while (flagFound = 0 and iInterval < numIntervals)

		iInterval = iInterval + 1

		textOfInterval$ = Get label of interval... 1 iInterval

		if textOfInterval$ = intervalText$

			flagFound = 1

			targetIntervalNum = iInterval

		endif

	endwhile



	# Get the start and end of the target interval

	start = Get starting point... 1 targetIntervalNum

	end = Get end point... 1 targetIntervalNum

	dur = end - start

	# Get the increment interval

	increment = dur / numSegments



	# Insert the default segment boundaries to the target interval

	for iSegment to (numSegments-1)

		pointOfInsertion = start + iSegment * increment

		intervalNumTargetTier = targetIntervalNum + (iSegment-1)

		dummy$ = segment'iSegment'$

		Insert boundary... 2 pointOfInsertion

		Set interval text... 2 intervalNumTargetTier 'dummy$'

	endfor

	dummy$ = segment'numSegments'$

	lastIntervalNum = targetIntervalNum + numSegments - 1

	Set interval text... 2 lastIntervalNum 'dummy$'



	editor TextGrid textgridObj

		Zoom... start end

		Zoom out

		Zoom out

	endeditor

	pause Align the segment boundaries and click Continue



	Write to text file... 'inFolder$'/'subFolder$'/'processedFolder$'/'prefix$'.TextGrid

	filedelete 'inFolder$'/'subFolder$'/'prefix$'.TextGrid

	Remove

	select Sound soundObj

	Write to WAV file... 'inFolder$'/'subFolder$'/'processedFolder$'/'fileName$'

	Remove

	filedelete 'inFolder$'/'subFolder$'/'fileName$'

endfor

select Strings fileListObj

Remove

########## END OF SCRIPT ############