summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/kanji/koutline.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/kanji/koutline.ps')
-rw-r--r--Master/tlpkg/tlgs/kanji/koutline.ps64
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