Re: Reverse video font?

Article View: comp.lang.postscript

Article #1553

Back to comp.lang.postscript Previous Next

#1553

From: Tony Laundrie
Date: Thu, 18 Jan 1990 15:47

29 lines
1247 bytes

Well, here's the quickest way I can think of:

%!
/reverseshow { % stack:  fontscale string
dup currentpoint 3 -1 roll
stringwidth pop 5 -1 roll
1.3 mul dup -4 div % depending on the font, you may want to adjust these
0 exch rmoveto currentpoint newpath moveto
dup neg 3 1 roll 0 exch rlineto
0 rlineto 0 exch rlineto closepath fill
1 setgray moveto show 0 setgray } def

/fontscale 40 def
/Times-Bold findfont fontscale scalefont setfont
72 72 moveto
(Hello) show
20 143 moveto
fontscale (aAbBcCdDeEfFgGhHiIjJkKlLmM) reverseshow
20 543 moveto
fontscale (nNoOpPqQrRsStTuUvVwWxXyYzZ) reverseshow
300 72 moveto (Yikes) show
showpage


While writing this, I was wondering:  Is there a way to find out the
current font scale?  Or the current X Y scaling factors?

ttl@astroatc.UUCP  ...uwvax!astroatc!ttl

Technical Details

Message-ID: <3042@astroatc.UUCP>

Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!uwm.edu!uwvax!astroatc!ttl

References: <37700001@osiris.cso.uiuc.edu>

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!uwm.edu!uwvax!astroatc!ttl
From: ttl@astroatc.UUCP (Tony Laundrie)
Newsgroups: comp.lang.postscript
Subject: Re: Reverse video font?
Message-ID: <3042@astroatc.UUCP>
Date: 18 Jan 90 15:47:42 GMT
References: <37700001@osiris.cso.uiuc.edu>
Reply-To: ttl@astroatc.UUCP (Tony Laundrie)
Organization: Astronautics Technology Cntr, Madison, WI
Lines: 29

Reply to Parent Message