diff options
Diffstat (limited to 'examples/cjk/gscjk_ac.ps')
| -rw-r--r-- | examples/cjk/gscjk_ac.ps | 120 |
1 files changed, 120 insertions, 0 deletions
diff --git a/examples/cjk/gscjk_ac.ps b/examples/cjk/gscjk_ac.ps new file mode 100644 index 00000000..1ecbb036 --- /dev/null +++ b/examples/cjk/gscjk_ac.ps @@ -0,0 +1,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 Affero 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 +(靈筆中文繁體字直寫印刷) show +/MSung-Light--B5-H *findfont 25 scalefont setfont +50 600 moveto +(靈筆 Ghostscript) show +50 550 moveto +(中文繁體字 Traditional Chinese) show +50 500 moveto +(橫寫 horizontal writing) show +50 450 moveto +(印刷 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 |