home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / pcharstr.ps < prev    next >
Text File  |  2000-03-09  |  4KB  |  129 lines
  1. %    Copyright (C) 1990, 1992, 1997, 1999 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. % $Id: pcharstr.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  19. % pcharstr.ps
  20. % Print the CharStrings and Subrs (if present) from a Type 1 font,
  21. % in either a PostScript-like or a C-compatible form,
  22. % depending on whether CSFormat is defined as /PS or /C.
  23.  
  24. % Load the Type 1 utilities.
  25. (type1ops.ps) runlibfile
  26.  
  27. % Define the printing procedures for PostScript-like output.
  28. /pcs_ps_dict mark
  29.   /, {( ) print}
  30.   /charname {==only}
  31.   /csbegin {}
  32.   /beginchars {(%---------------- CharStrings\n) print}
  33.   /charbegin {==only}
  34.   /char1 {( ) print ==only}
  35.   /endchars {}
  36.   /beginsubrs {(%---------------- Subrs\n) print}
  37.   /subrbegin {=only}
  38.   /endsubrs {}
  39.   /beginboxes {(%---------------- Encoding & metrics\n) print}
  40.   /notdefbox {}
  41.   /boxbegin {=only ( ) print}
  42.   /boxend {(\n) print}
  43.   /endboxes {(%----------------\n) print}
  44. .dicttomark readonly def
  45.  
  46. % Define the printing procedures for C-like output.
  47. /pcs_c_dict mark
  48.   /, {(, ) print}
  49.   /charname {(") print =only (") print}
  50.   /csbegin {counttomark =only ,}
  51.   /beginchars {(\nconstdata int CSCharData[] = {\n) print}
  52.   /charbegin {pop}
  53.   /char1 {=only ,}
  54.   /endchars {
  55.     (-1\n};\nconstdata char *CSCharNames[] = {\n) print
  56.     CharStrings {pop charname ,} forall (0\n};\n) print
  57.   }
  58.   /beginsubrs {(\nconstdata int CSSubrs[] = {\n) print}
  59.   /subrbegin {pop}
  60.   /endsubrs {(-1\n};\n) print}
  61.   /beginboxes {(\nconstdata type1_box CSboxes[] = {\n) print}
  62.   /notdefbox {(  {""},\n) print}
  63.   /boxbegin {pop (  {) print}
  64.   /boxend {(},) =}
  65.   /endboxes {(  {0}\n};\n) print}
  66. .dicttomark readonly def
  67.  
  68. /printcs
  69.  { dup type /stringtype eq
  70.     { printcs1 (\n) print }
  71.     { ( ) print == }
  72.    ifelse
  73.  } bind def
  74. /printcs1
  75.  { save exch
  76.    lenIV 0 ge {
  77.      4330 exch dup length string .type1decrypt exch pop
  78.      dup length lenIV sub lenIV exch getinterval
  79.    } if
  80.    0 () /SubFileDecode filter
  81.    mark exch charstack_read csbegin
  82.    counttomark 1 sub -1 0 { index char1 } for
  83.    cleartomark restore
  84.  } bind def
  85.  
  86. /printfont
  87.  { pcs_ps_dict
  88.    /CSFormat where { pop CSFormat /C eq { pop pcs_c_dict } if } if
  89.    begin
  90.    currentfont begin Private begin 10 dict begin
  91.  
  92.     % Print the CharStrings and Subrs
  93.  
  94.    beginchars
  95.    CharStrings { exch charbegin printcs } forall
  96.    endchars
  97.    /Subrs where
  98.     { pop    % the dictionary
  99.       beginsubrs
  100.       0 1 Subrs length 1 sub
  101.        { dup subrbegin
  102.          Subrs exch get printcs
  103.        } for
  104.       endsubrs
  105.     } if
  106.  
  107.     % Print the bounding boxes
  108.  
  109.    gsave nulldevice FontMatrix matrix invertmatrix concat
  110.    beginboxes
  111.    0 1 Encoding length 1 sub
  112.     { dup Encoding exch get dup /.notdef eq
  113.        { pop pop notdefbox
  114.        }
  115.        { 1 index boxbegin charname ,
  116.          ( ) dup 0 4 -1 roll put
  117.          newpath 0 0 moveto false charpath
  118.      pathbbox ({) print 4 -1 roll =only ,
  119.      3 -1 roll =only , exch =only , =only (}) print
  120.          boxend
  121.        }
  122.       ifelse
  123.     } for
  124.    endboxes
  125.    grestore
  126.  
  127.    end end end end
  128.  } bind def
  129.