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