662 |
(defconst ps-mule-prologue |
(defconst ps-mule-prologue |
663 |
"%%%% Start of Mule Section |
"%%%% Start of Mule Section |
664 |
|
|
665 |
|
/Latin1Encoding { % newname fontname | font |
666 |
|
findfont dup length dict begin |
667 |
|
{ 1 index /FID ne { def } { pop pop } ifelse } forall |
668 |
|
/Encoding ISOLatin1Encoding def |
669 |
|
currentdict |
670 |
|
end |
671 |
|
definefont |
672 |
|
} bind def |
673 |
|
|
674 |
%% Redefine fonts for multiple charsets. |
%% Redefine fonts for multiple charsets. |
675 |
/ReDefFont { % fontname encoding fdepvector size | - |
/ReDefFont { % fontname encoding fdepvector size | - |
676 |
20 dict begin |
20 dict begin |
687 |
currentdict |
currentdict |
688 |
end % fontname dic |
end % fontname dic |
689 |
definefont pop |
definefont pop |
690 |
} def |
} bind def |
691 |
" |
" |
692 |
"PostScript code for printing multi-byte characters.") |
"PostScript code for printing multi-byte characters.") |
693 |
|
|
1302 |
(list (if (ps-mule-font-spec-src (cdr (car font-spec-alist))) |
(list (if (ps-mule-font-spec-src (cdr (car font-spec-alist))) |
1303 |
;; We ignore a font specfied in ps-font-info-database. |
;; We ignore a font specfied in ps-font-info-database. |
1304 |
(format "/V%s VTOP%d def\n" fonttag font-type) |
(format "/V%s VTOP%d def\n" fonttag font-type) |
1305 |
(format "/V%s [ VTOP%d aload pop ] def V%s 0 /%s findfont put\n" |
(format "/V%s [ VTOP%d aload pop ] def\n |
1306 |
fonttag font-type fonttag ps-font)) |
V%s 0 /%s-latin1 /%s Latin1Encoding put\n" |
1307 |
|
fonttag font-type fonttag ps-font ps-font)) |
1308 |
(format "/%s ETOP%d V%s %f ReDefFont\n" |
(format "/%s ETOP%d V%s %f ReDefFont\n" |
1309 |
fonttag font-type fonttag size))))) |
fonttag font-type fonttag size))))) |
1310 |
|
|