form What is the word?
	sentence theword
	boolean showinfo 1
	boolean writeout 1
	positive onoffset 0.035
	sentence notes
endform

begin = Get start of selection
end = Get end of selection
dur = (end-begin)
mid = begin+(dur/2)

if dur < 2*onoffset
  onoffset = dur/2
endif

onset = begin + onoffset
Move cursor to... onset
of1 = Get first formant
of2 = Get second formant
of3 = Get third formant
of4 = Get fourth formant
opitch = Get pitch

Move cursor to... mid
mf1 = Get first formant
mf2 = Get second formant
mf3 = Get third formant
mf4 = Get fourth formant
mpitch = Get pitch

glide = end - onoffset
Move cursor to... glide
gf1 = Get first formant
gf2 = Get second formant
gf3 = Get third formant
gf4 = Get fourth formant
gpitch = Get pitch

if showinfo
	clearinfo
	printline Word 'tab$' oF1 'tab$' oF2 'tab$' oF3 'tab$' oF4 'tab$' oPitch 'tab$' oTime 'tab$' mF1 'tab$' mF2 'tab$' mF3 'tab$' mF4 'tab$' mPitch 'tab$' mTime 'tab$' gF1 'tab$' gF2 'tab$' gF3 'tab$' gF4 'tab$' gPitch 'tab$' gTime 'tab$' Dur 'tab$' Spacing 'tab$' Notes
	printline 'theword$' 'tab$' 'of1:0' 'tab$' 'of2:0' 'tab$' 'of3:0' 'tab$' 'of4:0' 'tab$' 'opitch:0' 'tab$' 'onset:3' 'tab$' 'mf1:0' 'tab$' 'mf2:0' 'tab$' 'mf3:0' 'tab$' 'mf4:0' 'tab$' 'mpitch:0' 'tab$' 'mid:3' 'tab$' 'gf1:0' 'tab$' 'gf2:0' 'tab$' 'gf3:0' 'tab$' 'gf4:0' 'tab$' 'gpitch:0' 'tab$' 'glide:3' 'tab$' 'dur:3' 'tab$'  'onoffset' 'tab$' 'notes$'
endif

if writeout
	fileappend out-rd.txt 'theword$' 'tab$'  'of1:0' 'tab$' 'of2:0' 'tab$' 'of3:0' 'tab$' gf4:0' 'tab$' 'opitch:0' 'tab$' 'onset' 'tab$' 'mf1:0' 'tab$' 'mf2:0' 'tab$' 'mf3:0' 'tab$' 'mf4:0' 'tab$' 'mpitch:0' 'tab$' 'mid' 'tab$' 'gf1:0' 'tab$' 'gf2:0' 'tab$' 'gf3:0' 'tab$' gf4:0' 'tab$' 'gpitch:0' 'tab$' 'glide' 'tab$' 'dur:3' 'tab$' 'onoffset:3' 'tab$' 'notes$' 'newline$'
endif

Select... begin end