#################################################################################################
#   actual-TextGrid-creator.praat	   
#   Written by Kyuchul Yoon ( kyoon@ling.osu.edu )
#   Lets you create the actual TextGrid file by moving around the boundaries created 
#        in the default TextGrid files with the script "default-TextGrid-creator.praat"
#   Assumes that you have two subdirectories "302000.txt" and "TextGrid"
#   Will write modified TextGrid files into the subfolder "TextGridDone"
#   After the user modifies the default TextGrid files, the script will prompt the user to 
#        verify his/her modification and write to new files.
#   Version 0.5 : Tried "system_nocheck" command, but doesn't seem to be working
##################################################################################################

# Specify files and folders
form Select files
	word longSoundFolder_(should_be_a_subfolder) 302000.txt
	word longSoundFile_(without_extension) 302000
	word textGridFolder_(should_be_a_subfolder) TextGrid
	word textGridName 302000-01.rom.TextGrid
	word textGridDoneFolder_(to_be_created) TextGridDone
endform

Open long sound file... 'longSoundFolder$'\'longSoundFile$'.wav
Read from file... 'longSoundFolder$'\'textGridFolder$'\'textGridName$'
Rename... textGrid

# Select the long sound file and a TextGrid for editing
select LongSound 'longSoundFile$'
plus TextGrid textGrid
Edit

# Give users a note before writing to another folder
pause Click when done
pause TextGrid to be written as .done in TextGridDone folder

# Save the modified TextGrid file in a different folder with .done suffix attached
# Create a subfolder if necessary
# 
# system_nocheck mkdir 'longSoundFolder$'\'textGridDoneFolder$' <== doesn't really work
select TextGrid textGrid
Write to text file... 'longSoundFolder$'\'textGridDoneFolder$'\'textGridName$'.done
Remove

# Read in the TextGrid file just saved and present it for verification
Read from file... 'longSoundFolder$'\'textGridDoneFolder$'\'textGridName$'.done
plus LongSound 'longSoundFile$'
Edit
pause Verify the TextGrid that you just wrote


select LongSound 'longSoundFile$'
Remove