🚀 go-pugleaf

J.P. Buys writes:
>My problem is that I don't know how I can determine the length
>of a string so that I can break the line in multiple strings
>that fit within the borders of the printer label (including
>word-wrap etc.)

Unless you can get a copy of the font metric tables on your computer,
you'll just have to do it with PostScript code.  It's pretty easy to
do string-handling stuff in PostScript, so long as you don't try to
concatenate strings.

I'd just step through the string a word at a time, for each word
deciding if it will fit in the remaining space on the line.  If
it will then print it, otherwise move to the next line befoe printing
it.

If you're planning to adjust the font size dynamically to make the
string fit nicely then you could write an iterator function that is
passed an action procedure to called for each word, and another for
each line etc.  You might end up using it something like this:

/myFont findfont someSize scalefont setfont
/linecount 0 def
theString {pop} {/linecount linecount 1 add def} findLineBreaks

... then after some calculations ...

/lineY labelTop def
labelLeft labelTop moveto

   theString
   {show}
   {/lineY lineY linespacing sub def  labelLeft  lineY moveto}
findLineBreaks


... where findLineBreaks is your iterator function.

Hope this helps.

-- 
Bruce.Hoult@bbs.actrix.gen.nz   Twisted pair: +64 4 772 116
BIX: brucehoult                 Last Resort:  PO Box 4145 Wellington, NZ
"And they shall beat their swords into plowshares, for if you hit a man
with a plowshare, he's going to know he's been hit."