home *** CD-ROM | disk | FTP | other *** search
/ swCHIP 1991 January / swCHIP_95-1.bin / utility / gs333ini / gs3.33 / pcharstr.ps < prev    next >
Text File  |  1995-12-09  |  2KB  |  76 lines
  1. %    Copyright (C) 1990, 1992 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. % pcharstr.ps
  19. % Print the CharStrings and Subrs (if present) from a Type 1 font,
  20. % in symbolic form.
  21.  
  22. % Load the Type 1 utilities.
  23. (type1ops.ps) run
  24.  
  25. /printcs
  26.  { dup type /stringtype eq
  27.     { printcs1 (\n) print }
  28.     { ( ) print == }
  29.    ifelse
  30.  } bind def
  31. /printcs1
  32.  { save exch
  33.    4330 exch dup length string .type1decrypt exch pop
  34.    dup length lenIV sub lenIV exch getinterval
  35.    0 () /SubFileDecode filter
  36.    mark exch charstack_read
  37.    counttomark 1 sub -1 0
  38.     { index ( ) print ==only
  39.     }
  40.    for cleartomark restore
  41.  } bind def
  42.  
  43. /pfbbox 4 array def
  44. /printfont
  45.  { currentfont begin Private begin 10 dict begin
  46.  
  47.     % Print the CharStrings and Subrs
  48.  
  49.    CharStrings { exch ==only printcs } forall
  50.    /Subrs where
  51.     { pop    % the dictionary
  52.       0 1 Subrs length 1 sub
  53.        { dup =only
  54.          Subrs exch get printcs
  55.        } for
  56.     } if
  57.  
  58.     % Print the bounding boxes
  59.  
  60.    gsave nulldevice FontMatrix matrix invertmatrix concat
  61.    0 1 Encoding length 1 sub
  62.     { dup Encoding exch get dup /.notdef eq
  63.        { pop pop
  64.        }
  65.        { 1 index =only ( ) print ==only ( ) print
  66.          ( ) dup 0 4 -1 roll put
  67.          newpath 0 0 moveto false charpath
  68.      pathbbox pfbbox astore ==
  69.        }
  70.       ifelse
  71.     } for
  72.    grestore
  73.  
  74.    end end end
  75.  } bind def
  76.