1 % Copyright (C) 1992, 1997, 1998, 1999 Aladdin Enterprises. All rights reserved.
3 % This software is provided AS-IS with no warranty, either express or
6 % This software is distributed under license and may not be copied,
7 % modified or distributed except as expressly authorized under the terms
8 % of the license contained in the file LICENSE in this distribution.
10 % For more information about licensing, please refer to
11 % http://www.ghostscript.com/licensing/. For information on
12 % commercial licensing, go to http://www.artifex.com/licensing/ or
13 % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
14 % San Rafael, CA 94903, U.S.A., +1(415)492-9861.
16 % $Id: type1ops.ps,v 1.4 2002/02/21 21:49:28 giles Exp $
18 % Define the Type 1 and Type 2 font opcodes for use by Ghostscript utilities.
20 % Define the default value of lenIV.
21 % Note that this expects the current font to be on the dictionary stack.
23 /lenIV { FontType 2 eq { -1 } { 4 } ifelse } def
25 % ---------------- Encoding ---------------- %
40 dup dup -107 ge exch 107 le and {
41 139 add (x) dup 0 4 -1 roll put
43 dup dup -1131 ge exch 1131 le and {
44 dup 0 ge { 16#f694 } { neg 16#fa94 } ifelse add
45 (xx) dup dup 0 4 index -8 bitshift put
46 1 4 -1 roll 255 and put
49 dup 8 mul 32 sub 3 index exch bitshift 255 and
58 % Identical or similar in Type 1 and Type 2.
59 /c_hstem 1 def dup /hstem <01> put
60 /c_vstem 3 def dup /vstem <03> put
61 /c_vmoveto 4 def dup /vmoveto <04> put
62 /c_rlineto 5 def dup /rlineto <05> put
63 /c_hlineto 6 def dup /hlineto <06> put
64 /c_vlineto 7 def dup /vlineto <07> put
65 /c_rrcurveto 8 def dup /rrcurveto <08> put
66 /c_callsubr 10 def /s_callsubr <0a> def dup /callsubr s_callsubr put
67 /c_return 11 def dup /return <0b> put
69 /ce_div 12 def /s_div <0c0c> def dup /div s_div put
70 /c_endchar 14 def /s_endchar <0e> def dup /endchar s_endchar put
71 /c_rmoveto 21 def dup /rmoveto <15> put
72 /c_hmoveto 22 def dup /hmoveto <16> put
73 /c_vhcurveto 30 def dup /vhcurveto <1e> put
74 /c_hvcurveto 31 def dup /hvcurveto <1f> put
76 /c_closepath 9 def dup /closepath <09> put
77 /c_hsbw 13 def /s_hsbw <0d> def dup /hsbw s_hsbw put
78 /ce_dotsection 0 def /s_dotsection <0c06> def dup /dotsection s_dotsection put
79 /ce_vstem3 1 def /s_vstem3 <0c01> def dup /vstem3 s_vstem3 put
80 /ce_hstem3 2 def /s_hstem3 <0c02> def dup /hstem3 s_hstem3 put
81 /ce_seac 6 def /s_seac <0c06> def dup /seac s_seac put
82 /ce_sbw 7 def /s_sbw <0c07> def dup /sbw s_sbw put
83 /ce_callothersubr 16 def /s_callothersubr <0c10> def dup /callothersubr s_callothersubr put
84 /ce_pop 17 def /s_pop <0c11> def dup /pop s_pop put
85 /ce_setcurrentpoint 33 def /s_setcurrentpoint <0c21> def dup /setcurrentpoint s_setcurrentpoint put
86 /s_setcurrentpoint_hmoveto s_setcurrentpoint <8b16> concatstrings def
90 dup /hintmask <13> put
91 dup /cntrmask <14> put
93 dup /rcurveline <18> put
94 dup /rlinecurve <19> put
95 dup /vvcurveto <1a> put
96 dup /hhcurveto <1b> put
97 dup /callgsubr <1d> put
101 dup /store <0c08> put
111 dup /ifelse <0c16> put
112 dup /random <0c17> put
117 dup /index <0c1d> put
119 dup /hflex <0c22> put
121 dup /hflex1 <0c24> put
122 dup /flex1 <0c25> put
126 % ---------------- Decoding ---------------- %
128 /Type1decode 512 array
131 dup type /stringtype eq {
132 dup length 1 eq { 0 get } { 1 get 256 add } ifelse
133 % stack: array key code
134 exch 2 index 3 1 roll put
141 dup read pop dup Type1decode exch 256 add get dup null ne
143 { pop 2 string dup 0 12 put dup 1 4 -1 roll put }
146 dup 28 { % Type 2 only
147 dup read pop 128 xor 128 sub 8 bitshift
150 32 1 246 { 2 copy dup 139 sub put pop } for
151 dup 247 { dup read pop 108 add } put
152 dup 248 { dup read pop 364 add } put
153 dup 249 { dup read pop 620 add } put
154 dup 250 { dup read pop 876 add } put
155 dup 251 { dup read pop 108 add neg } put
156 dup 252 { dup read pop 364 add neg } put
157 dup 253 { dup read pop 620 add neg } put
158 dup 254 { dup read pop 876 add neg } put
159 dup 255 { % Different for Type 1 and Type 2
160 dup read pop 128 xor 128 sub
161 3 { 8 bitshift 1 index read pop add } repeat
162 FontType 2 eq { 65536.0 div } if
167 % ---------------- Procedures ---------------- %
169 % For these utilities, a CharString is represented by a sequence of
170 % integers, reals, strings, and names, either in an array or on the stack.
171 % Integers and reals represent themselves; strings are other data that
172 % appears in the CharString; names are CharString operator names.
173 % A CharString in an array is called a "charproc"; a CharString on
174 % the stack is called a "charstack", and is delimited by a mark.
175 % Individual elements are called "chartokens".
177 % ------ Encoding ------ %
179 % Get the string for a chartoken.
180 % Note that this string may be overwritten by the next call.
181 /chartoken_string { % <chartoken> chartoken_string <string>
182 dup type Type1encode exch get exec
184 % Compute the length of a CharString.
185 /chartoken_length { % <chartoken> chartoken_length <length>
186 chartoken_string length
188 /charproc_length { % <charproc> charproc_length <length>
189 0 exch { chartoken_length add } forall
191 /charstack_length { % <charstack> charstack_length <charstack> <length>
192 counttomark 0 exch -1 1 { index chartoken_length add } for
195 % Write a CharString to a file. Normally this will be a NullEncode filter
196 % writing on a string of the correct length.
197 /chartoken_write { % <file> <chartoken> chartoken_write -
198 chartoken_string writestring
200 /charproc_write { % <file> <charproc> charproc_write -
201 { 1 index exch chartoken_write } forall pop
203 % Note that the arguments of charstack_write are backwards.
204 /charstack_write { % <charstack> <file> charstack_write -
205 counttomark 1 sub -1 1 { index 1 index exch chartoken_write } for
209 % Convert a charproc or charstack to an *un*encrypted CharString.
210 /charproc_string { % <charproc> charproc_string <string>
211 mark exch aload pop charstack_string
213 /charstack_string { % <charstack> charstack_string <string>
214 charstack_length lenIV 0 gt {
216 dup dup length lenIV sub lenIV exch getinterval % skip lenIV
221 exch 1 index counttomark 1 add 2 roll
222 charstack_write closefile
223 % lenIV 0 ge { 4330 exch dup .type1encrypt exch pop readonly } if
226 % ------ Decoding ------ %
228 % Decode a CharString (unencrypted).
229 /charstack_read { % <file> charstack_read <no-mark-charstack>
230 { dup read not { pop exit } if
231 Type1decode 1 index get dup null eq {
232 pop 1 string dup 0 4 -1 roll put