/doeswordfit { linestring wordstart dup 3 index exch sub getinterval dup dup length 0 gt { stringwidth pop exch length cstretch mul add /wordroom exch def } { pop pop /wordroom 0 def } ifelse roomleft wordroom longstringadj sub dup 0 gt } bind def