Article View: comp.lang.postscript
Article #612Re: Underlining text
From: Pete Tompkins
Date: Wed, 21 Jun 1989 15:33
Date: Wed, 21 Jun 1989 15:33
40 lines
1495 bytes
1495 bytes
In article <2439@virgin.UUCP> bann@virgin.UUCP (Roger Bannister) writes:
>
> Is there anybody on the net that has a postscript procedure that will
> underline a string no matter what font or size the string happens to be.
> I wrote my own procedure but it just didn't cut it.
Roger
%!PS
% dy string underline -
% dy is the distance below the text for the underline (be careful
% if you start scaling things)
% 'underline' outputs the text and underlines it
/underline
{
gsave dup
stringwidth
% Throwaway dy (which is zero) and save dx (which is the length string)
pop
/dx exch def
show
grestore
%The requested distance for the line below the string is still on the stack
0 exch neg rmoveto
dx 0 rlineto
stroke
} def
/Times-Roman findfont 18 scalefont setfont
100 500 moveto
4 (Testing underlined text.) underline
showpage
--
*Pete Tompkins (213) 452-9191 ext. 3000
*Citicorp/TTI
*Santa Monica, CA
*Path: tompkins@ttidca.tti.com
Technical Details
Message-ID:
<4621@ttidca.TTI.COM>Path:
arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!usc!orion.cf.uci.edu!uci-ics!zardoz!dhw68k!felix!tgate!ka3ovk!drilex!axiom!linus!philabs!ttidca!tompkinsReferences:
<2439@virgin.UUCP>Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!usc!orion.cf.uci.edu!uci-ics!zardoz!dhw68k!felix!tgate!ka3ovk!drilex!axiom!linus!philabs!ttidca!tompkins From: tompkins@ttidca.TTI.COM (Pete Tompkins) Newsgroups: comp.lang.postscript Subject: Re: Underlining text Message-ID: <4621@ttidca.TTI.COM> Date: 21 Jun 89 15:33:10 GMT References: <2439@virgin.UUCP> Distribution: na Organization: Citicorp/TTI, Santa Monica Lines: 40 In-reply-to: bann@virgin.UUCP's message of 17 Jun 89 01:56:42 GMT