summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/kanji/fmaptype.ps
blob: 0ce23ac12072143a4760281dff5a4172d0998d94 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
%!PS-Adobe-2.0
%
% Sample program of various FMapTypes

/LEFT  50  def
/TOP  700 def
/SIZE  24 def

%
% Initialize
%

/NEWLINE { currentpoint exch pop SIZE 4 mul sub LEFT exch moveto } def
/STRIPE {
	gsave
	true charpath gsave pathbbox grestore clip newpath
	/ury exch def /urx exch def /lly exch def /llx exch def
	/height ury lly sub def
	llx height 15 div urx height add {
		ury moveto
		height neg height neg rlineto
	} for
	stroke
	grestore
} def
/UNDERLINE {
	dup gsave 
	0 SIZE 3 div neg rmoveto stringwidth rlineto 
	0.5 setgray SIZE 10 div setlinewidth stroke 
	grestore show
} def

/ALPH /Courier findfont def

/Ryumin-Light-H findfont 
dup /FDepVector get /FDepVector exch def
/Encoding get /Encoding exch def
/KIGO FDepVector Encoding 16#21 get get def
/HIRA FDepVector Encoding 16#24 get get def
/KATA FDepVector Encoding 16#25 get get def

/Ryumin-Light-EUC-H findfont
dup /FDepVector get /FDepVector exch def
/Encoding get /Encoding exch def
/HIRA-EUC FDepVector Encoding 16#A4 get get def
/KATA-EUC FDepVector Encoding 16#A5 get get def

LEFT TOP moveto

save

/GothicBBB-Medium-H findfont SIZE 2 mul scalefont setfont
<25552529257325482126255E2543255425732530> STRIPE

restore
NEWLINE

%
% FMapType2: 8/8 Mapping
%

save

/FMapType2 11 dict begin
/FontType 0 def
/FontMatrix matrix def
/FMapType 2 def
/Encoding [ 0 1 2 3 ] def
/FDepVector [
	KIGO
	ALPH
	HIRA
	KATA
] def
currentdict end
definefont pop

/FMapType2 findfont SIZE scalefont setfont
<01 46 01 4D 01 61 01 70 01 54 01 79 01 70 01 65 01 32 02 4F 00 22 
 01 38 00 3F 01 38 03 5E 03 43 03 54 03 73 03 30 02 47 02 39 00 23> 
UNDERLINE

restore
NEWLINE

%
% FMapType3: Escape Mapping
%

save

/FMapType3-Child-1 11 dict begin
/FontType 0 def
/FontMatrix matrix def
/FMapType 3 def
/Encoding [ 0 1 ] def
/FDepVector [
	KIGO
	ALPH
] def
currentdict end
definefont pop

/FMapType3-Child-2 11 dict begin
/FontType 0 def
/FontMatrix matrix def
/FMapType 3 def
/Encoding [ 0 1 ] def
/FDepVector [
	HIRA
	KATA
] def
currentdict end
definefont pop

/FMapType3-Parent 11 dict begin
/FontType 0 def
/FontMatrix matrix def
/FMapType 3 def
/Encoding [ 0 1 ] def
/FDepVector [
	/FMapType3-Child-1 findfont
	/FMapType3-Child-2 findfont
] def
currentdict end
definefont pop

/FMapType3-Parent findfont SIZE scalefont setfont
<FF 00 FF 01 46 4D 61 70 54 79 70 65 33 FF FF 01 4F FF FF 00 22 
 FF 01 45 73 63 61 70 65 FF FF 01 FF 00 FF 01 5E 43 54 73 30 FF 00 47 39 
 FF FF 00 FF 00 23> 
UNDERLINE

restore
NEWLINE

%
% FMapType4: 1/7 Mapping
%

save

/FMapType4-Child-1 11 dict begin
/FontType 0 def
/FontMatrix matrix def
/FMapType 2 def
/Encoding [ 0 1 ] def
/FDepVector [
	KIGO
	ALPH
] def
currentdict end
definefont pop

/FMapType4-Child-2 11 dict begin
/FontType 0 def
/FontMatrix matrix def
/FMapType 2 def
/Encoding [ 0 1 ] def
/FDepVector [
	HIRA-EUC
	KATA-EUC
] def
currentdict end
definefont pop

/FMapType4-Parent 11 dict begin
/FontType 0 def
/FontMatrix matrix def
/FMapType 4 def
/Encoding [ 0 1 ] def
/FDepVector [
	/FMapType4-Child-1 findfont
	/FMapType4-Child-2 findfont
] def
currentdict end
definefont pop

/FMapType4-Parent findfont SIZE scalefont setfont
<01 46 01 4D 01 61 01 70 01 54 01 79 01 70 01 65 01 34 80 CF 00 22 
 01 31 00 3F 01 37 81 DE 81 C3 81 D4 81 F3 81 B0 80 C7 80 B9 00 23>
UNDERLINE

restore
NEWLINE

%
% FMapType5: 9/7 Mapping
%

save

/FMapType5 11 dict begin
/FontType 0 def
/FontMatrix matrix def
/FMapType 5 def
/Encoding [ 0 1 2 3 ] def
/FDepVector [
	KIGO
	ALPH
	HIRA
	KATA
] def
currentdict end
definefont pop

/FMapType5 findfont SIZE scalefont setfont
<00 C6 00 CD 00 E1 00 F0 00 D4 00 F9 00 F0 00 E5 00 B5 01 4F 00 22 
 00 B9 00 3F 00 B7 01 DE 01 C3 01 D4 01 F3 01 B0 01 47 01 39 00 23>
UNDERLINE

restore
NEWLINE

%
% FMapType6: SubsVector Mapping
%

save

/FMapType6 11 dict begin
/FontType 0 def
/FontMatrix matrix def
/FMapType 6 def
/Encoding [ 0 1 2 3 ] def
/SubsVector <01 0100 0080 0080> def
/FDepVector [
	ALPH
	KIGO
	HIRA
	KATA
] def
currentdict end
definefont pop

/FMapType6 findfont SIZE scalefont setfont
<00 46 00 4D 00 61 00 70 00 54 00 79 00 70 00 65 00 36 01 CF 01 22
 00 53 00 75 00 62 00 73 00 56 00 65 00 63 00 74 00 6F 00 72
 02 5E 02 43 02 54 02 73 02 30 01 C7 01 B9 01 23>
UNDERLINE

restore
NEWLINE

showpage