home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2002 February / INTERNET88.ISO / pc / software / windows / bits / pdf995 / data1.cab / Program_Executable_Files / res / pcharstr.ps < prev    next >
Encoding:
Text File  |  2001-12-08  |  3.9 KB  |  130 lines
  1. %    Copyright (C) 1990, 1992, 1997, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of GNU Ghostscript.
  4. % 
  5. % GNU Ghostscript is distributed in the hope that it will be useful, but
  6. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  7. % to anyone for the consequences of using it or for whether it serves any
  8. % particular purpose or works at all, unless he says so in writing.  Refer
  9. % to the GNU General Public License for full details.
  10. % 
  11. % Everyone is granted permission to copy, modify and redistribute GNU
  12. % Ghostscript, but only under the conditions described in the GNU General
  13. % Public License.  A copy of this license is supposed to have been given
  14. % to you along with GNU Ghostscript so you can know your rights and
  15. % responsibilities.  It should be in a file named COPYING.  Among other
  16. % things, the copyright notice and this notice must be preserved on all
  17. % copies.
  18.  
  19. % $RCSfile: pcharstr.ps,v $ $Revision: 1.2.2.1 $
  20. % pcharstr.ps
  21. % Print the CharStrings and Subrs (if present) from a Type 1 font,
  22. % in either a PostScript-like or a C-compatible form,
  23. % depending on whether CSFormat is defined as /PS or /C.
  24.  
  25. % Load the Type 1 utilities.
  26. (type1ops.ps) runlibfile
  27.  
  28. % Define the printing procedures for PostScript-like output.
  29. /pcs_ps_dict mark
  30.   /, {( ) print}
  31.   /charname {==only}
  32.   /csbegin {}
  33.   /beginchars {(%---------------- CharStrings\n) print}
  34.   /charbegin {==only}
  35.   /char1 {( ) print ==only}
  36.   /endchars {}
  37.   /beginsubrs {(%---------------- Subrs\n) print}
  38.   /subrbegin {=only}
  39.   /endsubrs {}
  40.   /beginboxes {(%---------------- Encoding & metrics\n) print}
  41.   /notdefbox {}
  42.   /boxbegin {=only ( ) print}
  43.   /boxend {(\n) print}
  44.   /endboxes {(%----------------\n) print}
  45. .dicttomark readonly def
  46.  
  47. % Define the printing procedures for C-like output.
  48. /pcs_c_dict mark
  49.   /, {(, ) print}
  50.   /charname {(") print =only (") print}
  51.   /csbegin {counttomark =only ,}
  52.   /beginchars {(\nconstdata int CSCharData[] = {\n) print}
  53.   /charbegin {pop}
  54.   /char1 {=only ,}
  55.   /endchars {
  56.     (-1\n};\nconstdata char *CSCharNames[] = {\n) print
  57.     CharStrings {pop charname ,} forall (0\n};\n) print
  58.   }
  59.   /beginsubrs {(\nconstdata int CSSubrs[] = {\n) print}
  60.   /subrbegin {pop}
  61.   /endsubrs {(-1\n};\n) print}
  62.   /beginboxes {(\nconstdata type1_box CSboxes[] = {\n) print}
  63.   /notdefbox {(  {""},\n) print}
  64.   /boxbegin {pop (  {) print}
  65.   /boxend {(},) =}
  66.   /endboxes {(  {0}\n};\n) print}
  67. .dicttomark readonly def
  68.  
  69. /printcs
  70.  { dup type /stringtype eq
  71.     { printcs1 (\n) print }
  72.     { ( ) print == }
  73.    ifelse
  74.  } bind def
  75. /printcs1
  76.  { save exch
  77.    lenIV 0 ge {
  78.      4330 exch dup length string .type1decrypt exch pop
  79.      dup length lenIV sub lenIV exch getinterval
  80.    } if
  81.    0 () /SubFileDecode filter
  82.    mark exch charstack_read csbegin
  83.    counttomark 1 sub -1 0 { index char1 } for
  84.    cleartomark restore
  85.  } bind def
  86.  
  87. /printfont
  88.  { pcs_ps_dict
  89.    /CSFormat where { pop CSFormat /C eq { pop pcs_c_dict } if } if
  90.    begin
  91.    currentfont begin Private begin 10 dict begin
  92.  
  93.     % Print the CharStrings and Subrs
  94.  
  95.    beginchars
  96.    CharStrings { exch charbegin printcs } forall
  97.    endchars
  98.    /Subrs where
  99.     { pop    % the dictionary
  100.       beginsubrs
  101.       0 1 Subrs length 1 sub
  102.        { dup subrbegin
  103.          Subrs exch get printcs
  104.        } for
  105.       endsubrs
  106.     } if
  107.  
  108.     % Print the bounding boxes
  109.  
  110.    gsave nulldevice FontMatrix matrix invertmatrix concat
  111.    beginboxes
  112.    0 1 Encoding length 1 sub
  113.     { dup Encoding exch get dup /.notdef eq
  114.        { pop pop notdefbox
  115.        }
  116.        { 1 index boxbegin charname ,
  117.          ( ) dup 0 4 -1 roll put
  118.          newpath 0 0 moveto false charpath
  119.      pathbbox ({) print 4 -1 roll =only ,
  120.      3 -1 roll =only , exch =only , =only (}) print
  121.          boxend
  122.        }
  123.       ifelse
  124.     } for
  125.    endboxes
  126.    grestore
  127.  
  128.    end end end end
  129.  } bind def
  130.