blob: dfc6230bd933ef92a438186e68b2db41316cec4e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
%!PS-Adobe-3.0
%%Title: chinese-big5 encoding
%%Creator: Taiji Yamada <taiji@aihara.co.jp> and gs-cjk project
%%Copyright: (C) 2001 Taiji Yamada and gs-cjk project
%%+ This script is part of GNU Ghostscript and is distributed under
%%+ the terms of the GNU General Public License. See the file COPYING
%%+ for more information.
%%BoundingBox: 30 150 530 650
%%EndComments
%%BeginProlog
/*gs-cjk (\
------------------------------------------------------------------------\n\
This is a script to test CJK fonts such as CID-keyed fonts.\n\
If you have not done CID-keyed fonts installation and definitions at\n\
/Resource/CMap and CIDFnmap or /Resource/CIDFont of ghostscript, then\n\
this script can't work correctly.\n\
For details, please see README at http://www.gyve.org/gs-cjk/supplement.\n\
If you throw this script into a printer, it requires PostScript 3\n\
printer and CID-keyed fonts specified in this script.\n\
------------------------------------------------------------------------\n) def
/notice*stdout 4 dict begin
/*open {} def /*echo-n { =only } def /*echo { = } def /*close { flush } def
currentdict
end def
/notice*page 5 dict begin
/*y 750 def
/*open {
gsave initmatrix /Courier findfont 11 scalefont setfont 50 *y moveto
*y 750 eq {
*gs-cjk { (\n) search { *echo } { *echo-n exit } ifelse pop } loop
} if
} def
/*echo-n { dup type /stringtype ne { dup length string cvs } if show } def
/*echo { *echo-n /*y *y 11 sub def 50 *y moveto } def
/*close { grestore } def
currentdict
end def
/greeting*gs-cjk {
product (Ghostscript) search not { pop } { pop pop pop QUIET not {
notice*stdout begin
*open
*gs-cjk { (\n) search { *echo } { *echo-n exit } ifelse pop } loop
*close
end
} if } ifelse
} bind def
greeting*gs-cjk
/*findfont {
dup /Font resourcestatus { pop pop findfont } {
notice*page begin
*open
(Error in findfont: ) *echo-n dup *echo
*close
end
findfont
} ifelse
} bind def
/orighandleerror errordict /handleerror get def
errordict begin
/handleerror {
notice*page begin errordict begin $error begin
*open
(Error of ) *echo-n errorname dup length string cvs *echo
*close
showpage
end end end
orighandleerror
} bind def
end
%%EndProlog
/MSung-Light--B5-V *findfont 25 scalefont setfont
500 625 moveto
(ÆFµ§¤¤¤åÁcÅé¦rª½¼g¦L¨ê) show
/MSung-Light--B5-H *findfont 25 scalefont setfont
50 600 moveto
(ÆFµ§ Ghostscript) show
50 550 moveto
(¤¤¤åÁcÅé¦r Traditional Chinese) show
50 500 moveto
(¾î¼g horizontal writing) show
50 450 moveto
(¦L¨ê Print) show
%
/MSung-Light--B5-V *findfont [ 1 .3 0 1 0 0 ] makefont 20 scalefont setfont
100 275 moveto 20 2 div 0 rmoveto
(±×Åé) dup stringwidth neg rmoveto show
/MSung-Light--B5-H *findfont [ 1 0 .3 1 0 0 ] makefont 20 scalefont setfont
100 250 moveto
(±×Åé Italic transformation) show
%
/MSung-Light--B5-H *findfont 20 scalefont setfont
150 400 moveto
(Sung Typeface §ºÅé) show
/MSung-Medium--B5-H *findfont 20 scalefont setfont
150 375 moveto
(Sung Medium Typeface ¤¤§ºÅé) show
/MHei-Medium--B5-H *findfont 20 scalefont setfont
150 350 moveto
(Hei Typeface ¶ÂÅé) show
/MKai-Medium--B5-H *findfont 20 scalefont setfont
150 325 moveto
(Kai Typeface ´{Åé) show
%
/Times-Roman findfont 13 scalefont setfont
50 200 moveto
(* Chinese translation of "Ghostscript" is merely associative \
characters of these meanings.) show
50 200 13 sub moveto
(In Traditional Chinese articles, customarily we use just \
"Ghostscript" as it is.) show
showpage
%%Trailer
%%EOF
|