#######################################################################
###	TextGrid file prep for labeling
###	Tcl/tk script written by Mary Beckman ( mbeckman@ling.osu.edu )	
###	Praat script written by Kyuchul Yoon ( kyoon@ling.osu.edu )
###	This script should be placed in a directory where you have
###	1. the long sound file
###	2. "distrom.tcl" script that Mary wrote
###	You should also have two subdirectories where
###	1. csplit-han/ directory contains the csplit sentences
###	2. csplit-rom/ directory "will" contain the romanized versions 
###	   of the files in csplit-han/ folder
###	NOTE: The output TextGrid file is written in csplit-rom/ directory
#######################################################################

form Select files
	word longSoundFile_(without_extension) 302004
	word outputRomFile_(without_extension) 302004-01
	word outputTextGridFile_(without_extension) 302004-01
endform

Open long sound file... 'longSoundFile$'.wav
View
editor LongSound 'longSoundFile$'
	pause Pick the beginning of utterance
	begin = Get cursor
	pause Pick the end of utterance
	end = Get cursor
#	For debugging
#	echo 'begin', 'end'
endeditor

#Note the input hangul filename is the same as the filename portion of the .rom file
system /home/projects/ameritech/korean/phonetizer/han2phon csplit-han/'outputRomFile$' > csplit-rom/'outputRomFile$'.rom
system ./distrom.tcl csplit-rom/'outputRomFile$'.rom 'end' 'begin'

#Present an editor window for labeling
Read from file... csplit-rom/'outputTextGridFile$'.TextGrid
select LongSound 'longSoundFile$'
plus TextGrid 'outputTextGridFile$'
Edit