[wadalabfont-kit] / psfiles / compfont.ps

Annotation of /psfiles/compfont.ps

Revision: 1.1.1.1 - (view) (download) (as text)

1 :	ktanaka	1.1	%!
2 :			/KanjiEncoding
3 :			[
4 :			% \x00
5 :			0 0 0 0 0 0 0 0
6 :			0 0 0 0 0 0 0 0
7 :			0 0 0 0 0 0 0 0
8 :			0 0 0 0 0 0 0 0
9 :			% \x20
10 :			0 1 2 3 4 5 6 7
11 :			8 0 0 0 0 0 0 0
12 :			9 10 11 12 13 14 15 16
13 :			17 18 19 20 21 22 23 24
14 :			% \x40
15 :			25 26 27 28 29 30 31 32
16 :			33 34 35 36 37 38 39 40
17 :			41 42 43 44 45 46 47 48
18 :			49 50 51 52 53 54 55 56
19 :			% \x60
20 :			57 58 59 60 61 62 63 64
21 :			65 66 67 68 69 70 71 72
22 :			73 74 75 76 77 0 0 0
23 :			0 0 0 0 0 0 0 0
24 :			% \x80
25 :			0 0 0 0 0 0 0 0
26 :			0 0 0 0 0 0 0 0
27 :			0 0 0 0 0 0 0 0
28 :			0 0 0 0 0 0 0 0
29 :			% \xA0
30 :			0 1 2 3 4 5 6 7
31 :			8 0 0 0 0 0 0 0
32 :			9 10 11 12 13 14 15 16
33 :			17 18 19 20 21 22 23 24
34 :			% \xC0
35 :			25 26 27 28 29 30 31 32
36 :			33 34 35 36 37 38 39 40
37 :			41 42 43 44 45 46 47 48
38 :			49 50 51 52 53 54 55 56
39 :			% \xE0
40 :			57 58 59 60 61 62 63 64
41 :			65 66 67 68 69 70 71 72
42 :			73 74 75 76 77 0 0 0
43 :			0 0 0 0 0 0 0 0
44 :			] readonly def
45 :			/KanjiSubEncoding {
46 :			%\x00
47 :			/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
48 :			/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
49 :			/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
50 :			/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
51 :			%\x20
52 :			/.notdef /c21 /c22 /c23 /c24 /c25 /c26 /c27
53 :			/c28 /c29 /c2A /c2B /c2C /c2D /c2E /c2F
54 :			/c30 /c31 /c32 /c33 /c34 /c35 /c36 /c37
55 :			/c38 /c39 /c3A /c3B /c3C /c3D /c3E /c3F
56 :			%\x40
57 :			/c40 /c41 /c42 /c43 /c44 /c45 /c46 /c47
58 :			/c48 /c49 /c4A /c4B /c4C /c4D /c4E /c4F
59 :			/c50 /c51 /c52 /c53 /c54 /c55 /c56 /c57
60 :			/c58 /c59 /c5A /c5B /c5C /c5D /c5E /c5F
61 :			%\x60
62 :			/c60 /c61 /c62 /c63 /c64 /c65 /c66 /c67
63 :			/c68 /c69 /c6A /c6B /c6C /c6D /c6E /c6F
64 :			/c70 /c71 /c72 /c73 /c74 /c75 /c76 /c77
65 :			/c78 /c79 /c7A /c7B /c7C /c7D /c7E /.notdef
66 :			%\x80
67 :			/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
68 :			/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
69 :			/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
70 :			/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
71 :			%\xA0
72 :			/.notdef /c21 /c22 /c23 /c24 /c25 /c26 /c27
73 :			/c28 /c29 /c2A /c2B /c2C /c2D /c2E /c2F
74 :			/c30 /c31 /c32 /c33 /c34 /c35 /c36 /c37
75 :			/c38 /c39 /c3A /c3B /c3C /c3D /c3E /c3F
76 :			%\xC0
77 :			/c40 /c41 /c42 /c43 /c44 /c45 /c46 /c47
78 :			/c48 /c49 /c4A /c4B /c4C /c4D /c4E /c4F
79 :			/c50 /c51 /c52 /c53 /c54 /c55 /c56 /c57
80 :			/c58 /c59 /c5A /c5B /c5C /c5D /c5E /c5F
81 :			%\xE0
82 :			/c60 /c61 /c62 /c63 /c64 /c65 /c66 /c67
83 :			/c68 /c69 /c6A /c6B /c6C /c6D /c6E /c6F
84 :			/c70 /c71 /c72 /c73 /c74 /c75 /c76 /c77
85 :			/c78 /c79 /c7A /c7B /c7C /c7D /c7E /.notdef
86 :			} cvlit readonly def
87 :			/T1NF
88 :			{
89 :			/newname exch def
90 :			newname 20 dict def
91 :			newname load begin
92 :			/FontType 1 def
93 :			/FontInfo 8 dict def
94 :			FontInfo begin
95 :			/version (001.001) readonly def
96 :			/FullName (PROLKANJI) readonly def
97 :			/FamilyName (PROLKANJI) readonly def
98 :			/Weight (Medium) readonly def
99 :			/ItalicAngle 0 def
100 :			/isFixedPitch false def
101 :			/UnderlinerPosition 0 def
102 :			/UnderlineThichness 0 def
103 :			end
104 :			%/FontMatrix [.001 0 0 .001 0 0] def
105 :			/FontMatrix [.001 0 0 .001 0 -0.16] def
106 :			/FontBBox [0 0 1000 1000] def
107 :			/Encoding KanjiSubEncoding def
108 :			/CharStrings 256 dict def
109 :			/FontName newname def
110 :			/PaintType 0 def
111 :			/UniqueId 9876 def
112 :			/Private 8 dict def
113 :			Private begin
114 :			/BlueValues [] def
115 :			/password 5839 def
116 :			end
117 :			end
118 :			newname dup dup load definefont
119 :			%[lw-h 0 0 lw-v 0 0] makefont
120 :			def
121 :			} def
122 :			/T0NF
123 :			{
124 :			/newname exch def
125 :			/fdepvector exch def
126 :			newname 20 dict def
127 :			newname load begin
128 :			/FontType 0 def
129 :			/FontMatrix [1 0 0 1 0 0] def
130 :			/FMapType 2 def
131 :			/Encoding KanjiEncoding def
132 :			/FDepVector fdepvector def
133 :			/FontName newname def
134 :			/UniqueId 9876 def
135 :			end
136 :			newname dup dup load definefont
137 :			def
138 :			} def
139 :			/T1D
140 :			{
141 :			2 dict begin
142 :			/ch-code exch def
143 :			/ch-data exch def
144 :			currentfont /CharStrings get ch-code ch-data put
145 :			} def
146 :
147 :			/CompNF
148 :			{
149 :			/newname1 exch def
150 :			newname1 dup length string cvs /str exch def
151 :			str length /len exch def
152 :			/fdepvector 78 array def
153 :			/j 1 def
154 :			16#21 1 16#74 {
155 :			/i exch def
156 :			KanjiEncoding i get 0 gt {
157 :			len 4 add string /newstr exch def
158 :			newstr 0 str putinterval
159 :			newstr len (.r) putinterval
160 :			newstr len 2 add i 16 2 string cvrs putinterval
161 :			newstr cvn /newlit exch def
162 :			newlit T1NF /newfont newlit findfont def
163 :			fdepvector j newfont put
164 :			/j j 1 add def
165 :			} if
166 :			} for
167 :			fdepvector 0 fdepvector 1 get put
168 :			/j 0 def
169 :			fdepvector newname1 T0NF
170 :			} def
171 :
172 :			/CompD
173 :			{
174 :			20 dict begin
175 :			/code exch def
176 :			/charstr exch def
177 :			code 0 get /high exch def
178 :			code 1 get /low exch def
179 :			currentfont /Encoding get high get /index exch def
180 :			currentfont /FDepVector get index get /lowfont exch def
181 :			lowfont /Encoding get low get /tmpkey exch def
182 :			lowfont /CharStrings get tmpkey charstr put
183 :			end
184 :			} def
185 :			/show1 {false charpath 0 setlinewidth stroke} def

ktanaka

Annotation of /psfiles/compfont.ps

ViewCVS and CVS Help