Path: 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


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