[wadalabfont-kit] / lisp / mincho-patch  

Annotation of /lisp/mincho-patch

Parent Directory | Revision Log

Revision: 1.2 - (view) (download)

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

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help