Re: dvips でフォントデータを PS に書き込む

名前: nao
日時: 2001-12-12 19:08:14
IPアドレス: 133.11.68.*

>>4392

たびたびで申し訳ありません．

> eps にフォントデータが実際に含まれておれば、
> warning が出ても無視すればよいです。

EPS 内に以下のような記述がありました．フォントデータかどうかはちょっとわからない
ですが．

/Cmmi12 havefont not {
%%BeginFont: Cmmi12
/Cmmi12
15 dict dup begin
/FontName /Cmmi12 def
/FontType 3 def
/FontMatrix [ 0.000977 0 0 0.000977 0 0 ] def
/FontAscent 768 def
/FontDescent -256 def
/FontScript 0 def
/FontBBox [ 0 -512 1024 1024 ] def
/Encoding 256 array dup 0 1 255 { /.notdef put dup } for pop def
/l /lineto load def
/m /moveto load def
/c /curveto load def
/BuildChar {
	Adobe_Illustrator_AI5_vars exch /_bitlobyte exch put
	Adobe_Illustrator_AI5_vars exch /_bitfont exch put
	Adobe_Illustrator_AI5_vars /_bithibyte 0 put

	_bitlobyte 16 4 string cvrs dup length (K) dup length
	dup 4 -1 roll add string Adobe_Illustrator_AI5_vars exch /_bitkey exch put
	exch _bitkey copy pop _bitkey exch 3 -1 roll putinterval
	_bitfont /CharMetrics get _bitkey cvn get dup type /arraytype
	eq { aload pop setcachedevice }
	{ 0 setcharwidth } ifelse
	_bitfont /CharStrings get _bitkey cvn get exec
} bind def
3 dict dup begin
/KA {
} bind def
/KD {
} bind def
/K50 {
{
newpath
308 0 m
315 0 319 2 321 7 c
325 24 l
325 26 324 28 322 30 c
320 33 318 34 316 34 c
262 34 236 39 236 50 c
236 52 236 55 237 59 c
237 62 238 66 239 70 c
302 322 l
468 322 l
499 322 532 327 565 338 c
598 348 629 363 659 383 c
689 403 712 427 730 455 c
748 483 757 514 757 547 c
757 579 748 607 729 630 c
710 654 686 671 656 683 c
626 694 595 700 563 700 c
224 700 l
219 700 216 698 215 694 c
211 678 l
211 675 212 672 214 670 c
215 667 217 666 219 666 c
273 666 300 661 300 650 c
300 644 299 639 297 634 c
157 70 l
152 54 141 44 124 40 c
107 36 85 34 57 34 c
55 34 54 33 52 32 c
50 30 48 29 48 28 c
44 12 l
44 4 47 0 54 0 c
308 0 l
closepath
377 630 m
381 647 386 657 391 661 c
397 664 409 666 428 666 c
530 666 l
568 666 600 659 626 644 c
652 629 665 604 665 569 c
665 551 663 532 658 511 c
653 490 645 471 636 451 c
627 432 616 416 605 405 c
587 386 564 373 537 364 c
510 355 481 350 451 350 c
307 350 l
377 630 l
closepath
} exec
fill
} bind def
end /CharStrings exch def
3 dict dup begin
/KA [768 0 128 0 640 640] def
Encoding 10 /KA put
/KD [768 0 128 0 640 640] def
Encoding 13 /KD put
/K50 [646 0 45 0 758 699] def
Encoding 80 /K50 put
end /CharMetrics exch def
end
definefont pop
%%EndFont
} if

また，以下のような記述も発見しました．

%AI55J_Tsume: None
%AI3_BeginEncoding: _Cmmi12 Cmmi12
[/_Cmmi12/Cmmi12 0 0 0 TZ
%AI3_EndEncoding TrueType

関係ないようでしたら申し訳ありません．

この書き込みへの返事：