diff options
Diffstat (limited to 'Master/tlpkg/tlgs/kanji/koutline.ps')
-rw-r--r-- | Master/tlpkg/tlgs/kanji/koutline.ps | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/Master/tlpkg/tlgs/kanji/koutline.ps b/Master/tlpkg/tlgs/kanji/koutline.ps new file mode 100644 index 00000000000..24eac7004e6 --- /dev/null +++ b/Master/tlpkg/tlgs/kanji/koutline.ps @@ -0,0 +1,64 @@ +% +% koutline.ps - define /outlinekanji operator +% +% Apr. 6,1992 Programmed by N.Katayama +% +% Akira Tanaka <akr@jaist.ac.jp> modified for gs4.03/VFlib support. 1996/10/17 +% Akira Tanaka <akr@jaist.ac.jp> modified for gs5.0/VFlib support. 1997/6/9 +% Akira Tanaka <akr@jaist.ac.jp> modified for gs5.10/VFlib support. 1998/4/7 + +% +% font_name unique_id font_info path_proc OUTLINEKANJI unique_id +% + +/outlinekanji { + 6 dict begin % fontname, uniqueid, fontinfo, pathproc, + % private and buildchar + + /pathproc exch def + /fontinfo exch def + /uniqueid exch def + /fontname exch def + + % Private dictionary + + /private 1 dict begin + /PathProc /pathproc load def + currentdict end def + + % Define BuildChar procedure + + /buildchar { + exch begin + Encoding exch get dup Private /MappingProc get exec + currentfont /WMode 2 copy known { get }{ pop pop 0 } ifelse + +% Akira Tanaka <akr@jaist.ac.jp> modified for bogus speedup. 1998/05/17 + %gsave + %2 copy Private /PathProc get exec + %{ flattenpath pathbbox } stopped { .clearerror 0 0 0 0 } if + %grestore + 0 -120 1000 880 + + 1000 0 6 2 roll 0 -1000 500 880 13 -1 roll setmetrics2 + Private /PathProc get exec + PaintType 0 eq + { eofill }{ + currentdict /StrokeWidth known + {StrokeWidth}{0} ifelse + setlinewidth stroke + } ifelse + end + } bind def + + % Define base fonts + + fontname uniqueid fontinfo private /buildchar load basekanji + /uniqueid exch def + + % Define composite fonts + + fontname fontinfo compositekanji + + uniqueid end +} def |