home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / dos / inne / gs300ini / showchar.ps < prev    next >
Encoding:
Text File  |  1994-08-02  |  2.7 KB  |  88 lines
  1. %    Copyright (C) 1993 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % showchar.ps
  19. % Show the outline and rasterized forms of a character.
  20.  
  21. /F /Helvetica-Bold def
  22. /P 24 def
  23. /Rx 154 def
  24. /Ry 187 def
  25. /Cs (8) def
  26. /Delay 0 def
  27.  
  28. 0 setgray
  29. (markpath.ps) run
  30. /mmx [1 0 0 1 0 0] def
  31. /getpath        % - getpath <pathproc>
  32.  { [
  33.     { /moveto cvx } { /lineto cvx } { /curveto cvx } { /closepath cvx }
  34.    pathforall
  35.    ] cvx
  36.  } def
  37. /bitselectfont        % <fontname> <scale> bitselectfont -
  38.  { exch findfont exch scalefont setfont
  39.     % Compute the bounding box in device coordinates.
  40.    gsave [Rx 72 div 0 0 Ry 72 div 0 0] setmatrix
  41.    currentfont /FontMatrix get concat
  42.    currentfont /FontBBox get aload pop
  43.    transform ceiling cvi /ury exch def ceiling cvi /urx exch def
  44.    transform floor cvi /lly exch def floor cvi /llx exch def
  45.    /bbx urx llx sub def /bby ury lly sub def
  46.    grestore
  47.  } def
  48. /bitshow        % <string> bitshow -
  49.  { /S exch def gsave
  50.    /W bbx 8 add 7 or 1 add def
  51.    /H bby 8 add def
  52.    /buf W 8 idiv string def
  53.    /M [Rx 72 div 0 0 Ry -72 div 4 llx sub H 4 sub] def
  54.    M W H <ff 00> makeimagedevice
  55.    /dev exch def
  56.    gsave dev setdevice
  57.    newpath 0 lly idtransform moveto
  58.    0 setgray
  59.    gsave
  60.      /hpath S false charpath getpath def
  61.    grestore
  62.    gsave 0.0001 rotate
  63.      /npath S false charpath getpath def
  64.    grestore
  65.    S show grestore
  66.    20 20 translate
  67.    150000 Rx Ry max P mul div dup scale
  68.    0.7 setgray
  69.    0 W H true M
  70.     { dup 1 add exch dev exch buf copyscanlines
  71.     } imagemask pop
  72.    0 setlinewidth
  73.    gsave 0 setgray hpath exec mmx markpath grestore
  74.    1 0 0 setrgbcolor hpath exec stroke
  75.    gsave 0 setgray npath exec mmx markpath grestore
  76.    0 1 0 setrgbcolor npath exec stroke
  77.  } def
  78. F P bitselectfont
  79. /S1 1 string def
  80. Cs
  81.  { /C exch def
  82.    currentfont /Encoding get C get /.notdef ne
  83.     { save S1 0 C put S1 bitshow
  84.       showpage restore
  85.     } if
  86.  } forall
  87. quit
  88.