# move_all_bound_zerocross.psc
# Moves all boundaries in _IntervalTiers_ to the 
# nearest zero crossing
#
# Select a TextGrid + a Sound | Edit | open and run this script (from 
# the TextGridEditor)
#
# 09.11.2005 John Tøndering

textgrid = selected("TextGrid")
select 'textgrid'
endeditor
numberOfTiers = Get number of tiers

for w to numberOfTiers
   editor 'textgrid'
   Select next tier
   Add interval tier... numberOfTiers+1 DELETING
   Remove entire tier
   for h from 2 to w
      Select next tier
   endfor
   endeditor
   numberOfIntervals = Get number of intervals... w
   for q to numberOfIntervals
      start = Get starting point... w q
      end   = Get end point... w q
      editor 'textgrid'
      if q < numberOfIntervals
         Move cursor to... end
         Move to nearest zero crossing
      endif
      endeditor
   endfor
endfor