# This script concatenates (combines) two sound files
# and creates a text grid, where there is 1 tier indentifying where
# there is a label for every sound file. The tiername is files.
# Sound files need to be opened as sound in the object window
# 2.3.2007 Riikka Ullakonoja

form Directory and name of new file?
comment Where do you want to save the concatenated files?
text directory C:\MyTemp\
comment What name do you want to give to the concatenated file?
text name pekka
endform


select all
Concatenate recoverably
select Sound chain
Write to WAV file... 'directory$''name$'.wav
# Remove
select TextGrid chain
Set tier name... 1 files
Write to text file... 'directory$''name$'.TextGrid
# Remove
select all
Remove