diff options
Diffstat (limited to 'Master/xemtex/gslib/showchar.ps')
-rw-r--r-- | Master/xemtex/gslib/showchar.ps | 94 |
1 files changed, 94 insertions, 0 deletions
diff --git a/Master/xemtex/gslib/showchar.ps b/Master/xemtex/gslib/showchar.ps new file mode 100644 index 00000000000..bf560dd5383 --- /dev/null +++ b/Master/xemtex/gslib/showchar.ps @@ -0,0 +1,94 @@ +% Copyright (C) 1993, 1994, 1996 Aladdin Enterprises. All rights reserved. +% +% This program is free software; you can redistribute it and/or modify it +% under the terms of the GNU General Public License as published by the +% Free Software Foundation; either version 2 of the License, or (at your +% option) any later version. +% +% This program is distributed in the hope that it will be useful, but +% WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General +% Public License for more details. +% +% You should have received a copy of the GNU General Public License along +% with this program; if not, write to the Free Software Foundation, Inc., +% 59 Temple Place, Suite 330, Boston, MA, 02111-1307. + +% $Id: showchar.ps,v 1.2.6.1.2.1 2003/04/12 14:02:39 giles Exp $ +% showchar.ps +% Show the outline and rasterized forms of a character. + +/F where { pop } { /F /Times-Roman def } ifelse +/P where { pop } { /P 16 def } ifelse +/Rx where { pop } { /Rx 100 def } ifelse +/Ry where { pop } { /Ry 100 def } ifelse +/Cs where { pop } { /Cs (M) def } ifelse +/Pr where { pop } { /Pr false def } ifelse +/Delay where { pop } { /Delay 0 def } ifelse + +0 setgray +(markpath.ps) runlibfile +(markhint.ps) runlibfile +/mmx [1 0 0 1 0 0] def +/getpath % - getpath <pathproc> + { [ + { /moveto cvx } { /lineto cvx } { /curveto cvx } { /closepath cvx } + pathforall + ] cvx + } def +/bitselectfont % <fontname> <scale> bitselectfont - + { exch findfont exch scalefont setfont + % Compute the bounding box in device coordinates. + gsave [Rx 72 div 0 0 Ry 72 div 0 0] setmatrix + currentfont /FontMatrix get concat + currentfont /FontBBox get aload pop + transform ceiling cvi /ury exch def ceiling cvi /urx exch def + transform floor cvi /lly exch def floor cvi /llx exch def + /bbx urx llx sub def /bby ury lly sub def + grestore + } def +/bitshow % <string> bitshow - + { /S exch def gsave + /W bbx 8 add 7 or 1 add def + /H bby 8 add def + /buf W 8 idiv string def + /M [Rx 72 div 0 0 Ry -72 div 4 llx sub H 4 sub] def + M W H <ff 00> makeimagedevice + /dev exch def + gsave dev setdevice + newpath 0 lly idtransform moveto + 0 setgray + gsave + /hpath S false charpath getpath def + grestore + S show grestore + 20 20 translate + 50000 Rx Ry .max P mul div dup scale + 0.7 setgray + 0 W H true M + { dup 1 add exch dev exch buf copyscanlines + } imagemask pop + 0 setlinewidth + gsave 0.5 1 0.5 setrgbcolor hpath exec mmx markpath grestore + 0 0.5 1 setrgbcolor hpath exec stroke + % Show the hints for Type 1 fonts also. + currentfont /FontType get 1 eq + { gsave 1 0 0 setrgbcolor + 0 lly M idtransform translate + currentfont /FontMatrix get + dup Pr markfonthints + currentfont /Encoding get S 0 get get exch Pr markcharhints + grestore + } + if + } def +F P bitselectfont +/S1 1 string def +Cs + { /C exch def + currentfont /Encoding get C get /.notdef ne + { save S1 0 C put S1 bitshow + showpage restore + } if + } forall +quit |