Initial import of the CDE 2.1.30 sources from the Open Group.
This commit is contained in:
Peter Howkins
192
cde/programs/fontaliases/postscript/ja/prolog.ps
Normal file
192
cde/programs/fontaliases/postscript/ja/prolog.ps
Normal file
@@ -0,0 +1,192 @@
|
||||
%!
|
||||
% $XConsortium: prolog.ps /main/3 1996/11/19 16:36:55 drk $
|
||||
% RESTRICTED CONFIDENTIAL INFORMATION:
|
||||
%
|
||||
% The information in this document is subject to special
|
||||
% restrictions in a confidential disclosure agreement between
|
||||
% HP, IBM, Sun, USL, SCO and Univel. Do not distribute this
|
||||
% document outside HP, IBM, Sun, USL, SCO, or Univel without
|
||||
% Sun's specific written approval. This document and all copies
|
||||
% and derivative works thereof must be returned or destroyed at
|
||||
% Sun's request.
|
||||
%
|
||||
% Copyright 1993 Sun Microsystems, Inc. All rights reserved.
|
||||
%
|
||||
% @(#)prolog.ps 1.11 93/05/19
|
||||
% Prolog for cmprint (Japanese EUC font definition )
|
||||
|
||||
/RM-Mode false def
|
||||
|
||||
/CodeSet3 { makecodeset3font } def
|
||||
|
||||
/append { % str1 str2 => str3
|
||||
1 index length dup 2 index length add string % s1 s2 l1 s3
|
||||
dup 5 -1 roll 0 exch putinterval % s2 l1 s3
|
||||
dup 4 2 roll exch putinterval
|
||||
} bind def
|
||||
|
||||
/HalfWidthMetrics {
|
||||
CodeSet12 (-H) append findfont 1000 scalefont setfont
|
||||
<2422> stringwidth pop
|
||||
CodeSet0 findfont 1000 scalefont setfont
|
||||
(a) stringwidth pop
|
||||
2 mul div
|
||||
} bind def
|
||||
|
||||
/makecodeset12 { % (fontname) => font true | false
|
||||
dup (-H) append { systemdict /findfont get exec } stopped {
|
||||
pop pop false
|
||||
}{ % fontname font
|
||||
dup /FontName get /Courier eq {
|
||||
pop pop false
|
||||
}{
|
||||
/CodeSet12 3 -1 roll def (CodeSet12) % font (CodeSet12)
|
||||
13 dict begin
|
||||
/FontName 1 index def
|
||||
/FMapType 5 def
|
||||
/WMode 0 def
|
||||
/FontType 0 def
|
||||
/FontMatrix matrix def
|
||||
exch dup
|
||||
/Encoding get % font Encoding
|
||||
exch /FDepVector get % Encoding FDepVector
|
||||
|
||||
dup length dup 2 add array % Enc FDep len array
|
||||
dup 4 -1 roll % Enc len array array FDep
|
||||
0 exch putinterval % Enc len array
|
||||
dup 2 index
|
||||
CodeSet12 (.Katakana) append findfont put
|
||||
dup 2 index 1 add
|
||||
CodeSet3 findfont put % Enc len array
|
||||
/FDepVector exch def exch % len Enc
|
||||
|
||||
512 array 0 1 511 { % array index
|
||||
1 index exch 0 put
|
||||
} for
|
||||
0 1 3 index length 1 sub { % len Enc 512a id
|
||||
2 index 1 index get % len Enc 512a id enc
|
||||
exch 2 mul 1 add % len Enc 512a enc id'
|
||||
2 index exch 3 -1 roll put
|
||||
} for exch pop % len 512a
|
||||
dup 16#8e 16#80 sub 2 mul 1 add 3 index put
|
||||
dup 16#8f 16#80 sub 2 mul 1 add 4 -1 roll 1 add put
|
||||
/Encoding exch def
|
||||
|
||||
currentdict
|
||||
end
|
||||
definefont true
|
||||
} ifelse
|
||||
} ifelse
|
||||
} bind def
|
||||
|
||||
/makeEUCfont { % (fontname) 12font => -
|
||||
/CodeSet0 2 index def
|
||||
(LC_) 2 index append % codeset0 font fotname
|
||||
13 dict begin
|
||||
/FontName 2 index def
|
||||
/FMapType 4 def
|
||||
/Encoding [ 0 1 ] def
|
||||
/WMode 0 def
|
||||
/FontType 0 def
|
||||
/FontMatrix matrix def
|
||||
/FDepVector [
|
||||
5 -1 roll findfont % font fontname /F [ font0
|
||||
RM-Mode {
|
||||
[ HalfWidthMetrics 0 0 1 0 0 ] makefont
|
||||
} if
|
||||
5 -1 roll
|
||||
] def
|
||||
currentdict
|
||||
end
|
||||
definefont
|
||||
pop
|
||||
} bind def
|
||||
|
||||
/makecodeset3font { % - => /fontname
|
||||
/NotDefCompFont FontDirectory 1 index known not {
|
||||
dup 13 dict begin
|
||||
/FontName 1 index def
|
||||
/FontType 0 def
|
||||
/FMapType 2 def
|
||||
/Encoding [ 256 { 0 } repeat ] def
|
||||
/FontMatrix matrix def
|
||||
/FDepVector [ /NotDefFont findfont ] def
|
||||
currentdict
|
||||
end
|
||||
definefont pop
|
||||
} if
|
||||
} def
|
||||
|
||||
/makeFakefont { % (..) => -
|
||||
(LC_) 1 index append exch findfont % (LC_XX) font
|
||||
dup length dict exch { % (LC_XX) dict font
|
||||
1 index /FID ne { % (LC_XX) dict key val
|
||||
1 index /FontName eq {
|
||||
exch pop 2 index exch
|
||||
} if
|
||||
2 index 3 1 roll put % (LC_XX) dict
|
||||
}{
|
||||
pop pop
|
||||
} ifelse
|
||||
} forall
|
||||
definefont pop
|
||||
} def
|
||||
|
||||
% define LC_Times-Roman for japanese locale
|
||||
%
|
||||
(Times-Roman) (Ryumin-Light) makecodeset12 {
|
||||
makeEUCfont
|
||||
}{
|
||||
makeFakefont
|
||||
} ifelse
|
||||
|
||||
% LC_Times-Bold
|
||||
%
|
||||
(Times-Bold) (Ryumin-Light) makecodeset12 {
|
||||
makeEUCfont
|
||||
}{
|
||||
makeFakefont
|
||||
} ifelse
|
||||
|
||||
% LC_Times-Italic
|
||||
%
|
||||
(Times-Italic) (Ryumin-Light) makecodeset12 {
|
||||
makeEUCfont
|
||||
}{
|
||||
makeFakefont
|
||||
} ifelse
|
||||
|
||||
% LC_Helvetica
|
||||
%
|
||||
(Helvetica) (GothicBBB-Medium) makecodeset12 {
|
||||
makeEUCfont
|
||||
}{
|
||||
makeFakefont
|
||||
} ifelse
|
||||
|
||||
% LC_Helvetica-Bold
|
||||
%
|
||||
(Helvetica-Bold) (GothicBBB-Medium) makecodeset12 {
|
||||
makeEUCfont
|
||||
}{
|
||||
makeFakefont
|
||||
} ifelse
|
||||
|
||||
% LC_Helvetica-BoldOblique
|
||||
%
|
||||
(Helvetica-BoldOblique) (GothicBBB-Medium) makecodeset12 {
|
||||
makeEUCfont
|
||||
}{
|
||||
makeFakefont
|
||||
} ifelse
|
||||
|
||||
% LC_Courier
|
||||
%
|
||||
/RM-Mode true def
|
||||
(Courier) (Ryumin-Light) makecodeset12 {
|
||||
makeEUCfont
|
||||
}{
|
||||
makeFakefont
|
||||
} ifelse
|
||||
/RM-Mode false def
|
||||
|
||||
251
cde/programs/fontaliases/postscript/ko/prolog.ps
Normal file
251
cde/programs/fontaliases/postscript/ko/prolog.ps
Normal file
@@ -0,0 +1,251 @@
|
||||
%!
|
||||
% $XConsortium: prolog.ps /main/3 1996/11/19 16:37:15 drk $
|
||||
% RESTRICTED CONFIDENTIAL INFORMATION:
|
||||
%
|
||||
% The information in this document is subject to special
|
||||
% restrictions in a confidential disclosure agreement between
|
||||
% HP, IBM, Sun, USL, SCO and Univel. Do not distribute this
|
||||
% document outside HP, IBM, Sun, USL, SCO, or Univel without
|
||||
% Sun's specific written approval. This document and all copies
|
||||
% and derivative works thereof must be returned or destroyed at
|
||||
% Sun's request.
|
||||
%
|
||||
% Copyright 1995 by Sun Microsystems, Inc. All rights reserved.
|
||||
%
|
||||
%! Prolog of cmprint & mp for Korean EUC font definition
|
||||
|
||||
/ConstantWidth false def
|
||||
|
||||
/checkfont {
|
||||
5 dict begin
|
||||
/basefontname exch def
|
||||
/basefontdict basefontname findfont def
|
||||
/newfont basefontdict maxlength dict def
|
||||
basefontdict {
|
||||
exch dup /FID ne
|
||||
{ exch newfont 3 1 roll put }
|
||||
{ pop pop }
|
||||
ifelse
|
||||
} forall
|
||||
newfont /FontName get
|
||||
end
|
||||
} def
|
||||
|
||||
/Kodig-Medium.r21 checkfont /Courier eq {
|
||||
/GotFont false def
|
||||
/Kodig-Medium-COMB-H checkfont /Courier eq {
|
||||
/GotOWFont false def
|
||||
} {
|
||||
/GotOWFont true def
|
||||
} ifelse
|
||||
} {
|
||||
/GotFont true def
|
||||
} ifelse
|
||||
|
||||
GotOWFont {
|
||||
/Kodig-Medium-COMB-H findfont pop
|
||||
/Myeongjo-Medium-COMB-H findfont pop
|
||||
} {
|
||||
GotFont {
|
||||
/Kodig-Medium findfont pop
|
||||
/Myeongjo-Medium findfont pop
|
||||
} if
|
||||
} ifelse
|
||||
|
||||
/append { % str1 str2 => str3
|
||||
1 index length dup 2 index length add string % s1 s2 l1 s3
|
||||
dup 5 -1 roll 0 exch putinterval % s2 l1 s3
|
||||
dup 4 2 roll exch putinterval
|
||||
} bind def
|
||||
|
||||
/_tohex {
|
||||
dup 10 eq {(A)}{ dup 11 eq {(B)}{ dup 12 eq {(C)}{ dup 13 eq {(D)}{
|
||||
dup 14 eq {(E)}{ dup 15 eq {(F)}{ dup 16 ge {(0)}{dup 1 string cvs
|
||||
}ifelse }ifelse }ifelse }ifelse }ifelse }ifelse }ifelse exch pop
|
||||
} bind def
|
||||
|
||||
/tohex { % int => (hex)
|
||||
dup 16 mod % AB Y
|
||||
exch 16 idiv % Y X
|
||||
_tohex exch _tohex % (X) (Y)
|
||||
2 string dup dup % (x) (y) ( ) ( ) ( )
|
||||
5 -1 roll 0 exch putinterval % (y) (x ) (x )
|
||||
3 -1 roll 1 exch putinterval
|
||||
} bind def
|
||||
|
||||
/repeat-findfont { % (Myeongjo-Medium.r) start end => dict..
|
||||
3 -1 roll /fontname exch def
|
||||
1 exch {
|
||||
fontname length 2 add string dup % 33 ( ) ( )
|
||||
0 fontname putinterval % 33 (Ryumin-Light.r )
|
||||
dup fontname length 4 -1 roll % (..) (..) 14 33
|
||||
tohex putinterval cvn findfont
|
||||
} for
|
||||
} bind def
|
||||
|
||||
/makecodesets { % (fontname) => font
|
||||
/CodeSet1 exch def
|
||||
/CodeSet1
|
||||
13 dict begin
|
||||
/FontName 1 index def
|
||||
/FMapType 5 def
|
||||
/Encoding [
|
||||
64 {0} repeat % 80 - 9F
|
||||
0 0 0 1 0 2 0 3 0 4 0 5 0 6 0 7
|
||||
0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 15
|
||||
0 16 0 17 0 18 0 19 0 20 0 21 0 22 0 23
|
||||
0 24 0 25 0 26 0 27 0 28 0 29 0 30 0 31
|
||||
0 32 0 33 0 34 0 35 0 36 0 37 0 38 0 39
|
||||
0 40 0 41 0 42 0 43 0 44 0 45 0 46 0 47
|
||||
0 48 0 49 0 50 0 51 0 52 0 53 0 54 0 55
|
||||
0 56 0 57 0 58 0 59 0 60 0 61 0 62 0 63
|
||||
0 64 0 65 0 66 0 67 0 68 0 69 0 70 0 71
|
||||
0 72 0 73 0 74 0 75 0 76 0 77 0 78 0 79
|
||||
0 80 0 81 0 82 0 83 0 84 0 85 0 86 0 87
|
||||
0 88 0 89 0 90 0 91 0 92 0 93 0 0 0 0
|
||||
] def
|
||||
/WMode 0 def
|
||||
/FontType 0 def
|
||||
/FontMatrix matrix def
|
||||
/FDepVector [
|
||||
/NotDefFont findfont
|
||||
CodeSet1 (.r) append 33 44 repeat-findfont
|
||||
3 { /NotDefFont findfont } repeat
|
||||
CodeSet1 (.r) append 48 72 repeat-findfont
|
||||
/NotDefFont findfont
|
||||
CodeSet1 (.r) append 74 125 repeat-findfont
|
||||
] def
|
||||
currentdict
|
||||
end
|
||||
definefont pop
|
||||
(CodeSet1)
|
||||
} bind def
|
||||
|
||||
/makeEUCfont { % CodeSet1font (fontname) => -
|
||||
(LC_) 1 index append
|
||||
13 dict begin
|
||||
/FontName 1 index def
|
||||
/FMapType 4 def
|
||||
/Encoding [ 0 1 ] def
|
||||
/WMode 0 def
|
||||
/FontType 0 def
|
||||
/FontMatrix matrix def
|
||||
/FDepVector [
|
||||
4 -1 roll findfont
|
||||
ConstantWidth {
|
||||
dup 1000 exch 1000 scalefont setfont
|
||||
(ab) stringwidth pop div scalefont
|
||||
} if
|
||||
5 -1 roll findfont
|
||||
] def
|
||||
currentdict
|
||||
end
|
||||
definefont
|
||||
pop
|
||||
} bind def
|
||||
|
||||
/copyfont {
|
||||
5 dict begin
|
||||
/newfontname exch def
|
||||
/basefontname exch def
|
||||
|
||||
/basefontdict basefontname findfont def
|
||||
/newfont basefontdict maxlength dict def
|
||||
|
||||
basefontdict {
|
||||
exch dup /FID ne
|
||||
{ exch newfont 3 1 roll put }
|
||||
{ pop pop }
|
||||
ifelse
|
||||
} forall
|
||||
|
||||
newfont /FontName newfontname put
|
||||
newfontname newfont definefont pop
|
||||
end
|
||||
} def
|
||||
|
||||
% define LC_Times-Roman for korean locale
|
||||
%
|
||||
GotOWFont {
|
||||
(Myeongjo-Medium-COMB-H) (Times-Roman) makeEUCfont
|
||||
} {
|
||||
GotFont {
|
||||
(Myeongjo-Medium) makecodesets (Times-Roman) makeEUCfont
|
||||
} {
|
||||
/Times-Roman /LC_Times-Roman copyfont
|
||||
} ifelse
|
||||
} ifelse
|
||||
|
||||
% LC_Times-Bold
|
||||
%
|
||||
GotOWFont {
|
||||
(Myeongjo-Medium-COMB-H) (Times-Bold) makeEUCfont
|
||||
} {
|
||||
GotFont {
|
||||
(Myeongjo-Medium) makecodesets (Times-Bold) makeEUCfont
|
||||
} {
|
||||
/Times-Bold /LC_Times-Bold copyfont
|
||||
} ifelse
|
||||
} ifelse
|
||||
|
||||
% LC_Times-Italic
|
||||
%
|
||||
GotOWFont {
|
||||
(Myeongjo-Medium-COMB-H) (Times-Italic) makeEUCfont
|
||||
} {
|
||||
GotFont {
|
||||
(Myeongjo-Medium) makecodesets (Times-Italic) makeEUCfont
|
||||
} {
|
||||
/Times-Italic /LC_Times-Italic copyfont
|
||||
} ifelse
|
||||
} ifelse
|
||||
|
||||
% LC_Helvetica
|
||||
%
|
||||
GotOWFont {
|
||||
(Kodig-Medium-COMB-H) (Helvetica) makeEUCfont
|
||||
} {
|
||||
GotFont {
|
||||
(Kodig-Medium) makecodesets (Helvetica) makeEUCfont
|
||||
} {
|
||||
/Helvetica /LC_Helvetica copyfont
|
||||
} ifelse
|
||||
} ifelse
|
||||
|
||||
% LC_Helvetica-Bold
|
||||
%
|
||||
GotOWFont {
|
||||
(Kodig-Medium-COMB-H) (Helvetica-Bold) makeEUCfont
|
||||
} {
|
||||
GotFont {
|
||||
(Kodig-Medium) makecodesets (Helvetica-Bold) makeEUCfont
|
||||
} {
|
||||
/Helvetica-Bold /LC_Helvetica-Bold copyfont
|
||||
} ifelse
|
||||
} ifelse
|
||||
|
||||
% LC_Courier
|
||||
%
|
||||
/ConstantWidth true def
|
||||
GotOWFont {
|
||||
(Kodig-Medium-COMB-H) (Courier) makeEUCfont
|
||||
} {
|
||||
GotFont {
|
||||
(Kodig-Medium) makecodesets (Courier) makeEUCfont
|
||||
} {
|
||||
/Courier /LC_Courier copyfont
|
||||
} ifelse
|
||||
} ifelse
|
||||
/ConstantWidth false def
|
||||
|
||||
% LC_Helvetica-BoldOblique
|
||||
%
|
||||
GotOWFont {
|
||||
(Kodig-Medium-COMB-H) (Helvetica-BoldOblique) makeEUCfont
|
||||
} {
|
||||
GotFont {
|
||||
(Kodig-Medium) makecodesets (Helvetica-BoldOblique) makeEUCfont
|
||||
} {
|
||||
/Helvetica-BoldOblique /LC_Helvetica-BoldOblique copyfont
|
||||
} ifelse
|
||||
} ifelse
|
||||
237
cde/programs/fontaliases/postscript/zh/prolog.ps
Normal file
237
cde/programs/fontaliases/postscript/zh/prolog.ps
Normal file
@@ -0,0 +1,237 @@
|
||||
%!
|
||||
% $XConsortium: prolog.ps /main/3 1996/11/19 16:37:37 drk $
|
||||
% RESTRICTED CONFIDENTIAL INFORMATION:
|
||||
%
|
||||
% The information in this document is subject to special
|
||||
% restrictions in a confidential disclosure agreement between
|
||||
% HP, IBM, Sun, USL, SCO and Univel. Do not distribute this
|
||||
% document outside HP, IBM, Sun, USL, SCO, or Univel without
|
||||
% Sun's specific written approval. This document and all copies
|
||||
% and derivative works thereof must be returned or destroyed at
|
||||
% Sun's request.
|
||||
%
|
||||
% Copyright 1993 Sun Microsystems, Inc. All rights reserved.
|
||||
%
|
||||
% 93/10/04 @(#)prolog.ps 1.7; SMI
|
||||
% Prolog of cmprint & mp for chinese EUC font definition
|
||||
|
||||
/ConstantWidth false def
|
||||
|
||||
/checkfont {
|
||||
5 dict begin
|
||||
/basefontname exch def
|
||||
/basefontdict basefontname findfont def
|
||||
/newfont basefontdict maxlength dict def
|
||||
basefontdict {
|
||||
exch dup /FID ne
|
||||
{ exch newfont 3 1 roll put }
|
||||
{ pop pop }
|
||||
ifelse
|
||||
} forall
|
||||
newfont /FontName get
|
||||
end
|
||||
} def
|
||||
|
||||
/Song-Medium checkfont
|
||||
/Courier eq { /GotFont false def } { /GotFont true def } ifelse
|
||||
|
||||
/append { % str1 str2 => str3
|
||||
1 index length dup 2 index length add string % s1 s2 l1 s3
|
||||
dup 5 -1 roll 0 exch putinterval % s2 l1 s3
|
||||
dup 4 2 roll exch putinterval
|
||||
} bind def
|
||||
|
||||
/copyfont {
|
||||
5 dict begin
|
||||
/newfontname exch def
|
||||
/basefontname exch def
|
||||
|
||||
/basefontdict basefontname findfont def
|
||||
/newfont basefontdict maxlength dict def
|
||||
|
||||
basefontdict {
|
||||
exch dup /FID ne
|
||||
{ exch newfont 3 1 roll put }
|
||||
{ pop pop }
|
||||
ifelse
|
||||
} forall
|
||||
|
||||
newfont /FontName newfontname put
|
||||
newfontname newfont definefont pop
|
||||
end
|
||||
} def
|
||||
|
||||
GotFont {
|
||||
% Chinese font
|
||||
/Song-Medium
|
||||
13 dict begin
|
||||
/FontName /Song-Medium def
|
||||
/FontType 0 def
|
||||
/Encoding [
|
||||
64 { 0 } repeat
|
||||
0 0 0 1 0 2 0 3 0 4 0 5 0 6 0 7
|
||||
0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 15
|
||||
0 16 0 17 0 18 0 19 0 20 0 21 0 22 0 23
|
||||
0 24 0 25 0 26 0 27 0 28 0 29 0 30 0 31
|
||||
0 32 0 33 0 34 0 35 0 36 0 37 0 38 0 39
|
||||
0 40 0 41 0 42 0 43 0 44 0 45 0 46 0 47
|
||||
0 48 0 49 0 50 0 51 0 52 0 53 0 54 0 55
|
||||
0 56 0 57 0 58 0 59 0 60 0 61 0 62 0 66
|
||||
0 64 0 65 0 66 0 67 0 68 0 69 0 70 0 71
|
||||
0 72 0 73 0 74 0 75 0 76 0 77 0 78 0 79
|
||||
0 80 0 81 0 82 0 83 0 84 0 85 0 86 0 87
|
||||
0 88 0 89 0 90 0 91 0 92 0 93 0 0 0 0
|
||||
] def
|
||||
/FontMatrix [1.0 0.0 0.0 1.0 0.0 0.0] def
|
||||
/WMode 0 def
|
||||
/FMapType 5 def
|
||||
/FDepVector [
|
||||
/NotDefFont findfont
|
||||
/Song-Medium.r21 findfont
|
||||
/Song-Medium.r22 findfont
|
||||
/Song-Medium.r23 findfont
|
||||
/Song-Medium.r24 findfont
|
||||
/Song-Medium.r25 findfont
|
||||
/Song-Medium.r26 findfont
|
||||
/Song-Medium.r27 findfont
|
||||
/Song-Medium.r28 findfont
|
||||
/Song-Medium.r29 findfont
|
||||
6 { /NotDefFont findfont } repeat
|
||||
/Song-Medium.r30 findfont
|
||||
/Song-Medium.r31 findfont
|
||||
/Song-Medium.r32 findfont
|
||||
/Song-Medium.r33 findfont
|
||||
/Song-Medium.r34 findfont
|
||||
/Song-Medium.r35 findfont
|
||||
/Song-Medium.r36 findfont
|
||||
/Song-Medium.r37 findfont
|
||||
/Song-Medium.r38 findfont
|
||||
/Song-Medium.r39 findfont
|
||||
/Song-Medium.r3A findfont
|
||||
/Song-Medium.r3B findfont
|
||||
/Song-Medium.r3C findfont
|
||||
/Song-Medium.r3D findfont
|
||||
/Song-Medium.r3E findfont
|
||||
/Song-Medium.r3F findfont
|
||||
/Song-Medium.r40 findfont
|
||||
/Song-Medium.r41 findfont
|
||||
/Song-Medium.r42 findfont
|
||||
/Song-Medium.r43 findfont
|
||||
/Song-Medium.r44 findfont
|
||||
/Song-Medium.r45 findfont
|
||||
/Song-Medium.r46 findfont
|
||||
/Song-Medium.r47 findfont
|
||||
/Song-Medium.r48 findfont
|
||||
/Song-Medium.r49 findfont
|
||||
/Song-Medium.r4A findfont
|
||||
/Song-Medium.r4B findfont
|
||||
/Song-Medium.r4C findfont
|
||||
/Song-Medium.r4D findfont
|
||||
/Song-Medium.r4E findfont
|
||||
/Song-Medium.r4F findfont
|
||||
/Song-Medium.r50 findfont
|
||||
/Song-Medium.r51 findfont
|
||||
/Song-Medium.r52 findfont
|
||||
/Song-Medium.r53 findfont
|
||||
/Song-Medium.r54 findfont
|
||||
/Song-Medium.r55 findfont
|
||||
/Song-Medium.r56 findfont
|
||||
/Song-Medium.r57 findfont
|
||||
/Song-Medium.r58 findfont
|
||||
/Song-Medium.r59 findfont
|
||||
/Song-Medium.r5A findfont
|
||||
/Song-Medium.r5B findfont
|
||||
/Song-Medium.r5C findfont
|
||||
/Song-Medium.r5D findfont
|
||||
/Song-Medium.r5E findfont
|
||||
/Song-Medium.r5F findfont
|
||||
/Song-Medium.r60 findfont
|
||||
/Song-Medium.r61 findfont
|
||||
/Song-Medium.r62 findfont
|
||||
/Song-Medium.r63 findfont
|
||||
/Song-Medium.r64 findfont
|
||||
/Song-Medium.r65 findfont
|
||||
/Song-Medium.r66 findfont
|
||||
/Song-Medium.r67 findfont
|
||||
/Song-Medium.r68 findfont
|
||||
/Song-Medium.r69 findfont
|
||||
/Song-Medium.r6A findfont
|
||||
/Song-Medium.r6B findfont
|
||||
/Song-Medium.r6C findfont
|
||||
/Song-Medium.r6D findfont
|
||||
/Song-Medium.r6E findfont
|
||||
/Song-Medium.r6F findfont
|
||||
/Song-Medium.r70 findfont
|
||||
/Song-Medium.r71 findfont
|
||||
/Song-Medium.r72 findfont
|
||||
/Song-Medium.r73 findfont
|
||||
/Song-Medium.r74 findfont
|
||||
/Song-Medium.r75 findfont
|
||||
/Song-Medium.r76 findfont
|
||||
/Song-Medium.r77 findfont
|
||||
18 { /NotDefFont findfont } repeat
|
||||
] def
|
||||
currentdict
|
||||
end definefont pop
|
||||
|
||||
% Composite Roman & Asian fonts
|
||||
/makeEUCfont { % CodeSet1font (fontname) => -
|
||||
(LC_) 1 index append
|
||||
13 dict begin
|
||||
/FontName 1 index def
|
||||
/FMapType 4 def
|
||||
/Encoding [ 0 1 ] def
|
||||
/WMode 0 def
|
||||
/FontType 0 def
|
||||
/FontMatrix [1.0 0.0 0.0 1.0 0.0 0.0] def
|
||||
/FDepVector [
|
||||
4 -1 roll findfont
|
||||
ConstantWidth {
|
||||
dup 1000 exch 1000 scalefont setfont
|
||||
(ab) stringwidth pop div scalefont
|
||||
} if
|
||||
5 -1 roll findfont
|
||||
] def
|
||||
currentdict
|
||||
end definefont pop
|
||||
} bind def
|
||||
} if
|
||||
|
||||
|
||||
% define LC_Times-Roman for chinese locale
|
||||
%
|
||||
GotFont { (Song-Medium) (Times-Roman) makeEUCfont }
|
||||
{ /Times-Roman /LC_Times-Roman copyfont } ifelse
|
||||
|
||||
% LC_Times-Bold
|
||||
%
|
||||
GotFont { (Song-Medium) (Times-Bold) makeEUCfont }
|
||||
{ /Times-Bold /LC_Times-Bold copyfont } ifelse
|
||||
|
||||
% LC_Times-Italic
|
||||
%
|
||||
GotFont { (Song-Medium) (Times-Italic) makeEUCfont }
|
||||
{ /Times-Italic /LC_Times-Italic copyfont } ifelse
|
||||
|
||||
% LC_Helvetica
|
||||
%
|
||||
GotFont { (Song-Medium) (Helvetica) makeEUCfont }
|
||||
{ /Helvetica /LC_Helvetica copyfont } ifelse
|
||||
|
||||
% LC_Helvetica-Bold
|
||||
%
|
||||
GotFont { (Song-Medium) (Helvetica-Bold) makeEUCfont }
|
||||
{ /Helvetica-Bold /LC_Helvetica-Bold copyfont } ifelse
|
||||
|
||||
% LC_Helvetica-BoldOblique
|
||||
%
|
||||
GotFont { (Song-Medium) (Helvetica-BoldOblique) makeEUCfont }
|
||||
{ /Helvetica-BoldOblique /LC_Helvetica-BoldOblique copyfont } ifelse
|
||||
|
||||
% LC_Courier
|
||||
%
|
||||
/ConstantWidth true def
|
||||
GotFont { (Song-Medium) (Courier) makeEUCfont }
|
||||
{ /Courier /LC_Courier copyfont } ifelse
|
||||
/ConstantWidth false def
|
||||
|
||||
293
cde/programs/fontaliases/postscript/zh_TW/prolog.ps
Normal file
293
cde/programs/fontaliases/postscript/zh_TW/prolog.ps
Normal file
@@ -0,0 +1,293 @@
|
||||
%!
|
||||
% $XConsortium: prolog.ps /main/3 1996/11/19 16:37:57 drk $
|
||||
% RESTRICTED CONFIDENTIAL INFORMATION:
|
||||
%
|
||||
% The information in this document is subject to special
|
||||
% restrictions in a confidential disclosure agreement between
|
||||
% HP, IBM, Sun, USL, SCO and Univel. Do not distribute this
|
||||
% document outside HP, IBM, Sun, USL, SCO, or Univel without
|
||||
% Sun's specific written approval. This document and all copies
|
||||
% and derivative works thereof must be returned or destroyed at
|
||||
% Sun's request.
|
||||
%
|
||||
% Copyright 1993 Sun Microsystems, Inc. All rights reserved.
|
||||
%
|
||||
% Prolog of cmprint & mp for tchinese EUC font definition
|
||||
|
||||
/ConstantWidth false def
|
||||
|
||||
/checkfont {
|
||||
5 dict begin
|
||||
/basefontname exch def
|
||||
/basefontdict basefontname findfont def
|
||||
/newfont basefontdict maxlength dict def
|
||||
basefontdict {
|
||||
exch dup /FID ne
|
||||
{ exch newfont 3 1 roll put }
|
||||
{ pop pop }
|
||||
ifelse
|
||||
} forall
|
||||
newfont /FontName get
|
||||
end
|
||||
} def
|
||||
|
||||
/Ming-Light.r21 checkfont
|
||||
/Courier eq { /GotFont false def } { /GotFont true def } ifelse
|
||||
|
||||
GotFont { /Ming-Light findfont pop
|
||||
/MingRare-Light findfont pop
|
||||
/MingUnusual-Light findfont pop
|
||||
/Kai-Medium findfont pop
|
||||
/KaiRare-Medium findfont pop
|
||||
/KaiUnusual-Medium findfont pop } if
|
||||
|
||||
/append { % str1 str2 => str3
|
||||
1 index length dup 2 index length add string % s1 s2 l1 s3
|
||||
dup 5 -1 roll 0 exch putinterval % s2 l1 s3
|
||||
dup 4 2 roll exch putinterval
|
||||
} bind def
|
||||
|
||||
/_tohex {
|
||||
dup 10 eq {(A)}{ dup 11 eq {(B)}{ dup 12 eq {(C)}{ dup 13 eq {(D)}{
|
||||
dup 14 eq {(E)}{ dup 15 eq {(F)}{ dup 16 ge {(0)}{dup 1 string cvs
|
||||
}ifelse }ifelse }ifelse }ifelse }ifelse }ifelse }ifelse exch pop
|
||||
} bind def
|
||||
|
||||
/tohex { % int => (hex)
|
||||
dup 16 mod % AB Y
|
||||
exch 16 idiv % Y X
|
||||
_tohex exch _tohex % (X) (Y)
|
||||
2 string dup dup % (x) (y) ( ) ( ) ( )
|
||||
5 -1 roll 0 exch putinterval % (y) (x ) (x )
|
||||
3 -1 roll 1 exch putinterval
|
||||
} bind def
|
||||
|
||||
/repeat-findfont { % (Ming-Light.r) start end => dict..
|
||||
3 -1 roll /fontname exch def
|
||||
1 exch {
|
||||
fontname length 2 add string dup % 33 ( ) ( )
|
||||
0 fontname putinterval % 33 (Ming-Light.r )
|
||||
dup fontname length 4 -1 roll % (..) (..) 14 33
|
||||
tohex putinterval cvn findfont
|
||||
} for
|
||||
} bind def
|
||||
|
||||
|
||||
/makecodesets { % (fontname) => font
|
||||
/CodeSet1 exch def
|
||||
/CodeSet2_P2 exch def
|
||||
/CodeSet2_P14 exch def
|
||||
|
||||
/CodeSet2_P2
|
||||
13 dict begin
|
||||
/FontName 1 index def
|
||||
/FMapType 5 def
|
||||
/Encoding [
|
||||
64 {0} repeat % 80 - 9F
|
||||
0 0 0 1 0 2 0 3 0 4 0 5 0 6 0 7
|
||||
0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 15
|
||||
0 16 0 17 0 18 0 19 0 20 0 21 0 22 0 23
|
||||
0 24 0 25 0 26 0 27 0 28 0 29 0 30 0 31
|
||||
0 32 0 33 0 34 0 35 0 36 0 37 0 38 0 39
|
||||
0 40 0 41 0 42 0 43 0 44 0 45 0 46 0 47
|
||||
0 48 0 49 0 50 0 51 0 52 0 53 0 54 0 55
|
||||
0 56 0 57 0 58 0 59 0 60 0 61 0 62 0 63
|
||||
0 64 0 65 0 66 0 67 0 68 0 69 0 70 0 71
|
||||
0 72 0 73 0 74 0 75 0 76 0 77 0 78 0 79
|
||||
0 80 0 81 0 82 0 0 0 0 0 0 0 0 0 0
|
||||
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
|
||||
] def
|
||||
/WMode 0 def
|
||||
/FontType 0 def
|
||||
/FontMatrix matrix def
|
||||
/FDepVector [
|
||||
/NotDefFont findfont
|
||||
CodeSet2_P2 (.r) append 33 114 repeat-findfont
|
||||
/NotDefFont findfont
|
||||
] def
|
||||
currentdict
|
||||
end
|
||||
definefont pop
|
||||
|
||||
/CodeSet2_P14
|
||||
15 dict begin
|
||||
/FontName 1 index def
|
||||
/FMapType 5 def
|
||||
/Encoding [
|
||||
64 {0} repeat % 80 - 9F
|
||||
0 0 0 1 0 2 0 3 0 4 0 5 0 6 0 7
|
||||
0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 15
|
||||
0 16 0 17 0 18 0 19 0 20 0 21 0 22 0 23
|
||||
0 24 0 25 0 26 0 27 0 28 0 29 0 30 0 31
|
||||
0 32 0 33 0 34 0 35 0 36 0 37 0 38 0 39
|
||||
0 40 0 41 0 42 0 43 0 44 0 45 0 46 0 47
|
||||
0 48 0 49 0 50 0 51 0 52 0 53 0 54 0 55
|
||||
0 56 0 57 0 58 0 59 0 60 0 61 0 62 0 63
|
||||
0 64 0 65 0 66 0 67 0 68 0 69 0 70 0 71
|
||||
0 72 0 73 0 74 0 75 0 76 0 77 0 78 0 79
|
||||
0 80 0 81 0 82 0 0 0 0 0 0 0 0 0 0
|
||||
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
|
||||
] def
|
||||
/WMode 0 def
|
||||
/FontType 0 def
|
||||
/FontMatrix matrix def
|
||||
/FDepVector [
|
||||
/NotDefFont findfont
|
||||
CodeSet2_P14 (.r) append 33 100 repeat-findfont
|
||||
15 { /NotDefFont findfont } repeat
|
||||
] def
|
||||
currentdict
|
||||
end
|
||||
definefont pop
|
||||
|
||||
/CodeSet2
|
||||
13 dict begin
|
||||
/FontName 1 index def
|
||||
/FMapType 5 def
|
||||
/Encoding [
|
||||
64 {0} repeat % 80 - 9F
|
||||
4 {0} repeat % A0 - A1
|
||||
0 1 % A2
|
||||
22 {0} repeat % A3 - AD
|
||||
0 2 % AE
|
||||
0 0 % AF
|
||||
160 {0} repeat
|
||||
] def
|
||||
/WMode 0 def
|
||||
/FontType 0 def
|
||||
/FontMatrix matrix def
|
||||
/FDepVector [
|
||||
/NotDefFont findfont
|
||||
/CodeSet2_P2 findfont
|
||||
/CodeSet2_P14 findfont
|
||||
] def
|
||||
currentdict
|
||||
end
|
||||
definefont pop
|
||||
|
||||
/CodeSet1
|
||||
13 dict begin
|
||||
/FontName 1 index def
|
||||
/FMapType 5 def
|
||||
/Encoding [
|
||||
16 {0} repeat % 80 - 87
|
||||
12 {0} repeat % 88 - 8D
|
||||
0 94 0 0 % 8E - 8F
|
||||
32 {0} repeat % 9A - 9F
|
||||
0 0 0 1 0 2 0 3 0 4 0 5 0 6 0 7
|
||||
0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 15
|
||||
0 16 0 17 0 18 0 19 0 20 0 21 0 22 0 23
|
||||
0 24 0 25 0 26 0 27 0 28 0 29 0 30 0 31
|
||||
0 32 0 33 0 34 0 35 0 36 0 37 0 38 0 39
|
||||
0 40 0 41 0 42 0 43 0 44 0 45 0 46 0 47
|
||||
0 48 0 49 0 50 0 51 0 52 0 53 0 54 0 55
|
||||
0 56 0 57 0 58 0 59 0 60 0 61 0 62 0 63
|
||||
0 64 0 65 0 66 0 67 0 68 0 69 0 70 0 71
|
||||
0 72 0 73 0 74 0 75 0 76 0 77 0 78 0 79
|
||||
0 80 0 81 0 82 0 83 0 84 0 85 0 86 0 87
|
||||
0 88 0 89 0 90 0 91 0 92 0 93 0 0 0 0
|
||||
] def
|
||||
/WMode 0 def
|
||||
/FontType 0 def
|
||||
/FontMatrix matrix def
|
||||
/FDepVector [
|
||||
/NotDefFont findfont
|
||||
CodeSet1 (.r) append 33 37 repeat-findfont
|
||||
30 { /NotDefFont findfont } repeat
|
||||
CodeSet1 (.r) append 68 125 repeat-findfont
|
||||
/CodeSet2 findfont
|
||||
4 { /NotDefFont findfont } repeat
|
||||
] def
|
||||
currentdict
|
||||
end
|
||||
definefont pop
|
||||
(CodeSet1)
|
||||
} bind def
|
||||
|
||||
/makeEUCfont { % 123font (fontname) => -
|
||||
(LC_) 1 index append
|
||||
13 dict begin
|
||||
/FontName 1 index def
|
||||
/FMapType 4 def
|
||||
/Encoding [ 0 1 ] def
|
||||
/WMode 0 def
|
||||
/FontType 0 def
|
||||
/FontMatrix matrix def
|
||||
/FDepVector [
|
||||
4 -1 roll findfont
|
||||
ConstantWidth {
|
||||
dup 1000 exch 1000 scalefont setfont
|
||||
(ab) stringwidth pop div scalefont
|
||||
} if
|
||||
5 -1 roll findfont
|
||||
] def
|
||||
currentdict
|
||||
end
|
||||
definefont
|
||||
pop
|
||||
} bind def
|
||||
|
||||
/copyfont {
|
||||
5 dict begin
|
||||
/newfontname exch def
|
||||
/basefontname exch def
|
||||
|
||||
/basefontdict basefontname findfont def
|
||||
/newfont basefontdict maxlength dict def
|
||||
|
||||
basefontdict {
|
||||
exch dup /FID ne
|
||||
{ exch newfont 3 1 roll put }
|
||||
{ pop pop }
|
||||
ifelse
|
||||
} forall
|
||||
|
||||
newfont /FontName newfontname put
|
||||
newfontname newfont definefont pop
|
||||
end
|
||||
} def
|
||||
|
||||
% define LC_Times-Roman for tchinese locale
|
||||
%
|
||||
GotFont { (MingUnusual-Light) (MingRare-Light) (Ming-Light) makecodesets
|
||||
(Times-Roman) makeEUCfont }
|
||||
{ /Times-Roman /LC_Times-Roman copyfont } ifelse
|
||||
|
||||
% LC_Times-Bold
|
||||
%
|
||||
GotFont { (MingUnusual-Light) (MingRare-Light) (Ming-Light) makecodesets
|
||||
(Times-Bold) makeEUCfont }
|
||||
{ /Times-Bold /LC_Times-Bold copyfont } ifelse
|
||||
|
||||
% LC_Times-Italic
|
||||
%
|
||||
GotFont { (MingUnusual-Light) (MingRare-Light) (Ming-Light) makecodesets
|
||||
(Times-Italic) makeEUCfont }
|
||||
{ /Times-Italic /LC_Times-Italic copyfont } ifelse
|
||||
|
||||
% LC_Helvetica
|
||||
%
|
||||
GotFont { (KaiUnusual-Medium) (KaiRare-Medium) (Kai-Medium) makecodesets
|
||||
(Helvetica) makeEUCfont }
|
||||
{ /Helvetica /LC_Helvetica copyfont } ifelse
|
||||
|
||||
% LC_Helvetica-Bold
|
||||
%
|
||||
GotFont { (KaiUnusual-Medium) (KaiRare-Medium) (Kai-Medium) makecodesets
|
||||
(Helvetica-Bold) makeEUCfont }
|
||||
{ /Helvetica-Bold /LC_Helvetica-Bold copyfont } ifelse
|
||||
|
||||
% LC_Courier
|
||||
%
|
||||
/ConstantWidth true def
|
||||
GotFont { (MingUnusual-Light) (MingRare-Light) (Ming-Light) makecodesets
|
||||
(Courier) makeEUCfont }
|
||||
{ /Courier /LC_Courier copyfont } ifelse
|
||||
/ConstantWidth false def
|
||||
|
||||
% LC_Helvetica-BoldOblique
|
||||
%
|
||||
GotFont { (KaiUnusual-Medium) (KaiRare-Medium) (Kai-Medium) makecodesets
|
||||
(Helvetica-BoldOblique) makeEUCfont }
|
||||
{ /Helvetica-BoldOblique /LC_Helvetica-BoldOblique copyfont } ifelse
|
||||
|
||||
Reference in New Issue
Block a user