# This script removes boundaries at the exactly same time points across tiers 2 ~ 10.
# First, click a boundary that you want to remove (it can be any tier among tiers 2 ~ 10),
# and then run this script.
# Heejin Kim, 2-2-2010

sel$ = selected$("TextGrid")

editor TextGrid 'sel$'
cursor = Get cursor
endeditor

textgrid = selected("TextGrid 'sel$'")
select 'textgrid'

call removeBoundary 2
call removeBoundary 3
call removeBoundary 4
call removeBoundary 5
call removeBoundary 6
call removeBoundary 7
call removeBoundary 8
call removeBoundary 9
call removeBoundary 10
procedure removeBoundary tier
  nT = Get number of intervals... tier
  for i to nT
    select 'textgrid'
    tstart = Get start point... tier i 
    if (tstart = cursor)
       Remove left boundary... tier i
    elsif (tstart > cursor)
        i = nT
    endif
  endfor
endproc