🚀 go-pugleaf

In article <259@tahoma.UUCP> wam6186@tahoma.UUCP (Warren A. Murray) writes:
>Is there anyone out there who knows how to do underlining in
>Postscript?  I need an algorithm that will work with any of
>the Apple LaserWriter Plus fonts at any size.

Here's the algorithm, which can be used as show, but it shows the
string including underlining.
I made it a while ago, and I still don't find the result very satisfying
(lines are too thick and too close on the characters themselves...),
but it is according the specifications in the Red Book, I think.

/showu {
	dup show gsave
	currentfont dup /FontMatrix get 3 get exch
	/FontInfo get dup /UnderlineThickness get 2 index
	mul setlinewidth /UnderlinePosition get mul
	0 exch rmoveto stringwidth pop neg 0 rlineto stroke
	grestore
} def

I hope this is what you asked for...

-- 
#  Jos Vos                             #  Internet  jos@idca.tds.philips.nl  #
#  Philips TDS, Dept SSP               #                                     #
#  P.O. Box 245                        #  UUCP        ...!mcvax!philapd!jos  #
#  7300 AE Apeldoorn, The Netherlands  #  Phone               +31 55 433181  #