#Tällä skripitillä voidaan nollata toisen puhujan ääni pausen kohdalla,
#jotta saadaan analysoitua esim. f0 luotettavammin, kun toisen puhujan
#ääni ei vaikuta analyysiin ollenkaan.
#tätä varten tarvitaan siis textgrid, johon on rajattu pauset
#(ja merkattu ne sanalla pause). =) Kun ajat skriptiä, pitää olla avattu
#Sound ja samanniminen TextGrid ja TextGrid valittu(objekti-ikkunassa)
#Huom, jos kansiossa mihin tallennat on jo samanniminen0.wav Sound, niin
#tämä kirjoittaa uuden nollatun äänen sen päälle.

name$ = selected$ ("TextGrid")
# ask the user for the tier number
form Set pause part to zero
	comment Which tier of the TextGrid object would you like to analyse?
	integer Tier 1
	comment Where do you want to save the new .wav file?
	text Directory C:\Documents and Settings\Riikka\Omat tiedostot\venäläiset\
endform
select TextGrid 'name$'

# check how many intervals there are in the selected tier:
numberOfIntervals = Get number of intervals... tier

# loop through all the intervals
for interval from 1 to numberOfIntervals
	label$ = Get label of interval... tier interval
	if label$ = "pause"
		start = Get starting point... tier interval
		end = Get end point... tier interval
		select Sound 'name$'
		Set part to zero... start end at nearest zero crossing
		select TextGrid 'name$'
	endif
endfor
select Sound 'name$'
Write to WAV file... 'directory$''name$'0.wav