Import Midi Textgrid to lab + @ support

grid = selected: "TextGrid", 1

selectObject: grid

gNumTiers = Get number of tiers
if gNumTiers <> 1
  exitScript: "TextGrid doesn't have only 1 tier"
endif

gIsInterval = Is interval tier: 1
if not gIsInterval
  exitScript: "TextGrid's tier is not Interval Tier"
endif

deleteFile: "praat.lab"

gNumInts = Get number of intervals: 1


for .i to gNumInts
  selectObject: grid
  ts = Get start time of interval: 1, .i
  tsX = ts * 10000000
  te = Get end time of interval: 1, .i
  teX = te * 10000000
  lbl$ = Get label of interval: 1, .i


# if lbl$ = "_"
#   part$ = "pau"
# elsif lbl$ = " "
#    part$ = "pau"
# else
   	dot = rindex(lbl$, " ")
	numCharsPart = dot - 1
	part$ = left$ (lbl$, numCharsPart)

if part$ = ""
  part$ = "pau"
endif

if part$ = "_"
  part$ = "pau"
endif

# endif

  rhotMid = tsX + ((teX - tsX) / 2)


  if part$ = "Q@"
      appendFileLine: "praat.lab", round(tsX), " ", round(rhotMid), " aa"
	  appendFileLine: "praat.lab", round(rhotMid), " ", round(teX), " r"
	elsif part$ = "O@"
	  appendFileLine: "praat.lab", round(tsX), " ", round(rhotMid), " ao"
	  appendFileLine: "praat.lab", round(rhotMid), " ", round(teX), " r"
	elsif part$ = "I@"
	  appendFileLine: "praat.lab", round(tsX), " ", round(rhotMid), " ih"
	  appendFileLine: "praat.lab", round(rhotMid), " ", round(teX), " r"
	elsif part$ = "U@"
	  appendFileLine: "praat.lab", round(tsX), " ", round(rhotMid), " uh"
	  appendFileLine: "praat.lab", round(rhotMid), " ", round(teX), " r"
	elsif part$ = "e@"
	  appendFileLine: "praat.lab", round(tsX), " ", round(rhotMid), " eh"
	  appendFileLine: "praat.lab", round(rhotMid), " ", round(teX), " r"
	  else
	    appendFileLine: "praat.lab", round(tsX), " ", round(teX), " ", part$
	endif







endfor




writeInfoLine: "File Praat.lab created"