lprocedure convert
l#
lRead TextTier from Xwaves... 'source_directory$''file$'
lname$ = left$(file$, (rindex (file$,
lab_file_extension$) - 1))
lselect TextTier 'name$'
lInto TextGrid
lselect TextTier 'name$'
lRemove
lselect TextGrid grid
lRename... 'name$'
l
lc= Count labels... 1 'save_only_files_with_label$'
lif c =1
l Insert
interval tier... 2 focus
l Extract
tier... 1
l Get
points... sof1
l t1=
Get time from index... 1
l t2=
Get time from index... 2
l Remove
l select
TextGrid 'name$'
l Insert
boundary... 2 t1
l Insert
boundary... 2 t2
l select
TextTier 'name$'
l Get
points... /sof1
l t1=
Get time from index... 1
l t2=
Get time from index... 2
l Remove
l select
TextGrid 'name$'
l Insert
boundary... 2 t1
l
l Insert
boundary... 2 t2
l select
TextTier 'name$'
l Get
points... sof2
l t1=
Get time from index... 1
l t2=
Get time from index... 2
l Remove
l select
TextGrid 'name$'
l Insert
boundary... 2 t1
l Insert
boundary... 2 t2
l select
TextTier 'name$'
l Get
points... /sof2
l t1=
Get time from index... 1
l t2=
Get time from index... 2
l Remove
l select
TextGrid 'name$'
l Insert
boundary... 2 t1
l Insert
boundary... 2 t2
l Set
interval text... 2 2 s1w1
l Set
interval text... 2 4 s1w2
l Set
interval text... 2 6 s2w1
l Set
interval text... 2 8 s2w2
l Remove
tier... 1
l if
save_new_files = 1
l Write
to text file... 'goal_directory$''name$'.TextGrid
l endif
lelse
l Remove
lendif
l
lendproc