eh, make ’em volatile, this is not time-critical code anyway
[alioth/magicpoint.git] / sample / v6header.eps
1 %!
2 %%BoundingBox: 29 588 334 790
3 %%Title: v6header
4 %%CreationDate: Wed Nov 12 17:29:09 1997
5 %%Creator: Tgif-2.16J-p12 by William Chia-Wei Cheng (william@cs.UCLA.edu)
6
7 /tgifdict 4 dict def
8 tgifdict begin
9
10 %%Title: eucfont.ps
11 % old eucfont.ps(OCFeucfont) and new eucfont.ps(CIDeucfont) were combined.
12 %  1996-09, kawamata@sra.co.jp
13 % Sample Usage:
14 %   Operands are only font names permitted. Don't put fontdict itself.
15 % /Courier-Ryumin /Courier /Ryumin-Light-EUC-V eucfont
16
17 %%Title: CIDeucfont.ps
18 %%Creator: yohtaki@cis.ibaraki.ac.jp
19 %%CreationDate: 1996-9-29
20 %%EndComments
21 %
22 % <newfont> <asciifont> <kanjifont> CIDeucfont
23 /CIDeucfont {
24 dup findfont /WMode get 1 eq 4 1 roll % push direction info.
25 12 dict begin
26   /CIDInit /ProcSet findresource begin
27   exch [ 3 1 roll ] beginrearrangedfont
28       3 -1 roll {   % pop direction info
29          /WMode 1 def   % vertical font
30          0 beginusematrix [ 0 1 -1 0 0 0.3 ] endusematrix
31       } if
32       1 usefont
33       1 beginbfrange
34          <00> <7F> <00>
35        endbfrange
36      endrearrangedfont
37   end
38 end
39 } def
40
41 %%Title: OCFeucfont.ps
42 %%Creator: shikida@cs.titech.ac.jp, ueno@cs.titech.ac.jp
43 %%CreationDate: 1991-2-27
44 %%EndComments
45 % <font> OCFcopyfont <font>
46 /OCFcopyfont {
47     dup maxlength 1 add dict begin
48     {
49         1 index /FID ne 2 index /UniqueID ne and
50         {def} {pop pop} ifelse
51     } forall
52     currentdict
53     end
54 } bind def
55 % <newfont> <asciifont> <kanjifont> OCFeucfont
56 /OCFeucfont {
57       12 dict begin
58         dup type /nametype eq { findfont } if
59         dup /WMode known {
60             dup /WMode get /WMode exch def
61             WMode 1 eq {
62                 [0.0 1.0 -1.0 0.0 0.0 0.30] makefont
63             } if
64         } if
65         OCFcopyfont dup begin
66             /Encoding Encoding
67             FMapType dup 2 eq {
68                 pop 128 128
69             } { 5 eq {
70                 256 256
71             } {
72                 /compositefont errordict /invalidfont get exec
73             } ifelse
74             } ifelse
75             getinterval def
76         end
77         /kanjifont exch definefont
78         exch
79
80         dup type /nametype eq { findfont } if
81         exch
82
83         /FDepVector [ 4 2 roll ] def
84         /FontType 0 def
85         /FMapType 4 def
86         /FontMatrix matrix def
87         /Encoding [ 0 1 ] def
88         /FontBBox {0 0 0 0} def
89         dup /FontName exch def
90         currentdict
91     end
92     definefont pop
93 } def
94
95 % <newfont> <asciifont> <kanjifont> eucfont
96 /eucfont {
97         dup findfont
98         /FMapType get 9 eq
99                 { CIDeucfont}
100                 { OCFeucfont} ifelse
101 } def
102 /tgifcentertext { dup stringwidth pop 2 div neg 0 rmoveto } def
103
104 end
105
106 %%PageBoundingBox: 29 588 334 790
107 tgifdict begin
108 /tgifsavedpage save def
109
110 1 setmiterlimit
111 1 setlinewidth
112
113 0 setgray
114
115 72 0 mul 72 11.70 mul translate
116 72 128 div 100 mul 100 div dup neg scale
117
118 gsave
119
120 % TEXT
121 0 setgray
122 newpath
123    168 130 moveto 219 130 lineto 219 153 lineto 168 153 lineto
124 closepath 1 setgray fill
125 0 setgray
126 /Helvetica-GothicBBB-Medium-EUC-H /Helvetica /GothicBBB-Medium-EUC-H eucfont
127 /Helvetica-GothicBBB-Medium-EUC-H findfont [16 0 0 -16 0 0] makefont setfont
128    gsave
129       194 148 moveto (\245\257\245\351\245\271) tgifcentertext show
130    grestore
131
132 % TEXT
133 0 setgray
134 newpath
135    143 164 moveto 242 164 lineto 242 187 lineto 143 187 lineto
136 closepath 1 setgray fill
137 0 setgray
138 /Helvetica-GothicBBB-Medium-EUC-H findfont [16 0 0 -16 0 0] makefont setfont
139    gsave
140       193 182 moveto (\245\332\245\244\245\355\241\274\245\311\304\271) tgifcentertext show
141    grestore
142
143 % TEXT
144 0 setgray
145 newpath
146    335 164 moveto 434 164 lineto 434 187 lineto 335 187 lineto
147 closepath 1 setgray fill
148 0 setgray
149 /Helvetica-GothicBBB-Medium-EUC-H findfont [16 0 0 -16 0 0] makefont setfont
150    gsave
151       385 182 moveto (\274\241\245\330\245\303\245\300\310\326\271\346) tgifcentertext show
152    grestore
153
154 % TEXT
155 0 setgray
156 newpath
157    467 164 moveto 550 164 lineto 550 187 lineto 467 187 lineto
158 closepath 1 setgray fill
159 0 setgray
160 /Helvetica-GothicBBB-Medium-EUC-H findfont [16 0 0 -16 0 0] makefont setfont
161    gsave
162       509 182 moveto (\303\346\267\321\270\302\263\246\277\364) tgifcentertext show
163    grestore
164
165 % TEXT
166 0 setgray
167 newpath
168    369 130 moveto 484 130 lineto 484 153 lineto 369 153 lineto
169 closepath 1 setgray fill
170 0 setgray
171 /Helvetica-GothicBBB-Medium-EUC-H findfont [16 0 0 -16 0 0] makefont setfont
172    gsave
173       427 148 moveto (\245\325\245\355\241\274\241\246\245\351\245\331\245\353) tgifcentertext show
174    grestore
175
176 % TEXT
177 0 setgray
178 /Helvetica-GothicBBB-Medium-EUC-H findfont [16 0 0 -16 0 0] makefont setfont
179    gsave
180       318 264 moveto (\273\317\305\300\245\242\245\311\245\354\245\271) tgifcentertext show
181    grestore
182
183 % TEXT
184 0 setgray
185 /Helvetica-GothicBBB-Medium-EUC-H findfont [16 0 0 -16 0 0] makefont setfont
186    gsave
187       318 389 moveto (\275\252\305\300\245\242\245\311\245\354\245\271) tgifcentertext show
188    grestore
189
190 % TEXT
191 0 setgray
192 /Helvetica-Ryumin-Light-EUC-H /Helvetica /Ryumin-Light-EUC-H eucfont
193 /Helvetica-Ryumin-Light-EUC-H findfont [16 0 0 -16 0 0] makefont setfont
194    gsave
195       97 151 moveto (Ver) tgifcentertext show
196    grestore
197
198 % BOX
199 0 setgray
200 gsave
201    1.415 setmiterlimit
202    newpath
203       64 128 moveto 128 128 lineto 128 160 lineto 64 160 lineto
204    closepath stroke
205    1 setmiterlimit
206 grestore
207
208 % BOX
209 0 setgray
210 gsave
211    1.415 setmiterlimit
212    newpath
213       256 128 moveto 576 128 lineto 576 160 lineto 256 160 lineto
214    closepath stroke
215    1 setmiterlimit
216 grestore
217
218 % POLY/OPEN-SPLINE
219 0 setgray
220 gsave
221    newpath
222       64 120 moveto
223       64 128 lineto
224    stroke
225 grestore
226
227 % POLY/OPEN-SPLINE
228 0 setgray
229 gsave
230    newpath
231       192 120 moveto
232       192 128 lineto
233    stroke
234 grestore
235
236 % POLY/OPEN-SPLINE
237 0 setgray
238 gsave
239    newpath
240       320 120 moveto
241       320 128 lineto
242    stroke
243 grestore
244
245 % POLY/OPEN-SPLINE
246 0 setgray
247 gsave
248    newpath
249       448 120 moveto
250       448 128 lineto
251    stroke
252 grestore
253
254 % TEXT
255 0 setgray
256 /Courier-GothicBBB-Medium-EUC-H /Courier /GothicBBB-Medium-EUC-H eucfont
257 /Courier-GothicBBB-Medium-EUC-H findfont [24 0 0 -24 0 0] makefont setfont
258    gsave
259       64 116 moveto (0) tgifcentertext show
260    grestore
261
262 % TEXT
263 0 setgray
264 /Courier-GothicBBB-Medium-EUC-H findfont [24 0 0 -24 0 0] makefont setfont
265    gsave
266       192 116 moveto (8) tgifcentertext show
267    grestore
268
269 % TEXT
270 0 setgray
271 /Courier-GothicBBB-Medium-EUC-H findfont [24 0 0 -24 0 0] makefont setfont
272    gsave
273       320 116 moveto (16) tgifcentertext show
274    grestore
275
276 % TEXT
277 0 setgray
278 /Courier-GothicBBB-Medium-EUC-H findfont [24 0 0 -24 0 0] makefont setfont
279    gsave
280       448 116 moveto (24) tgifcentertext show
281    grestore
282
283 % BOX
284 0 setgray
285 gsave
286    1.415 setmiterlimit
287    newpath
288       128 128 moveto 256 128 lineto 256 160 lineto 128 160 lineto
289    closepath stroke
290    1 setmiterlimit
291 grestore
292
293 % POLY/OPEN-SPLINE
294 0 setgray
295 gsave
296    newpath
297       576 120 moveto
298       576 128 lineto
299    stroke
300 grestore
301
302 % TEXT
303 0 setgray
304 /Courier-GothicBBB-Medium-EUC-H findfont [24 0 0 -24 0 0] makefont setfont
305    gsave
306       576 116 moveto (32) tgifcentertext show
307    grestore
308
309 % BOX
310 0 setgray
311 gsave
312    1.415 setmiterlimit
313    newpath
314       320 160 moveto 448 160 lineto 448 192 lineto 320 192 lineto
315    closepath stroke
316    1 setmiterlimit
317 grestore
318
319 % BOX
320 0 setgray
321 gsave
322    1.415 setmiterlimit
323    newpath
324       64 192 moveto 576 192 lineto 576 320 lineto 64 320 lineto
325    closepath stroke
326    1 setmiterlimit
327 grestore
328
329 % BOX
330 0 setgray
331 gsave
332    1.415 setmiterlimit
333    newpath
334       64 320 moveto 576 320 lineto 576 448 lineto 64 448 lineto
335    closepath stroke
336    1 setmiterlimit
337 grestore
338
339 % BOX
340 0 setgray
341 gsave
342    1.415 setmiterlimit
343    newpath
344       448 160 moveto 576 160 lineto 576 192 lineto 448 192 lineto
345    closepath stroke
346    1 setmiterlimit
347 grestore
348
349 % BOX
350 0 setgray
351 gsave
352    1.415 setmiterlimit
353    newpath
354       64 160 moveto 320 160 lineto 320 192 lineto 64 192 lineto
355    closepath stroke
356    1 setmiterlimit
357 grestore
358
359 % POLY/OPEN-SPLINE
360 0 setgray
361 gsave
362    newpath
363       72 224 moveto
364       64 224 lineto
365    stroke
366 grestore
367
368 % POLY/OPEN-SPLINE
369 0 setgray
370 gsave
371    newpath
372       72 256 moveto
373       64 256 lineto
374    stroke
375 grestore
376
377 % POLY/OPEN-SPLINE
378 0 setgray
379 gsave
380    newpath
381       72 288 moveto
382       64 288 lineto
383    stroke
384 grestore
385
386 % POLY/OPEN-SPLINE
387 0 setgray
388 gsave
389    newpath
390       72 352 moveto
391       64 352 lineto
392    stroke
393 grestore
394
395 % POLY/OPEN-SPLINE
396 0 setgray
397 gsave
398    newpath
399       72 384 moveto
400       64 384 lineto
401    stroke
402 grestore
403
404 % POLY/OPEN-SPLINE
405 0 setgray
406 gsave
407    newpath
408       72 416 moveto
409       64 416 lineto
410    stroke
411 grestore
412
413 % POLY/OPEN-SPLINE
414 0 setgray
415 gsave
416    newpath
417       576 224 moveto
418       568 224 lineto
419    stroke
420 grestore
421
422 % POLY/OPEN-SPLINE
423 0 setgray
424 gsave
425    newpath
426       576 256 moveto
427       568 256 lineto
428    stroke
429 grestore
430
431 % POLY/OPEN-SPLINE
432 0 setgray
433 gsave
434    newpath
435       576 288 moveto
436       568 288 lineto
437    stroke
438 grestore
439
440 % POLY/OPEN-SPLINE
441 0 setgray
442 gsave
443    newpath
444       576 352 moveto
445       568 352 lineto
446    stroke
447 grestore
448
449 % POLY/OPEN-SPLINE
450 0 setgray
451 gsave
452    newpath
453       576 384 moveto
454       568 384 lineto
455    stroke
456 grestore
457
458 % POLY/OPEN-SPLINE
459 0 setgray
460 gsave
461    newpath
462       576 416 moveto
463       568 416 lineto
464    stroke
465 grestore
466
467 grestore
468 tgifsavedpage restore
469 end
470 %MatchingCreationDate: Wed Nov 12 17:29:09 1997