% 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 { [ { /moveto cvx } { /lineto cvx } { /curveto cvx } { /closepath cvx } pathforall ] cvx } def /bitselectfont % 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 % 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 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