home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / dos / inne / gs300ini / type1ops.ps < prev    next >
Encoding:
Text File  |  1994-08-02  |  6.8 KB  |  191 lines
  1. %    Copyright (C) 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. % type1ops.ps
  19. % Define the Type 1 font opcodes for use by Ghostscript utilities.
  20.  
  21. % Define lenIV (the number of initial random bytes in the encoded outlines).
  22. % This should be zero, but we set it to 4 for compatibility with PostScript.
  23.  
  24. /lenIV 4 def
  25.  
  26. % Define the Type 1 opcodes we care about.
  27.  
  28. /Type1encode 25 dict
  29. /c_hstem 1 def   dup /hstem <01> put
  30. /c_vstem 3 def   dup /vstem <03> put
  31. /c_vmoveto 4 def   dup /vmoveto <04> put
  32. /c_rlineto 5 def   dup /rlineto <05> put
  33. /c_hlineto 6 def   dup /hlineto <06> put
  34. /c_vlineto 7 def   dup /vlineto <07> put
  35. /c_rrcurveto 8 def   dup /rrcurveto <08> put
  36. /c_closepath 9 def   dup /closepath <09> put
  37. /c_callsubr 10 def   /s_callsubr <0a> def   dup /callsubr s_callsubr put
  38. /c_return 11 def   dup /return <0b> put
  39. /c_escape 12 def
  40.   /ce_dotsection 0 def   /s_dotsection <0c06> def   dup /dotsection s_dotsection put
  41.   /ce_vstem3 1 def   /s_vstem3 <0c01> def   dup /vstem3 s_vstem3 put
  42.   /ce_hstem3 2 def   /s_hstem3 <0c02> def   dup /hstem3 s_hstem3 put
  43.   /ce_seac 6 def   /s_seac <0c06> def    dup /seac s_seac put
  44.   /ce_sbw 7 def   /s_sbw <0c07> def   dup /sbw s_sbw put
  45.   /ce_div 12 def   /s_div <0c0c> def   dup /div s_div put
  46.   /ce_callothersubr 16 def   /s_callothersubr <0c10> def   dup /callothersubr s_callothersubr put
  47.   /ce_pop 17 def   /s_pop <0c11> def   dup /pop s_pop put
  48.   /ce_setcurrentpoint 33 def   /s_setcurrentpoint <0c21> def   dup /setcurrentpoint s_setcurrentpoint put
  49. /c_hsbw 13 def   /s_hsbw <0d> def   dup /hsbw s_hsbw put
  50. /c_endchar 14 def   /s_endchar <0e> def   dup /endchar s_endchar put
  51. /c_rmoveto 21 def   dup /rmoveto <15> put
  52. /c_hmoveto 22 def   dup /hmoveto <16> put
  53.   /s_setcurrentpoint_hmoveto s_setcurrentpoint <8b16> concatstrings def
  54. /c_vhcurveto 30 def   dup /vhcurveto <1e> put
  55. /c_hvcurveto 31 def   dup /hvcurveto <1f> put
  56. def
  57.  
  58. % Define the encoding of numbers.
  59. /c_num1 32 def
  60. /c_num2 247 def
  61. /c_num3 251 def
  62. /c_num4 255 def
  63. /min_enc_num1 c_num1 c_num2 sub 1 add 2 idiv def
  64. /max_enc_num1 c_num2 c_num1 sub 1 sub 2 idiv def
  65. /min_enc_num2 max_enc_num1 1 add def
  66. /max_enc_num2 min_enc_num2 c_num3 c_num2 sub 256 mul add 1 sub def
  67. /min_enc_num3 max_enc_num2 neg def
  68. /max_enc_num3 min_enc_num2 neg def
  69.  
  70. % ------ CharString encoding ------ %
  71.  
  72. % For these utilities, a CharString is represented by a sequence of
  73. % integers or names, either in an array or on the stack.
  74. % Integers represent themselves; names are CharString operator names.
  75. % A CharString in an array is called a "charproc"; a CharString on
  76. % the stack is called a "charstack", and is delimited by a mark.
  77. % Individual elements are called "chartokens".
  78.  
  79. % Compute the length of a CharString.
  80. /chartoken_length    % chartoken -> length
  81.  { dup type /nametype eq
  82.     { Type1encode exch get length
  83.     }
  84.     { dup dup -107 ge exch 107 le and
  85.        { pop 1
  86.        }
  87.        { dup -1131 ge exch 1131 le and { 2 } { 5 } ifelse
  88.        }
  89.       ifelse
  90.     }
  91.    ifelse
  92.  } bind def
  93. /charproc_length    % charproc -> length
  94.  { 0 exch { chartoken_length add } forall
  95.  } bind def
  96. /charstack_length    % charstack -> charstack length
  97.  { counttomark 0 exch -1 1 { index chartoken_length add } for
  98.  } bind def
  99.  
  100. % Write a CharString to a file.  Normally this will be a NullEncode filter
  101. % writing on a string of the correct length.
  102. /chartoken_write    % file chartoken ->
  103.  { dup type /nametype eq
  104.     { Type1encode exch get writestring
  105.     }
  106.     { dup dup -107 ge exch 107 le and
  107.        { 139 add
  108.        }
  109.        { dup dup -1131 lt exch 1131 gt or
  110.       { 1 index 255 write
  111.         2 copy -24 bitshift 255 and write
  112.         2 copy -16 bitshift 255 and write
  113.         2 copy -8 bitshift 255 and write
  114.         255 and
  115.       }
  116.       { dup 0 ge { 16#f694 } { neg 16#fa94 } ifelse add
  117.         2 copy -8 bitshift write 255 and
  118.       }
  119.      ifelse
  120.        }
  121.       ifelse write
  122.     }
  123.    ifelse
  124.  } bind def
  125. /charproc_write        % file charproc ->
  126.  { { 1 index exch chartoken_write } forall pop
  127.  } bind def
  128. /charstack_write    % charstack file ->
  129.  { counttomark 1 sub -1 1 { index 1 index exch chartoken_write } for
  130.    cleartomark
  131.  } bind def
  132.  
  133. % Convert a charproc or charstack to a proper encrypted CharString.
  134. /charproc_string    % charproc -> string
  135.  { mark exch aload pop charstack_string
  136.  } bind def
  137. /charstack_string    % charstack -> string
  138.  { charstack_length lenIV add string
  139.    dup dup length lenIV sub lenIV exch getinterval    % skip lenIV
  140.    /NullEncode filter
  141.    exch 1 index counttomark 1 add 2 roll
  142.    charstack_write closefile
  143. %   4330 exch dup .type1encrypt exch pop readonly
  144.  } bind def
  145.  
  146. % ------ CharString decoding ------ %
  147.  
  148. /Type1decode 256 array
  149. dup 0 32 getinterval
  150.   /-0- /hstem /-2- /vstem /vmoveto /rlineto /hlineto /vlineto
  151.   /rrcurveto /closepath /callsubr /return null /hsbw /endchar /-15-
  152.   /-16- /-17- /-18- /-19- /-20- /rmoveto /hmoveto /-23-
  153.   /-24- /-25- /-26- /-27- /-28- /-29- /vhcurveto /hvcurveto
  154. 33 -1 roll astore pop
  155. dup 12
  156.  { dup read pop dup Type1escape exch known
  157.     { Type1escape exch get }
  158.     { =string cvs copystring }
  159.    ifelse exch
  160.  } put
  161. 32 1 246 { 2 copy dup 139 sub put pop } for
  162. dup 247 { dup read pop 108 add exch } put
  163. dup 248 { dup read pop 364 add exch } put
  164. dup 249 { dup read pop 620 add exch } put
  165. dup 250 { dup read pop 876 add exch } put
  166. dup 251 { dup read pop 108 add neg exch } put
  167. dup 252 { dup read pop 364 add neg exch } put
  168. dup 253 { dup read pop 620 add neg exch } put
  169. dup 254 { dup read pop 876 add neg exch } put
  170. dup 255 { 0 4 { 8 bitshift 1 index read pop add } repeat exch } put
  171. def
  172. /Type1escape 9 dict
  173.   dup ce_dotsection /dotsection put
  174.   dup ce_vstem3 /vstem3 put
  175.   dup ce_hstem3 /hstem3 put
  176.   dup ce_seac /seac put
  177.   dup ce_sbw /sbw put
  178.   dup ce_div /div put
  179.   dup ce_callothersubr /callothersubr put
  180.   dup ce_pop /pop put
  181.   dup ce_setcurrentpoint /setcurrentpoint put
  182. def
  183.  
  184. % Decode a CharString (unencrypted).
  185. /charstack_read        % file -> (NO MARK) charstack
  186.  { { dup read not { pop exit } if
  187.      Type1decode exch get
  188.      dup type /arraytype eq { exec } { exch } ifelse
  189.    } loop
  190.  } bind def
  191.