Article View: comp.lang.postscript
Article #477Re: Underline font
From: Peter da Silva
Date: Sat, 11 Apr 1992 14:09
Date: Sat, 11 Apr 1992 14:09
21 lines
1119 bytes
1119 bytes
In article <kuckd9INNsdh@exodus.Eng.Sun.COM> rberlin@Eng.Sun.COM writes:
>% show a string, underlined. Not very fancy, but gets the job done.
Shouldn't you wrap it in
currentfont dup /FontInfo known {
/FontInfo get dup /UnderlineThickness known {
gsave
... body goes here
grestore
} if
} if
show
To allow for fonts that don't have FontInfo (a few) or underline
information (quite a lot).
--
/F{findfont exch scalefont setfont}def /S{moveto show}def /T{/Times-Roman F}def
6 T (Have you hugged your wolf today?)468 20 S 9 T (Taronga Park BBS)24 35 S 10
/Courier F(`-_-')488 40 S ( 'U` )488 30 S 6 T (+1 713 568 0480 2400/n/8/1)24 27
S (+1 713 568 1032 Trailblazer)24 20 S 12 T (Peter da Silva)24 45 S showpage
Technical Details
Message-ID:
<BJGE3KB@taronga.com>Path:
arc1-ca.pugleaf.net!sparky!uunet!zaphod.mps.ohio-state.edu!menudo.uh.edu!sugar!taronga!peterReferences:
<3245@vidiot.UUCP> <kuckd9INNsdh@exodus.Eng.Sun.COM>Show Full Headers
Complete Article Headers
Newsgroups: comp.lang.postscript Path: arc1-ca.pugleaf.net!sparky!uunet!zaphod.mps.ohio-state.edu!menudo.uh.edu!sugar!taronga!peter From: peter@taronga.com (Peter da Silva) Subject: Re: Underline font Message-ID: <BJGE3KB@taronga.com> Organization: Taronga Park BBS References: <3245@vidiot.UUCP> <kuckd9INNsdh@exodus.Eng.Sun.COM> Date: Sat, 11 Apr 1992 14:09:35 GMT Lines: 21