Merge remote-tracking branch 'origin/zyy' into zhangxueyang

XHWK.WKTool/LatticeXML/print_license.xml

@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!-- Generated by Anoto XML Writer 1.0 -->
+<licensecontainer version="2.0">
+  <license level="0" name="Segment 1536 Root A4" owner="Anoto" info="Copyright (c) 2009 Anoto AB, Sweden" type="Common B2B" afdguid="0" parentid="-1">
+    <page width="8512" height="8512"/>
+    <time expire="21091107" creation="20091107"/>
+    <user id="-1"/>
+    <pattern category="interactive">
+      <pageaddress start="1536.0.0.0" stop="1536.7883.72.107" pagesleft="9476568"/>
+    </pattern>
+    <permissions nbrof="3">
+      <permission id="0" value="1" name="sublicense"/>
+      <permission id="1" value="1" name="deallocate"/>
+      <permission id="2" value="1" name="print"/>
+    </permissions>
+    <signature value="d0c8511c1a3d64b0d4948a9c13d2e81612de4101a682082c9e37ebfb5d049c295684691066435815f6e1f3d727f180bf9229e9c9e66597d34c4cf2b0809ad1dfca0d5aa99030066eab6187baf84bc7d297c1ee613a005cb5c31494689fe4570a6f97ca2ba6fc19a61ea162ec2e816901104a095b49984b3b78486df1af6dc08d76c4cc7c6ead0d58c5b5df6e7989a296e7bc8eb8b30159b9838a332049af655044945747c3f0552fde5919f15f3440369671891d49b82068ce8c120ccd1918c84951fccfde974d6e2470cf82c30d76d0627f3731ff1a193467b9faaf8c538363164cc1fae95961ae8dfeced19f491bd70137b926986799c105a1668ae66fb52f"/>
+  </license>
+  <license level="4" name="mlms_note_class_line_1" owner="TStudy For T Study" info="" type="" afdguid="0" parentid="1536.688.29.105_3">
+    <page width="8512" height="8512"/>
+    <time expire="21090606" creation="20200902"/>
+    <user id="1"/>
+    <pattern category="consumer">
+      <pageaddress start="1536.688.35.70" stop="1536.688.37.53" pagesleft="200"/>
+    </pattern>
+    <permissions nbrof="3">
+      <permission id="0" value="1" name="sublicense"/>
+      <permission id="1" value="0" name="deallocate"/>
+      <permission id="2" value="1" name="print"/>
+    </permissions>
+    <signature value="ce5bc9509f7dd19c548ad8de943e9af733ef31d39c7d8451d636a609eaa3ba5a2446bbd228e3f3a591f1f2e82ba36962c6516229144857167da28e027ed8ed3d3adf284833472eace8c128e3bc4a6ec0cd12bf45f36db81b7bfc596585b0ae2a33dcf0bd7fec6795f6d4d11a1dd64ae58c8aa9db1bc76080bd9c643eb99cac48d120e6ecbf8fe0cd8fada19a317d58506e223c498c7b823bec5620733638580f584cb5beb8638b5013a0d78034120d65fbffb1ce4d1745c146d93fc509b11b895bc79fe7d670fe5a0be1fca38a478d6dd83fa4549c88e45d6ac01128c419a7f3562e9386a08ce720c6e9f1a1925fee476ff078c321bbfb81b775ce0d89cf4c8f"/>
+    <publickey exponent="e438ccff" modulus="f52cc2508730205da270e18a524d6ac52f1757c00a6ae29b89188f458cd109afa6054e6b6415b50b4ca4f433ac9c848c7449a0cc7c25d4754763c4e54b32fc5e65ba4b290e8fd0a005de01264597678ca68b66e8b1eb4668a5ad426877f6fbdd08357873ece61bee659329097d3d8e4d96619e00b46c9fbf4141bd71db2407b06ba5848b82e7c7abc48106ea377bfaed1021d5ca3aed5d6eafeaae390b1b51960e17e92584c164bde6b0788d85ef6465e3182853c190bfa6906168b73e948a51abf033c020aae0a67983dc9fca59c8449003751a8ee361d19760b9956e6b3191f847834484b5c08b65c9ff125f1692acd2b7d1f106d4242883260e3522555f87"/>
+  </license>
+</licensecontainer>

XHWK.WKTool/LatticeXML/print_license_A4_200.xml

@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!-- Generated by Anoto XML Writer 1.0 -->
+<licensecontainer version="2.0">
+  <license level="0" name="Segment 1536 Root A4" owner="Anoto" info="Copyright (c) 2009 Anoto AB, Sweden" type="Common B2B" afdguid="0" parentid="-1">
+    <page width="8512" height="8512"/>
+    <time expire="21091107" creation="20091107"/>
+    <user id="-1"/>
+    <pattern category="interactive">
+      <pageaddress start="1536.0.0.0" stop="1536.7883.72.107" pagesleft="9476568"/>
+    </pattern>
+    <permissions nbrof="3">
+      <permission id="0" value="1" name="sublicense"/>
+      <permission id="1" value="1" name="deallocate"/>
+      <permission id="2" value="1" name="print"/>
+    </permissions>
+    <signature value="d0c8511c1a3d64b0d4948a9c13d2e81612de4101a682082c9e37ebfb5d049c295684691066435815f6e1f3d727f180bf9229e9c9e66597d34c4cf2b0809ad1dfca0d5aa99030066eab6187baf84bc7d297c1ee613a005cb5c31494689fe4570a6f97ca2ba6fc19a61ea162ec2e816901104a095b49984b3b78486df1af6dc08d76c4cc7c6ead0d58c5b5df6e7989a296e7bc8eb8b30159b9838a332049af655044945747c3f0552fde5919f15f3440369671891d49b82068ce8c120ccd1918c84951fccfde974d6e2470cf82c30d76d0627f3731ff1a193467b9faaf8c538363164cc1fae95961ae8dfeced19f491bd70137b926986799c105a1668ae66fb52f"/>
+  </license>
+  <license level="4" name="mlms_note_class_line_1" owner="TStudy For T Study" info="" type="" afdguid="0" parentid="1536.688.29.105_3">
+    <page width="8512" height="8512"/>
+    <time expire="21090606" creation="20200902"/>
+    <user id="1"/>
+    <pattern category="consumer">
+      <pageaddress start="1536.688.35.70" stop="1536.688.37.53" pagesleft="200"/>
+    </pattern>
+    <permissions nbrof="3">
+      <permission id="0" value="1" name="sublicense"/>
+      <permission id="1" value="0" name="deallocate"/>
+      <permission id="2" value="1" name="print"/>
+    </permissions>
+    <signature value="ce5bc9509f7dd19c548ad8de943e9af733ef31d39c7d8451d636a609eaa3ba5a2446bbd228e3f3a591f1f2e82ba36962c6516229144857167da28e027ed8ed3d3adf284833472eace8c128e3bc4a6ec0cd12bf45f36db81b7bfc596585b0ae2a33dcf0bd7fec6795f6d4d11a1dd64ae58c8aa9db1bc76080bd9c643eb99cac48d120e6ecbf8fe0cd8fada19a317d58506e223c498c7b823bec5620733638580f584cb5beb8638b5013a0d78034120d65fbffb1ce4d1745c146d93fc509b11b895bc79fe7d670fe5a0be1fca38a478d6dd83fa4549c88e45d6ac01128c419a7f3562e9386a08ce720c6e9f1a1925fee476ff078c321bbfb81b775ce0d89cf4c8f"/>
+    <publickey exponent="e438ccff" modulus="f52cc2508730205da270e18a524d6ac52f1757c00a6ae29b89188f458cd109afa6054e6b6415b50b4ca4f433ac9c848c7449a0cc7c25d4754763c4e54b32fc5e65ba4b290e8fd0a005de01264597678ca68b66e8b1eb4668a5ad426877f6fbdd08357873ece61bee659329097d3d8e4d96619e00b46c9fbf4141bd71db2407b06ba5848b82e7c7abc48106ea377bfaed1021d5ca3aed5d6eafeaae390b1b51960e17e92584c164bde6b0788d85ef6465e3182853c190bfa6906168b73e948a51abf033c020aae0a67983dc9fca59c8449003751a8ee361d19760b9956e6b3191f847834484b5c08b65c9ff125f1692acd2b7d1f106d4242883260e3522555f87"/>
+  </license>
+</licensecontainer>

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/EndOfTask.ps

@@ -0,0 +1 @@
+

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/FAPIcidfmap

@@ -0,0 +1,32 @@
+%!
+% $Id: FAPIcidfmap 6826 2006-05-31 15:29:52Z leonardo $
+% This is a sample map file for FAPI CID fonts.
+
+%
+% The map is a set of records like this :
+%
+%  /CIDfont_name options_dict ;
+%
+% where options_dict is a dictionary with the following entries :
+%
+% Key         Type      Description  
+% Path        string    Absolute path to font file, or relative path to font file from
+%                       the GS_EXTFONTPATH value.  
+% CIDFontType interger  PostScript type for this CID font. Only 0 is currently allowed.
+%                       Note that this is unrelated to the real type of the font file -
+%                       the bridge will perform format conversion.
+% FAPI        name      Name of the renderer to be used with the font. Only /UFST is now allowed.
+% SubfontId   integer   (optional) Index of the font in font collection, such as FCO or TTC.
+%                       It is being ignored if /Path doesn't specify a collection.
+%                       Default value is 0.
+% CSI         array     Must have strongly 2 elements.
+%                       The first element of the array specifies Ordering of CIDSystemInfo.
+%                       The second element specifies Supplement of CIDSystemInfo.
+%
+% Use regular Postscript syntax.
+%
+% Examples :
+%
+%  /Ryumin-Medium     << /Path (msgothic.ttc) /CIDFontType 0 /FAPI /UFST /CSI [(Japan1) 2] >> ;
+%  /HeiseiKakuGo-W5   << /Path (F:/WIN2000/Fonts/BATANG.TTC) /CIDFontType 0 /FAPI /UFST /CSI [(Japan1) 2] >> ;
+

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/FAPIconfig

@@ -0,0 +1,14 @@
+%!
+% $Id: FAPIconfig 6870 2006-06-20 16:31:15Z leonardo $
+% This is configuration file for FAPI client.
+
+/FontPath             (/Fonts)     % A default directory for FAPI-handled font files path in FAPIfontmap.
+/CIDFontPath          (/CIDFonts)  % A default directory for FAPI-handled CID font files path in FAPIcidfmap.
+/HookDiskFonts        [1 2 9 11 42]  % FontType values for disk PS fonts to be redirected to FAPI.
+/HookEmbeddedFonts    [1 2 9 11 42]  % FontType values for embedded PS fonts to be redirected to FAPI.
+
+% Values allowed for HookDiskFonts and HookEmbeddedFonts are 1, 2, 9, 11, 42.
+% "Disk fonts" are fonts being installed to Ghostscript with 'lib/Fontmap' or with GS_FONTPATH,
+% and CID font resource files.
+% "Embedded fonts" are fonts and CID fonts being embedded into a document.
+

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/FAPIconfig-FCO

@@ -0,0 +1,14 @@
+%!
+% $Id: FAPIconfig-FCO 6998 2006-08-18 04:42:11Z ray $
+% This is configuration file for FAPI client.
+
+/FontPath             () % A default directory for FAPI-handled font files path in FAPIfontmap.
+/CIDFontPath          () % A default directory for FAPI-handled CID font files path in FAPIcidfmap.
+/HookDiskFonts        []  % FontType values for disk PS fonts to be redirected to FAPI.
+/HookEmbeddedFonts    []  % FontType values for embedded PS fonts to be redirected to FAPI.
+
+% Values allowed for HookDiskFonts and HookEmbeddedFonts are 1, 2, 9, 11, 42.
+% "Disk fonts" are fonts being installed to Ghostscript with 'lib/Fontmap' or with GS_FONTPATH,
+% and CID font resource files.
+% "Embedded fonts" are fonts and CID fonts being embedded into a document.
+

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/FAPIfontmap

@@ -0,0 +1,33 @@
+%!
+% $Id: FAPIfontmap 6870 2006-06-20 16:31:15Z leonardo $
+% This is a sample map file for FAPI fonts.
+
+%
+% The map is a set of records like this :
+%
+%  /font_name options_dict ;
+%
+% where options_dict is a dictionary with the following entries :
+%
+% Key       Type      Description  
+% Path      string    Absolute path to font file, or relative path to font file from
+%                     the GS_EXTFONTPATH value.  
+% FontType  interger  PostScript type for this font. Only 1 and 42 are currently allowed.
+%                     Note that this is unrelated to the real type of the font file -
+%                     the bridge will perform format conversion.
+% FAPI      name      Name of the renderer to be used with the font. Only /AgfaUFST is now allowed.
+% SubfontId integer   (optional) Index of the font in font collection, such as FCO or TTC.
+%                     It is being ignored if /Path doesn't specify a collection.
+%                     Default value is 0.
+% Decoding  name      (optional) The name of a Decoding resource to be used with the font.
+%                     If specified, "xlatmap" doesn't work for this font.
+%
+% Use regular Postscript syntax.
+%
+% Examples :
+%
+%  /ArialTT     << /Path (arial.ttf) /FontType 1 /FAPI /UFST >> ;
+%  /CourierTT   << /Path (F:/WIN2000/Fonts/cour.ttf) /FontType 1 /FAPI /UFST >> ;
+%  /FCO1        << /Path (F:/AFPL/ufst/fontdata/MTFONTS/PCLPS3/MT1/PCLP3__G.FCO) /FontType 42 /FAPI /UFST /SubfontId 10 >> ;
+%
+

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/FCOfontmap-PCLPS2

@@ -0,0 +1,107 @@
+%    Copyright (C) 2001, 2002 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: FCOfontmap-PCLPS2 8954 2008-08-08 04:22:38Z ray $
+
+% May add general FAPIfontmap records here like this :
+/Wingdings-Regular << /Path FCOfontfile2 /FontType 1 /FAPI /UFST /SubfontId 0 /Encoding /Wingdings /Decoding /FCO_Wingdings>> ;
+
+% Mapping Postscript fonts to pclp2_xj.fco FCO members :
+FCOfontfile ReadFCOfontmap:
+0     Albertus-Medium
+1     Albertus-ExtraBold
+2     AntiqueOlive
+3     AntiqueOlive-Italic
+4     AntiqueOlive-Bold
+5     Arial
+6     Arial-Italic
+7     Arial-Bold
+8     Arial-BoldItalic
+9     Clarendon-Condensed-Bold
+10    Coronet
+11    CourierHP
+12    CourierHP-Italic
+13    CourierHP-Bold
+14    CourierHP-BoldItalic
+15    Garamond-Antiqua
+16    Garamond-Kursiv
+17    Garamond-Halbfett
+18    Garamond-KursivHalbfett
+19    LetterGothic
+20    LetterGothic-Italic
+21    LetterGothic-Bold
+22    Marigold
+23    CGOmega
+24    CGOmega-Italic
+25    CGOmega-Bold
+26    CGOmega-BoldItalic
+27    SymbolMT  SymbolEncoding  FCO_Symbol
+28    CGTimes
+29    CGTimes-Italic
+30    CGTimes-Bold
+31    CGTimes-BoldItalic
+32    TimesNewRoman
+33    TimesNewRoman-Italic
+34    TimesNewRoman-Bold
+35    TimesNewRoman-BoldItalic
+36    UniversMedium
+37    UniversMedium-Italic
+38    Univers-Bold
+39    Univers-BoldItalic
+40    Univers-Condensed-Medium
+41    Univers-Condensed-MediumItalic
+42    Univers-Condensed-Bold
+43    Univers-Condensed-BoldItalic
+44    Courier-
+45    Courier-Italic
+46    Courier-Bold-
+47    Courier-BoldItalic
+48    AvantGarde-Book
+49    AvantGarde-BookOblique
+50    AvantGarde-Demi
+51    AvantGarde-DemiOblique
+52    Bookman-Light
+53    Bookman-LightItalic
+54    Bookman-Demi
+55    Bookman-DemiItalic
+56    Courier
+57    Courier-Oblique
+58    Courier-Bold
+59    Courier-BoldOblique
+60    Helvetica
+61    Helvetica-Oblique
+62    Helvetica-Bold
+63    Helvetica-BoldOblique
+64    Helvetica-Narrow
+65    Helvetica-Narrow-Oblique
+66    Helvetica-Narrow-Bold
+67    Helvetica-Narrow-BoldOblique
+68    NewCenturySchlbk-Roman
+69    NewCenturySchlbk-Italic
+70    NewCenturySchlbk-Bold
+71    NewCenturySchlbk-BoldItalic
+72    Palatino-Roman
+73    Palatino-Italic
+74    Palatino-Bold
+75    Palatino-BoldItalic
+76    Symbol  SymbolEncoding  FCO_Symbol
+77    Times-Roman
+78    Times-Italic
+79    Times-Bold
+80    Times-BoldItalic
+81    ZapfChancery-MediumItalic
+82    ZapfDingbats DingbatsEncoding FCO_Dingbats
+EndFCOfontmap
+%EOF

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/FCOfontmap-PCLPS3

@@ -0,0 +1,198 @@
+%    Copyright (C) 2001, 2002 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: FCOfontmap-PCLPS3 8269 2007-10-03 17:37:35Z ray $
+
+% May add general FAPIfontmap records here like this :
+/Wingdings-Regular << /Path FCOfontfile2 /FontType 1 /FAPI /UFST /SubfontId 0 /Encoding /Wingdings /Decoding /FCO_Wingdings>> ;
+
+% Mapping Postscript fonts to pclp2_xj.fco FCO members :
+FCOfontfile ReadFCOfontmap:
+0         Albertus-Medium
+1         Albertus-ExtraBold
+2         AntiqueOlive
+3         AntiqueOlive-Italic
+4         AntiqueOlive-Bold
+5         Arial
+6         Arial-Italic
+7         Arial-Bold
+8         Arial-BoldItalic
+9         Clarendon-Condensed-Bold
+10        Coronet
+11        CourierHP
+12        CourierHP-Italic
+13        CourierHP-Bold
+14        CourierHP-BoldItalic
+15        Garamond-Antiqua
+16        Garamond-Kursiv
+17        Garamond-Halbfett
+18        Garamond-KursivHalbfett
+19        LetterGothic
+20        LetterGothic-Italic
+21        LetterGothic-Bold
+22        Marigold
+23        CGOmega
+24        CGOmega-Italic
+25        CGOmega-Bold
+26        CGOmega-BoldItalic
+27        SymbolMT  SymbolEncoding  FCO_Symbol
+28        CGTimes
+29        CGTimes-Italic
+30        CGTimes-Bold
+31        CGTimes-BoldItalic
+32        TimesNewRoman
+33        TimesNewRoman-Italic
+34        TimesNewRoman-Bold
+35        TimesNewRoman-BoldItalic
+36        Univers-Medium
+37        Univers-MediumItalic
+38        Univers-Bold
+39        Univers-BoldItalic
+40        Univers-Condensed-Medium
+41        Univers-Condensed-MediumItalic
+42        Univers-Condensed-Bold
+43        Univers-Condensed-BoldItalic
+44        Courier
+45        Courier-Italic
+46        Courier-Bold
+47        Courier-BoldItalic
+48        AlbertusMT-Light
+49        AlbertusMT
+50        AlbertusMT-Italic
+51        AntiqueOlive-Roman
+52        AntiqueOlive-Italic
+53        AntiqueOlive-Bold
+54        AntiqueOlive-Compact
+55        AvantGarde-Book
+56        AvantGarde-BookOblique
+57        AvantGarde-Demi
+58        AvantGarde-DemiOblique
+59        Bodoni
+60        Bodoni-Italic
+61        Bodoni-Bold
+62        Bodoni-BoldItalic
+63        Bodoni-Poster
+64        Bodoni-PosterCompressed
+65        Bookman-Light
+66        Bookman-LightItalic
+67        Bookman-Demi
+68        Bookman-DemiItalic
+69        Candid
+70        Apple-Chancery
+71        Chicago
+72        Clarendon-Light
+73        Clarendon
+74        Clarendon-Bold
+75        CooperBlack
+76        CooperBlack-Italic
+77        Copperplate-ThirtyTwoBC
+78        Copperplate-ThirtyThreeBC
+79        Coronet-Regular
+80        Courier
+81        Courier-Oblique
+82        Courier-Bold
+83        Courier-BoldOblique
+84        Eurostile
+85        Eurostile-Bold
+86        Eurostile-ExtendedTwo
+87        Eurostile-BoldExtendedTwo
+88        StempelGaramond-Roman
+89        StempelGaramond-Italic
+90        StempelGaramond-Bold
+91        StempelGaramond-BoldItalic
+92        Geneva
+93        GillSans-Light
+94        GillSans-LightItalic
+95        GillSans
+96        GillSans-Italic
+97        GillSans-Bold
+98        GillSans-BoldItalic
+99        GillSans-ExtraBold
+100       GillSans-Condensed
+101       GillSans-BoldCondensed
+102       Goudy
+103       Goudy-Italic
+104       Goudy-Bold
+105       Goudy-BoldItalic
+106       Goudy-ExtraBold
+107       Helvetica-Condensed
+108       Helvetica-Condensed-Oblique
+109       Helvetica-Condensed-Bold
+110       Helvetica-Condensed-BoldObl
+111       Helvetica
+112       Helvetica-Oblique
+113       Helvetica-Bold
+114       Helvetica-BoldOblique
+115       Helvetica-Narrow
+116       Helvetica-Narrow-Oblique
+117       Helvetica-Narrow-Bold
+118       Helvetica-Narrow-BoldOblique
+119       HoeflerText-Regular
+120       HoeflerText-Italic
+121       HoeflerText-Black
+122       HoeflerText-BlackItalic
+123       HoeflerText-Ornaments
+124       JoannaMT
+125       JoannaMT-Italic
+126       JoannaMT-Bold
+127       JoannaMT-BoldItalic
+128       LetterGothic
+129       LetterGothic-Slanted
+130       LetterGothic-Bold
+131       LetterGothic-BoldSlanted
+132       LubalinGraph-Book
+133       LubalinGraph-BookOblique
+134       LubalinGraph-Demi
+135       LubalinGraph-DemiOblique
+136       Monaco
+137       MonaLisa-Recut
+138       NewYork
+139       NewCenturySchlbk-Roman
+140       NewCenturySchlbk-Italic
+141       NewCenturySchlbk-Bold
+142       NewCenturySchlbk-BoldItalic
+143       Optima
+144       Optima-Italic
+145       Optima-Bold
+146       Optima-BoldItalic
+147       Oxford
+148       Palatino-Roman
+149       Palatino-Italic
+150       Palatino-Bold
+151       Palatino-BoldItalic
+152    Symbol  SymbolEncoding  FCO_Symbol
+153       Taffy
+154       Times-Roman
+155       Times-Italic
+156       Times-Bold
+157       Times-BoldItalic
+158       Univers
+159       Univers-Oblique
+160       Univers-Bold
+161       Univers-BoldOblique
+162       Univers-Condensed
+163       Univers-CondensedOblique
+164       Univers-CondensedBold
+165       Univers-CondensedBoldOblique
+166       Univers-Light
+167       Univers-LightOblique
+168       Univers-Extended
+169       Univers-ExtendedObl
+170       Univers-BoldExt
+171       Univers-BoldExtObl
+172       ZapfChancery-MediumItalic
+173       ZapfDingbats DingbatsEncoding FCO_Dingbats
+EndFCOfontmap
+%EOF

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/FCOfontmap-PS3

@@ -0,0 +1,159 @@
+%    Copyright (C) 2001, 2002 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: FCOfontmap-PS3 8269 2007-10-03 17:37:35Z ray $
+
+% May add general FAPIfontmap records here like this :
+/Wingdings-Regular << /Path FCOfontfile2 /FontType 1 /FAPI /UFST /SubfontId 0 /Encoding /Wingdings /Decoding /FCO_Wingdings>> ;
+
+% Mapping Postscript fonts to ps3___xh.fco FCO members :
+FCOfontfile ReadFCOfontmap:
+0      AlbertusMT-Light
+1      AlbertusMT
+2      AlbertusMT-Italic
+3      AntiqueOlive-Roman
+4      AntiqueOlive-Italic
+5      AntiqueOlive-Bold
+6      AntiqueOlive-Compact
+7      ArialMT
+8      Arial-ItalicMT
+9      Arial-BoldMT
+10     Arial-BoldItalicMT
+11     AvantGarde-Book
+12     AvantGarde-BookOblique
+13     AvantGarde-Demi
+14     AvantGarde-DemiOblique
+15     Bodoni
+16     Bodoni-Italic
+17     Bodoni-Bold
+18     Bodoni-BoldItalic
+19     Bodoni-Poster
+20     Bodoni-PosterCompressed
+21     Bookman-Light
+22     Bookman-LightItalic
+23     Bookman-Demi
+24     Bookman-DemiItalic
+%   25     Candid       % Disabled due to unknown glyph names.
+26     Apple-Chancery
+27     Chicago
+28     Clarendon-Light
+29     Clarendon
+30     Clarendon-Bold
+31     CooperBlack
+32     CooperBlack-Italic
+33     Copperplate-ThirtyTwoBC
+34     Copperplate-ThirtyThreeBC
+35     Coronet-Regular
+36     Courier
+37     Courier-Oblique
+38     Courier-Bold
+39     Courier-BoldOblique
+40     Eurostile
+41     Eurostile-Bold
+42     Eurostile-ExtendedTwo
+43     Eurostile-BoldExtendedTwo
+44     StempelGaramond-Roman
+45     StempelGaramond-Italic
+46     StempelGaramond-Bold
+47     StempelGaramond-BoldItalic
+48     Geneva
+49     GillSans-Light
+50     GillSans-LightItalic
+51     GillSans
+52     GillSans-Italic
+53     GillSans-Bold
+54     GillSans-BoldItalic
+55     GillSans-ExtraBold
+56     GillSans-Condensed
+57     GillSans-BoldCondensed
+58     Goudy
+59     Goudy-Italic
+60     Goudy-Bold
+61     Goudy-BoldItalic
+62     Goudy-ExtraBold
+63     Helvetica-Condensed
+64     Helvetica-Condensed-Oblique
+65     Helvetica-Condensed-Bold
+66     Helvetica-Condensed-BoldObl
+67     Helvetica
+68     Helvetica-Oblique
+69     Helvetica-Bold
+70     Helvetica-BoldOblique
+71     Helvetica-Narrow
+72     Helvetica-Narrow-Oblique
+73     Helvetica-Narrow-Bold
+74     Helvetica-Narrow-BdOblique
+75     HoeflerText-Regular
+76     HoeflerText-Italic
+77     HoeflerText-Black
+78     HoeflerText-BlackItalic
+79     HoeflerText-Ornaments
+80     JoannaMT
+81     JoannaMT-Italic
+82     JoannaMT-Bold
+83     JoannaMT-BoldItalic
+84     LetterGothic
+85     LetterGothic-Slanted
+86     LetterGothic-Bold
+87     LetterGothic-BoldSlanted
+88     LubalinGraph-Book
+89     LubalinGraph-BookOblique
+90     LubalinGraph-Demi
+91     LubalinGraph-DemiOblique
+92     Marigold
+93     Monaco
+94     MonaLisa-Recut
+95     NewYork
+96     NewCenturySchlbk-Roman
+97     NewCenturySchlbk-Italic
+98     NewCenturySchlbk-Bold
+99     NewCenturySchlbk-BoldItalic
+100    Optima
+101    Optima-Italic
+102    Optima-Bold
+103    Optima-BoldItalic
+104    Oxford
+105    Palatino-Roman
+106    Palatino-Italic
+107    Palatino-Bold
+108    Palatino-BoldItalic
+109    Symbol  SymbolEncoding  FCO_Symbol
+110    Taffy
+111    Times-Roman
+112    Times-Italic
+113    Times-Bold
+114    Times-BoldItalic
+115    TimesNewRomanPSMT
+116    TimesNewRomanPS-ItalicMT
+117    TimesNewRomanPS-BoldMT
+118    TimesNewRomanPS-BdItMT
+119    Univers
+120    Univers-Oblique
+121    Univers-Bold
+122    Univers-BoldOblique
+123    Univers-Condensed
+124    Univers-CondensedOblique
+125    Univers-CondensedBold
+126    Univers-CondensedBdOblique
+127    Univers-Light
+128    Univers-LightOblique
+129    Univers-Extended
+130    Univers-ExtendedObl
+131    Univers-BoldExt
+132    Univers-BoldExtObl
+133    ZapfChancery-MediumItalic
+134    ZapfDingbats DingbatsEncoding FCO_Dingbats
+EndFCOfontmap
+%EOF

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/Fontmap

@@ -0,0 +1,4 @@
+%!
+% See Fontmap.GS for the syntax of real Fontmap files.
+%% Replace 1 (Fontmap.GS)
+(Fontmap.GS) .runlibfile

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/Fontmap.ATB

@@ -0,0 +1,168 @@
+%    Copyright (C) 1994 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: Fontmap.ATB 6300 2005-12-28 19:56:24Z giles $
+% Fontmap.ATB - an alternative Fontmap for Ghostscript,
+% suitable for use with the 65 Adobe Type Manager fonts 
+% supplied with Adobe Type Basics.
+
+% Before you use ATM fonts with Ghostscript, please read carefully
+% the license that accompanies the ATM fonts; neither Aladdin Enterprises
+% nor any other distributor of Ghostscript takes any responsibility for
+% any possible violations of such licenses.
+
+% The 65 Adobe Type Basics ATM fonts
+
+%disk 1
+/Bookman-Light			(bkl_____.pfb)	;
+/Bookman-Demi			(bkd_____.pfb)	;
+/Bookman-DemiItalic		(bkdi____.pfb)	;
+/Bookman-LightItalic		(bkli____.pfb)	;
+/Courier			(com_____.pfb)	;
+/Courier-Bold			(cob_____.pfb)	;
+/Courier-BoldOblique		(cobo____.pfb)	;
+/Courier-Oblique		(coo_____.pfb)	;
+/Helvetica			(hv______.pfb)	;
+/Helvetica-Bold			(hvb_____.pfb)	;
+/Helvetica-BoldOblique		(hvbo____.pfb)	;
+/Helvetica-Oblique		(hvo_____.pfb)	;
+/Helvetica-Narrow		(hvn_____.pfb)	;
+/Helvetica-Narrow-Bold		(hvnb____.pfb)	;
+/Helvetica-Narrow-BoldOblique	(hvnbo___.pfb)	;
+/Helvetica-Narrow-Oblique	(hvno____.pfb)	;
+/Palatino-Roman			(por_____.pfb)	;
+/Palatino-Bold			(pob_____.pfb)	;
+/Palatino-BoldItalic		(pobi____.pfb)	;
+/Palatino-Italic		(poi_____.pfb)	;
+/Symbol				(sy______.pfb)	;
+/Times-Roman			(tir_____.pfb)	;
+/Times-Bold			(tib_____.pfb)	;
+/Times-BoldItalic		(tibi____.pfb)	;
+/Times-Italic			(tii_____.pfb)	;
+
+% disk2
+/AGaramond-Regular		(gdrg____.pfb)	;
+/AGaramond-Italic		(gdi_____.pfb)	;
+/AGaramond-Bold			(gdb_____.pfb)	;
+/AGaramond-BoldItalic		(gdbi____.pfb)	;
+/Americana			(am______.pfb)	;
+/Americana-ExtraBold		(ameb____.pfb)	;
+/AvantGarde-Book		(agw_____.pfb)	;
+/AvantGarde-Demi		(agd_____.pfb)	;
+/AvantGarde-DemiOblique		(agdo____.pfb)	;
+/AvantGarde-BookOblique		(agwo____.pfb)	;
+/Carta				(cr______.pfb)	;
+/Kaufmann			(kf______.pfb)	;
+/Lithos-Regular			(lorg____.pfb)	;
+/Lithos-Black			(lobl____.pfb)	;
+/NewCenturySchlbk-Roman		(ncr_____.pfb)	;
+/NewCenturySchlbk-Bold		(ncb_____.pfb)	;
+/NewCenturySchlbk-BoldItalic	(ncbi____.pfb)	;
+/NewCenturySchlbk-Italic	(nci_____.pfb)	;
+/Parisian			(pn______.pfb)	;
+/ParkAvenue			(pa______.pfb)	;
+/Tekton				(tkrg____.pfb)	;
+/Tekton-Bold			(tkb_____.pfb)	;
+/Trajan-Bold			(tjb_____.pfb)	;
+/ZapfChancery-MediumItalic	(zcmi____.pfb)	;
+/ZapfDingbats			(zd______.pfb)	;
+
+%disk 3
+/ACaslon-Regular		(awrg____.pfb)	;
+/ACaslon-Semibold		(awsb____.pfb)	;
+/ACaslon-SemiboldItalic		(awsbi___.pfb)	;
+/ACaslon-Italic			(awi_____.pfb)	;
+/Barmeno-Regular		(bfrg____.pfb)	;
+/Barmeno-Medium			(bfm_____.pfb)	;
+/Barmeno-Bold			(bfb_____.pfb)	;
+/Barmeno-ExtraBold		(bfeb____.pfb)	;
+/Blackoak			(bo______.pfb)	;
+/Formata-Regular		(fmrg____.pfb)	;
+/Formata-Medium			(fmm_____.pfb)	;
+/Formata-MediumItalic		(fmmi____.pfb)	;
+/Formata-Italic			(fmi_____.pfb)	;
+/Poetica-SuppOrnaments		(pvor____.pfb)	;
+/WoodtypeOrnaments-Two		(woor2___.pfb)	;
+
+
+% Fonts converted from bitmaps.
+
+/Charter-Roman			(bchr.gsf)	;
+/Charter-Italic			(bchri.gsf)	;
+/Charter-Bold			(bchb.gsf)	;
+/Charter-BoldItalic		(bchbi.gsf)	;
+
+/ZapfChancery			(zcr.gsf)	;
+/ZapfChancery-Oblique		(zcro.gsf)	;
+/ZapfChancery-Bold		(zcb.gsf)	;
+
+% Fonts from the X11R5 distribution.
+
+/Utopia-Regular		(putr.gsf)	;
+/Utopia-Italic		(putri.gsf)	;
+/Utopia-Bold		(putb.gsf)	;
+/Utopia-BoldItalic	(putbi.gsf)	;
+
+% Shareware fonts.  See FONTMAP.GS for the copyright statements.
+
+/Shareware-Cyrillic-Regular	(fcyr.gsf)	;
+/Shareware-Cyrillic-Italic	(fcyri.gsf)	;
+% Aliases
+/Cyrillic			/Cyrillic-Regular	;
+/Cyrillic-Regular		/Shareware-Cyrillic-Regular	;
+/Cyrillic-Italic		/Shareware-Cyrillic-Italic	;
+
+/Calligraphic-Hiragana		(fhirw.gsf)	;
+/Calligraphic-Katakana		(fkarw.gsf)	;
+
+% Fonts converted from Hershey outlines.
+
+/Hershey-Gothic-English		(hrge_r.gsf)	4290000 ;
+/Hershey-Gothic-English-Bold	(hrge_rb.gsf)	4290030 ;
+/Hershey-Gothic-English-Oblique	(hrge_ro.gsf)	4290010 ;
+
+/Hershey-Gothic-German		(hrgr_r.gsf)	4291000 ;
+/Hershey-Gothic-German-Bold	(hrgr_rb.gsf)	4291030 ;
+/Hershey-Gothic-German-Oblique	(hrgr_ro.gsf)	4291010 ;
+
+/Hershey-Gothic-Italian		(hrit_r.gsf)	4292000 ; 
+/Hershey-Gothic-Italian-Bold	(hrit_rb.gsf)	4292030 ;
+/Hershey-Gothic-Italian-Oblique	(hrit_ro.gsf)	4292010 ;
+
+/Hershey-Greek-Complex		(hrgk_c.gsf)	4293200 ;
+/Hershey-Greek-Simplex		(hrgk_s.gsf)	4293100 ;
+
+/Hershey-Plain			(hrpl_r.gsf)	4294000 ;
+/Hershey-Plain-Bold		(hrpl_rb.gsf)	4294030 ;
+/Hershey-Plain-Oblique		(hrpl_ro.gsf)	4294010 ;
+/Hershey-Plain-Simplex		(hrpl_s.gsf)	4294100 ;
+/Hershey-Plain-Simplex-Bold	(hrpl_sb.gsf)	4294130 ;
+/Hershey-Plain-Simplex-Bold-Oblique (hrpl_sbo.gsf) 4294140 ;
+/Hershey-Plain-Simplex-Oblique	(hrpl_so.gsf)	4294110 ;
+/Hershey-Plain-Triplex		(hrpl_t.gsf)	4294300 ;
+/Hershey-Plain-Triplex-Italic	(hrpl_ti.gsf)	4294320 ;
+/Hershey-Plain-Triplex-Bold	(hrpl_tb.gsf)	4294330 ;
+/Hershey-Plain-Triplex-Bold-Italic (hrpl_tbi.gsf) 4294350 ;
+
+/Hershey-Script-Complex		(hrsc_c.gsf)	4295200 ;
+/Hershey-Script-Complex-Bold	(hrsc_cb.gsf)	4295230 ;
+/Hershey-Script-Complex-Oblique	(hrsc_co.gsf)	4295210 ;
+/Hershey-Script-Simplex		(hrsc_s.gsf)	4295100 ;
+/Hershey-Script-Simplex-Bold	(hrsc_sb.gsf)	4295130 ;
+/Hershey-Script-Simplex-Oblique	(hrsc_so.gsf)	4295110 ;
+
+% This font, and only this font among the Hershey fonts, uses
+% the SymbolEncoding.
+/Hershey-Symbol			(hrsy_r.gsf)	4296000 ;

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/Fontmap.ATM

@@ -0,0 +1,185 @@
+%    Copyright (C) 1990, 1992, 1994, 1996 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: Fontmap.ATM 6300 2005-12-28 19:56:24Z giles $
+% Fontmap.ATM - an alternative Fontmap for Ghostscript,
+% suitable for use with Adobe Type Manager fonts.
+
+% Before you use ATM fonts with Ghostscript, please read carefully
+% the license that accompanies the ATM fonts; neither Aladdin Enterprises
+% nor any other distributor of Ghostscript takes any responsibility for
+% any possible violations of such licenses.
+
+% 
+%
+% Fonts contributed by:
+%	URW++ Design and Development Incorporated
+%	Poppenbuetteler Bogen 29A
+%	D-22399 Hamburg
+%	Germany
+%	tel. +49 (40) 60 60 50
+%	fax +49 (40) 60 60 51 11
+%	http://www.urwpp.de
+% for distribution under the GNU License and Aladdin Free Public License.
+% See the notice at the head of this Fontmap file for licensing terms.
+% Each of these fonts is individually covered by the license:
+% for licensing purposes, they are not "part of" any larger entity.
+% The following notice applies to these fonts:
+%
+%	Copyright URW Software, Copyright 1994 by URW.
+%
+
+% Actual fonts
+
+/URWBookmanL-DemiBold	(b018015l.pfb)	;
+/URWBookmanL-DemiBoldItal	(b018035l.pfb)	;
+/URWBookmanL-Ligh	(b018012l.pfb)	;
+/URWBookmanL-LighItal	(b018032l.pfb)	;
+
+/NimbusMonL-Regu	(n022003l.pfb)	;
+/NimbusMonL-ReguObli	(n022023l.pfb)	;
+/NimbusMonL-Bold	(n022004l.pfb)	;
+/NimbusMonL-BoldObli	(n022024l.pfb)	;
+
+/URWGothicL-Book	(a010013l.pfb)	;
+/URWGothicL-BookObli	(a010033l.pfb)	;
+/URWGothicL-Demi	(a010015l.pfb)	;
+/URWGothicL-DemiObli	(a010035l.pfb)	;
+
+/NimbusSanL-Regu	(n019003l.pfb)	;
+/NimbusSanL-ReguItal	(n019023l.pfb)	;
+/NimbusSanL-Bold	(n019004l.pfb)	;
+/NimbusSanL-BoldItal	(n019024l.pfb)	;
+
+/NimbusSanL-ReguCond	(n019043l.pfb)	;
+/NimbusSanL-ReguCondItal	(n019063l.pfb)	;
+/NimbusSanL-BoldCond	(n019044l.pfb)	;
+/NimbusSanL-BoldCondItal	(n019064l.pfb)	;
+
+/URWPalladioL-Roma	(p052003l.pfb)	;
+/URWPalladioL-Ital	(p052023l.pfb)	;
+/URWPalladioL-Bold	(p052004l.pfb)	;
+/URWPalladioL-BoldItal	(p052024l.pfb)	;
+
+/CenturySchL-Roma	(c059013l.pfb)	;
+/CenturySchL-Ital	(c059033l.pfb)	;
+/CenturySchL-Bold	(c059016l.pfb)	;
+/CenturySchL-BoldItal	(c059036l.pfb)	;
+
+/NimbusRomNo9L-Regu	(n021003l.pfb)	;
+/NimbusRomNo9L-ReguItal	(n021023l.pfb)	;
+/NimbusRomNo9L-Medi	(n021004l.pfb)	;
+/NimbusRomNo9L-MediItal	(n021024l.pfb)	;
+
+/StandardSymL	(s050000l.pfb)	;
+
+/URWChanceryL-MediItal	(z003034l.pfb)	;
+
+/Dingbats	(d050000l.pfb)	;
+
+% Aliases
+
+/Bookman-Demi			/URWBookmanL-DemiBold	;
+/Bookman-DemiItalic		/URWBookmanL-DemiBoldItal	;
+/Bookman-Light			/URWBookmanL-Ligh	;
+/Bookman-LightItalic		/URWBookmanL-LighItal	;
+
+/Courier			/NimbusMonL-Regu	;
+/Courier-Oblique		/NimbusMonL-ReguObli	;
+/Courier-Bold			/NimbusMonL-Bold	;
+/Courier-BoldOblique		/NimbusMonL-BoldObli	;
+
+/AvantGarde-Book		/URWGothicL-Book	;
+/AvantGarde-BookOblique		/URWGothicL-BookObli	;
+/AvantGarde-Demi		/URWGothicL-Demi	;
+/AvantGarde-DemiOblique		/URWGothicL-DemiObli	;
+
+/Helvetica			/NimbusSanL-Regu	;
+/Helvetica-Oblique		/NimbusSanL-ReguItal	;
+/Helvetica-Bold			/NimbusSanL-Bold	;
+/Helvetica-BoldOblique		/NimbusSanL-BoldItal	;
+
+/Helvetica-Narrow		/NimbusSanL-ReguCond	;
+/Helvetica-Narrow-Oblique	/NimbusSanL-ReguCondItal	;
+/Helvetica-Narrow-Bold		/NimbusSanL-BoldCond	;
+/Helvetica-Narrow-BoldOblique	/NimbusSanL-BoldCondItal	;
+
+/Palatino-Roman			/URWPalladioL-Roma	;
+/Palatino-Italic		/URWPalladioL-Ital	;
+/Palatino-Bold			/URWPalladioL-Bold	;
+/Palatino-BoldItalic		/URWPalladioL-BoldItal	;
+
+/NewCenturySchlbk-Roman		/CenturySchL-Roma	;
+/NewCenturySchlbk-Italic	/CenturySchL-Ital	;
+/NewCenturySchlbk-Bold		/CenturySchL-Bold	;
+/NewCenturySchlbk-BoldItalic	/CenturySchL-BoldItal	;
+
+/Times-Roman			/NimbusRomNo9L-Regu	;
+/Times-Italic			/NimbusRomNo9L-ReguItal	;
+/Times-Bold			/NimbusRomNo9L-Medi	;
+/Times-BoldItalic		/NimbusRomNo9L-MediItal	;
+
+/Symbol				/StandardSymL	;
+
+/ZapfChancery-MediumItalic	/URWChanceryL-MediItal	;
+
+/ZapfDingbats			/Dingbats	;
+
+
+% ATM fonts.
+
+/Courier			(com_____.pfb)	;
+/Courier-Oblique		(coo_____.pfb)	;
+/Courier-Bold			(cob_____.pfb)	;
+/Courier-BoldOblique		(cobo____.pfb)	;
+
+/Helvetica			(hv______.pfb)	;
+/Helvetica-Oblique		(hvo_____.pfb)	;
+/Helvetica-Bold			(hvb_____.pfb)	;
+/Helvetica-BoldOblique		(hvbo____.pfb)	;
+
+/Symbol				(sy______.pfb)	;
+
+/Times-Roman			(tir_____.pfb)	;
+/Times-Italic			(tii_____.pfb)	;
+/Times-Bold			(tib_____.pfb)	;
+/Times-BoldItalic		(tibi____.pfb)	;
+
+
+% More fonts from Adobe Type Manager for MS Windows.
+
+/TektonMM                               (zjrg____.pfb)  ;
+
+/Boulevard				(qtrg____.pfb)  ;
+/Anna					(iarg____.pfb)  ;
+
+/PopplLaudatio-Regular			(pyrg____.pfb)  ;
+/PopplLaudatio-Medium			(pym_____.pfb)  ;
+/PopplLaudatio-Italic			(pyi_____.pfb)  ;
+/PopplLaudatio-MediumItalic		(pymi____.pfb)  ;
+
+/Boton-Regular				(tnr_____.pfb)  ;
+/Boton-Medium				(tnm_____.pfb)  ;
+/Boton-Italic				(tni_____.pfb)  ;
+/Boton-MediumItalic			(tnmi____.pfb)  ;
+
+/BaskervilleBE-Regular			(virg____.pfb)  ;
+/BaskervilleBE-Medium			(vim_____.pfb)  ;
+/BaskervilleBE-Italic			(vii_____.pfb)  ;
+/BaskervilleBE-MediumItalic		(vimi____.pfb)  ;
+
+/Giddyup				(wg______.pfb)  ;
+/Giddyup-Thangs				(wgtha___.pfb)  ;
+

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/Fontmap.GS

@@ -0,0 +1,354 @@
+% Copyright (C) 1996, 1999 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: Fontmap.GS 8978 2008-08-12 23:44:53Z ray $
+% Fontmap - standard font catalog for Ghostscript.
+
+% ----------------------------------------------------------------
+
+% This file is a catalog of fonts known to Ghostscript.  Any font
+% that is to be loaded automatically when named must be in this catalog,
+% except for fonts that Ghostscript finds automatically in directories
+% named in the GS_FONTPATH environment variable.
+
+% Each font has an entry consisting of three items:
+%
+%	- The name by which the font is known inside Ghostscript
+%	(a Ghostscript name preceded by a `/', or a string enclosed
+%	in parentheses).  This is used to find the file from which
+%	a font of a given name should be loaded.
+%
+%	- Information depending on whether this is a real font or a
+%	font alias:
+%
+%		- For real fonts, the name of the Ghostscript font
+%		file (a Ghostscript string, enclosed in parentheses).
+%		The filename should include the extension, which (by
+%		convention) is `.gsf'.  `.pfa' and `.pfb' files are
+%		also usable as fonts for Ghostscript.
+%
+%		- For font aliases, the name of the font which should
+%		be used when this one is requested, preceded by a
+%		`/'.  See the entry for Charter below for an example.
+%		Note that an alias name cannot be enclosed in parentheses.
+%
+%	- At least one space or tab, and a terminating semicolon.
+
+% The following table is executed as a PostScript file.
+% If you add new entries, be sure to copy the punctuation accurately;
+% in particular, you must leave at least one space or tab between each
+% field in the entry.  Also, please read fonts.doc for important information
+% about font names.
+
+% PDF interpreter evaluates hexadecimal escapes in PDF font names before
+% looking up the font. When the resulting name cannot be represented using
+% PostScript name syntax, the string can be used instead of the name.
+
+% Note that .pfa and .pfb fonts are compatible with Adobe Type Manager
+% and other programs that don't include full PostScript interpreters,
+% as well as with PostScript interpreters; .gsf fonts are compatible with
+% PostScript interpreters, but not with ATM or similar programs.
+
+% 
+%
+% Fonts contributed by:
+%	URW++ Design and Development Incorporated
+%	Poppenbuetteler Bogen 29A
+%	D-22399 Hamburg
+%	Germany
+%	tel. +49 (40) 60 60 50
+%	fax +49 (40) 60 60 51 11
+%	http://www.urwpp.de
+% for distribution under the GNU License and Aladdin Free Public License.
+% See the notice at the head of this Fontmap file for licensing terms.
+% Each of these fonts is individually covered by the license:
+% for licensing purposes, they are not "part of" any larger entity.
+% The following notice applies to these fonts:
+%
+%	Copyright URW Software, Copyright 1994 by URW.
+%
+
+% Aliases
+
+/Bookman-Demi			/URWBookmanL-DemiBold	;
+/Bookman-DemiItalic		/URWBookmanL-DemiBoldItal	;
+/Bookman-Light			/URWBookmanL-Ligh	;
+/Bookman-LightItalic		/URWBookmanL-LighItal	;
+
+/Courier			/NimbusMonL-Regu	;
+/Courier-Oblique		/NimbusMonL-ReguObli	;
+/Courier-Bold			/NimbusMonL-Bold	;
+/Courier-BoldOblique		/NimbusMonL-BoldObli	;
+
+/AvantGarde-Book		/URWGothicL-Book	;
+/AvantGarde-BookOblique		/URWGothicL-BookObli	;
+/AvantGarde-Demi		/URWGothicL-Demi	;
+/AvantGarde-DemiOblique		/URWGothicL-DemiObli	;
+
+/Helvetica			/NimbusSanL-Regu	;
+/Helvetica-Oblique		/NimbusSanL-ReguItal	;
+/Helvetica-Bold			/NimbusSanL-Bold	;
+/Helvetica-BoldOblique		/NimbusSanL-BoldItal	;
+
+/Helvetica-Narrow		/NimbusSanL-ReguCond	;
+/Helvetica-Narrow-Oblique	/NimbusSanL-ReguCondItal	;
+/Helvetica-Narrow-Bold		/NimbusSanL-BoldCond	;
+/Helvetica-Narrow-BoldOblique	/NimbusSanL-BoldCondItal	;
+
+/Palatino-Roman			/URWPalladioL-Roma	;
+/Palatino-Italic		/URWPalladioL-Ital	;
+/Palatino-Bold			/URWPalladioL-Bold	;
+/Palatino-BoldItalic		/URWPalladioL-BoldItal	;
+
+/NewCenturySchlbk-Roman		/CenturySchL-Roma	;
+/NewCenturySchlbk-Italic	/CenturySchL-Ital	;
+/NewCenturySchlbk-Bold		/CenturySchL-Bold	;
+/NewCenturySchlbk-BoldItalic	/CenturySchL-BoldItal	;
+
+/Times-Roman			/NimbusRomNo9L-Regu	;
+/Times-Italic			/NimbusRomNo9L-ReguItal	;
+/Times-Bold			/NimbusRomNo9L-Medi	;
+/Times-BoldItalic		/NimbusRomNo9L-MediItal	;
+
+/Symbol				/StandardSymL	;
+
+/ZapfChancery-MediumItalic	/URWChanceryL-MediItal	;
+
+/ZapfDingbats			/Dingbats	;
+
+% 
+%
+% Type 1 fonts contributed to the X11R5 distribution.
+%
+
+% The following notice accompanied the Charter fonts.
+%
+% (c) Copyright 1989-1992, Bitstream Inc., Cambridge, MA.
+%
+% You are hereby granted permission under all Bitstream propriety rights
+% to use, copy, modify, sublicense, sell, and redistribute the 4 Bitstream
+% Charter (r) Type 1 outline fonts and the 4 Courier Type 1 outline fonts
+% for any purpose and without restriction; provided, that this notice is
+% left intact on all copies of such fonts and that Bitstream's trademark
+% is acknowledged as shown below on all unmodified copies of the 4 Charter
+% Type 1 fonts.
+%
+% BITSTREAM CHARTER is a registered trademark of Bitstream Inc.
+
+/CharterBT-Roman		(bchr.pfa)	;
+/CharterBT-Italic		(bchri.pfa)	;
+/CharterBT-Bold			(bchb.pfa)	;
+/CharterBT-BoldItalic		(bchbi.pfa)	;
+
+% Aliases
+
+/Charter-Roman			/CharterBT-Roman	;
+/Charter-Italic			/CharterBT-Italic	;
+/Charter-Bold			/CharterBT-Bold		;
+/Charter-BoldItalic		/CharterBT-BoldItalic	;
+
+% The following notice accompanied the Utopia font:
+%
+%   Permission to use, reproduce, display and distribute the listed
+%   typefaces is hereby granted, provided that the Adobe Copyright notice
+%   appears in all whole and partial copies of the software and that the
+%   following trademark symbol and attribution appear in all unmodified
+%   copies of the software:
+%
+%           Copyright (c) 1989 Adobe Systems Incorporated
+%           Utopia (R)
+%           Utopia is a registered trademark of Adobe Systems Incorporated
+%
+%   The Adobe typefaces (Type 1 font program, bitmaps and Adobe Font
+%   Metric files) donated are:
+%
+%           Utopia Regular
+%           Utopia Italic
+%           Utopia Bold
+%           Utopia Bold Italic
+
+/Utopia-Regular		(putr.pfa)	;
+/Utopia-Italic		(putri.pfa)	;
+/Utopia-Bold		(putb.pfa)	;
+/Utopia-BoldItalic	(putbi.pfa)	;
+
+% 
+%
+% Fonts contributed by URW GmbH for distribution under the GNU License.
+% The following notice accompanied these fonts:
+%
+% U004006T URW Grotesk 2031 Bold PostScript Type 1 Font Program
+% U003043T URW Antiqua 2051 Regular Condensed PostScript Type 1 Font Program
+%
+% Copyright (c) 1992 URW GmbH, Hamburg, Germany
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation; either version 2 of the License, or
+% (at your option) later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; wihtout even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+% See the GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this program; if not, write to the Free Software
+% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 U.S.A.
+%
+% Address:
+% URW GmbH
+% PC Support
+% Harksheider Strasse 102
+% 2000 Hamburg 65
+% Germany
+% Phone: +49 40 60 60 50       (Reception)
+% Phone: +49 40 60 60 52 30   (PC Support)
+% Fax    : +49 40 60 60 52 52
+%
+
+/URWAntiquaT-RegularCondensed	(u003043t.gsf)	;
+/URWGroteskT-Bold		(u004006t.gsf)	;
+
+% 
+%
+% Calligraphic Kana fonts.  These are distributed under the OFL 1.1:
+%
+% Copyright (c) 1993, Kevin Hartig (kevin.hartig@gmail.com),
+% with Reserved Font Name Calligraphic-Hiragana and Calligraphic-Katakana.
+% This Font Software is licensed under the SIL Open Font License, Version 1.1.
+% This license is available with an FAQ at:  http://scripts.sil.org/OFL
+
+% Hiragana and Katakana fonts.  The character names are inappropriate,
+% and the encoding is probably not related to any known standard.
+
+/Calligraphic-Hiragana		(fhirw.gsf)	;
+/Calligraphic-Katakana		(fkarw.gsf)	;
+
+% 
+%
+% Public-domain fonts.  These have no copyright, and are of unknown quality.
+
+% Cyrillic fonts.  The character names are inappropriate,
+% and the encoding is probably not related to any known standard.
+
+/Shareware-Cyrillic-Regular	(fcyr.gsf)	;
+/Shareware-Cyrillic-Italic	(fcyri.gsf)	;
+
+% Aliases
+/Cyrillic			/Cyrillic-Regular	;
+/Cyrillic-Regular		/Shareware-Cyrillic-Regular	;
+/Cyrillic-Italic		/Shareware-Cyrillic-Italic	;
+
+% 
+%
+% Fonts converted from Hershey outlines.  These are constructed and
+% maintained manually.  These are also in the public domain.
+%
+% The suggested UniqueID's and filenames are constructed differently for
+% these than for the ones above, because of the strange way that the Hershey
+% fonts were constructed.  The scheme for these looks like:
+%
+% 42TTXY0
+%
+% TT = typeface, X = ``class'', Y = variation
+%
+% The typeface names and numbers are listed in fonts.mak.
+%
+% class:
+% 0 = normal			= r
+% 1 = simplex			= s
+% 2 = complex			= c
+% 3 = triplex			= t
+% 4 = duplex			= d
+%
+% variation:
+% 0 = normal			(omitted)
+% 1 = oblique			= o
+% 2 = italic			= i
+% 3 = bold			= b
+% 4 = bold oblique		= bo
+% 5 = bold italic		= bi
+%
+
+% Fonts created by Thomas Wolff <wolff@inf.fu-berlin.de>, by adding
+% accents, accented characters, and various other non-alphabetics
+% to the original Hershey fonts.  These are "freeware", not to be sold.
+
+/Hershey-Gothic-English		(hrger.pfa)	;	% 5066533
+/Hershey-Gothic-German		(hrgrr.pfa)	;
+/Hershey-Gothic-Italian		(hritr.pfa)	; 
+
+/Hershey-Plain-Duplex		(hrpld.pfa)	;
+/Hershey-Plain-Duplex-Italic	(hrpldi.pfa)	;
+/Hershey-Plain-Triplex		(hrplt.pfa)	;
+/Hershey-Plain-Triplex-Italic	(hrplti.pfa)	;
+
+/Hershey-Script-Complex		(hrscc.pfa)	;
+/Hershey-Script-Simplex		(hrscs.pfa)	;	% 5066541
+
+% Fonts created algorithmically from the above.
+
+/Hershey-Gothic-English-Bold		(hrgerb.gsf)	;	% 5066542
+/Hershey-Gothic-English-Oblique		(hrgero.gsf)	;
+/Hershey-Gothic-English-SemiBold	(hrgerd.gsf)	;
+/Hershey-Gothic-German-Bold		(hrgrrb.gsf)	;
+/Hershey-Gothic-German-Oblique		(hrgrro.gsf)	;
+/Hershey-Gothic-Italian-Bold		(hritrb.gsf)	;
+/Hershey-Gothic-Italian-Oblique		(hritro.gsf)	;
+
+/Hershey-Plain-Duplex-Bold		(hrpldb.gsf)	;
+/Hershey-Plain-Duplex-Bold-Italic	(hrpldbi.gsf)	;
+/Hershey-Plain-Triplex-Bold		(hrpltb.gsf)	;
+/Hershey-Plain-Triplex-Bold-Italic	(hrpltbi.gsf)	;
+
+/Hershey-Script-Complex-Bold		(hrsccb.gsf)	;
+/Hershey-Script-Complex-Oblique		(hrscco.gsf)	;
+/Hershey-Script-Simplex-Bold		(hrscsb.gsf)	;
+/Hershey-Script-Simplex-Oblique		(hrscso.gsf)	;	% 5066556
+
+% Fonts consisting only of characters from the original Hershey
+% distribution.  These are Type 3 fonts.
+
+/Hershey-Greek-Complex			(hrgkc.gsf)	;	% 5066557
+/Hershey-Greek-Simplex			(hrgks.gsf)	;
+
+/Hershey-Plain				(hrplr.gsf)	;
+/Hershey-Plain-Simplex			(hrpls.gsf)	;	% 5066560
+
+% Fonts created algorithmically from the above.
+
+/Hershey-Plain-Bold			(hrplrb.gsf)	;	% 5066561
+/Hershey-Plain-Bold-Oblique		(hrplrbo.gsf)	;
+/Hershey-Plain-Oblique			(hrplro.gsf)	;
+/Hershey-Plain-Simplex-Bold		(hrplsb.gsf)	;
+/Hershey-Plain-Simplex-Bold-Oblique	(hrplsbo.gsf)	;
+/Hershey-Plain-Simplex-Oblique		(hrplso.gsf)	;	% 5066566
+
+% This font, and only this font among the Hershey fonts, uses
+% the SymbolEncoding.
+
+/Hershey-Symbol				(hrsyr.gsf)	;	% 5066567
+
+/Arial					/ArialMT		;
+/Arial,Bold				/Arial-BoldMT		;
+/Arial,Italic				/Arial-ItalicMT		;
+/Arial,BoldItalic			/Arial-BoldItalicMT	;
+
+/TimesNewRoman				/TimesNewRomanPSMT		;
+/TimesNewRoman,Bold			/TimesNewRomanPS-BoldMT		;
+/TimesNewRoman,Italic			/TimesNewRomanPS-ItalicMT	;
+/TimesNewRoman,BoldItalic		/TimesNewRomanPS-BoldItalicMT	;
+

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/Fontmap.OS2

@@ -0,0 +1,214 @@
+%    Copyright (C) 1990, 1992, 1993, 1996 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: Fontmap.OS2 6300 2005-12-28 19:56:24Z giles $
+% fontmap.os2 aka Fontmap.OS2 - OS/2 font catalog for Ghostscript.
+
+% ----------------------------------------------------------------
+
+% This file is a catalog of fonts known to Ghostscript.  Any font
+% that is to be loaded automatically when named must be in this catalog,
+% except for fonts that Ghostscript finds automatically in directories
+% named in the GS_FONTPATH environment variable.
+
+% Each font has an entry consisting of three items:
+%
+%	- The name by which the font is known inside Ghostscript
+%	(a Ghostscript name preceded by a `/', or a string enclosed
+%	in parentheses).  This is used to find the file from which
+%	a font of a given name should be loaded.
+%
+%	- Information depending on whether this is a real font or a
+%	font alias:
+%
+%		- For real fonts, the name of the Ghostscript font
+%		file (a Ghostscript string, enclosed in parentheses).
+%		The filename should include the extension, which (by
+%		convention) is `.gsf'.  `.pfa' and `.pfb' files are
+%		also usable as fonts for Ghostscript.
+%
+%		- For font aliases, the name of the font which should
+%		be used when this one is requested, preceded by a
+%		`/'.  See the entry for Charter below for an example.
+%
+%	- A terminating semicolon.
+
+% Because of limitations in the MS-DOS environment, Ghostscript font
+% file names must be no more than 8 characters long, must consist only
+% of LOWER CASE letters, digits, and underscores, and must start with a
+% letter.  Font names, on the other hand, need only obey the syntax of
+% names in the Ghostscript language, which is much more liberal.
+
+% Most of the Ghostscript fonts were created automatically from freely
+% available bitmaps.  There is a makefile (fonts.mak) that specifies
+% how this conversion was done.  fonts.mak also specifies, for each such
+% converted font, its uniqueID (an integer used to identify distinct fonts
+% within the Ghostscript font machinery), and its encoding (the mapping
+% from character codes in a string to character names).  For more detailed
+% information, read fonts.mak.
+
+% The following table is actually a Ghostscript data structure.
+% If you add new entries, be sure to copy the punctuation accurately;
+% in particular, you must leave at least one space or tab between each
+% field in the entry.  Also, please read fonts.doc for important information
+% about font names.
+
+
+% 
+%
+% Fonts contributed by:
+%	URW++ Design and Development Incorporated
+%	Poppenbuetteler Bogen 29A
+%	D-22399 Hamburg
+%	Germany
+%	tel. +49 (40) 60 60 50
+%	fax +49 (40) 60 60 51 11
+%	http://www.urwpp.de
+% for distribution under the GNU License and Aladdin Free Public License.
+% See the notice at the head of this Fontmap file for licensing terms.
+% Each of these fonts is individually covered by the license:
+% for licensing purposes, they are not "part of" any larger entity.
+% The following notice applies to these fonts:
+%
+%	Copyright URW Software, Copyright 1994 by URW.
+%
+
+% Actual fonts
+
+/URWBookmanL-DemiBold	(b018015l.pfb)	;
+/URWBookmanL-DemiBoldItal	(b018035l.pfb)	;
+/URWBookmanL-Ligh	(b018012l.pfb)	;
+/URWBookmanL-LighItal	(b018032l.pfb)	;
+
+/NimbusMonL-Regu	(n022003l.pfb)	;
+/NimbusMonL-ReguObli	(n022023l.pfb)	;
+/NimbusMonL-Bold	(n022004l.pfb)	;
+/NimbusMonL-BoldObli	(n022024l.pfb)	;
+
+/URWGothicL-Book	(a010013l.pfb)	;
+/URWGothicL-BookObli	(a010033l.pfb)	;
+/URWGothicL-Demi	(a010015l.pfb)	;
+/URWGothicL-DemiObli	(a010035l.pfb)	;
+
+/NimbusSanL-Regu	(n019003l.pfb)	;
+/NimbusSanL-ReguItal	(n019023l.pfb)	;
+/NimbusSanL-Bold	(n019004l.pfb)	;
+/NimbusSanL-BoldItal	(n019024l.pfb)	;
+
+/NimbusSanL-ReguCond	(n019043l.pfb)	;
+/NimbusSanL-ReguCondItal	(n019063l.pfb)	;
+/NimbusSanL-BoldCond	(n019044l.pfb)	;
+/NimbusSanL-BoldCondItal	(n019064l.pfb)	;
+
+/URWPalladioL-Roma	(p052003l.pfb)	;
+/URWPalladioL-Ital	(p052023l.pfb)	;
+/URWPalladioL-Bold	(p052004l.pfb)	;
+/URWPalladioL-BoldItal	(p052024l.pfb)	;
+
+/CenturySchL-Roma	(c059013l.pfb)	;
+/CenturySchL-Ital	(c059033l.pfb)	;
+/CenturySchL-Bold	(c059016l.pfb)	;
+/CenturySchL-BoldItal	(c059036l.pfb)	;
+
+/NimbusRomNo9L-Regu	(n021003l.pfb)	;
+/NimbusRomNo9L-ReguItal	(n021023l.pfb)	;
+/NimbusRomNo9L-Medi	(n021004l.pfb)	;
+/NimbusRomNo9L-MediItal	(n021024l.pfb)	;
+
+/StandardSymL	(s050000l.pfb)	;
+
+/URWChanceryL-MediItal	(z003034l.pfb)	;
+
+/Dingbats	(d050000l.pfb)	;
+
+% Aliases
+
+/Bookman-Demi			/URWBookmanL-DemiBold	;
+/Bookman-DemiItalic		/URWBookmanL-DemiBoldItal	;
+/Bookman-Light			/URWBookmanL-Ligh	;
+/Bookman-LightItalic		/URWBookmanL-LighItal	;
+
+/Courier			/NimbusMonL-Regu	;
+/Courier-Oblique		/NimbusMonL-ReguObli	;
+/Courier-Bold			/NimbusMonL-Bold	;
+/Courier-BoldOblique		/NimbusMonL-BoldObli	;
+
+/AvantGarde-Book		/URWGothicL-Book	;
+/AvantGarde-BookOblique		/URWGothicL-BookObli	;
+/AvantGarde-Demi		/URWGothicL-Demi	;
+/AvantGarde-DemiOblique		/URWGothicL-DemiObli	;
+
+/Helvetica			/NimbusSanL-Regu	;
+/Helvetica-Oblique		/NimbusSanL-ReguItal	;
+/Helvetica-Bold			/NimbusSanL-Bold	;
+/Helvetica-BoldOblique		/NimbusSanL-BoldItal	;
+
+/Helvetica-Narrow		/NimbusSanL-ReguCond	;
+/Helvetica-Narrow-Oblique	/NimbusSanL-ReguCondItal	;
+/Helvetica-Narrow-Bold		/NimbusSanL-BoldCond	;
+/Helvetica-Narrow-BoldOblique	/NimbusSanL-BoldCondItal	;
+
+/Palatino-Roman			/URWPalladioL-Roma	;
+/Palatino-Italic		/URWPalladioL-Ital	;
+/Palatino-Bold			/URWPalladioL-Bold	;
+/Palatino-BoldItalic		/URWPalladioL-BoldItal	;
+
+/NewCenturySchlbk-Roman		/CenturySchL-Roma	;
+/NewCenturySchlbk-Italic	/CenturySchL-Ital	;
+/NewCenturySchlbk-Bold		/CenturySchL-Bold	;
+/NewCenturySchlbk-BoldItalic	/CenturySchL-BoldItal	;
+
+/Times-Roman			/NimbusRomNo9L-Regu	;
+/Times-Italic			/NimbusRomNo9L-ReguItal	;
+/Times-Bold			/NimbusRomNo9L-Medi	;
+/Times-BoldItalic		/NimbusRomNo9L-MediItal	;
+
+/Symbol				/StandardSymL	;
+
+/ZapfChancery-MediumItalic	/URWChanceryL-MediItal	;
+
+/ZapfDingbats			/Dingbats	;
+
+
+% 
+% ATM fonts that come with OS/2.
+
+/Courier			(cour.pfb)	;
+/Courier-Oblique		/Courier-Italic	;
+/Courier-Italic			(couri.pfb)	;
+/Courier-Bold			(courb.pfb)	;
+/Courier-BoldOblique		/Courier-BoldItalic	;
+/Courier-BoldItalic		(courbi.pfb)	;
+
+/Helvetica			(helv.pfb)	;
+/Helvetica-Oblique		/Helvetica-Italic	;
+/Helvetica-Italic		(helvi.pfb)	;
+/Helvetica-Bold			(helvb.pfb)	;
+/Helvetica-BoldOblique		/Helvetica-BoldItalic	;
+/Helvetica-BoldItalic		(helvbi.pfb)	;
+
+/Symbol				/SymbolSet	;
+/SymbolSet			(symb.pfb)	;
+
+/Times-Roman			/TimesNewRoman	;
+/TimesNewRoman			(tnr.pfb)	;
+/Times-Italic			/TimesNewRoman-Italic	;
+/TimesNewRoman-Italic		(tnri.pfb)	;
+/Times-Bold			/TimesNewRoman-Bold	;
+/TimesNewRoman-Bold		(tnrb.pfb)	;
+/Times-BoldItalic		/TimesNewRoman-BoldItalic	;
+/TimesNewRoman-BoldItalic	(tnrbi.pfb)	;
+
+

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/Fontmap.OSF

@@ -0,0 +1,163 @@
+% fontmap.osf aka Fontmap.OSF1 - Ghostscript fontmap for DEC OSF/1 systems.
+%
+% UNIX systems from Digital Equipment Corporation are bundled with a license
+% for Display PostScript, including certain fonts.  Using their font outlines
+% (which on OSF/1 systems are found in /usr/lib/X11/fonts/Type1Adobe)
+% improves the visual quality of documents displayed on screen.  To do that,
+% use this file as your Fontmap file and add /usr/lib/X11/fonts/Type1Adobe
+% as the second argument to GS_LIB_DEFAULT in your makefile
+% in your makefile.
+%
+% This file is Pete Kaiser's original Ultrix file as modified by
+% Bjorn S. Nilsson (nilsson@nbi.dk) first for Ultrix 4.3 and then
+% for OSF/1 version 1.3.
+%
+
+%/AvantGarde-Book			(AvantGarde-Book)	;
+%/AvantGarde-BookOblique		(AvantGarde-BookOblique);
+%/AvantGarde-Demi			(AvantGarde-Demi)	;
+%/AvantGarde-DemiOblique		(AvantGarde-DemiOblique);
+
+%/Courier-BoldItalic			/Courier-BoldOblique	;
+%/Courier-Italic			/Courier-Oblique	;
+
+%/Courier				(Courier)		;
+%/Courier-Bold				(Courier-Bold)		;
+%/Courier-BoldOblique			(Courier-BoldOblique)	;
+%/Courier-Oblique			(Courier-Oblique)	;
+
+%/Helvetica				(Helvetica)		;
+%/Helvetica-Bold			(Helvetica-Bold)	;
+%/Helvetica-BoldOblique			(Helvetica-BoldOblique)	;
+%/Helvetica-Oblique			(Helvetica-Oblique)	;
+
+%/LubalinGraph-Book			(LubalinGraph-Book)	;
+%/LubalinGraph-BookOblique		(LubalinGraph-BookOblique);
+%/LubalinGraph-Demi			(LubalinGraph-Demi)	;
+%/LubalinGraph-DemiOblique		(LubalinGraph-DemiOblique);
+
+%/NewCenturySchlbk-Bold			(NewCenturySchlbk-Bold)	;
+%/NewCenturySchlbk-BoldItalic		(NewCenturySchlbk-BoldItalic);
+%/NewCenturySchlbk-Italic		(NewCenturySchlbk-Italic);
+%/NewCenturySchlbk-Roman		(NewCenturySchlbk-Roman);
+
+%/Souvenir-Demi				(Souvenir-Demi)		;
+%/Souvenir-DemiItalic			(Souvenir-DemiItalic)	;
+%/Souvenir-Light			(Souvenir-Light)	;
+%/Souvenir-LightItalic			(Souvenir-LightItalic)	;
+
+%/Symbol				(Symbol)		;
+
+%/Times-Bold				(Times-Bold)		;
+%/Times-BoldItalic			(Times-BoldItalic)	;
+%/Times-Italic				(Times-Italic)		;
+%/Times-Roman				(Times-Roman)		;
+
+%/ZapfDingbats				(ZapfDingbats)		;
+
+/AvantGarde-Book		(AvantGarde-Book.pfa)		;
+/AvantGarde-BookOblique		(AvantGarde-BookOblique.pfa)	;
+/AvantGarde-Demi		(AvantGarde-Demi.pfa)		;
+/AvantGarde-DemiOblique		(AvantGarde-DemiOblique.pfa)	;
+/Bookman-Demi			(pbkd.gsf)			;
+/Bookman-DemiItalic		(pbkdi.gsf)			;
+/Bookman-Light			(pbkl.gsf)			;
+/Bookman-LightItalic		(pbkli.gsf)			;
+/Calligraphic-Hiragana		(fhirw.gsf)			;
+/Calligraphic-Katakana		(fkarw.gsf)			;
+/CharterBT-Bold			(bchb.gsf)			;
+/CharterBT-BoldItalic		(bchbi.gsf)			;
+/CharterBT-Italic		(bchri.gsf)			;
+/CharterBT-Roman		(bchr.gsf)			;
+/Courier			(Courier.pfa)			;
+/Courier-Bold			(Courier-Bold.pfa)		;
+/Courier-BoldOblique		(Courier-BoldOblique.pfa)	;
+/Courier-Oblique		(Courier-Oblique.pfa)		;
+/Helvetica			(Helvetica.pfa)			;
+/Helvetica-Bold			(Helvetica-Bold.pfa)		;
+/Helvetica-BoldOblique		(Helvetica-BoldOblique.pfa)	;
+/Helvetica-Oblique		(Helvetica-Oblique.pfa)		;
+/Hershey-Gothic-English		(hrger.gsf)			;
+/Hershey-Gothic-German		(hrgrr.gsf)			;
+/Hershey-Gothic-Italian		(hritr.gsf)			; 
+/Hershey-Plain-Duplex		(hrpld.gsf)			;
+/Hershey-Plain-Duplex-Italic	(hrpldi.gsf)			;
+/Hershey-Plain-Triplex		(hrplt.gsf)			;
+/Hershey-Plain-Triplex-Italic	(hrplti.gsf)			;
+/Hershey-Script-Complex		(hrscc.gsf)			;
+/Hershey-Script-Simplex		(hrscs.gsf)			;
+/Hershey-Gothic-English-Bold	(hrgerb.gsf)			;
+/Hershey-Gothic-English-Oblique	(hrgero.gsf)			;
+/Hershey-Gothic-English-Semibold (hrgerd.gsf)			;
+/Hershey-Gothic-German-Bold	(hrgrrb.gsf)			;
+/Hershey-Gothic-German-Oblique	(hrgrro.gsf)			;
+/Hershey-Gothic-Italian-Bold	(hritrb.gsf)			;
+/Hershey-Gothic-Italian-Oblique	(hritro.gsf)			;
+/Hershey-Plain-Duplex-Bold	(hrpldb.gsf)			;
+/Hershey-Plain-Duplex-Bold-Italic (hrpldbi.gsf)			;
+/Hershey-Plain-Triplex-Bold	(hrpltb.gsf)			;
+/Hershey-Plain-Triplex-Bold-Italic (hrpltbi.gsf)		;
+/Hershey-Script-Complex-Bold	(hrsccb.gsf)			;
+/Hershey-Script-Complex-Oblique	(hrscco.gsf)			;
+/Hershey-Script-Simplex-Bold	(hrscsb.gsf)			;
+/Hershey-Script-Simplex-Oblique	(hrscso.gsf)			;
+/Hershey-Greek-Complex		(hrgkc.gsf)			;
+/Hershey-Greek-Simplex		(hrgks.gsf)			;
+/Hershey-Plain			(hrplr.gsf)			;
+/Hershey-Plain-Simplex		(hrpls.gsf)			;
+/Hershey-Plain-Bold		(hrplrb.gsf)			;
+/Hershey-Plain-Bold-Oblique	(hrplrbo.gsf)			;
+/Hershey-Plain-Oblique		(hrplro.gsf)			;
+/Hershey-Plain-Simplex-Bold	(hrplsb.gsf)			;
+/Hershey-Plain-Simplex-Bold-Oblique (hrplsbo.gsf)		;
+/Hershey-Plain-Simplex-Oblique	(hrplso.gsf)			;
+/Hershey-Symbol			(hrsy_r.gsf)			;
+/LubalinGraph-Book		(LubalinGraph-Book.pfa)		;
+/LubalinGraph-BookOblique	(LubalinGraph-BookOblique.pfa)	;
+/LubalinGraph-Demi		(LubalinGraph-Demi.pfa)		;
+/LubalinGraph-DemiOblique	(LubalinGraph-DemiOblique.pfa)	;
+/NewCenturySchlbk-Bold		(NewCenturySchlbk-Bold.pfa)	;
+/NewCenturySchlbk-BoldItalic	(NewCenturySchlbk-BoldItalic.pfa) ;
+/NewCenturySchlbk-Italic	(NewCenturySchlbk-Italic.pfa)	;
+/NewCenturySchlbk-Roman		(NewCenturySchlbk-Roman.pfa)	;
+/NimbusRomanNo9L-Regular	(n021003l.gsf)			;
+/NimbusSansL-Regular		(n019003l.gsf)			;
+/Palatino-Bold			(pplb.gsf)			;
+/Palatino-BoldItalic		(pplbi.gsf)			;
+/Palatino-Italic		(pplri.gsf)			;
+/Palatino-Roman			(pplr.gsf)			;
+/Shareware-Cyrillic-Regular	(fcyr.gsf)			;
+/Shareware-Cyrillic-Italic	(fcyri.gsf)			;
+/Souvenir-Demi			(Souvenir-Demi.pfa)		;
+/Souvenir-DemiItalic		(Souvenir-DemiItalic.pfa)	;
+/Souvenir-Light			(Souvenir-Light.pfa)		;
+/Souvenir-LightItalic		(Souvenir-LightItalic.pfa)	;
+/Symbol				(Symbol.pfa)			;
+/Times-Bold			(Times-Bold.pfa)		;
+/Times-BoldItalic		(Times-BoldItalic.pfa)		;
+/Times-Italic			(Times-Italic.pfa)		;
+/Times-Roman			(Times-Roman.pfa)		;
+/URWAntiquaT-RegularCondensed	(u003043t.gsf)			;
+/URWGroteskT-Bold		(u004006t.gsf)			;
+/Utopia-Bold			(putb.gsf)			;
+/Utopia-BoldItalic		(putbi.gsf)			;
+/Utopia-Italic			(putri.gsf)			;
+/Utopia-Regular			(putr.gsf)			;
+/ZapfChancery			(zcr.gsf)			;
+/ZapfChancery-Bold		(zcb.gsf)			;
+/ZapfChancery-Oblique		(zcro.gsf)			;
+/ZapfDingbats			(ZapfDingbats.pfa)		;
+/Cyrillic			/Cyrillic-Regular		;
+/Cyrillic-Regular		/Shareware-Cyrillic-Regular	;
+/Cyrillic-Italic		/Shareware-Cyrillic-Italic	;
+
+% BSN additions from original Fontmap file and some more aliases
+
+/Helvetica-Narrow-Bold		/Helvetica-Narrow	;
+/ZapfChancery-MediumItalic	/ZapfChancery-Oblique	;
+/Charter-Roman			/CharterBT-Roman	;
+/Charter-Italic			/CharterBT-Italic	;
+/Charter-Bold			/CharterBT-Bold		;
+/Charter-BoldItalic		/CharterBT-BoldItalic	;
+/Courier-Italic			/Courier-Oblique	;
+/Courier-BoldItalic		/Courier-BoldOblique	;

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/Fontmap.SGI

@@ -0,0 +1,405 @@
+% Copyright (C) 1996, 1999 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: Fontmap.SGI 6300 2005-12-28 19:56:24Z giles $
+%
+% Fontmap.SGI - standard font catalog for Ghostscript, modified for IRIX 5.3
+% with the DPS fonts installed (dps_eoe.sw.dpsfonts).
+% by H. Gohel, gohel@acm.org. 1999-09-10
+
+% ----------------------------------------------------------------
+
+% This file is a catalog of fonts known to Ghostscript.  Any font
+% that is to be loaded automatically when named must be in this catalog,
+% except for fonts that Ghostscript finds automatically in directories
+% named in the GS_FONTPATH environment variable.
+
+% Each font has an entry consisting of three items:
+%
+%	- The name by which the font is known inside Ghostscript
+%	(a Ghostscript name preceded by a `/', or a string enclosed
+%	in parentheses).  This is used to find the file from which
+%	a font of a given name should be loaded.
+%
+%	- Information depending on whether this is a real font or a
+%	font alias:
+%
+%		- For real fonts, the name of the Ghostscript font
+%		file (a Ghostscript string, enclosed in parentheses).
+%		The filename should include the extension, which (by
+%		convention) is `.gsf'.  `.pfa' and `.pfb' files are
+%		also usable as fonts for Ghostscript.
+%
+%		- For font aliases, the name of the font which should
+%		be used when this one is requested, preceded by a
+%		`/'.  See the entry for Charter below for an example.
+%		Note that an alias name cannot be enclosed in parentheses.
+%
+%	- At least one space or tab, and a terminating semicolon.
+
+% Because of limitations in the MS-DOS environment, Ghostscript font
+% file names must be no more than 8 characters long, must consist only
+% of LOWER CASE letters, digits, and underscores, and must start with a
+% letter.  Font names, on the other hand, need only obey the syntax of
+% names in the Ghostscript language, which is much more liberal.
+
+% The following table is actually a Ghostscript data structure.
+% If you add new entries, be sure to copy the punctuation accurately;
+% in particular, you must leave at least one space or tab between each
+% field in the entry.  Also, please read fonts.doc for important information
+% about font names.
+
+% Note that .pfa and .pfb fonts are compatible with Adobe Type Manager
+% and other programs that don't include full PostScript interpreters,
+% as well as with PostScript interpreters; .gsf fonts are compatible with
+% PostScript interpreters, but not with ATM or similar programs.
+
+% 
+%
+% Fonts contributed by:
+%	URW++ Design and Development Incorporated
+%	Poppenbuetteler Bogen 29A
+%	D-22399 Hamburg
+%	Germany
+%	tel. +49 (40) 60 60 50
+%	fax +49 (40) 60 60 51 11
+%	http://www.urwpp.de
+% for distribution under the GNU License and Aladdin Free Public License.
+% See the notice at the head of this Fontmap file for licensing terms.
+% Each of these fonts is individually covered by the license:
+% for licensing purposes, they are not "part of" any larger entity.
+% The following notice applies to these fonts:
+%
+%	Copyright URW Software, Copyright 1994 by URW.
+%
+
+% Actual fonts
+
+/URWBookmanL-DemiBold	(b018015l.pfb)	;
+/URWBookmanL-DemiBoldItal	(b018035l.pfb)	;
+/URWBookmanL-Ligh	(b018012l.pfb)	;
+/URWBookmanL-LighItal	(b018032l.pfb)	;
+
+/NimbusMonL-Regu	(n022003l.pfb)	;
+/NimbusMonL-ReguObli	(n022023l.pfb)	;
+/NimbusMonL-Bold	(n022004l.pfb)	;
+/NimbusMonL-BoldObli	(n022024l.pfb)	;
+
+/URWGothicL-Book	(a010013l.pfb)	;
+/URWGothicL-BookObli	(a010033l.pfb)	;
+/URWGothicL-Demi	(a010015l.pfb)	;
+/URWGothicL-DemiObli	(a010035l.pfb)	;
+
+/NimbusSanL-Regu	(n019003l.pfb)	;
+/NimbusSanL-ReguItal	(n019023l.pfb)	;
+/NimbusSanL-Bold	(n019004l.pfb)	;
+/NimbusSanL-BoldItal	(n019024l.pfb)	;
+
+/NimbusSanL-ReguCond	(n019043l.pfb)	;
+/NimbusSanL-ReguCondItal	(n019063l.pfb)	;
+/NimbusSanL-BoldCond	(n019044l.pfb)	;
+/NimbusSanL-BoldCondItal	(n019064l.pfb)	;
+
+/URWPalladioL-Roma	(p052003l.pfb)	;
+/URWPalladioL-Ital	(p052023l.pfb)	;
+/URWPalladioL-Bold	(p052004l.pfb)	;
+/URWPalladioL-BoldItal	(p052024l.pfb)	;
+
+/CenturySchL-Roma	(c059013l.pfb)	;
+/CenturySchL-Ital	(c059033l.pfb)	;
+/CenturySchL-Bold	(c059016l.pfb)	;
+/CenturySchL-BoldItal	(c059036l.pfb)	;
+
+/NimbusRomNo9L-Regu	(n021003l.pfb)	;
+/NimbusRomNo9L-ReguItal	(n021023l.pfb)	;
+/NimbusRomNo9L-Medi	(n021004l.pfb)	;
+/NimbusRomNo9L-MediItal	(n021024l.pfb)	;
+
+/StandardSymL	(s050000l.pfb)	;
+
+/URWChanceryL-MediItal	(z003034l.pfb)	;
+
+/Dingbats	(d050000l.pfb)	;
+
+% Aliases
+% These Adobe fonts are available with DPS on IRIX, so they commented out:
+
+%/Bookman-Demi			/URWBookmanL-DemiBold	;
+%/Bookman-DemiItalic		/URWBookmanL-DemiBoldItal	;
+%/Bookman-Light			/URWBookmanL-Ligh	;
+%/Bookman-LightItalic		/URWBookmanL-LighItal	;
+
+%/Courier			/NimbusMonL-Regu	;
+%/Courier-Oblique		/NimbusMonL-ReguObli	;
+%/Courier-Bold			/NimbusMonL-Bold	;
+%/Courier-BoldOblique		/NimbusMonL-BoldObli	;
+
+%/AvantGarde-Book		/URWGothicL-Book	;
+%/AvantGarde-BookOblique		/URWGothicL-BookObli	;
+%/AvantGarde-Demi		/URWGothicL-Demi	;
+%/AvantGarde-DemiOblique		/URWGothicL-DemiObli	;
+
+%/Helvetica			/NimbusSanL-Regu	;
+%/Helvetica-Oblique		/NimbusSanL-ReguItal	;
+%/Helvetica-Bold			/NimbusSanL-Bold	;
+%/Helvetica-BoldOblique		/NimbusSanL-BoldItal	;
+
+%/Helvetica-Narrow		/NimbusSanL-ReguCond	;
+%/Helvetica-Narrow-Oblique	/NimbusSanL-ReguCondItal	;
+%/Helvetica-Narrow-Bold		/NimbusSanL-BoldCond	;
+%/Helvetica-Narrow-BoldOblique	/NimbusSanL-BoldCondItal	;
+
+%/Palatino-Roman			/URWPalladioL-Roma	;
+%/Palatino-Italic		/URWPalladioL-Ital	;
+%/Palatino-Bold			/URWPalladioL-Bold	;
+%/Palatino-BoldItalic		/URWPalladioL-BoldItal	;
+
+%/NewCenturySchlbk-Roman		/CenturySchL-Roma	;
+%/NewCenturySchlbk-Italic	/CenturySchL-Ital	;
+%/NewCenturySchlbk-Bold		/CenturySchL-Bold	;
+%/NewCenturySchlbk-BoldItalic	/CenturySchL-BoldItal	;
+
+%/Times-Roman			/NimbusRomNo9L-Regu	;
+%/Times-Italic			/NimbusRomNo9L-ReguItal	;
+%/Times-Bold			/NimbusRomNo9L-Medi	;
+%/Times-BoldItalic		/NimbusRomNo9L-MediItal	;
+
+%/Symbol				/StandardSymL	;
+
+%/ZapfChancery-MediumItalic	/URWChanceryL-MediItal	;
+
+%/ZapfDingbats			/Dingbats	;
+
+% 
+%
+% Type 1 fonts contributed to the X11R5 distribution.
+%
+
+% The following notice accompanied the Charter fonts.
+%
+% (c) Copyright 1989-1992, Bitstream Inc., Cambridge, MA.
+%
+% You are hereby granted permission under all Bitstream propriety rights
+% to use, copy, modify, sublicense, sell, and redistribute the 4 Bitstream
+% Charter (r) Type 1 outline fonts and the 4 Courier Type 1 outline fonts
+% for any purpose and without restriction; provided, that this notice is
+% left intact on all copies of such fonts and that Bitstream's trademark
+% is acknowledged as shown below on all unmodified copies of the 4 Charter
+% Type 1 fonts.
+%
+% BITSTREAM CHARTER is a registered trademark of Bitstream Inc.
+
+% The Bitstream Charter fonts have different names (CharterBT-
+% instead of Charter-), but Ghostscript doesn't care.
+/Charter-Roman			(bchr.pfa)	;
+/Charter-Italic			(bchri.pfa)	;
+/Charter-Bold			(bchb.pfa)	;
+/Charter-BoldItalic		(bchbi.pfa)	;
+
+% The following notice accompanied the Utopia font:
+%
+%   Permission to use, reproduce, display and distribute the listed
+%   typefaces is hereby granted, provided that the Adobe Copyright notice
+%   appears in all whole and partial copies of the software and that the
+%   following trademark symbol and attribution appear in all unmodified
+%   copies of the software:
+%
+%           Copyright (c) 1989 Adobe Systems Incorporated
+%           Utopia (R)
+%           Utopia is a registered trademark of Adobe Systems Incorporated
+%
+%   The Adobe typefaces (Type 1 font program, bitmaps and Adobe Font
+%   Metric files) donated are:
+%
+%           Utopia Regular
+%           Utopia Italic
+%           Utopia Bold
+%           Utopia Bold Italic
+
+% The original Utopia files are available with IRIX and DPS so need
+% for aliases, HJG.
+
+%/Utopia-Regular		(putr.pfa)	;
+%/Utopia-Italic		(putri.pfa)	;
+%/Utopia-Bold		(putb.pfa)	;
+%/Utopia-BoldItalic	(putbi.pfa)	;
+
+% 
+%
+% Fonts contributed by URW GmbH for distribution under the GNU License.
+% The following notice accompanied these fonts:
+%
+% U004006T URW Grotesk 2031 Bold PostScript Type 1 Font Program
+% U003043T URW Antiqua 2051 Regular Condensed PostScript Type 1 Font Program
+%
+% Copyright (c) 1992 URW GmbH, Hamburg, Germany
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation; either version 2 of the License, or
+% (at your option) later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; wihtout even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+% See the GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this program; if not, write to the Free Software
+% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+%
+% Address:
+% URW GmbH
+% PC Support
+% Harksheider Strasse 102
+% 2000 Hamburg 65
+% Germany
+% Phone: +49 40 60 60 50       (Reception)
+% Phone: +49 40 60 60 52 30   (PC Support)
+% Fax    : +49 40 60 60 52 52
+%
+
+/URWAntiquaT-RegularCondensed	(u003043t.gsf)	;
+/URWGroteskT-Bold		(u004006t.gsf)	;
+
+% 
+%
+% Shareware Kana fonts.  These are subject to the following notice:
+%
+% These copyrighted fonts were developed by Kevin Hartig. Permission is
+% granted to freely distribute them in entirety along with this statement.
+% This is shareware. If you decide to use these fonts please contribute
+% $10 US to help support further freeware and shareware software development.
+% Questions and comments may be sent to:
+%
+% hartig@fsl.noaa.gov
+% khartig@nyx.cs.du.edu
+%
+% Kevin Hartig
+% 1126 Collyer Street
+% Longmont, CO 80501 USA
+% 
+% copyright 1993.
+
+% Hiragana and Katakana fonts.  The character names are inappropriate,
+% and the encoding is probably not related to any known standard.
+
+/Calligraphic-Hiragana		(fhirw.gsf)	;
+/Calligraphic-Katakana		(fkarw.gsf)	;
+
+% 
+%
+% Public-domain fonts.  These have no copyright, and are of unknown quality.
+
+% Cyrillic fonts.  The character names are inappropriate,
+% and the encoding is probably not related to any known standard.
+
+/Shareware-Cyrillic-Regular	(fcyr.gsf)	;
+/Shareware-Cyrillic-Italic	(fcyri.gsf)	;
+
+% Aliases
+/Cyrillic			/Cyrillic-Regular	;
+/Cyrillic-Regular		/Shareware-Cyrillic-Regular	;
+/Cyrillic-Italic		/Shareware-Cyrillic-Italic	;
+
+% 
+%
+% Fonts converted from Hershey outlines.  These are constructed and
+% maintained manually.  These are also in the public domain.
+%
+% The suggested UniqueID's and filenames are constructed differently for
+% these than for the ones above, because of the strange way that the Hershey
+% fonts were constructed.  The scheme for these looks like:
+%
+% 42TTXY0
+%
+% TT = typeface, X = ``class'', Y = variation
+%
+% The typeface names and numbers are listed in fonts.mak.
+%
+% class:
+% 0 = normal			= r
+% 1 = simplex			= s
+% 2 = complex			= c
+% 3 = triplex			= t
+% 4 = duplex			= d
+%
+% variation:
+% 0 = normal			(omitted)
+% 1 = oblique			= o
+% 2 = italic			= i
+% 3 = bold			= b
+% 4 = bold oblique		= bo
+% 5 = bold italic		= bi
+%
+
+% Fonts created by Thomas Wolff <wolff@inf.fu-berlin.de>, by adding
+% accents, accented characters, and various other non-alphabetics
+% to the original Hershey fonts.  These are "freeware", not to be sold.
+
+/Hershey-Gothic-English		(hrger.pfa)	;	% 5066533
+/Hershey-Gothic-German		(hrgrr.pfa)	;
+/Hershey-Gothic-Italian		(hritr.pfa)	; 
+
+/Hershey-Plain-Duplex		(hrpld.pfa)	;
+/Hershey-Plain-Duplex-Italic	(hrpldi.pfa)	;
+/Hershey-Plain-Triplex		(hrplt.pfa)	;
+/Hershey-Plain-Triplex-Italic	(hrplti.pfa)	;
+
+/Hershey-Script-Complex		(hrscc.pfa)	;
+/Hershey-Script-Simplex		(hrscs.pfa)	;	% 5066541
+
+% Fonts created algorithmically from the above.
+
+/Hershey-Gothic-English-Bold		(hrgerb.gsf)	;	% 5066542
+/Hershey-Gothic-English-Oblique		(hrgero.gsf)	;
+/Hershey-Gothic-English-SemiBold	(hrgerd.gsf)	;
+/Hershey-Gothic-German-Bold		(hrgrrb.gsf)	;
+/Hershey-Gothic-German-Oblique		(hrgrro.gsf)	;
+/Hershey-Gothic-Italian-Bold		(hritrb.gsf)	;
+/Hershey-Gothic-Italian-Oblique		(hritro.gsf)	;
+
+/Hershey-Plain-Duplex-Bold		(hrpldb.gsf)	;
+/Hershey-Plain-Duplex-Bold-Italic	(hrpldbi.gsf)	;
+/Hershey-Plain-Triplex-Bold		(hrpltb.gsf)	;
+/Hershey-Plain-Triplex-Bold-Italic	(hrpltbi.gsf)	;
+
+/Hershey-Script-Complex-Bold		(hrsccb.gsf)	;
+/Hershey-Script-Complex-Oblique		(hrscco.gsf)	;
+/Hershey-Script-Simplex-Bold		(hrscsb.gsf)	;
+/Hershey-Script-Simplex-Oblique		(hrscso.gsf)	;	% 5066556
+
+% Fonts consisting only of characters from the original Hershey
+% distribution.  These are Type 3 fonts.
+
+/Hershey-Greek-Complex			(hrgkc.gsf)	;	% 5066557
+/Hershey-Greek-Simplex			(hrgks.gsf)	;
+
+/Hershey-Plain				(hrplr.gsf)	;
+/Hershey-Plain-Simplex			(hrpls.gsf)	;	% 5066560
+
+% Fonts created algorithmically from the above.
+
+/Hershey-Plain-Bold			(hrplrb.gsf)	;	% 5066561
+/Hershey-Plain-Bold-Oblique		(hrplrbo.gsf)	;
+/Hershey-Plain-Oblique			(hrplro.gsf)	;
+/Hershey-Plain-Simplex-Bold		(hrplsb.gsf)	;
+/Hershey-Plain-Simplex-Bold-Oblique	(hrplsbo.gsf)	;
+/Hershey-Plain-Simplex-Oblique		(hrplso.gsf)	;	% 5066566
+
+% This font, and only this font among the Hershey fonts, uses
+% the SymbolEncoding.
+
+/Hershey-Symbol				(hrsyr.gsf)	;	% 5066567

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/Fontmap.Sol

@@ -0,0 +1,486 @@
+% Copyright (C) 1996, 1999 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: Fontmap.Sol 6300 2005-12-28 19:56:24Z giles $
+% Fontmap.Solaris - Ghostscript Fontmap for Solaris 2.3 and above
+% ===============================================================
+%
+% The Solaris 2.3 (and above) operating system from Sun Microsystems comes with
+% Display Postscript (DPS), including certain Type1 and Type3 PostScript fonts.
+% Using these fonts instead of the default Ghostscript fonts greatly improves
+% the visual quality of Ghostscript rendered documents, especially at larger
+% font sizes. You should definately use these fonts if you have Solaris 2.3 or
+% above.
+%
+% To use the Solaris 2 DPS fonts, simply copy this file (Fontmap.Solaris) to
+%
+%   /usr/local/lib/Ghostscript/VERSION/Fontmap
+%   (where VERSION is the version number of Ghostscript, eg: 3.33)
+%
+% and set the environment variable GS_LIB as follows:
+%
+%   GS_LIB=/usr/openwin/lib/X11/fonts/Type1:/usr/openwin/lib/X11/fonts/Type3
+%   export GS_LIB
+%
+% You can use /usr/openwin/lib/fonts/Type1/outline instead if you like, it
+% makes no difference (the files in /usr/openwin/lib/fonts/Type1 are symlinks
+% into /usr/openwin/lib/fonts/Type1/outline).
+%
+% Instead of setting GS_LIB, you could add the above directories to
+% GS_LIB_DEFAULT in your makefile before building Ghostscript.
+%
+%
+% IMPORTANT NOTE
+% ==============
+%
+% Note that simply setting GS_FONTPATH may not work, because for some reason
+% some versions of gs can't seem to find any fonts in
+% /usr/openwin/lib/X11/fonts/Type1/outline.
+% It says: "15 files, 15 scanned, 0 new fonts".
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+% ----------------------------------------------------------------
+
+% This file is a catalog of fonts known to Ghostscript.  Any font
+% that is to be loaded automatically when named must be in this catalog,
+% except for fonts that Ghostscript finds automatically in directories
+% named in the GS_FONTPATH environment variable.
+
+% Each font has an entry consisting of three items:
+%
+%	- The name by which the font is known inside Ghostscript
+%	(a Ghostscript name preceded by a `/', or a string enclosed
+%	in parentheses).  This is used to find the file from which
+%	a font of a given name should be loaded.
+%
+%	- Information depending on whether this is a real font or a
+%	font alias:
+%
+%		- For real fonts, the name of the Ghostscript font
+%		file (a Ghostscript string, enclosed in parentheses).
+%		The filename should include the extension, which (by
+%		convention) is `.gsf'.  `.pfa' and `.pfb' files are
+%		also usable as fonts for Ghostscript.
+%
+%		- For font aliases, the name of the font which should
+%		be used when this one is requested, preceded by a
+%		`/'.  See the entry for Charter below for an example.
+%		Note that an alias name cannot be enclosed in parentheses.
+%
+%	- At least one space or tab, and a terminating semicolon.
+
+% Because of limitations in the MS-DOS environment, Ghostscript font
+% file names must be no more than 8 characters long, must consist only
+% of LOWER CASE letters, digits, and underscores, and must start with a
+% letter.  Font names, on the other hand, need only obey the syntax of
+% names in the Ghostscript language, which is much more liberal.
+
+% The following table is actually a Ghostscript data structure.
+% If you add new entries, be sure to copy the punctuation accurately;
+% in particular, you must leave at least one space or tab between each
+% field in the entry.  Also, please read fonts.doc for important information
+% about font names.
+
+% Note that .pfa and .pfb fonts are compatible with Adobe Type Manager
+% and other programs that don't include full PostScript interpreters,
+% as well as with PostScript interpreters; .gsf fonts are compatible with
+% PostScript interpreters, but not with ATM or similar programs.
+
+% 
+%
+% Fonts contributed by:
+%	URW++ Design and Development Incorporated
+%	Poppenbuetteler Bogen 29A
+%	D-22399 Hamburg
+%	Germany
+%	tel. +49 (40) 60 60 50
+%	fax +49 (40) 60 60 51 11
+%	http://www.urwpp.de
+% for distribution under the GNU License and Aladdin Free Public License.
+% See the notice at the head of this Fontmap file for licensing terms.
+% Each of these fonts is individually covered by the license:
+% for licensing purposes, they are not "part of" any larger entity.
+% The following notice applies to these fonts:
+%
+%	Copyright URW Software, Copyright 1994 by URW.
+%
+
+% Actual fonts
+
+/URWBookmanL-DemiBold	(b018015l.pfb)	;
+/URWBookmanL-DemiBoldItal	(b018035l.pfb)	;
+/URWBookmanL-Ligh	(b018012l.pfb)	;
+/URWBookmanL-LighItal	(b018032l.pfb)	;
+
+/NimbusMonL-Regu	(n022003l.pfb)	;
+/NimbusMonL-ReguObli	(n022023l.pfb)	;
+/NimbusMonL-Bold	(n022004l.pfb)	;
+/NimbusMonL-BoldObli	(n022024l.pfb)	;
+
+/URWGothicL-Book	(a010013l.pfb)	;
+/URWGothicL-BookObli	(a010033l.pfb)	;
+/URWGothicL-Demi	(a010015l.pfb)	;
+/URWGothicL-DemiObli	(a010035l.pfb)	;
+
+/NimbusSanL-Regu	(n019003l.pfb)	;
+/NimbusSanL-ReguItal	(n019023l.pfb)	;
+/NimbusSanL-Bold	(n019004l.pfb)	;
+/NimbusSanL-BoldItal	(n019024l.pfb)	;
+
+/NimbusSanL-ReguCond	(n019043l.pfb)	;
+/NimbusSanL-ReguCondItal	(n019063l.pfb)	;
+/NimbusSanL-BoldCond	(n019044l.pfb)	;
+/NimbusSanL-BoldCondItal	(n019064l.pfb)	;
+
+/URWPalladioL-Roma	(p052003l.pfb)	;
+/URWPalladioL-Ital	(p052023l.pfb)	;
+/URWPalladioL-Bold	(p052004l.pfb)	;
+/URWPalladioL-BoldItal	(p052024l.pfb)	;
+
+/CenturySchL-Roma	(c059013l.pfb)	;
+/CenturySchL-Ital	(c059033l.pfb)	;
+/CenturySchL-Bold	(c059016l.pfb)	;
+/CenturySchL-BoldItal	(c059036l.pfb)	;
+
+/NimbusRomNo9L-Regu	(n021003l.pfb)	;
+/NimbusRomNo9L-ReguItal	(n021023l.pfb)	;
+/NimbusRomNo9L-Medi	(n021004l.pfb)	;
+/NimbusRomNo9L-MediItal	(n021024l.pfb)	;
+
+/StandardSymL	(s050000l.pfb)	;
+
+/URWChanceryL-MediItal	(z003034l.pfb)	;
+
+/Dingbats	(d050000l.pfb)	;
+
+% Aliases
+
+/Bookman-Demi			/URWBookmanL-DemiBold	;
+/Bookman-DemiItalic		/URWBookmanL-DemiBoldItal	;
+/Bookman-Light			/URWBookmanL-Ligh	;
+/Bookman-LightItalic		/URWBookmanL-LighItal	;
+
+/Courier			/NimbusMonL-Regu	;
+/Courier-Oblique		/NimbusMonL-ReguObli	;
+/Courier-Bold			/NimbusMonL-Bold	;
+/Courier-BoldOblique		/NimbusMonL-BoldObli	;
+
+/AvantGarde-Book		/URWGothicL-Book	;
+/AvantGarde-BookOblique		/URWGothicL-BookObli	;
+/AvantGarde-Demi		/URWGothicL-Demi	;
+/AvantGarde-DemiOblique		/URWGothicL-DemiObli	;
+
+% Solaris 2 DPS has Helvetica as a Type1 font.
+%/Helvetica			/NimbusSanL-Regu	;
+%/Helvetica-Oblique		/NimbusSanL-ReguItal	;
+%/Helvetica-Bold			/NimbusSanL-Bold	;
+%/Helvetica-BoldOblique		/NimbusSanL-BoldItal	;
+
+/Helvetica-Narrow		/NimbusSanL-ReguCond	;
+/Helvetica-Narrow-Oblique	/NimbusSanL-ReguCondItal	;
+/Helvetica-Narrow-Bold		/NimbusSanL-BoldCond	;
+/Helvetica-Narrow-BoldOblique	/NimbusSanL-BoldCondItal	;
+
+/Palatino-Roman			/URWPalladioL-Roma	;
+/Palatino-Italic		/URWPalladioL-Ital	;
+/Palatino-Bold			/URWPalladioL-Bold	;
+/Palatino-BoldItalic		/URWPalladioL-BoldItal	;
+
+/NewCenturySchlbk-Roman		/CenturySchL-Roma	;
+/NewCenturySchlbk-Italic	/CenturySchL-Ital	;
+/NewCenturySchlbk-Bold		/CenturySchL-Bold	;
+/NewCenturySchlbk-BoldItalic	/CenturySchL-BoldItal	;
+
+% Solaris 2 DPS has Times as a Type1 font.
+%/Times-Roman			/NimbusRomNo9L-Regu	;
+%/Times-Italic			/NimbusRomNo9L-ReguItal	;
+%/Times-Bold			/NimbusRomNo9L-Medi	;
+%/Times-BoldItalic		/NimbusRomNo9L-MediItal	;
+
+% Solaris 2 DPS has Symbol as a Type1 font.
+%/Symbol				/StandardSymL	;
+
+/ZapfChancery-MediumItalic	/URWChanceryL-MediItal	;
+
+/ZapfDingbats			/Dingbats	;
+
+% 
+%
+% Type 1 fonts contributed to the X11R5 distribution.
+%
+
+% The following notice accompanied the Charter fonts.
+%
+% (c) Copyright 1989-1992, Bitstream Inc., Cambridge, MA.
+%
+% You are hereby granted permission under all Bitstream propriety rights
+% to use, copy, modify, sublicense, sell, and redistribute the 4 Bitstream
+% Charter (r) Type 1 outline fonts and the 4 Courier Type 1 outline fonts
+% for any purpose and without restriction; provided, that this notice is
+% left intact on all copies of such fonts and that Bitstream's trademark
+% is acknowledged as shown below on all unmodified copies of the 4 Charter
+% Type 1 fonts.
+%
+% BITSTREAM CHARTER is a registered trademark of Bitstream Inc.
+
+/CharterBT-Roman		(bchr.pfa)	;
+/CharterBT-Italic		(bchri.pfa)	;
+/CharterBT-Bold			(bchb.pfa)	;
+/CharterBT-BoldItalic		(bchbi.pfa)	;
+
+% Aliases
+
+/Charter-Roman			/CharterBT-Roman	;
+/Charter-Italic			/CharterBT-Italic	;
+/Charter-Bold			/CharterBT-Bold		;
+/Charter-BoldItalic		/CharterBT-BoldItalic	;
+
+% The following notice accompanied the Utopia font:
+%
+%   Permission to use, reproduce, display and distribute the listed
+%   typefaces is hereby granted, provided that the Adobe Copyright notice
+%   appears in all whole and partial copies of the software and that the
+%   following trademark symbol and attribution appear in all unmodified
+%   copies of the software:
+%
+%           Copyright (c) 1989 Adobe Systems Incorporated
+%           Utopia (R)
+%           Utopia is a registered trademark of Adobe Systems Incorporated
+%
+%   The Adobe typefaces (Type 1 font program, bitmaps and Adobe Font
+%   Metric files) donated are:
+%
+%           Utopia Regular
+%           Utopia Italic
+%           Utopia Bold
+%           Utopia Bold Italic
+
+/Utopia-Regular		(putr.pfa)	;
+/Utopia-Italic		(putri.pfa)	;
+/Utopia-Bold		(putb.pfa)	;
+/Utopia-BoldItalic	(putbi.pfa)	;
+
+% 
+%
+% Fonts contributed by URW GmbH for distribution under the GNU License.
+% The following notice accompanied these fonts:
+%
+% U004006T URW Grotesk 2031 Bold PostScript Type 1 Font Program
+% U003043T URW Antiqua 2051 Regular Condensed PostScript Type 1 Font Program
+%
+% Copyright (c) 1992 URW GmbH, Hamburg, Germany
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation; either version 2 of the License, or
+% (at your option) later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; wihtout even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+% See the GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this program; if not, write to the Free Software
+% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 U.S.A.
+%
+% Address:
+% URW GmbH
+% PC Support
+% Harksheider Strasse 102
+% 2000 Hamburg 65
+% Germany
+% Phone: +49 40 60 60 50       (Reception)
+% Phone: +49 40 60 60 52 30   (PC Support)
+% Fax    : +49 40 60 60 52 52
+%
+
+/URWAntiquaT-RegularCondensed	(u003043t.gsf)	;
+/URWGroteskT-Bold		(u004006t.gsf)	;
+
+% 
+%
+% Shareware Kana fonts.  These are subject to the following notice:
+%
+% These copyrighted fonts were developed by Kevin Hartig. Permission is
+% granted to freely distribute them in entirety along with this statement.
+% This is shareware. If you decide to use these fonts please contribute
+% $10 US to help support further freeware and shareware software development.
+% Questions and comments may be sent to:
+%
+% hartig@fsl.noaa.gov
+% khartig@nyx.cs.du.edu
+%
+% Kevin Hartig
+% 1126 Collyer Street
+% Longmont, CO 80501 USA
+% 
+% copyright 1993.
+
+% Hiragana and Katakana fonts.  The character names are inappropriate,
+% and the encoding is probably not related to any known standard.
+
+/Calligraphic-Hiragana		(fhirw.gsf)	;
+/Calligraphic-Katakana		(fkarw.gsf)	;
+
+% 
+%
+% Public-domain fonts.  These have no copyright, and are of unknown quality.
+
+% Cyrillic fonts.  The character names are inappropriate,
+% and the encoding is probably not related to any known standard.
+
+/Shareware-Cyrillic-Regular	(fcyr.gsf)	;
+/Shareware-Cyrillic-Italic	(fcyri.gsf)	;
+
+% Aliases
+/Cyrillic			/Cyrillic-Regular	;
+/Cyrillic-Regular		/Shareware-Cyrillic-Regular	;
+/Cyrillic-Italic		/Shareware-Cyrillic-Italic	;
+
+% 
+%
+% Fonts converted from Hershey outlines.  These are constructed and
+% maintained manually.  These are also in the public domain.
+%
+% The suggested UniqueID's and filenames are constructed differently for
+% these than for the ones above, because of the strange way that the Hershey
+% fonts were constructed.  The scheme for these looks like:
+%
+% 42TTXY0
+%
+% TT = typeface, X = ``class'', Y = variation
+%
+% The typeface names and numbers are listed in fonts.mak.
+%
+% class:
+% 0 = normal			= r
+% 1 = simplex			= s
+% 2 = complex			= c
+% 3 = triplex			= t
+% 4 = duplex			= d
+%
+% variation:
+% 0 = normal			(omitted)
+% 1 = oblique			= o
+% 2 = italic			= i
+% 3 = bold			= b
+% 4 = bold oblique		= bo
+% 5 = bold italic		= bi
+%
+
+% Fonts created by Thomas Wolff <wolff@inf.fu-berlin.de>, by adding
+% accents, accented characters, and various other non-alphabetics
+% to the original Hershey fonts.  These are "freeware", not to be sold.
+
+/Hershey-Gothic-English		(hrger.pfa)	;	% 5066533
+/Hershey-Gothic-German		(hrgrr.pfa)	;
+/Hershey-Gothic-Italian		(hritr.pfa)	; 
+
+/Hershey-Plain-Duplex		(hrpld.pfa)	;
+/Hershey-Plain-Duplex-Italic	(hrpldi.pfa)	;
+/Hershey-Plain-Triplex		(hrplt.pfa)	;
+/Hershey-Plain-Triplex-Italic	(hrplti.pfa)	;
+
+/Hershey-Script-Complex		(hrscc.pfa)	;
+/Hershey-Script-Simplex		(hrscs.pfa)	;	% 5066541
+
+% Fonts created algorithmically from the above.
+
+/Hershey-Gothic-English-Bold		(hrgerb.gsf)	;	% 5066542
+/Hershey-Gothic-English-Oblique		(hrgero.gsf)	;
+/Hershey-Gothic-English-SemiBold	(hrgerd.gsf)	;
+/Hershey-Gothic-German-Bold		(hrgrrb.gsf)	;
+/Hershey-Gothic-German-Oblique		(hrgrro.gsf)	;
+/Hershey-Gothic-Italian-Bold		(hritrb.gsf)	;
+/Hershey-Gothic-Italian-Oblique		(hritro.gsf)	;
+
+/Hershey-Plain-Duplex-Bold		(hrpldb.gsf)	;
+/Hershey-Plain-Duplex-Bold-Italic	(hrpldbi.gsf)	;
+/Hershey-Plain-Triplex-Bold		(hrpltb.gsf)	;
+/Hershey-Plain-Triplex-Bold-Italic	(hrpltbi.gsf)	;
+
+/Hershey-Script-Complex-Bold		(hrsccb.gsf)	;
+/Hershey-Script-Complex-Oblique		(hrscco.gsf)	;
+/Hershey-Script-Simplex-Bold		(hrscsb.gsf)	;
+/Hershey-Script-Simplex-Oblique		(hrscso.gsf)	;	% 5066556
+
+% Fonts consisting only of characters from the original Hershey
+% distribution.  These are Type 3 fonts.
+
+/Hershey-Greek-Complex			(hrgkc.gsf)	;	% 5066557
+/Hershey-Greek-Simplex			(hrgks.gsf)	;
+
+/Hershey-Plain				(hrplr.gsf)	;
+/Hershey-Plain-Simplex			(hrpls.gsf)	;	% 5066560
+
+% Fonts created algorithmically from the above.
+
+/Hershey-Plain-Bold			(hrplrb.gsf)	;	% 5066561
+/Hershey-Plain-Bold-Oblique		(hrplrbo.gsf)	;
+/Hershey-Plain-Oblique			(hrplro.gsf)	;
+/Hershey-Plain-Simplex-Bold		(hrplsb.gsf)	;
+/Hershey-Plain-Simplex-Bold-Oblique	(hrplsbo.gsf)	;
+/Hershey-Plain-Simplex-Oblique		(hrplso.gsf)	;	% 5066566
+
+% This font, and only this font among the Hershey fonts, uses
+% the SymbolEncoding.
+
+/Hershey-Symbol				(hrsyr.gsf)	;	% 5066567
+% 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%  Solaris 2 Display PostScript Type1 and Type3 fonts...
+%
+
+/Helvetica			(Helvetica.pfa)			;
+/Helvetica-Bold			(Helvetica-Bold.pfa)		;
+/Helvetica-BoldOblique		(Helvetica-BoldOblique.pfa)	;
+/Helvetica-Oblique		(Helvetica-Oblique.pfa)		;
+
+/Symbol				(Symbol.pfa)			;
+/SymbolSet			/Symbol				;
+
+/Times-Bold			(Times-Bold.pfa)		;
+/Times-BoldItalic		(Times-BoldItalic.pfa)		;
+/Times-Italic			(Times-Italic.pfa)		;
+/Times-Roman			(Times-Roman.pfa)		;
+/TimesNewRoman			/Times-Roman			;
+/TimesNewRoman-Bold		/Times-Bold			;
+/TimesNewRoman-BoldItalic	/Times-BoldItalic		;
+/TimesNewRoman-Italic		/Times-Italic			;
+
+/Dijkstra			(Dijkstra.ps)			;
+
+/Hershey-Cyrillic		(HrshCyr.ps)			;
+
+/Hershey-Gothic			(HrshGoth.ps)			;
+
+/Hershey-Greek			(HrshGrk.ps)			;
+/Hershey-Greek-Narrow		(HrshGrkN.ps)			;
+/Hershey-Greekp			(HrshGrkp.ps)			;
+
+/Hershey-Italic			(HrshI.ps)			;
+/Hershey-Italic-Narrow		(HrshIN.ps)			;
+/Hershey-Italic-Wide		(HrshIW.ps)			;
+/Hershey-Roman			(HrshRom.ps)			;
+/Hershey-Roman-Narrow		(HrshRomN.ps)			;
+/Hershey-Roman-Wide		(HrshRomW.ps)			;
+/Hershey-Romand			(HrshRomd.ps)			;
+/Hershey-Romanp			(HrshRomp.ps)			;
+
+/Hershey-Script			(HrshScr.ps)			;
+/Hershey-Script-Narrow		(HrshScrN.ps)			;

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/Fontmap.Ult

@@ -0,0 +1,146 @@
+%    Copyright (C) 1990, 1995, 1999 Aladdin Enterprises.  All rights reserved.
+%
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: Fontmap.Ult 6300 2005-12-28 19:56:24Z giles $
+% Fontmap.Ult is derived from the standard Fontmap file distributed with
+% ghostscript; for credits and sources see that file.  The modifications here
+% are valid for ULTRIX 4.3, and consist of defining some fonts and font
+% aliases as the licensed fontfiles included in ULTRIX for use on ULTRIX
+% workstations, which give better quality than the free fontfiles available
+% for ghostscript.  Under ULTRIX 4.3 the licensed fontfiles are found in
+%
+%	/usr/lib/DPS/outline/decwin
+%
+% so that directory must either be built into ghostscript by redefining
+% GS_LIB_DEFAULT when ghostscript is compiled, or else by defining an
+% environmental variable GS_LIB_DEFAULT, which contains it as an element of
+% the path, when running ghostscript.  For instance, under the KornShell
+%
+%	GS_LIB_DEFAULT=/usr/gs:/usr/lib/DPS/outline/decwin:/usr/gs/fonts
+%	export GS_LIB_DEFAULT
+%
+% Peter Kaiser (kaiser@acm.org) 27 January 1995
+% Updated by L. Peter Deutsch (ghost@aladdin.com) 5 January 1999
+%   to include correct aliasing for the Bitstream Charter fonts
+
+/AvantGarde-Book			(AvantGarde-Book)		;
+/AvantGarde-BookOblique			(AvantGarde-BookOblique)	;
+/AvantGarde-Demi			(AvantGarde-Demi)		;
+/AvantGarde-DemiOblique			(AvantGarde-DemiOblique)	;
+/Courier				(Courier)			;
+/Courier-Bold				(Courier-Bold)			;
+/Courier-BoldOblique			(Courier-BoldOblique)		;
+/Courier-Oblique			(Courier-Oblique)		;
+/Helvetica				(Helvetica)			;
+/Helvetica-Bold				(Helvetica-Bold)		;
+/Helvetica-BoldOblique			(Helvetica-BoldOblique)		;
+/Helvetica-Oblique			(Helvetica-Oblique)		;
+/LubalinGraph-Book			(LubalinGraph-Book)		;
+/LubalinGraph-BookOblique		(LubalinGraph-BookOblique)	;
+/LubalinGraph-Demi			(LubalinGraph-Demi)		;
+/LubalinGraph-DemiOblique		(LubalinGraph-DemiOblique)	;
+/NewCenturySchlbk-Bold			(NewCenturySchlbk-Bold)		;
+/NewCenturySchlbk-BoldItalic		(NewCenturySchlbk-BoldItalic)	;
+/NewCenturySchlbk-Italic		(NewCenturySchlbk-Italic)	;
+/NewCenturySchlbk-Roman			(NewCenturySchlbk-Roman)	;
+/Souvenir-Demi				(Souvenir-Demi)			;
+/Souvenir-DemiItalic			(Souvenir-DemiItalic)		;
+/Souvenir-Light				(Souvenir-Light)		;
+/Souvenir-LightItalic			(Souvenir-LightItalic)		;
+/Symbol					(Symbol)			;
+/Times-Bold				(Times-Bold)			;
+/Times-BoldItalic			(Times-BoldItalic)		;
+/Times-Italic				(Times-Italic)			;
+/Times-Roman				(Times-Roman)			;
+
+% Fonts distributed as part of ghostscript
+
+/Bookman-Demi				(pbkd.gsf)	;
+/Bookman-DemiItalic			(pbkdi.gsf)	;
+/Bookman-Light				(pbkl.gsf)	;
+/Bookman-LightItalic			(pbkli.gsf)	;
+/Calligraphic-Hiragana			(fhirw.gsf)	;
+/Calligraphic-Katakana			(fkarw.gsf)	;
+/CharterBT-Bold				(bchb.pfa)	;
+/CharterBT-BoldItalic			(bchbi.pfa)	;
+/CharterBT-Italic			(bchri.pfa)	;
+/CharterBT-Roman			(bchr.pfa)	;
+/Hershey-Gothic-English			(hrger.pfa)	;
+/Hershey-Gothic-English-Bold		(hrgerb.gsf)	;
+/Hershey-Gothic-English-Oblique		(hrgero.gsf)	;
+/Hershey-Gothic-English-SemiBold	(hrgerd.gsf)	;
+/Hershey-Gothic-German			(hrgrr.pfa)	;
+/Hershey-Gothic-German-Bold		(hrgrrb.gsf)	;
+/Hershey-Gothic-German-Oblique		(hrgrro.gsf)	;
+/Hershey-Gothic-Italian			(hritr.pfa)	;
+/Hershey-Gothic-Italian-Bold		(hritrb.gsf)	;
+/Hershey-Gothic-Italian-Oblique		(hritro.gsf)	;
+/Hershey-Greek-Complex			(hrgkc.gsf)	;
+/Hershey-Greek-Simplex			(hrgks.gsf)	;
+/Hershey-Plain				(hrplr.gsf)	;
+/Hershey-Plain-Bold			(hrplrb.gsf)	;
+/Hershey-Plain-Bold-Oblique		(hrplrbo.gsf)	;
+/Hershey-Plain-Duplex			(hrpld.pfa)	;
+/Hershey-Plain-Duplex-Bold		(hrpldb.gsf)	;
+/Hershey-Plain-Duplex-Bold-Italic	(hrpldbi.gsf)	;
+/Hershey-Plain-Duplex-Italic		(hrpldi.pfa)	;
+/Hershey-Plain-Oblique			(hrplro.gsf)	;
+/Hershey-Plain-Simplex			(hrpls.gsf)	;
+/Hershey-Plain-Simplex-Bold		(hrplsb.gsf)	;
+/Hershey-Plain-Simplex-Bold-Oblique	(hrplsbo.gsf)	;
+/Hershey-Plain-Simplex-Oblique		(hrplso.gsf)	;
+/Hershey-Plain-Triplex			(hrplt.pfa)	;
+/Hershey-Plain-Triplex-Bold		(hrpltb.gsf)	;
+/Hershey-Plain-Triplex-Bold-Italic	(hrpltbi.gsf)	;
+/Hershey-Plain-Triplex-Italic		(hrplti.pfa)	;
+/Hershey-Script-Complex			(hrscc.pfa)	;
+/Hershey-Script-Complex-Bold		(hrsccb.gsf)	;
+/Hershey-Script-Complex-Oblique		(hrscco.gsf)	;
+/Hershey-Script-Simplex			(hrscs.pfa)	;
+/Hershey-Script-Simplex-Bold		(hrscsb.gsf)	;
+/Hershey-Script-Simplex-Oblique		(hrscso.gsf)	;
+/Hershey-Symbol				(hrsyr.gsf)	;
+/NimbusRomanNo9L-Regular		(n021003l.gsf)	;
+/NimbusSansL-Regular			(n019003l.gsf)	;
+/Palatino-Bold				(pplb.gsf)	;
+/Palatino-BoldItalic			(pplbi.gsf)	;
+/Palatino-Italic			(pplri.gsf)	;
+/Palatino-Roman				(pplr.gsf)	;
+/Shareware-Cyrillic-Italic		(fcyri.gsf)	;
+/Shareware-Cyrillic-Regular		(fcyr.gsf)	;
+/URWAntiquaT-RegularCondensed		(u003043t.gsf)	;
+/URWGroteskT-Bold			(u004006t.gsf)	;
+/Utopia-Bold				(putb.pfa)	;
+/Utopia-BoldItalic			(putbi.pfa)	;
+/Utopia-Italic				(putri.pfa)	;
+/Utopia-Regular				(putr.pfa)	;
+/ZapfChancery				(zcr.gsf)	;
+/ZapfChancery-Bold			(zcb.gsf)	;
+/ZapfChancery-Oblique			(zcro.gsf)	;
+/ZapfDingbats				(pzdr.gsf)	;
+
+% Font aliases
+
+/Charter-Roman			/CharterBT-Roman	;
+/Charter-Italic			/CharterBT-Italic	;
+/Charter-Bold			/CharterBT-Bold		;
+/Charter-BoldItalic		/CharterBT-BoldItalic	;
+/Courier-BoldItalic			/Courier-BoldOblique		;
+/Courier-Italic				/Courier-Oblique		;
+/Cyrillic				/Shareware-Cyrillic-Regular	;
+/Cyrillic-Italic			/Shareware-Cyrillic-Italic	;
+/Cyrillic-Regular			/Shareware-Cyrillic-Regular	;
+/Helvetica-Narrow-Bold			/Helvetica-Narrow		;
+/ZapfChancery-MediumItalic		/ZapfChancery-Oblique		;

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/Fontmap.VMS

@@ -0,0 +1,424 @@
+% fontmap.vms - Ghostscript fontmap for VAX/VMS systems with DECwindows/Motif.
+%
+% Mathog, 14-SEP-2000.  Modified slightly from that provided by 6.01.
+% Changed to use Courier font from Decwindows instead of Ghostscript
+% The hershey fonts are listed, but they are not constructed during a regular
+% build of the package.
+%
+% **************************
+%Uses all the XDPS Outline fonts (Type 1 fonts) provided with Motif.
+%
+%XDPS on VAX/VMS does not have Bookman, Palatino and ZapfChancery fonts, so
+%we still have to use the Ghostscript fonts for those. Helvetica-Narrow is also
+%missing. But then you get the LubalinGraph and Souvenir fonts which are just
+%beautiful!
+
+/AvantGarde-Book
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]AVANTGARDE-BOOK.XDPS$OUTLINE) ;
+/AvantGarde-BookOblique
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]AVANTGARDE-BOOKOBLIQUE.XDPS$OUTLINE) ;
+/AvantGarde-Demi
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]AVANTGARDE-DEMI.XDPS$OUTLINE) ;
+/AvantGarde-DemiOblique
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]AVANTGARDE-DEMIOBLIQUE.XDPS$OUTLINE) ;
+/Courier-Bold
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]COURIER-BOLD.XDPS$OUTLINE) ;
+/Courier-BoldOblique
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]COURIER-BOLDOBLIQUE.XDPS$OUTLINE) ;
+/Courier-Oblique
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]COURIER-OBLIQUE.XDPS$OUTLINE) ;
+/Courier
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]COURIER.XDPS$OUTLINE) ;
+/Helvetica-Bold
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]HELVETICA-BOLD.XDPS$OUTLINE) ;
+/Helvetica-BoldOblique
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]HELVETICA-BOLDOBLIQUE.XDPS$OUTLINE) ;
+/Helvetica-Oblique
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]HELVETICA-OBLIQUE.XDPS$OUTLINE) ;
+/Helvetica
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]HELVETICA.XDPS$OUTLINE) ;
+/LubalinGraph-Book
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]LUBALINGRAPH-BOOK.XDPS$OUTLINE) ;
+/LubalinGraph-BookOblique
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]LUBALINGRAPH-BOOKOBLIQUE.XDPS$OUTLINE) ;
+/LubalinGraph-Demi
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]LUBALINGRAPH-DEMI.XDPS$OUTLINE) ;
+/LubalinGraph-DemiOblique
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]LUBALINGRAPH-DEMIOBLIQUE.XDPS$OUTLINE) ;
+/NewCenturySchlbk-Roman
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]NEWCENTURYSCHLBK-ROMAN.XDPS$OUTLINE) ;
+/NewCenturySchlbk-Italic
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]NEWCENTURYSCHLBK-ITALIC.XDPS$OUTLINE) ;
+/NewCenturySchlbk-Bold
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]NEWCENTURYSCHLBK-BOLD.XDPS$OUTLINE) ;
+/NewCenturySchlbk-BoldItalic
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]NEWCENTURYSCHLBK-BOLDITALIC.XDPS$OUTLINE) ;
+/Souvenir-Light
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]SOUVENIR-LIGHT.XDPS$OUTLINE) ;
+/Souvenir-LightItalic
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]SOUVENIR-LIGHTITALIC.XDPS$OUTLINE) ;
+/Souvenir-Demi
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]SOUVENIR-DEMI.XDPS$OUTLINE) ;
+/Souvenir-DemiItalic
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]SOUVENIR-DEMIITALIC.XDPS$OUTLINE) ;
+%If you want the Apple symbol (SIC!) then remove the comment (%)
+%in front of character 240 in the following file (he he he)
+/Symbol
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]SYMBOL.XDPS$OUTLINE) ;
+/Times-Roman
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]TIMES-ROMAN.XDPS$OUTLINE) ;
+/Times-Italic
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]TIMES-ITALIC.XDPS$OUTLINE) ;
+/Times-Bold
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]TIMES-BOLD.XDPS$OUTLINE) ;
+/Times-BoldItalic
+    (SYS$COMMON:[SYSFONT.XDPS.OUTLINE]TIMES-BOLDITALIC.XDPS$OUTLINE) ;
+
+% 
+%
+% Fonts contributed by:
+%	URW++ Design and Development Incorporated
+%	Poppenbuetteler Bogen 29A
+%	D-22399 Hamburg
+%	Germany
+%	tel. +49 (40) 60 60 50
+%	fax +49 (40) 60 60 51 11
+%	http://www.urwpp.de
+% for distribution under the GNU License and Aladdin Free Public License.
+% See the notice at the head of this Fontmap file for licensing terms.
+% Each of these fonts is individually covered by the license:
+% for licensing purposes, they are not "part of" any larger entity.
+% The following notice applies to these fonts:
+%
+%	Copyright URW Software, Copyright 1994 by URW.
+%
+
+% Actual fonts
+
+/URWBookmanL-DemiBold	(b018015l.pfb)	;
+/URWBookmanL-DemiBoldItal	(b018035l.pfb)	;
+/URWBookmanL-Ligh	(b018012l.pfb)	;
+/URWBookmanL-LighItal	(b018032l.pfb)	;
+
+/NimbusMonL-Regu	(n022003l.pfb)	;
+/NimbusMonL-ReguObli	(n022023l.pfb)	;
+/NimbusMonL-Bold	(n022004l.pfb)	;
+/NimbusMonL-BoldObli	(n022024l.pfb)	;
+
+/URWGothicL-Book	(a010013l.pfb)	;
+/URWGothicL-BookObli	(a010033l.pfb)	;
+/URWGothicL-Demi	(a010015l.pfb)	;
+/URWGothicL-DemiObli	(a010035l.pfb)	;
+
+/NimbusSanL-Regu	(n019003l.pfb)	;
+/NimbusSanL-ReguItal	(n019023l.pfb)	;
+/NimbusSanL-Bold	(n019004l.pfb)	;
+/NimbusSanL-BoldItal	(n019024l.pfb)	;
+
+/NimbusSanL-ReguCond	(n019043l.pfb)	;
+/NimbusSanL-ReguCondItal	(n019063l.pfb)	;
+/NimbusSanL-BoldCond	(n019044l.pfb)	;
+/NimbusSanL-BoldCondItal	(n019064l.pfb)	;
+
+/URWPalladioL-Roma	(p052003l.pfb)	;
+/URWPalladioL-Ital	(p052023l.pfb)	;
+/URWPalladioL-Bold	(p052004l.pfb)	;
+/URWPalladioL-BoldItal	(p052024l.pfb)	;
+
+/CenturySchL-Roma	(c059013l.pfb)	;
+/CenturySchL-Ital	(c059033l.pfb)	;
+/CenturySchL-Bold	(c059016l.pfb)	;
+/CenturySchL-BoldItal	(c059036l.pfb)	;
+
+/NimbusRomNo9L-Regu	(n021003l.pfb)	;
+/NimbusRomNo9L-ReguItal	(n021023l.pfb)	;
+/NimbusRomNo9L-Medi	(n021004l.pfb)	;
+/NimbusRomNo9L-MediItal	(n021024l.pfb)	;
+
+/StandardSymL	(s050000l.pfb)	;
+
+/URWChanceryL-MediItal	(z003034l.pfb)	;
+
+/Dingbats	(d050000l.pfb)	;
+
+
+% Aliases
+
+/Bookman-Demi			/URWBookmanL-DemiBold	;
+/Bookman-DemiItalic		/URWBookmanL-DemiBoldItal	;
+/Bookman-Light			/URWBookmanL-Ligh	;
+/Bookman-LightItalic		/URWBookmanL-LighItal	;
+
+%/Courier			/NimbusMonL-Regu	;
+%/Courier-Oblique		/NimbusMonL-ReguObli	;
+%/Courier-Bold			/NimbusMonL-Bold	;
+%/Courier-BoldOblique		/NimbusMonL-BoldObli	;
+
+%/AvantGarde-Book		/URWGothicL-Book	;
+%/AvantGarde-BookOblique		/URWGothicL-BookObli	;
+%/AvantGarde-Demi		/URWGothicL-Demi	;
+%/AvantGarde-DemiOblique		/URWGothicL-DemiObli	;
+
+%/Helvetica			/NimbusSanL-Regu	;
+%/Helvetica-Oblique		/NimbusSanL-ReguItal	;
+%/Helvetica-Bold			/NimbusSanL-Bold	;
+%/Helvetica-BoldOblique		/NimbusSanL-BoldItal	;
+
+/Helvetica-Narrow		/NimbusSanL-ReguCond	;
+/Helvetica-Narrow-Oblique	/NimbusSanL-ReguCondItal	;
+/Helvetica-Narrow-Bold		/NimbusSanL-BoldCond	;
+/Helvetica-Narrow-BoldOblique	/NimbusSanL-BoldCondItal	;
+
+/Palatino-Roman			/URWPalladioL-Roma	;
+/Palatino-Italic		/URWPalladioL-Ital	;
+/Palatino-Bold			/URWPalladioL-Bold	;
+/Palatino-BoldItalic		/URWPalladioL-BoldItal	;
+
+%/NewCenturySchlbk-Roman		/CenturySchL-Roma	;
+%/NewCenturySchlbk-Italic	/CenturySchL-Ital	;
+%/NewCenturySchlbk-Bold		/CenturySchL-Bold	;
+%/NewCenturySchlbk-BoldItalic	/CenturySchL-BoldItal	;
+
+%/Times-Roman			/NimbusRomNo9L-Regu	;
+%/Times-Italic			/NimbusRomNo9L-ReguItal	;
+%/Times-Bold			/NimbusRomNo9L-Medi	;
+%/Times-BoldItalic		/NimbusRomNo9L-MediItal	;
+
+%/Symbol				/StandardSymL	;
+
+/ZapfChancery-MediumItalic	/URWChanceryL-MediItal	;
+
+/ZapfDingbats			/Dingbats	;
+
+
+% 
+%
+% Type 1 fonts contributed to the X11R5 distribution.
+%
+
+% The following notice accompanied the Charter fonts.
+%
+% (c) Copyright 1989-1992, Bitstream Inc., Cambridge, MA.
+%
+% You are hereby granted permission under all Bitstream propriety rights
+% to use, copy, modify, sublicense, sell, and redistribute the 4 Bitstream
+% Charter (r) Type 1 outline fonts and the 4 Courier Type 1 outline fonts
+% for any purpose and without restriction; provided, that this notice is
+% left intact on all copies of such fonts and that Bitstream's trademark
+% is acknowledged as shown below on all unmodified copies of the 4 Charter
+% Type 1 fonts.
+%
+% BITSTREAM CHARTER is a registered trademark of Bitstream Inc.
+/CharterBT-Roman		(bchr.pfa)	;
+/CharterBT-Italic		(bchri.pfa)	;
+/CharterBT-Bold			(bchb.pfa)	;
+/CharterBT-BoldItalic		(bchbi.pfa)	;
+%Charter to CharterBT aliasing
+/Charter-Roman			/CharterBT-Roman	;
+/Charter-Italic			/CharterBT-Italic	;
+/Charter-Bold			/CharterBT-Bold		;
+/Charter-BoldItalic		/CharterBT-BoldItalic	;
+
+% IBM Courier - Copyright (c) IBM Corporation 1990, 1991
+%/Courier		(ncrr.pfa)	;
+%/Courier-Italic		(ncrri.pfa)	;
+%/Courier-Bold		(ncrb.pfa)	;
+%/Courier-BoldItalic	(ncrbi.pfa)	;
+%Oblique to Italic aliasing
+%/Courier-Oblique		/Courier-Italic		;
+%/Courier-BoldOblique		/Courier-BoldItalic	;
+/Courier-Italic			/Courier-Oblique	;
+/Courier-BoldItalic		/Courier-BoldOblique	;
+
+% The following notice accompanied the Utopia font:
+%
+%   Permission to use, reproduce, display and distribute the listed
+%   typefaces is hereby granted, provided that the Adobe Copyright notice
+%   appears in all whole and partial copies of the software and that the
+%   following trademark symbol and attribution appear in all unmodified
+%   copies of the software:
+%
+%           Copyright (c) 1989 Adobe Systems Incorporated
+%           Utopia (R)
+%           Utopia is a registered trademark of Adobe Systems Incorporated
+%
+%   The Adobe typefaces (Type 1 font program, bitmaps and Adobe Font
+%   Metric files) donated are:
+%
+%           Utopia Regular
+%           Utopia Italic
+%           Utopia Bold
+%           Utopia Bold Italic
+
+/Utopia-Regular		(putr.gsf)	;
+/Utopia-Italic		(putri.gsf)	;
+/Utopia-Bold		(putb.gsf)	;
+/Utopia-BoldItalic	(putbi.gsf)	;
+
+% 
+%
+% Fonts contributed by URW GmbH for distribution under the GNU License.
+% The following notice accompanied these fonts:
+%
+% U004006T URW Grotesk 2031 Bold PostScript Type 1 Font Program
+% U003043T URW Antiqua 2051 Regular Condensed PostScript Type 1 Font Program
+%
+% Copyright (c) 1992 URW GmbH, Hamburg, Germany
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation; either version 2 of the License, or
+% (at your option) later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; wihtout even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+% See the GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this program; if not, write to the Free Software
+% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 U.S.A.
+%
+% Address:
+% URW GmbH
+% PC Support
+% Harksheider Strasse 102
+% 2000 Hamburg 65
+% Germany
+% Phone: +49 40 60 60 50       (Reception)
+% Phone: +49 40 60 60 52 30   (PC Support)
+% Fax    : +49 40 60 60 52 52
+%
+
+/URWAntiquaT-RegularCondensed	(u003043t.gsf)	;
+/URWGroteskT-Bold		(u004006t.gsf)	;
+
+% 
+%
+% Shareware Kana fonts.  These are subject to the following notice:
+%
+% These copyrighted fonts were developed by Kevin Hartig. Permission is
+% granted to freely distribute them in entirety along with this statement.
+% This is shareware. If you decide to use these fonts please contribute
+% $10 US to help support further freeware and shareware software development.
+% Questions and comments may be sent to:
+%
+% hartig@fsl.noaa.gov
+% khartig@nyx.cs.du.edu
+%
+% Kevin Hartig
+% 1126 Collyer Street
+% Longmont, CO 80501 USA
+% 
+% copyright 1993.
+
+% Hiragana and Katakana fonts.  The character names are inappropriate,
+% and the encoding is probably not related to any known standard.
+
+/Calligraphic-Hiragana		(fhirw.gsf)	;
+/Calligraphic-Katakana		(fkarw.gsf)	;
+
+% 
+%
+% Public-domain fonts.  These have no copyright, and are of unknown quality.
+
+% Cyrillic fonts.  The character names are inappropriate,
+% and the encoding is probably not related to any known standard.
+
+/Shareware-Cyrillic-Regular	(fcyr.gsf)	;
+/Shareware-Cyrillic-Italic	(fcyri.gsf)	;
+
+% Aliases
+/Cyrillic			/Cyrillic-Regular	;
+/Cyrillic-Regular		/Shareware-Cyrillic-Regular	;
+/Cyrillic-Italic		/Shareware-Cyrillic-Italic	;
+
+% 
+%
+% Fonts converted from Hershey outlines.  These are constructed and
+% maintained manually.  These are also in the public domain.
+%
+% The suggested UniqueID's and filenames are constructed differently for
+% these than for the ones above, because of the strange way that the Hershey
+% fonts were constructed.  The scheme for these looks like:
+%
+% 42TTXY0
+%
+% TT = typeface, X = ``class'', Y = variation
+%
+% The typeface names and numbers are listed in fonts.mak.
+%
+% class:
+% 0 = normal			= r
+% 1 = simplex			= s
+% 2 = complex			= c
+% 3 = triplex			= t
+% 4 = duplex			= d
+%
+% variation:
+% 0 = normal			(omitted)
+% 1 = oblique			= o
+% 2 = italic			= i
+% 3 = bold			= b
+% 4 = bold oblique		= bo
+% 5 = bold italic		= bi
+%
+
+% Fonts created by Thomas Wolff <wolff@inf.fu-berlin.de>, by adding
+% accents, accented characters, and various other non-alphabetics
+% to the original Hershey fonts.  These are "freeware", not to be sold.
+
+/Hershey-Gothic-English		(hrger.pfa)	;	% 5066533
+/Hershey-Gothic-German		(hrgrr.pfa)	;
+/Hershey-Gothic-Italian		(hritr.pfa)	; 
+
+/Hershey-Plain-Duplex		(hrpld.pfa)	;
+/Hershey-Plain-Duplex-Italic	(hrpldi.pfa)	;
+/Hershey-Plain-Triplex		(hrplt.pfa)	;
+/Hershey-Plain-Triplex-Italic	(hrplti.pfa)	;
+
+/Hershey-Script-Complex		(hrscc.pfa)	;
+/Hershey-Script-Simplex		(hrscs.pfa)	;	% 5066541
+
+% Fonts created algorithmically from the above.
+
+/Hershey-Gothic-English-Bold		(hrgerb.gsf)	;	% 5066542
+/Hershey-Gothic-English-Oblique		(hrgero.gsf)	;
+/Hershey-Gothic-English-SemiBold	(hrgerd.gsf)	;
+/Hershey-Gothic-German-Bold		(hrgrrb.gsf)	;
+/Hershey-Gothic-German-Oblique		(hrgrro.gsf)	;
+/Hershey-Gothic-Italian-Bold		(hritrb.gsf)	;
+/Hershey-Gothic-Italian-Oblique		(hritro.gsf)	;
+
+/Hershey-Plain-Duplex-Bold		(hrpldb.gsf)	;
+/Hershey-Plain-Duplex-Bold-Italic	(hrpldbi.gsf)	;
+/Hershey-Plain-Triplex-Bold		(hrpltb.gsf)	;
+/Hershey-Plain-Triplex-Bold-Italic	(hrpltbi.gsf)	;
+
+/Hershey-Script-Complex-Bold		(hrsccb.gsf)	;
+/Hershey-Script-Complex-Oblique		(hrscco.gsf)	;
+/Hershey-Script-Simplex-Bold		(hrscsb.gsf)	;
+/Hershey-Script-Simplex-Oblique		(hrscso.gsf)	;	% 5066556
+
+% Fonts consisting only of characters from the original Hershey
+% distribution.  These are Type 3 fonts.
+
+/Hershey-Greek-Complex			(hrgkc.gsf)	;	% 5066557
+/Hershey-Greek-Simplex			(hrgks.gsf)	;
+
+/Hershey-Plain				(hrplr.gsf)	;
+/Hershey-Plain-Simplex			(hrpls.gsf)	;	% 5066560
+
+% Fonts created algorithmically from the above.
+
+/Hershey-Plain-Bold			(hrplrb.gsf)	;	% 5066561
+/Hershey-Plain-Bold-Oblique		(hrplrbo.gsf)	;
+/Hershey-Plain-Oblique			(hrplro.gsf)	;
+/Hershey-Plain-Simplex-Bold		(hrplsb.gsf)	;
+/Hershey-Plain-Simplex-Bold-Oblique	(hrplsbo.gsf)	;
+/Hershey-Plain-Simplex-Oblique		(hrplso.gsf)	;	% 5066566
+
+% This font, and only this font among the Hershey fonts, uses
+% the SymbolEncoding.
+
+/Hershey-Symbol				(hrsyr.gsf)	;	% 5066567

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/Info-macos.plist

@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist SYSTEM "file://localhost/System/Library/DTDs/PropertyList.dtd">
+<plist version="0.9">
+<dict>
+        <key>CFBundleIdentifier</key>
+        <string>com.ghostscript.Ghostscript</string>
+        <key>CFBundleName</key>
+        <string>Ghostscript</string>
+        <key>CFBundleShortVersionString</key>
+        <string>703</string>
+        <key>NSExecutable</key>
+        <string>Ghostscript</string>
+</dict>
+</plist>

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/PDFA_def.ps

@@ -0,0 +1,43 @@
+%!
+% $Id: PDFA_def.ps 8284 2007-10-10 17:40:38Z giles $
+% This is a sample prefix file for creating a PDF/A document.
+% Feel free to modify entries marked with "Customize".
+
+% This assumes an ICC profile to reside in the file (ISO Coated sb.icc),
+% unless the user modifies the corresponding line below.
+
+
+systemdict /ProcessColorModel known {
+  systemdict /ProcessColorModel get dup /DeviceGray ne exch /DeviceCMYK ne and
+} {
+  true
+} ifelse 
+{ (ERROR: ProcessColorModel must be /DeviceGray or DeviceCMYK.)=
+  /ProcessColorModel cvx /rangecheck signalerror
+} if
+
+
+% Define entries to the document Info dictionary :
+
+/ICCProfile (ISO Coated sb.icc)   % Customize.
+def
+
+[ /Title (Title)                  % Customize.
+  /DOCINFO pdfmark
+
+% Define an ICC profile :
+
+[/_objdef {icc_PDFA} /type /stream /OBJ pdfmark
+[{icc_PDFA} <</N systemdict /ProcessColorModel get /DeviceGray eq {1} {4} ifelse >> /PUT pdfmark
+[{icc_PDFA} ICCProfile (r) file /PUT pdfmark
+
+% Define the output intent dictionary :
+
+[/_objdef {OutputIntent_PDFA} /type /dict /OBJ pdfmark
+[{OutputIntent_PDFA} <<
+  /Type /OutputIntent             % Must be so (the standard requires).
+  /S /GTS_PDFA1                   % Must be so (the standard requires).
+  /DestOutputProfile {icc_PDFA}            % Must be so (see above).
+  /OutputConditionIdentifier (CGATS TR001)      % Customize
+>> /PUT pdfmark
+[{Catalog} <</OutputIntents [ {OutputIntent_PDFA} ]>> /PUT pdfmark

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/PDFX_def.ps

@@ -0,0 +1,51 @@
+%!
+% $Id: PDFX_def.ps 8284 2007-10-10 17:40:38Z giles $
+% This is a sample prefix file for creating a PDF/X-3 document.
+% Feel free to modify entries marked with "Customize".
+
+% This assumes an ICC profile to reside in the file (ISO Coated sb.icc),
+% unless the user modifies the corresponding line below.
+
+
+systemdict /ProcessColorModel known {
+  systemdict /ProcessColorModel get dup /DeviceGray ne exch /DeviceCMYK ne and
+} {
+  true
+} ifelse 
+{ (ERROR: ProcessColorModel must be /DeviceGray or DeviceCMYK.)=
+  /ProcessColorModel cvx /rangecheck signalerror
+} if
+
+
+% Define entries to the document Info dictionary :
+
+/ICCProfile (ISO Coated sb.icc) def  % Customize or remove.
+
+[ /GTS_PDFXVersion (PDF/X-3:2002) % Must be so (the standard requires).
+  /Title (Title)                  % Customize.
+  /Trapped /False                 % Must be so (Ghostscript doesn't provide other).
+  /DOCINFO pdfmark
+
+% Define an ICC profile :
+
+currentdict /ICCProfile known {
+  [/_objdef {icc_PDFX} /type /stream /OBJ pdfmark
+  [{icc_PDFX} <</N systemdict /ProcessColorModel get /DeviceGray eq {1} {4} ifelse >> /PUT pdfmark
+  [{icc_PDFX} ICCProfile (r) file /PUT pdfmark
+} if
+
+% Define the output intent dictionary :
+
+[/_objdef {OutputIntent_PDFX} /type /dict /OBJ pdfmark
+[{OutputIntent_PDFX} <<
+  /Type /OutputIntent              % Must be so (the standard requires).
+  /S /GTS_PDFX                     % Must be so (the standard requires).
+  /OutputCondition (Commercial and specialty printing) % Customize
+  /Info (none)                     % Customize
+  /OutputConditionIdentifier (CGATS TR001)      % Customize
+  /RegistryName (http://www.color.org)   % Must be so (the standard requires).
+  currentdict /ICCProfile known {
+    /DestOutputProfile {icc_PDFX}  % Must be so (see above).
+  } if
+>> /PUT pdfmark
+[{Catalog} <</OutputIntents [ {OutputIntent_PDFX} ]>> /PUT pdfmark

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/acctest.ps

@@ -0,0 +1,100 @@
+%!
+% Check that operators do their access tests correctly.
+% $Id: acctest.ps 6300 2005-12-28 19:56:24Z giles $
+
+% proc dotest => .
+/dotest
+  {
+    dup
+    mark
+    exch
+    stopped not % False if error, true if no error.
+    { (Allowed access: ) print cleartomark == }
+    if
+    clear
+  }
+def
+
+0 0 moveto % So the show commands don't bomb because of nocurrentpoint.
+
+{ [1 2] executeonly aload }					dotest 
+{ (string) executeonly (seek) anchorsearch }			dotest
+{ (string) (seek) executeonly anchorsearch }			dotest
+{ 100 101 (string) noaccess ashow}				dotest
+{ 100 1 array readonly astore }					dotest
+{ 100 101 102 103 104 (string) noaccess awidthshow }		dotest
+{ 1 dict noacess begin }					dotest
+{ 1 array executeonly 1 array copy }				dotest
+{ 1 array 1 array readonly copy }				dotest
+{ 1 dict noaccess 1 dict copy }					dotest
+{ 1 dict 1 dict readonly copy }					dotest
+{ 1 string executeonly 1 string copy }				dotest
+{ 1 string 1 string readonly copy }				dotest
+{ (100) executeonly cvi }					dotest
+{ (string) executeonly cvn }					dotest
+{ (100.001) executeonly cvr }					dotest
+{ 1 10 1 string readonly cvrs }					dotest
+{ true 5 string readonly cvs }					dotest
+{ 1 dict readonly begin /foo true def }				dotest
+{ 10 array readonly dictstack }					dotest 
+{ 1 string executeonly 1 string eq }				dotest
+{ 1 string 1 string executeonly eq }				dotest
+{ 10 array readonly execstack }					dotest
+{ 1 string noaccess executeonly }				dotest
+{ 1 array noaccess executeonly }				dotest
+{ 1 array executeonly { pop } forall }				dotest
+{ 1 dict noaccess { pop pop } forall }				dotest
+{ 1 string executeonly { pop } forall }				dotest
+{ (string1) executeonly (string2) ge }				dotest
+{ (string1) (string2) executeonly ge }				dotest
+{ 1 array executeonly 0 get }					dotest
+{ 1 dict noaccess /key get }					dotest
+{ 1 string executeonly 0 get }					dotest
+{ 1 array executeonly 0 1 getinterval }				dotest
+{ 1 string executeonly 0 1 getinterval }			dotest
+{ (string1) executeonly (string2) gt }				dotest
+{ (string1) (string2) executeonly gt }				dotest
+{ 1 dict noaccess /key known }					dotest
+{ {} (string) executeonly kshow }				dotest
+{ (string1) executeonly (string2) le }				dotest
+{ (string1) (string2) executeonly le }				dotest
+{ 1 array executeonly length }					dotest
+{ 1 dict noaccess length }					dotest
+{ 1 string executeonly length }					dotest
+%%{ /foo 1 dict def foo begin /bar foo def bar noaccess pop /key load } dotest
+{ (string1) executeonly (string2) lt }				dotest
+{ (string1) (string2) executeonly lt }				dotest
+{ 1 dict noaccess maxlength }					dotest
+{ 1 string executeonly 1 string ne }				dotest
+{ 1 string 1 string executeonly ne }				dotest
+%{ newpath 0 0 moveto (a) false charpath 
+%  {} {} {} {} pathforall closepath }				dotest
+{ 1 array executeonly 0 put }					dotest
+{ 1 dict noaccess /key put }					dotest
+{ 1 string executeonly 0 put }					dotest
+{ 1 array executeonly 0 1 putinterval }				dotest
+{ 1 string executeonly 0 1 putinterval }			dotest
+{ (access.ps) (r) file executeonly read }			dotest
+{ (access.ps) (r) file executeonly 10 string readhexstring }	dotest
+{ (access.ps) (r) file 10 string readonly readhexstring }	dotest
+{ (access.ps) (r) file executeonly 100 string readline }	dotest
+{ (access.ps) (r) file 100 string readonly readline }		dotest
+{ (access.ps) (r) file executeonly 10 string readstring }	dotest
+{ (access.ps) (r) file 10 string readonly readstring }		dotest
+% run does not check for no read access?
+{ (string) executeonly (seek) search }				dotest
+{ (string) (seek) executeonly search }				dotest
+{ (string) executeonly show }
+%% some test for store.
+{ (string) executeonly stringwidth }				dotest
+{ (access.ps) (r) file executeonly token }			dotest
+{ (10) executeonly token }					dotest
+{ /foo 1 dict def foo begin /bar foo def bar noaccess pop /key where } dotest
+{ 100 101 102 (string) noaccess widthshow }			dotest
+{ (/tmp/_.ps) noaccess (w) file closefile }			dotest
+{ (/tmp/_.ps) (w) noaccess file closefile }			dotest
+{ (/tmp/_.ps) (w) file executeonly 100 write }			dotest
+{ (/tmp/_.ps) (w) file executeonly 10 string writehexstring }	dotest
+{ (/tmp/_.ps) (w) file 10 string executeonly writehexstring }	dotest
+{ (/tmp/_.ps) (w) file executeonly 10 string writestring }	dotest
+{ (/tmp/_.ps) (w) file 10 string executeonly writestring }	dotest

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/addxchar.ps

@@ -0,0 +1,357 @@
+%    Copyright (C) 1999 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: addxchar.ps 6300 2005-12-28 19:56:24Z giles $
+% Add the Central European and other Adobe extended Latin characters to a
+% Type 1 font.
+% Requires -dWRITESYSTEMDICT to disable access protection.
+
+(type1ops.ps) runlibfile
+
+% ---------------- Utilities ---------------- %
+
+/addce_dict 50 dict def
+addce_dict begin
+
+% Define the added copyright notice.
+/addednotice (. Portions Copyright (C) 1999 Aladdin Enterprises.) def 
+
+% Open a font for modification by removing the FID and changing the
+% FontName.  Removing UniqueID and XUID is not necessary, since we
+% will only be adding characters.
+/openfont {		% <name> <font> openfont <name> <font'>
+  dup length dict copy
+  dup /FID undef
+  dup /FontName 3 index put
+} def
+
+% Do the equivalent of false charpath for a glyph.
+% This should really be an operator!
+/glyphpath {		% <glyph> glyphpath -
+  currentfont /Encoding get 0 3 -1 roll put
+  <00> false charpath
+} def
+
+% Do the equivalent of charpath + pathbbox for a glyph.
+/glyphbbox {		% <glyph> glyphbbox <llx> <lly> <urx> <ury>
+	% We cache this value, because it's expensive to compute.
+  BBoxes 1 index .knownget {
+    exch pop
+  } {
+    gsave newpath 0 0 moveto dup glyphpath [pathbbox] grestore
+    BBoxes 3 -1 roll 2 index put
+  } ifelse aload pop
+} def
+
+% Get the side bearing and width for a glyph.
+/glyphsbw {		% <glyph> glyphsbw <lsbx> <wx>
+	% We cache this value, because it's expensive to compute.
+  SBW 1 index .knownget {
+    exch pop
+  } {
+    dup glyphcs { dup /hsbw eq { pop exit } if } forall
+    2 array astore
+    SBW 3 -1 roll 2 index put
+  } ifelse aload pop
+} def
+
+% Get the CharString for a glyph, as an array.
+/glyphcs {		% <glyph> glyphcs <array>
+  CharStrings exch get
+  4330 exch dup length string .type1decrypt exch pop
+  dup length lenIV sub lenIV exch getinterval
+  0 () /SubFileDecode filter [ exch charstack_read ]
+} def
+
+% Find an occurrence of a value in an array.
+/asearch {		% <array> <value> asearch <index> true
+			% <array> <value> asearch false
+  false 0 4 2 roll exch {
+		% Stack: false index value element
+    2 copy eq { pop pop exch not exch dup exit } if
+    exch 1 add exch
+  } forall pop pop
+} def
+
+% Convert an array back to a CharString.
+/csdef {		% <glyph> <array> csdef -
+  charproc_string
+  4330 exch dup .type1encrypt exch pop readonly
+  CharStrings 3 1 roll put
+} def
+
+% Split an accented character name.
+/splitaccented {	% <Baccent> splitaccented <Baccent> <B> <accent>
+    dup =string cvs
+    dup 0 1 getinterval cvn
+    exch dup length 1 sub 1 exch getinterval cvn
+} def
+
+% Begin the definition of a 'seac' character.
+% Defines accent, base, abox, bbox.
+% The initial dx lines up the origins of the base and the accent.
+/beginseac {		% <bchar> <achar> beginseac
+			%   -mark- <lsbx> <wx> /hsbw <asb> <dx>
+  /accent exch def /base exch def
+  /abox [accent glyphbbox] def
+  /bbox [base glyphbbox] def
+  [ base glyphsbw /hsbw accent glyphsbw pop
+  dup 4 index sub
+} def
+
+% Center the accent over the base of a 'seac' character.
+/centeraccent {		% <dx> centeraccent <adx>
+  bbox 2 get bbox 0 get add 2 div
+  abox 2 get abox 0 get add 2 div
+  sub add
+} def
+
+% Finish the definition of a 'seac' character.
+/finishseac {		% <charname> -mark- ... <adx> <ady> finishseac -
+  exch cvi exch cvi
+  charindex base get charindex accent get /seac ] csdef
+} def
+
+% ---------------- Main program ---------------- %
+
+% Define accented characters that can be made with seac,
+% with the accent centered over the character.
+/seacchars [
+  /Abreve /Amacron
+  /Cacute /Ccaron /Dcaron
+  /Ecaron /Edotaccent /Emacron
+  /Gbreve
+  /Idotaccent /Imacron
+  /Lacute
+  /Nacute /Ncaron
+  /Ohungarumlaut /Omacron
+  /Racute /Rcaron
+  /Sacute /Scedilla
+  /Tcaron
+  /Uhungarumlaut /Umacron /Uogonek /Uring
+  /Zacute /Zdotaccent
+  /abreve /amacron
+  /cacute /ccaron
+  /ecaron /edotaccent /emacron
+  /gbreve
+  /lacute
+  /nacute /ncaron
+  /ohungarumlaut /omacron
+  /racute /rcaron
+  /sacute /scedilla
+  /uhungarumlaut /umacron /uring
+  /zacute /zdotaccent
+] def
+
+% Define seac characters where the accent lines up with the right
+% edge of the character.
+/seacrightchars [
+  /Aogonek /Eogonek /Iogonek /aogonek /eogonek /iogonek /uogonek
+] def
+
+% Define seac characters where the caron becomes an appended quoteright.
+/seaccaronchars [
+  /dcaron /lcaron /tcaron
+] def
+
+% Define seac characters using commaaccent.
+/seaccommachars [
+  /Gcommaaccent /Kcommaaccent /Lcommaaccent /Ncommaaccent /Rcommaaccent
+  /Scommaaccent /Tcommaaccent
+  /gcommaaccent /kcommaaccent /lcommaaccent /ncommaaccent /rcommaaccent
+  /scommaaccent /tcommaaccent
+] def
+
+% Define the characters copied from the Symbol font.
+/symbolchars [
+  /Delta /greaterequal /lessequal /lozenge /notequal /partialdiff
+  /summation
+] def
+
+% Define the procedures for editing the commaaccent character.
+% Delete all the hints, since it's too hard to adjust them.
+/caedit mark
+  /rmoveto { exch commatop sub cvi exch }
+  /hstem { pop pop pop }
+  /vstem 1 index
+  /callothersubr {
+    dup 3 eq { 4 { pop } repeat /skip true def } if
+  }
+  /pop { skip { pop /skip false def } if }
+.dicttomark def
+
+/addce {		% <name> <font> addce <font'>
+  20 dict begin
+  /origfont 1 index def
+  openfont
+  dup /CharStrings 2 copy get dup length dict copy put
+  dup /Encoding 2 copy get dup length array copy put
+  dup /FontInfo 2 copy get dup length dict copy put
+  definefont /font exch def
+  currentdict font end begin begin
+  font 1000 scalefont setfont
+  /symbolfont /Symbol findfont def
+  /BBoxes CharStrings length dict def
+  /SBW CharStrings length dict def
+
+  /italfactor FontInfo /ItalicAngle .knownget {
+    neg dup sin exch cos div
+  } {
+    0
+  } ifelse def
+
+	% Invert the Encoding (needed for seac).
+
+  /charindex 256 dict def
+  0 1 255 {
+    charindex exch Encoding 1 index get exch put
+  } for
+
+	% Add the commaaccent character, by moving the comma downward.
+
+  /comma glyphbbox /commatop exch def pop pop pop
+  /comma glyphcs
+    /skip false def
+    [ exch { caedit 1 index .knownget { exec } if } forall ]
+  /commaaccent exch csdef
+
+	% Add the accented characters that can be made with seac.
+
+  seacchars {
+    splitaccented beginseac
+      centeraccent
+		% If the accent would collide with the base character,
+		% raise it a little.
+      abox 1 get bbox 3 get sub dup 0 le {
+		% ... but not if the accent is in the low position.
+	abox 1 get 0 gt {
+	  neg 60 add
+		% Adjust the X position if italic.
+	  dup italfactor mul 3 -1 roll add exch
+	} {
+	  pop 0
+	} ifelse
+      } {
+	pop 0
+      } ifelse
+    finishseac
+  } forall
+
+  seacrightchars {
+    splitaccented beginseac
+    bbox 2 get abox 2 get sub add	% line up right edges
+    0 finishseac
+  } forall
+
+  /dcroat /d /hyphen beginseac
+    bbox 2 get abox 2 get sub add	% line up right edges
+  0 finishseac
+
+  /imacron /dotlessi /macron beginseac
+    centeraccent
+  0 finishseac
+
+  /Lcaron /L /quoteright beginseac
+    bbox 2 get abox 2 get sub add	% line up right edges
+  0 finishseac
+
+  seaccaronchars {
+    dup =string cvs 0 1 getinterval cvn /quoteright beginseac
+		% Move the quote to the right of the character.
+    bbox 2 get abox 0 get sub 50 add add
+		% Adjust the character width as well.
+    4 -1 roll abox 2 get abox 0 get sub 50 add add cvi 4 1 roll
+    0 finishseac
+  } forall
+
+  seaccommachars {
+    dup =string cvs 0 1 getinterval cvn /comma beginseac
+      centeraccent
+      commatop neg
+		% Lower the accent if the character extends below
+		% the baseline
+      bbox 1 get 0 .min add
+    finishseac
+  } forall
+
+	% Add the characters from the Symbol font.
+	% We should scale them to match the FontBBox, but we don't.
+
+  symbolchars {
+    symbolfont /CharStrings get 1 index get
+    CharStrings 3 1 roll put
+  } forall
+
+	% Add the one remaining character.
+
+  CharStrings /Dcroat CharStrings /Eth get put
+
+	% Recompute the FontBBox, since some of the accented characters
+	% may have enlarged it.
+
+  /llx 1000 def /lly 1000 def /urx 0 def /ury 0 def
+  CharStrings {
+    pop glyphbbox
+    ury .max /ury exch def urx .max /urx exch def
+    lly .min /lly exch def llx .min /llx exch def
+  } forall
+  /FontBBox llx cvi lly cvi urx ceiling cvi ury ceiling cvi 4 packedarray def
+
+	% Restore the Encoding and wrap up.
+
+  [/Copyright /Notice] {
+    FontInfo 1 index .knownget {
+      addednotice concatstrings FontInfo 3 1 roll put
+    } {
+      pop
+    } ifelse
+  } forall
+  FontName font openfont
+  dup /Encoding origfont /Encoding get put
+  definefont
+
+  end end
+} def
+
+currentdict end readonly pop	% addce_dict
+
+/addce { addce_dict begin addce end } def
+
+% ---------------- Integration ---------------- %
+
+% We would like to patch the font loader so that it adds the extended
+% Latin characters automatically.  We haven't done this yet.
+
+% ---------------- Test program ---------------- %
+
+/TEST where { pop TEST } { false } ifelse {
+  /FONT where { pop } { /FONT /Palatino-Italic def } ifelse
+  (unprot.ps) runlibfile
+  unprot
+  (wrfont.ps) runlibfile
+  wrfont_dict begin
+    /eexec_encrypt true def
+    /binary_CharStrings true def
+  end
+  save
+    FONT findfont
+    /Latin-CE exch addce setfont
+    (t.ce.pfb) (w) file dup writefont closefile
+  restore
+  (prfont.ps) runlibfile
+  (t.ce.pfb) (r) file .loadfont
+  /Latin-CE DoFont
+  quit
+} if

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/afmdiff.awk

@@ -0,0 +1,151 @@
+#!/usr/bin/awk -f
+###=====================================================================
+### Read two Adobe Font Metric files, and compute tables of the
+### differences in character repertoire, declared widths (WX), and
+### bounding boxes.
+###
+### Usage:
+###	awk -f afmdiff.awk file1.afm file2.afm
+###
+### Author:
+### 	Nelson H. F. Beebe
+### 	Center for Scientific Computing
+### 	University of Utah
+### 	Department of Mathematics, 322 INSCC
+### 	155 S 1400 E RM 233
+### 	Salt Lake City, UT 84112-0090
+### 	USA
+### 	Email: beebe@math.utah.edu, beebe@acm.org, beebe@computer.org,
+###	       beebe@ieee.org (Internet)
+### 	WWW URL: http://www.math.utah.edu/~beebe
+### 	Telephone: +1 801 581 5254
+### 	FAX: +1 801 585 1640, +1 801 581 4148
+###
+########################################################################
+########################################################################
+########################################################################
+###                                                                  ###
+###        awkdiff.awk: compare two Adobe Font Metric files          ###
+###                                                                  ###
+###              Copyright (C) 2000 Nelson H. F. Beebe               ###
+###                                                                  ###
+### This program is covered by the GNU General Public License (GPL), ###
+### version 2 or later, available as the file COPYING in the program ###
+### source distribution, and on the Internet at                      ###
+###                                                                  ###
+###               ftp://ftp.gnu.org/gnu/GPL                          ###
+###                                                                  ###
+###               http://www.gnu.org/copyleft/gpl.html               ###
+###                                                                  ###
+### This program is free software; you can redistribute it and/or    ###
+### modify it under the terms of the GNU General Public License as   ###
+### published by the Free Software Foundation; either version 2 of   ###
+### the License, or (at your option) any later version.              ###
+###                                                                  ###
+### This program is distributed in the hope that it will be useful,  ###
+### but WITHOUT ANY WARRANTY; without even the implied warranty of   ###
+### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    ###
+### GNU General Public License for more details.                     ###
+###                                                                  ###
+### You should have received a copy of the GNU General Public        ###
+### License along with this program; if not, write to the Free       ###
+### Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,   ###
+### MA 02111-1307 USA                                                ###
+###                                                                  ###
+### This program may also be distributed as part of AFPL             ###
+### Ghostscript, under the terms of the Aladdin Free Public License  ###
+### (the "License").                                                 ###
+###                                                                  ###
+### Every copy of AFPL Ghostscript must include a copy of the        ###
+### License, normally in a plain ASCII text file named PUBLIC.  The  ###
+### License grants you the right to copy, modify and redistribute    ###
+### AFPL Ghostscript, but only under certain conditions              ###
+### described in the License.  Among other things, the License       ###
+### requires that the copyright notice and this notice be preserved  ###
+### on all copies.                                                   ###
+###                                                                  ###
+########################################################################
+########################################################################
+########################################################################
+#
+# [29-Apr-2000]
+#=======================================================================
+
+/^FontName/	{ FontName[++NFontName] = $2 }
+
+
+/^C /		{
+		    if (NFontName == 1)
+			CharName1[$8]++
+		    if (NFontName == 2)
+			CharName2[$8]++
+		}
+
+
+/^C /		{
+		    name = $8
+		    if (name in WX)
+		    {
+			if (WX[name] != $5)
+			    WXDIFF[name] = WX[name] - $5
+		    }
+		    else
+			WX[name] = $5
+		}
+
+
+/^C /		{
+		    name = $8
+		    bx = $13 - $11
+		    if (name in BX)
+		    {
+			if (BX[name] != bx)
+			    BXDIFF[name] = BX[name] - bx
+		    }
+		    else
+			BX[name] = bx
+		}
+
+
+/^C /		{
+		    name = $8
+		    by = $14 - $12
+		    if (name in BY)
+		    {
+			if (BY[name] != by)
+			    BYDIFF[name] = BY[name] - by
+		    }
+		    else
+			BY[name] = by
+		}
+
+
+END		{
+		    Sortpipe = "sort -f | pr -3 -w80 -l1 -t"
+		    print "Comparison of AFM metrics in files:", ARGV[1], ARGV[2]
+		    print "Font names:", FontName[1], FontName[2]
+		    show_name_diffs(FontName[2],CharName2, FontName[1],CharName1)
+		    show_name_diffs(FontName[1],CharName1, FontName[2],CharName2)
+		    show_num_diffs("WX width differences", WXDIFF)
+		    show_num_diffs("Bounding box width differences", BXDIFF)
+		    show_num_diffs("Bounding box height differences",BYDIFF)
+		}
+
+function show_name_diffs(font1,array1,font2,array2, name)
+{
+    print "\nChars from", font2, "missing from", font1 ":"
+    for (name in array2)
+    {
+	if (!(name in array1))
+	    printf("%s\n", name) | Sortpipe
+    }
+    close(Sortpipe)
+}
+
+function show_num_diffs(title,array, name)
+{
+    printf("\n%s:\n", title)
+    for (name in array)
+	printf("%-15s\t%4d\n", name, array[name]) | Sortpipe
+    close(Sortpipe)
+}

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/align.ps

@@ -0,0 +1,73 @@
+%    Copyright (C) 1989, 1996 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: align.ps 6300 2005-12-28 19:56:24Z giles $
+% Print a page that indicates the proper settings of Margins and HWMargins
+% for a given device.  Requires a Level 2 system.
+
+% Reset the offset and margins.
+
+<<
+  /PageOffset [0 0]
+  /Margins [0 0]
+  /.HWMargins [0 0 0 0]
+>>
+setpagedevice
+<<
+  /ImagingBBox null
+>>
+setpagedevice
+
+% Determine the actual page size.
+
+clippath pathbbox newpath
+/y1 exch def  /x1 exch def  pop pop
+
+% Draw lines that should be exactly 1" in from each edge,
+% and should extend precisely to the edge of the paper.
+
+1 setlinewidth
+0 setgray
+72 0 moveto 0 y1 rlineto stroke
+0 72 moveto x1 0 rlineto stroke
+
+% Print the text in the middle of the page.
+
+/S 80 string def
+108 480 moveto
+/Helvetica 12 selectfont
+ { currentfile S readline pop dup (%END) eq { pop exit } if
+   gsave show grestore 0 -15 rmoveto
+ } loop
+Let the distance in inches from the left edge of the page to
+the vertical line be H, and from the bottom edge to the
+horizontal line be V; let the lengths of the gaps at the top
+and bottom of the vertical line be T and B respectively, and
+the gaps at the left and right of the horizontal line be L
+and R.  For correct alignment of pages, put the following line
+in a file named (for example) margins.ps, and then mention
+margins.ps on the gs command line when printing any of your
+own files:
+
+    <<  /.HWMargins [ml mb mr mt] /Margins [x y]  >>  setpagedevice
+
+where
+        ml = L * 72, mb = B * 72, mr = R * 72, mt = T * 72,
+%END
+/res currentpagedevice /.MarginsHWResolution get def
+(        x = (1 - H) * ) show res 0 get =string cvs show
+(, y = (V - 1) * ) show res 1 get =string cvs show
+
+showpage

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bdftops

@@ -0,0 +1,13 @@
+#!/bin/sh
+# $Id: bdftops 8107 2007-07-05 19:04:29Z till $
+
+# This definition is changed on install to match the
+# executable name set in the makefile
+GS_EXECUTABLE=gs
+gs="`dirname $0`/$GS_EXECUTABLE"
+if test ! -x "$gs"; then
+	gs="$GS_EXECUTABLE"
+fi
+GS_EXECUTABLE="$gs"
+
+exec "$GS_EXECUTABLE" -q -dBATCH -dNODISPLAY -- bdftops.ps "$@"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bdftops.bat

@@ -0,0 +1,5 @@
+@echo off
+@rem $Id: bdftops.bat 6300 2005-12-28 19:56:24Z giles $
+
+call gssetgs.bat
+%GSC% -q -dBATCH -dNODISPLAY -- bdftops.ps %1 %2 %3 %4 %5 %6 %7 %8 %9

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bdftops.cmd

@@ -0,0 +1,7 @@
+/* $Id: bdftops.cmd 6300 2005-12-28 19:56:24Z giles $ */
+/*
+ * This file is maintained by a user: if you have any questions about it,
+ * please contact Mark Hale (mark.hale@physics.org).
+ */
+
+@gsos2 -q -dBATCH -dNODISPLAY -- bdftops.ps %1 %2 %3 %4 %5 %6 %7 %8 %9

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bdftops.ps

@@ -0,0 +1,795 @@
+%    Copyright (C) 1990, 1995, 1996 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: bdftops.ps 6300 2005-12-28 19:56:24Z giles $
+% bdftops.ps
+% Convert a BDF file (possibly with (an) associated AFM file(s))
+% to a PostScript Type 1 font (without eexec encryption).
+% The resulting font will work with any PostScript language interpreter,
+% but not with ATM or other font rasterizers lacking a complete interpreter.
+
+/envBDF 120 dict def
+envBDF begin
+
+% "Import" the image-to-path package.
+% This also brings in the Type 1 opcodes (type1ops.ps).
+   (impath.ps) runlibfile
+
+% "Import" the font-writing package.
+   (wrfont.ps) runlibfile
+   wrfont_dict begin
+     /binary_CharStrings false def
+     /binary_tokens false def
+     /encrypt_CharStrings true def
+     /standard_only true def
+   end
+   /lenIV 0 def
+
+% Invert the StandardEncoding vector.
+   256 dict dup begin
+   0 1 255 { dup StandardEncoding exch get exch def } for
+   end /StandardDecoding exch def
+
+% Define the properties copied to FontInfo.
+   mark
+     (COPYRIGHT) /Notice
+     (FAMILY_NAME) /FamilyName
+     (FULL_NAME) /FullName
+     (WEIGHT_NAME) /Weight
+   .dicttomark /properties exch def
+
+% Define the character sequences for synthesizing missing composite
+% characters in the standard encoding.
+   mark
+     /AE [/A /E]
+     /OE [/O /E]
+     /ae [/a /e]
+     /ellipsis [/period /period /period]
+     /emdash [/hyphen /hyphen /hyphen]
+     /endash [/hyphen /hyphen]
+     /fi [/f /i]
+     /fl [/f /l]
+     /germandbls [/s /s]
+     /guillemotleft [/less /less]
+     /guillemotright [/greater /greater]
+     /oe [/o /e]
+     /quotedblbase [/comma /comma]
+   .dicttomark /composites exch def
+
+% Define the procedure for synthesizing composites.
+% This must not be bound.
+   /compose
+    { exch pop
+      FontMatrix Private /composematrix get invertmatrix concat
+      0 0 moveto
+      dup gsave false charpath pathbbox currentpoint grestore
+      6 2 roll setcachedevice show
+    } def
+% Define the CharString procedure that calls compose, with the string
+% on the stack.  This too must remain unbound.
+   /compose_proc
+    { Private /compose get exec
+    } def
+
+% Define aliases for missing characters similarly.
+   mark
+     /acute /quoteright
+     /bullet /asterisk
+     /cedilla /comma
+     /circumflex /asciicircum
+     /dieresis /quotedbl
+     /dotlessi /i
+     /exclamdown /exclam
+     /florin /f
+     /fraction /slash
+     /grave /quoteleft
+     /guilsinglleft /less
+     /guilsinglright /greater
+     /hungarumlaut /quotedbl
+     /periodcentered /asterisk
+     /questiondown /question
+     /quotedblleft /quotedbl
+     /quotedblright /quotedbl
+     /quotesinglbase /comma
+     /quotesingle /quoteright
+     /tilde /asciitilde
+   .dicttomark /aliases exch def
+
+% Define overstruck characters that can be synthesized with seac.
+   mark
+    [ /Aacute /Acircumflex /Adieresis /Agrave /Aring /Atilde
+      /Ccedilla
+      /Eacute /Ecircumflex /Edieresis /Egrave
+      /Iacute /Icircumflex /Idieresis /Igrave
+      /Lslash
+      /Ntilde
+      /Oacute /Ocircumflex /Odieresis /Ograve /Otilde
+      /Scaron
+      /Uacute /Ucircumflex /Udieresis /Ugrave
+      /Yacute /Ydieresis
+      /Zcaron
+      /aacute /acircumflex /adieresis /agrave /aring /atilde
+      /ccedilla
+      /eacute /ecircumflex /edieresis /egrave
+      /iacute /icircumflex /idieresis /igrave
+      /lslash
+      /ntilde
+      /oacute /ocircumflex /odieresis /ograve /otilde
+      /scaron
+      /uacute /ucircumflex /udieresis /ugrave
+      /yacute /ydieresis
+      /zcaron
+    ]
+    { dup =string cvs
+      [ exch dup 0 1 getinterval cvn
+	exch dup length 1 sub 1 exch getinterval cvn
+      ]
+    } forall
+     /cent [/c /slash]
+     /daggerdbl [/bar /equal]
+     /divide [/colon /hyphen]
+     /sterling [/L /hyphen]
+     /yen [/Y /equal]
+   .dicttomark /accentedchars exch def
+
+% ------ Output utilities ------ %
+
+   /ws {psfile exch writestring} bind def
+   /wl {ws (\n) ws} bind def
+   /wt {=string cvs ws ( ) ws} bind def
+
+% ------ BDF file parsing utilities ------ %
+
+% Define a buffer for reading the BDF file.
+   /buffer 400 string def
+
+% Read a line from the BDF file into the buffer.
+% Ignore empty (zero-length) lines.
+% Define /keyword as the first word on the line.
+% Define /args as the remainder of the line.
+% If the keyword is equal to commentword, skip the line.
+% (If commentword is equal to a space, never skip.)
+   /nextline
+    {  { bdfile buffer readline not
+	  { (Premature EOF\n) print stop } if
+	 dup length 0 ne { exit } if pop	 
+       }
+      loop
+      ( ) search
+       { /keyword exch def pop }
+       { /keyword exch def () }
+      ifelse
+      /args exch def
+      keyword commentword eq { nextline } if
+    } bind def
+
+% Get a word argument from args.  We do *not* copy the string.
+   /warg		% warg -> string
+    { args ( ) search
+       { exch pop exch }
+       { () }
+      ifelse  /args exch def
+    } bind def
+
+% Get an integer argument from args.
+   /iarg		% iarg -> int
+    { warg cvi
+    } bind def
+
+% Get a numeric argument from args.
+   /narg		% narg -> int|real
+    { warg cvr
+      dup dup cvi eq { cvi } if
+    } bind def
+
+% Convert the remainder of args into a string.
+   /remarg		% remarg -> string
+    { args copystring
+    } bind def
+
+% Get a string argument that occupies the remainder of args.
+   /sarg		% sarg -> string
+    { args (") anchorsearch
+       { pop /args exch def } { pop } ifelse
+      args args length 1 sub get (") 0 get eq
+       { args 0 args length 1 sub getinterval /args exch def } if
+      args copystring
+    } bind def
+
+% Check that the keyword is the expected one.
+   /checkline		% (EXPECTED-KEYWORD) checkline ->
+    { dup keyword ne
+       { (Expected ) print =
+         (Line=) print keyword print ( ) print args print (\n) print stop
+       } if
+      pop
+    } bind def
+
+% Read a line and check its keyword.
+   /getline		% (EXPECTED-KEYWORD) getline ->
+    { nextline checkline
+    } bind def
+
+% Find the first/last non-zero bit of a non-zero byte.
+   /fnzb
+    { 0 { exch dup 128 ge { pop exit } { dup add exch 1 add } ifelse }
+      loop
+    } bind def
+   /lnzb
+    { 7 { exch dup 1 and 0 ne { pop exit } { -1 bitshift exch 1 sub } ifelse }
+      loop
+    } bind def
+
+% ------ Type 1 encoding utilities ------ %
+
+% Parse the side bearing and width information that begins a CharString.
+% Arguments: charstring.  Result: sbx sby wx wy substring.
+   /parsesbw
+    { mark exch lenIV
+       {		% stack: mark ... string dropcount
+         dup 2 index length exch sub getinterval
+	 dup 0 get dup 32 lt { pop exit } if
+	 dup 246 le
+	  { 139 sub exch 1 }
+	  { dup 250 le
+	     { 247 sub 8 bitshift 108 add 1 index 1 get add exch 2 }
+	     { dup 254 le
+		{ 251 sub 8 bitshift 108 add 1 index 1 get add neg exch 2 }
+		{ pop dup 1 get 128 xor 128 sub
+		  8 bitshift 1 index 2 get add
+		  8 bitshift 1 index 3 get add
+		  8 bitshift 1 index 4 get add exch 5
+		} ifelse
+	     } ifelse
+	  } ifelse
+       } loop
+      counttomark 3 eq { 0 3 1 roll 0 exch } if
+      6 -1 roll pop
+    } bind def 
+
+% Find the side bearing and width information that begins a CharString.
+% Arguments: charstring.  Result: charstring sizethroughsbw.
+   /findsbw
+    { dup parsesbw 4 { exch pop } repeat skipsbw
+    } bind def
+   /skipsbw		% charstring sbwprefix -> sizethroughsbw
+    { length 1 index length exch sub
+      2 copy get 12 eq { 2 } { 1 } ifelse add
+    } bind def
+
+% Encode a number, and append it to a string.
+% Arguments: str num.  Result: newstr.
+   /concatnum
+    { dup dup -107 ge exch 107 le and
+       { 139 add 1 string dup 0 3 index put }
+       { dup dup -1131 ge exch 1131 le and
+          { dup 0 ge { 16#f694 } { neg 16#fa94 } ifelse add
+	    2 string dup 0 3 index -8 bitshift put
+	    dup 1 3 index 255 and put
+	  }
+	  { 5 string dup 0 255 put exch
+	    2 copy 1 exch -24 bitshift 255 and put
+	    2 copy 2 exch -16 bitshift 255 and put
+	    2 copy 3 exch -8 bitshift 255 and put
+	    2 copy 4 exch 255 and put
+	    exch
+	  }
+	 ifelse
+       }
+      ifelse exch pop concatstrings
+    } bind def
+
+% ------ Point arithmetic utilities ------ %
+
+   /ptadd { exch 4 -1 roll add 3 1 roll add } bind def
+   /ptexch { 4 2 roll } bind def
+   /ptneg { neg exch neg exch } bind def
+   /ptpop { pop pop } bind def
+   /ptsub { ptneg ptadd } bind def
+
+% ------ The main program ------ %
+
+   /readBDF		% <infilename> <outfilename> <fontname>
+			%   <encodingname> <uniqueID> <xuid> readBDF -> <font>
+    { /xuid exch def		% may be null
+      /uniqueID exch def	% may be -1
+      /encodingname exch def
+	/encoding encodingname cvx exec def
+      /fontname exch def
+      /psname exch def
+      /bdfname exch def
+      gsave		% so we can set the CTM to the font matrix
+
+%  Open the input files.  We don't open the output file until
+%  we've done a minimal validity check on the input.
+      bdfname (r) file /bdfile exch def
+      /commentword ( ) def
+
+%  Check for the STARTFONT.
+      (STARTFONT) getline
+      args (2.1) ne { (Not version 2.1\n) print stop } if
+
+%  Initialize the font.
+      /Font 20 dict def
+      Font begin
+      /FontName fontname def
+      /PaintType 0 def
+      /FontType 1 def
+      uniqueID 0 gt { /UniqueID uniqueID def } if
+      xuid null ne { /XUID xuid def } if
+      /Encoding encoding def
+      /FontInfo 20 dict def
+      /Private 20 dict def
+      currentdict end currentdict end
+      exch begin begin		% insert font above environment
+
+%  Initialize the Private dictionary in the font.
+      Private begin
+      /-! {string currentfile exch readhexstring pop} readonly def
+      /-| {string currentfile exch readstring pop} readonly def
+      /|- {readonly def} readonly def
+      /| {readonly put} readonly def
+      /BlueValues [] def
+      /lenIV lenIV def
+      /MinFeature {16 16} def
+      /password 5839 def
+      /UniqueID uniqueID def
+      end		% Private
+
+%  Invert the Encoding, for synthesizing composite characters.
+      /decoding encoding length dict def
+      0 1 encoding length 1 sub
+       { dup encoding exch get exch decoding 3 1 roll put }
+      for
+
+%  Now open the output file.
+      psname (w) file /psfile exch def
+
+%  Put out a header compatible with the Adobe "standard".
+      (%!FontType1-1.0: ) ws fontname wt (000.000) wl
+      (% This is a font description converted from ) ws
+	bdfname wl
+      (%   by bdftops running on ) ws
+      statusdict /product get ws ( revision ) ws
+      revision =string cvs ws (.) wl
+
+%  Copy the initial comments, up to FONT.
+      true
+       { nextline
+	 keyword (COMMENT) ne {exit} if
+	  { (% Here are the initial comments from the BDF file:\n%) wl
+	  } if false
+	 (%) ws remarg wl
+       } loop pop
+      () wl
+      /commentword (COMMENT) def	% do skip comments from now on
+
+%  Read and process the FONT, SIZE, and FONTBOUNDINGBOX.
+      % If we cared about FONT, we'd use it here.  If the BDF files
+      % from MIT had PostScript names rather than X names, we would
+      % care; but what's there is unusable, so we discard FONT.
+      % The FONTBOUNDINGBOX may not be reliable, so we discard it too.
+      (FONT) checkline
+      (SIZE) getline
+	/pointsize iarg def   /xres iarg def   /yres iarg def
+      (FONTBOUNDINGBOX) getline
+      nextline
+
+%  Initialize the font bounding box bookeeping.
+      /fbbxo 1000 def
+      /fbbyo 1000 def
+      /fbbxe -1000 def
+      /fbbye -1000 def
+
+%  Read and process the properties.  We only care about a few of them.
+      keyword (STARTPROPERTIES) eq
+       { iarg
+          { nextline
+	    properties keyword known
+	     { FontInfo properties keyword get sarg readonly put
+	     } if
+	  } repeat
+         (ENDPROPERTIES) getline
+	 nextline
+       } if
+
+%  Compute and set the FontMatrix.
+      Font /FontMatrix
+       [ 0.001 0 0 0.001 xres mul yres div 0 0 ] readonly
+      dup setmatrix put
+
+%  Read and process the header for the bitmaps.
+      (CHARS) checkline
+	/ccount iarg def
+
+%  Initialize the CharStrings dictionary.
+      /charstrings ccount
+	composites length add
+	aliases length add
+	accentedchars length add
+	1 add dict def		% 1 add for .notdef
+      /isfixedwidth true def
+      /fixedwidth null def
+      /subrcount 0 def
+      /subrs [] def
+
+%  Read the bitmap data.  This reads the remainder of the file.
+%  We do this before processing the bitmaps so that we can compute
+%  the correct FontBBox first.
+      /chardata ccount dict def
+      ccount -1 1
+       { (STARTCHAR) getline
+           /charname remarg def
+	 (ENCODING) getline
+	   /eindex iarg def
+	   eindex dup 0 ge exch 255 le and
+	    { charname /charname StandardEncoding eindex get def
+	      charname /.notdef eq eindex 0 gt and
+	       { /charname (A) eindex =string cvs concatstrings cvn def
+	       }
+	      if
+	      (/) print charname =string cvs print (,) print print
+	    }
+	    { (/) print charname print
+	    }
+	   ifelse
+	   10 mod 1 eq { (\n) print flush } if
+	 (SWIDTH) getline
+	   /swx iarg pointsize mul 1000 div xres mul 72 div def
+	   /swy iarg pointsize mul 1000 div xres mul 72 div def
+	 (DWIDTH) getline		% Ignore, use SWIDTH instead
+	 (BBX) getline
+	   /bbw iarg def  /bbh iarg def  /bbox iarg def  /bboy iarg def
+	 nextline
+	 keyword (ATTRIBUTES) eq
+	  { nextline
+	  } if
+	 (BITMAP) checkline
+
+% Update the font bounding box.
+	 /fbbxo fbbxo bbox .min def
+	 /fbbyo fbbyo bboy .min def
+	 /fbbxe fbbxe bbox bbw add .max def
+	 /fbbye fbbye bboy bbh add .max def
+
+% Read the bits for this character.
+	 /raster bbw 7 add 8 idiv def
+	 /cbits raster bbh mul string def
+	 cbits length 0 gt
+	  { 0 raster cbits length raster sub
+	      { cbits exch raster getinterval
+	        bdfile buffer readline not
+	         { (EOF in bitmap\n) print stop } if
+		    % stack has <cbits.interval> <buffer.interval>
+	        0 () /SubFileDecode filter
+	        exch 2 copy readhexstring pop pop pop closefile
+	      } for
+	  } if
+
+         (ENDCHAR) getline
+
+% Save the character data.
+	 chardata charname [swx swy bbw bbh bbox bboy cbits] put
+       } for
+
+      (ENDFONT) getline
+
+% Allocate the buffers for the bitmap and the outline,
+% according to the font bounding box.
+      /fbbw fbbxe fbbxo sub def
+      /fbbh fbbye fbbyo sub def
+      /fraster fbbw 7 add 8 idiv def
+      /bits fraster fbbh mul 200 .max 65535 .min string def
+      /outline bits length 16 mul 65535 .min string def
+
+%  Process the characters.
+      chardata
+       { exch /charname exch def  aload pop
+	 /cbits exch def
+	 /bboy exch def   /bbox exch def
+	 /bbh exch def   /bbw exch def
+	 /swy exch def   /swx exch def
+
+% The bitmap handed to type1imagepath must have the correct height,
+% because type1imagepath uses this to compute the scale factor,
+% so we have to clear the unused parts of it.
+	 /raster bbw 7 add 8 idiv def
+	 bits dup 0 1 raster fbbh mul 1 sub
+	  { 0 put dup } for
+	 pop pop
+	 bits raster fbbh bbh sub mul cbits putinterval
+
+%  Compute the font entry, converting the bitmap to an outline.
+	 bits 0 raster fbbh mul getinterval	% the bitmap image
+	 bbw   fbbh				% bitmap width & height
+	 swx   swy				% width x & y
+	 bbox neg   bboy neg			% origin x & y
+	 	% Account for lenIV when converting the outline.
+	 outline  lenIV  outline length lenIV sub  getinterval
+         type1imagepath
+         length lenIV add
+	 outline exch 0 exch getinterval
+
+% Check for a fixed width font.
+	 isfixedwidth
+	  { fixedwidth null eq
+	     { /fixedwidth swx def }
+	     { fixedwidth swx ne { /isfixedwidth false def } if }
+	    ifelse
+	  } if
+
+% Finish up the character.
+	 copystring
+	 charname exch charstrings 3 1 roll put
+       } forall
+
+%  Add CharStrings entries for aliases.
+      aliases
+       { charstrings 2 index known not charstrings 2 index known and
+          { charstrings exch get charstrings 3 1 roll put
+	  }
+	  { pop pop
+	  }
+	 ifelse
+       }
+      forall
+
+%  If this is not a fixed-width font, synthesize missing characters
+%  out of available ones.
+      isfixedwidth not
+       { false composites
+	  { 1 index charstrings exch known not
+	    1 index { decoding exch known and } forall
+	     { ( /) print 1 index bits cvs print
+	       /combine exch def
+	       0 1 combine length 1 sub
+		{ dup combine exch get decoding exch get
+		  bits 3 1 roll put
+		} for
+	       bits 0 combine length getinterval copystring
+	       [ exch /compose_proc load aload pop ] cvx
+	       charstrings 3 1 roll put
+	       pop true
+	     }
+	     { pop pop }
+	    ifelse
+	  }
+	 forall flush
+	  { Private /composematrix matrix put
+	    Private /compose /compose load put
+	  }
+	 if
+       }
+      if
+
+%  Synthesize accented characters with seac if needed and possible.
+      accentedchars
+       { aload pop /accent exch def /base exch def
+         buffer cvs /accented exch def
+	 charstrings accented known not
+	 charstrings base known and
+	 charstrings accent known and
+	 StandardDecoding base known and
+	 StandardDecoding accent known and
+	 encoding StandardDecoding base get get base eq and
+	 encoding StandardDecoding accent get get accent eq and
+	  { ( /) print accented print
+	    charstrings base get findsbw 0 exch getinterval
+	    /acstring exch def		% start with sbw of base
+	    charstrings accent get parsesbw
+	    4 { pop } repeat		% just leave sbx
+	    acstring exch concatnum
+	    0 concatnum 0 concatnum		% adx ady
+	    decoding base get concatnum		% bchar
+	    decoding accent get concatnum	% achar
+	    s_seac concatstrings
+	    charstrings exch accented copystring exch put
+	  } if
+       } forall
+
+%  Make a CharStrings entry for .notdef.
+      outline lenIV <8b8b0d0e> putinterval	% 0 0 hsbw endchar
+      charstrings /.notdef outline 0 lenIV 4 add getinterval copystring put
+
+%  Encrypt the CharStrings and Subrs (in place).
+      charstrings
+       {	% Be careful not to encrypt aliased characters twice,
+		% since they share their CharString.
+	 aliases 2 index known
+	  { charstrings aliases 3 index get .knownget
+	     { 1 index ne }
+	     { true }
+	    ifelse
+	  }
+	  { true
+	  }
+	 ifelse
+	 1 index type /stringtype eq and
+          { 4330 exch dup .type1encrypt exch pop
+	    readonly charstrings 3 1 roll put
+	  }
+	  { pop pop
+	  }
+	 ifelse
+       }
+      forall
+      0 1 subrcount 1 sub
+       { dup subrs exch get
+	 4330 exch dup .type1encrypt exch pop
+	 subrs 3 1 roll put
+       }
+      for
+
+%  Make most of the remaining entries in the font dictionaries.
+
+% The Type 1 font machinery really only works with a 1000 unit
+% character coordinate system.  Set this up here, by computing the factor
+% to make the X entry in the FontMatrix come out at exactly 0.001.
+      /fontscale 1000 fbbh div yres mul xres div def
+      Font /FontBBox
+       [ fbbxo fontscale mul
+	 fbbyo fontscale mul
+	 fbbxe fontscale mul
+	 fbbye fontscale mul
+       ] cvx readonly put
+      Font /CharStrings charstrings readonly put
+      FontInfo /FullName known not
+       { % Some programs insist on FullName being present.
+         FontInfo /FullName FontName dup length string cvs put
+       }
+      if
+      FontInfo /isFixedPitch isfixedwidth put
+      subrcount 0 gt
+       { Private /Subrs subrs 0 subrcount getinterval readonly put
+       } if
+
+%  Determine the italic angle and underline position
+%  by actually installing the font.
+      save
+      /_temp_ Font definefont setfont
+      [1000 0 0 1000 0 0] setmatrix		% mitigate rounding problems
+% The italic angle is the multiple of -5 degrees
+% that minimizes the width of the 'I'.
+      0 9999 0 5 85
+       { dup rotate
+         newpath 0 0 moveto (I) false charpath
+	 dup neg rotate
+         pathbbox pop exch pop exch sub
+	 dup 3 index lt { 4 -2 roll } if
+	 pop pop
+       }
+      for pop
+% The underline position is halfway between the bottom of the 'A'
+% and the bottom of the FontBBox.
+      newpath 0 0 moveto (A) false charpath
+      FontMatrix concat
+      pathbbox pop pop exch pop
+%  Put the values in FontInfo.
+      3 -1 roll
+      restore
+      Font /FontBBox get 1 get add 2 div cvi
+      dup FontInfo /UnderlinePosition 3 -1 roll put
+      2 div abs FontInfo /UnderlineThickness 3 -1 roll put
+      FontInfo /ItalicAngle 3 -1 roll put
+
+%  Clean up and finish.
+      grestore
+      bdfile closefile
+      Font currentdict end end begin		% remove font from dict stack
+      (\n) print flush
+
+    } bind def
+
+% ------ Reader for AFM files ------ %
+
+% Dictionary for looking up character keywords
+   /cmdict 6 dict dup begin
+      /C { /c iarg def } def
+      /N { /n warg copystring def } def
+      /WX { /w narg def } def
+      /W0X /WX load def
+      /W /WX load def
+      /W0 /WX load def
+   end def
+
+   /readAFM		% fontdict afmfilename readAFM -> fontdict
+    { (r) file /bdfile exch def
+      /Font exch def
+      /commentword (Comment) def
+
+%  Check for the StartFontMetrics.
+      (StartFontMetrics) getline
+      args cvr 2.0 lt { (Not version 2.0 or greater\n) print stop } if
+
+%  Look for StartCharMetrics, then parse the character metrics.
+%  The only information we care about is the X width.
+      /metrics 0 dict def
+       { nextline
+         keyword (EndFontMetrics) eq { exit } if
+	 keyword (StartCharMetrics) eq
+	  { iarg dup dict /metrics exch def
+	     { /c -1 def /n null def /w null def
+	       nextline buffer
+		{ token not { exit } if
+		  dup cmdict exch known
+		   { exch /args exch def   cmdict exch get exec   args }
+		   { pop }
+		  ifelse
+		} loop
+	       c 0 ge n null ne or w null ne and
+		{ n null eq { /n Font /Encoding get c get def } if
+		  metrics n w put
+		}
+	       if
+	     }
+	    repeat
+	    (EndCharMetrics) getline
+	  } if
+       } loop
+
+%  Insert the metrics in the font.
+       metrics length 0 ne
+	{ Font /Metrics metrics readonly put
+	} if
+      Font
+    } bind def
+
+end		% envBDF
+
+% Enter the main program in the current dictionary.
+/bdfafmtops		% infilename afmfilename* outfilename fontname
+			%   encodingname uniqueID xuid
+ { envBDF begin
+     7 -2 roll exch 7 2 roll	% afm* in out fontname encodingname uniqueID xuid
+     readBDF		% afm* font
+     exch { readAFM } forall
+     save exch
+     dup /FontName get exch definefont
+     setfont
+     psfile writefont
+     restore
+     psfile closefile
+   end
+ } bind def
+
+% If the program was invoked from the command line, run it now.
+[ shellarguments
+ { counttomark 4 ge
+    { dup 0 get
+      dup 48 ge exch 57 le and		% last arg starts with a digit?
+       { /StandardEncoding }		% no encodingname
+       { cvn }				% have encodingname
+      ifelse
+      exch (.) search			% next-to-last arg has . in it?
+       { mark 4 1 roll			% have xuid
+          { cvi exch pop exch (.) search not { exit } if }
+	 loop cvi ]
+	 3 -1 roll cvi exch
+       }
+       { cvi null			% no xuid
+       }
+      ifelse
+      counttomark 5 roll
+      counttomark 6 sub array astore
+      7 -2 roll cvn 7 -3 roll		% make sure fontname is a name
+      bdfafmtops
+    }
+    { cleartomark
+      (Usage:\n  bdftops xx.bdf [yy1.afm ...] zz.gsf fontname uniqueID [xuid] [encodingname]\n) print flush
+      mark
+    }
+   ifelse
+ }
+if pop

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bj8.rpd

@@ -0,0 +1,17 @@
+
+StartEntry: U_CanonBJC8200
+GSDriver: uniprint 
+Description: {Canon BJC-8200 (UP)}
+About: { \
+	 Canon BJC-8200 uniprint driver settings.\
+       }
+Resolution: {NA} {NA} {}
+  BitsPerPixel: {bj8pp12f} {1200x1200DpI, photo paper pro, color, rendered}
+  BitsPerPixel: {bj8hg12f} {1200x1200DpI, high gloss photo film, color, rendered}
+  BitsPerPixel: {bj8gc12f} {1200x1200DpI, glossy photo cards, color, rendered}
+  BitsPerPixel: {bj8oh06n} {600x600DpI, transparencies, color, rendered}
+  BitsPerPixel: {bj8ts06n} {600x600DpI, t-shirt transfer, color, rendered}
+  BitsPerPixel: {bj8pa06n} {600x600DpI, plain paper, color, rendered}
+
+EndEntry
+#

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bj8gc12f.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 8200, (1200DpI)^2, glossy photo card, high quality"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYKgenerate
+-dupRendering=/FSCMYK32
+-dupOutputFormat=/Canon
+-r1200x1200
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupBeginPageCommand="<
+   1b5b 4b 0200 000f
+   1b28 62 0100 01
+   1b28 71 0100 01
+   1b28 64 0400 04b0 04b0
+   1b28 63 0300 3005 04
+   1b28 6c 0200 340d
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bj8hg12f.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 8200, (1200DpI)^2, high gloss photo, high quality"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYKgenerate
+-dupRendering=/FSCMYK32
+-dupOutputFormat=/Canon
+-r1200x1200
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupBeginPageCommand="<
+   1b5b 4b 0200 000f
+   1b28 62 0100 01
+   1b28 71 0100 01
+   1b28 64 0400 04b0 04b0
+   1b28 63 0300 3006 04
+   1b28 6c 0200 3406
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bj8oh06n.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 8200, (600DpI)^2, OHP, normal quality"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYKgenerate
+-dupRendering=/FSCMYK32
+-dupOutputFormat=/Canon
+-r600x600
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupBeginPageCommand="<
+   1b5b 4b 0200 000f
+   1b28 62 0100 01
+   1b28 71 0100 01
+   1b28 64 0400 0258 0258
+   1b28 63 0300 3002 03
+   1b28 6c 0200 3402
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bj8pa06n.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 8200, (600DpI)^2, plain paper, normal quality"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYKgenerate
+-dupRendering=/FSCMYK32
+-dupOutputFormat=/Canon
+-r600x600
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupBeginPageCommand="<
+   1b5b 4b 0200 000f
+   1b28 62 0100 01
+   1b28 71 0100 01
+   1b28 64 0400 0258 0258
+   1b28 63 0300 3000 03
+   1b28 6c 0200 3400
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bj8pp12f.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 8200, (1200DpI)^2, professional photo paper, highest quality"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYKgenerate
+-dupRendering=/FSCMYK32
+-dupOutputFormat=/Canon
+-r1200x1200
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupBeginPageCommand="<
+   1b5b 4b 0200 000f
+   1b28 62 0100 01
+   1b28 71 0100 01
+   1b28 64 0400 04b0 04b0
+   1b28 63 0300 3009 04
+   1b28 6c 0200 340d
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bj8ts06n.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 8200, (600DpI)^2, t-shirt transfer, normal quality"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYKgenerate
+-dupRendering=/FSCMYK32
+-dupOutputFormat=/Canon
+-r600x600
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupBeginPageCommand="<
+   1b5b 4b 0200 000f
+   1b28 62 0100 01
+   1b28 71 0100 01
+   1b28 64 0400 0258 0258
+   1b28 63 0300 3003 03
+   1b28 6c 0200 3403
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610a0.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 610, 360x360DpI, plain paper high speed, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r360x360
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0058 0.0164 0.0301 0.0463 0.0648 0.0851 0.1073 
+0.1311 0.1564 0.1832 0.2114 0.2408 0.2716 0.3035 0.3366 
+0.3708 0.4061 0.4425 0.4798 0.5182 0.5576 0.5978 0.6391 
+0.6812 0.7242 0.7681 0.8128 0.8584 0.9048 0.9520 1.0000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 100200
+   1b28 64 0200 0168
+   1b28 6c 0200 1400
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610a1.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 610, 360x360DpI, plain paper, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r360x360
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0058 0.0164 0.0301 0.0463 0.0648 0.0851 0.1073 
+0.1311 0.1564 0.1832 0.2114 0.2408 0.2716 0.3035 0.3366 
+0.3708 0.4061 0.4425 0.4798 0.5182 0.5576 0.5978 0.6391 
+0.6812 0.7242 0.7681 0.8128 0.8584 0.9048 0.9520 1.0000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 100110
+   1b28 64 0200 0168
+   1b28 6c 0200 1400
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610a2.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 610, 360x360DpI, coated paper, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r360x360
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0058 0.0164 0.0301 0.0463 0.0648 0.0851 0.1073 
+0.1311 0.1564 0.1832 0.2114 0.2408 0.2716 0.3035 0.3366 
+0.3708 0.4061 0.4425 0.4798 0.5182 0.5576 0.5978 0.6391 
+0.6812 0.7242 0.7681 0.8128 0.8584 0.9048 0.9520 1.0000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 101110
+   1b28 64 0200 0168
+   1b28 6c 0200 1410
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610a3.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 610, 360x360DpI, transparency film, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r360x360
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 102110
+   1b28 64 0200 0168
+   1b28 6c 0200 1420
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610a4.upp

@@ -0,0 +1,45 @@
+-supModel="Canon BJC 610, 360x360DpI, back print film, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r360x360
+-dupYFlip
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0058 0.0164 0.0301 0.0463 0.0648 0.0851 0.1073 
+0.1311 0.1564 0.1832 0.2114 0.2408 0.2716 0.3035 0.3366 
+0.3708 0.4061 0.4425 0.4798 0.5182 0.5576 0.5978 0.6391 
+0.6812 0.7242 0.7681 0.8128 0.8584 0.9048 0.9520 1.0000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 103110
+   1b28 64 0200 0168
+   1b28 6c 0200 1430
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610a5.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 610, 360x360DpI, fabric sheet, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r360x360
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0058 0.0164 0.0301 0.0463 0.0648 0.0851 0.1073 
+0.1311 0.1564 0.1832 0.2114 0.2408 0.2716 0.3035 0.3366 
+0.3708 0.4061 0.4425 0.4798 0.5182 0.5576 0.5978 0.6391 
+0.6812 0.7242 0.7681 0.8128 0.8584 0.9048 0.9520 1.0000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 104110
+   1b28 64 0200 0168
+   1b28 6c 0200 1850
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610a6.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 610, 360x360DpI, glossy paper, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r360x360
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0058 0.0164 0.0301 0.0463 0.0648 0.0851 0.1073 
+0.1311 0.1564 0.1832 0.2114 0.2408 0.2716 0.3035 0.3366 
+0.3708 0.4061 0.4425 0.4798 0.5182 0.5576 0.5978 0.6391 
+0.6812 0.7242 0.7681 0.8128 0.8584 0.9048 0.9520 1.0000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 105110
+   1b28 64 0200 0168
+   1b28 6c 0200 1460
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610a7.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 610, 360x360DpI, high gloss film, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r360x360
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 106110
+   1b28 64 0200 0168
+   1b28 6c 0200 1470
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610a8.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 610, 360x360DpI, high resolution paper, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r360x360
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0058 0.0164 0.0301 0.0463 0.0648 0.0851 0.1073 
+0.1311 0.1564 0.1832 0.2114 0.2408 0.2716 0.3035 0.3366 
+0.3708 0.4061 0.4425 0.4798 0.5182 0.5576 0.5978 0.6391 
+0.6812 0.7242 0.7681 0.8128 0.8584 0.9048 0.9520 1.0000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 107110
+   1b28 64 0200 0168
+   1b28 6c 0200 14a0
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610b1.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 610, 720x720DpI, plain paper, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r720x720
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0029 0.0082 0.0151 0.0232 0.0324 0.0426 0.0537 
+0.0655 0.0782 0.0916 0.1057 0.1204 0.1358 0.1517 0.1683 
+0.1854 0.2030 0.2212 0.2399 0.2591 0.2788 0.2989 0.3195 
+0.3406 0.3621 0.3840 0.4064 0.4292 0.4524 0.4760 0.5000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0004 0.0017 0.0037 0.0067 0.0104 0.0150 0.0204 
+0.0266 0.0337 0.0416 0.0504 0.0599 0.0703 0.0816 0.0937 
+0.1066 0.1203 0.1349 0.1503 0.1665 0.1836 0.2015 0.2202 
+0.2398 0.2601 0.2814 0.3034 0.3263 0.3501 0.3746 0.4000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0004 0.0017 0.0037 0.0067 0.0104 0.0150 0.0204 
+0.0266 0.0337 0.0416 0.0504 0.0599 0.0703 0.0816 0.0937 
+0.1066 0.1203 0.1349 0.1503 0.1665 0.1836 0.2015 0.2202 
+0.2398 0.2601 0.2814 0.3034 0.3263 0.3501 0.3746 0.4000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0004 0.0017 0.0037 0.0067 0.0104 0.0150 0.0204 
+0.0266 0.0337 0.0416 0.0504 0.0599 0.0703 0.0816 0.0937 
+0.1066 0.1203 0.1349 0.1503 0.1665 0.1836 0.2015 0.2202 
+0.2398 0.2601 0.2814 0.3034 0.3263 0.3501 0.3746 0.4000 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 101110
+   1b28 64 0200 02d0
+   1b28 6c 0200 1410
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610b2.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 610, 720x720DpI, coated paper, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r720x720
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0029 0.0082 0.0151 0.0232 0.0324 0.0426 0.0537 
+0.0655 0.0782 0.0916 0.1057 0.1204 0.1358 0.1517 0.1683 
+0.1854 0.2030 0.2212 0.2399 0.2591 0.2788 0.2989 0.3195 
+0.3406 0.3621 0.3840 0.4064 0.4292 0.4524 0.4760 0.5000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0005 0.0021 0.0047 0.0083 0.0130 0.0187 0.0255 
+0.0333 0.0421 0.0520 0.0630 0.0749 0.0879 0.1020 0.1171 
+0.1332 0.1504 0.1686 0.1878 0.2081 0.2294 0.2518 0.2752 
+0.2997 0.3252 0.3517 0.3793 0.4079 0.4376 0.4683 0.5000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0005 0.0021 0.0047 0.0083 0.0130 0.0187 0.0255 
+0.0333 0.0421 0.0520 0.0630 0.0749 0.0879 0.1020 0.1171 
+0.1332 0.1504 0.1686 0.1878 0.2081 0.2294 0.2518 0.2752 
+0.2997 0.3252 0.3517 0.3793 0.4079 0.4376 0.4683 0.5000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0005 0.0021 0.0047 0.0083 0.0130 0.0187 0.0255 
+0.0333 0.0421 0.0520 0.0630 0.0749 0.0879 0.1020 0.1171 
+0.1332 0.1504 0.1686 0.1878 0.2081 0.2294 0.2518 0.2752 
+0.2997 0.3252 0.3517 0.3793 0.4079 0.4376 0.4683 0.5000 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 101110
+   1b28 64 0200 02d0
+   1b28 6c 0200 1410
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610b3.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 610, 720x720DpI, transparency film, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r720x720
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0005 0.0021 0.0047 0.0083 0.0130 0.0187 0.0255 
+0.0333 0.0421 0.0520 0.0630 0.0749 0.0879 0.1020 0.1171 
+0.1332 0.1504 0.1686 0.1878 0.2081 0.2294 0.2518 0.2752 
+0.2997 0.3252 0.3517 0.3793 0.4079 0.4376 0.4683 0.5000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0005 0.0021 0.0047 0.0083 0.0130 0.0187 0.0255 
+0.0333 0.0421 0.0520 0.0630 0.0749 0.0879 0.1020 0.1171 
+0.1332 0.1504 0.1686 0.1878 0.2081 0.2294 0.2518 0.2752 
+0.2997 0.3252 0.3517 0.3793 0.4079 0.4376 0.4683 0.5000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0005 0.0021 0.0047 0.0083 0.0130 0.0187 0.0255 
+0.0333 0.0421 0.0520 0.0630 0.0749 0.0879 0.1020 0.1171 
+0.1332 0.1504 0.1686 0.1878 0.2081 0.2294 0.2518 0.2752 
+0.2997 0.3252 0.3517 0.3793 0.4079 0.4376 0.4683 0.5000 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 102110
+   1b28 64 0200 02d0
+   1b28 6c 0200 1420
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610b4.upp

@@ -0,0 +1,45 @@
+-supModel="Canon BJC 610, 720x720DpI, back print film, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r720x720
+-dupYFlip
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0005 0.0019 0.0042 0.0075 0.0117 0.0169 0.0229 
+0.0300 0.0379 0.0468 0.0567 0.0674 0.0791 0.0918 0.1054 
+0.1199 0.1353 0.1517 0.1690 0.1873 0.2065 0.2266 0.2477 
+0.2697 0.2927 0.3165 0.3414 0.3671 0.3938 0.4214 0.4500 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0005 0.0019 0.0042 0.0075 0.0117 0.0169 0.0229 
+0.0300 0.0379 0.0468 0.0567 0.0674 0.0791 0.0918 0.1054 
+0.1199 0.1353 0.1517 0.1690 0.1873 0.2065 0.2266 0.2477 
+0.2697 0.2927 0.3165 0.3414 0.3671 0.3938 0.4214 0.4500 
+}"
+-dupYellowTransfer="{
+0.0000 0.0005 0.0019 0.0042 0.0075 0.0117 0.0169 0.0229 
+0.0300 0.0379 0.0468 0.0567 0.0674 0.0791 0.0918 0.1054 
+0.1199 0.1353 0.1517 0.1690 0.1873 0.2065 0.2266 0.2477 
+0.2697 0.2927 0.3165 0.3414 0.3671 0.3938 0.4214 0.4500 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 103110
+   1b28 64 0200 02d0
+   1b28 6c 0200 1430
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610b6.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 610, 720x720DpI, glossy paper, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r720x720
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0029 0.0082 0.0151 0.0232 0.0324 0.0426 0.0537 
+0.0655 0.0782 0.0916 0.1057 0.1204 0.1358 0.1517 0.1683 
+0.1854 0.2030 0.2212 0.2399 0.2591 0.2788 0.2989 0.3195 
+0.3406 0.3621 0.3840 0.4064 0.4292 0.4524 0.4760 0.5000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0005 0.0021 0.0047 0.0083 0.0130 0.0187 0.0255 
+0.0333 0.0421 0.0520 0.0630 0.0749 0.0879 0.1020 0.1171 
+0.1332 0.1504 0.1686 0.1878 0.2081 0.2294 0.2518 0.2752 
+0.2997 0.3252 0.3517 0.3793 0.4079 0.4376 0.4683 0.5000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0005 0.0021 0.0047 0.0083 0.0130 0.0187 0.0255 
+0.0333 0.0421 0.0520 0.0630 0.0749 0.0879 0.1020 0.1171 
+0.1332 0.1504 0.1686 0.1878 0.2081 0.2294 0.2518 0.2752 
+0.2997 0.3252 0.3517 0.3793 0.4079 0.4376 0.4683 0.5000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0005 0.0021 0.0047 0.0083 0.0130 0.0187 0.0255 
+0.0333 0.0421 0.0520 0.0630 0.0749 0.0879 0.1020 0.1171 
+0.1332 0.1504 0.1686 0.1878 0.2081 0.2294 0.2518 0.2752 
+0.2997 0.3252 0.3517 0.3793 0.4079 0.4376 0.4683 0.5000 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 105110
+   1b28 64 0200 02d0
+   1b28 6c 0200 1460
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610b7.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 610, 720x720DpI, high gloss paper, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r720x720
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0005 0.0021 0.0047 0.0083 0.0130 0.0187 0.0255 
+0.0333 0.0421 0.0520 0.0630 0.0749 0.0879 0.1020 0.1171 
+0.1332 0.1504 0.1686 0.1878 0.2081 0.2294 0.2518 0.2752 
+0.2997 0.3252 0.3517 0.3793 0.4079 0.4376 0.4683 0.5000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0005 0.0021 0.0047 0.0083 0.0130 0.0187 0.0255 
+0.0333 0.0421 0.0520 0.0630 0.0749 0.0879 0.1020 0.1171 
+0.1332 0.1504 0.1686 0.1878 0.2081 0.2294 0.2518 0.2752 
+0.2997 0.3252 0.3517 0.3793 0.4079 0.4376 0.4683 0.5000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0005 0.0021 0.0047 0.0083 0.0130 0.0187 0.0255 
+0.0333 0.0421 0.0520 0.0630 0.0749 0.0879 0.1020 0.1171 
+0.1332 0.1504 0.1686 0.1878 0.2081 0.2294 0.2518 0.2752 
+0.2997 0.3252 0.3517 0.3793 0.4079 0.4376 0.4683 0.5000 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 106110
+   1b28 64 0200 02d0
+   1b28 6c 0200 1470
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/bjc610b8.upp

@@ -0,0 +1,44 @@
+-supModel="Canon BJC 610, 720x720DpI, high resolution paper, color, rendered"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Canon
+-r720x720
+-dupMargins="{ 8.23 20.44 11.05 7.9 }"
+-dupOutputComponentOrder="{ 3 2 1 0 }"  
+-dupBlackTransfer="{
+0.0000 0.0008 0.0033 0.0075 0.0133 0.0208 0.0300 0.0408 
+0.0533 0.0674 0.0832 0.1007 0.1199 0.1407 0.1632 0.1873 
+0.2131 0.2406 0.2697 0.3005 0.3330 0.3671 0.4029 0.4404 
+0.4795 0.5203 0.5627 0.6069 0.6527 0.7001 0.7492 0.8000 
+}"
+-dupCyanTransfer="{
+0.0000 0.0005 0.0021 0.0047 0.0083 0.0130 0.0187 0.0255 
+0.0333 0.0421 0.0520 0.0630 0.0749 0.0879 0.1020 0.1171 
+0.1332 0.1504 0.1686 0.1878 0.2081 0.2294 0.2518 0.2752 
+0.2997 0.3252 0.3517 0.3793 0.4079 0.4376 0.4683 0.5000 
+}"
+-dupMagentaTransfer="{
+0.0000 0.0005 0.0021 0.0047 0.0083 0.0130 0.0187 0.0255 
+0.0333 0.0421 0.0520 0.0630 0.0749 0.0879 0.1020 0.1171 
+0.1332 0.1504 0.1686 0.1878 0.2081 0.2294 0.2518 0.2752 
+0.2997 0.3252 0.3517 0.3793 0.4079 0.4376 0.4683 0.5000 
+}"
+-dupYellowTransfer="{
+0.0000 0.0005 0.0021 0.0047 0.0083 0.0130 0.0187 0.0255 
+0.0333 0.0421 0.0520 0.0630 0.0749 0.0879 0.1020 0.1171 
+0.1332 0.1504 0.1686 0.1878 0.2081 0.2294 0.2518 0.2752 
+0.2997 0.3252 0.3517 0.3793 0.4079 0.4376 0.4683 0.5000 
+}"
+-dupBeginPageCommand="<
+   1b5b4b 0200 000f
+   1b28 62 0100 01
+   1b28 63 0300 107110
+   1b28 64 0200 02d0
+   1b28 6c 0200 14a0
+   1b28 67 0100 E5
+>"
+-dupEndJobCommand="(\033\050b\001\000\000\033@)"
+-dupEndPageCommand="(\014)"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/caption.ps

@@ -0,0 +1,56 @@
+%!
+%    Copyright (C) 1995 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: caption.ps 6300 2005-12-28 19:56:24Z giles $
+% Add a "caption" to the bottom of each page.
+/captionsize 20 def
+/caption
+ { /Helvetica //captionsize selectfont
+   (Printed by Aladdin's XXYYZZ) show
+   /Symbol //captionsize selectfont
+   (\324) show		% trademarkserif
+   /Helvetica //captionsize selectfont
+   ( product) show
+ } bind def
+
+10 dict begin
+gsave
+  initgraphics
+  clippath pathbbox
+  pop exch 36 add /by exch def
+		% We can't use stringwidth, so we have to show and measure.
+  gsave
+    0 0 0 0 rectclip
+    0 0 moveto caption currentpoint pop /bw exch def
+  grestore
+  add bw sub 2 div /bx exch def
+		% We don't have the font bbox available, so we guess.
+  /bh captionsize 1.05 mul def
+grestore
+/showcaption
+ { gsave
+     initgraphics
+     //bx 9 sub //by 9 sub //bw 18 add //bh 18 add
+     1 setgray 4 copy rectfill 0 setgray 1.5 setlinewidth rectstroke
+     //bx //by moveto //caption exec
+   grestore
+ } bind def
+<< /EndPage [
+   /showcaption load /exec load
+   currentpagedevice /EndPage get /exec load
+   ] cvx
+>> setpagedevice
+end

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/cat.ps

@@ -0,0 +1,74 @@
+%    Copyright (C) 1996-2003 Artifex Software, Inc.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+%
+% $Id: cat.ps 8331 2008-02-05 11:07:00Z kens $
+%
+% Appends one file to another. Primarily used to overcome the 
+% 'copy' limitation of Windows command shell for ps2epsi
+%
+% the files to be appended are given by the environament
+% variables %infile% and %outfile%. %infile% is appended to
+% %outfile%
+%
+
+/datastring 1024 string def
+
+{
+	(outfile) getenv 
+	{
+		/outfilename exch def
+		(infile) getenv
+		{
+			/infilename exch def
+	
+			infilename status 
+			{
+				pop pop pop pop outfilename status 
+				{ 
+					pop pop pop pop 
+					infilename (r) file /infile exch def 
+					outfilename (a+) file /outfile exch def 
+					{
+						infile datastring readstring
+						{
+							outfile exch writestring
+						}
+						{
+							dup length 0 gt
+							{outfile exch writestring} {pop} ifelse
+							exit
+						} ifelse
+					} loop
+					infile closefile
+					outfile closefile
+				} 
+				{
+					(Failed to find file ) print outfilename ==
+				} ifelse
+			}
+			{
+				(Failed to find file ) print infilename ==
+			} ifelse
+		}
+		{
+			(Couldn't find %infile% environment variable) ==
+		} ifelse
+	} 
+	{
+		(Couldn't find %outfile% environment variable) ==
+	}
+	ifelse
+} bind 
+exec

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/cbjc600.ppd

@@ -0,0 +1,404 @@
+*PPD-Adobe: "4.1"
+*% Adobe Systems PostScript(R) Printer Description File
+*% Copyright 1995 Yves Arrouye for AFPL Ghostscript with Level 2 PS.
+*% All Rights Reserved. 
+*% This file may be distributed as part of GNU Ghostscript and/or AFPL
+*% Ghostscript, under the same terms and conditions as Ghostscript.
+*% End of Copyright statement
+*FormatVersion: "4.1"
+*FileVersion: "1.0"
+*LanguageVersion: English
+*PCFileName: "CBJC600.PPD"
+*Product: "(Canon Bubble Jet Color 600)"
+*PSVersion: "(2010.351) 0"
+*ModelName: "Canon Bubble Jet Color 600"
+*NickName: "BJC-600"
+
+*% This file is not complete, and may lack some useful information...
+
+*% Note: the default transfer function should be set to Null if Ghostscript
+*% exhibit a bug making magenta appear while printing in gray levels...
+*% Note: if you print on A4 paper by default, change *Default values (the
+*% default is Letter here).
+
+*% ==============Constraints =================
+
+*UIConstraints: *BitsPerPixel None *ColorModel DeviceCMYK
+*UIConstraints: *BitsPerPixel None *ColorModel DeviceRGB
+*UIConstraints: *BitsPerPixel 16 *ColorModel DeviceRGB
+*UIConstraints: *BitsPerPixel 16 *ColorModel DeviceGray
+*UIConstraints: *BitsPerPixel 24 *ColorModel DeviceGray
+*UIConstraints: *BitsPerPixel 32 *ColorModel DeviceRGB
+*UIConstraints: *BitsPerPixel 32 *ColorModel DeviceGray
+
+*UIConstraints: *ColorModel DeviceCMYK *BitsPerPixel None
+*UIConstraints: *ColorModel DeviceRGB *BitsPerPixel None
+*UIConstraints: *ColorModel DeviceRGB *BitsPerPixel 16
+*UIConstraints: *ColorModel DeviceRGB *BitsPerPixel 32
+*UIConstraints: *ColorModel DeviceGray *BitsPerPixel 16
+*UIConstraints: *ColorModel DeviceGray *BitsPerPixel 24
+*UIConstraints: *ColorModel DeviceGray *BitsPerPixel 32
+
+*% =========== Device Capabilities ===============
+
+*LanguageLevel: "2"
+*Protocols: TBCP
+*FreeVM: "2124600"
+*ColorDevice:  True
+*DefaultColorSpace: CMYK
+*FileSystem: True
+*Throughput: "1"
+
+*Password: "()" 
+
+*% ============Paper Size Information ==============
+
+*OpenUI *PageSize: PickOne
+*OrderDependency: 30 AnySetup *PageSize
+*DefaultPageSize: Letter
+*PageSize A4: "1 dict dup /PageSize [595 842] put setpagedevice"
+*PageSize A5: "1 dict dup /PageSize [421 595] put setpagedevice"
+*PageSize A6: "1 dict dup /PageSize [297 421] put setpagedevice"
+*PageSize A7: "1 dict dup /PageSize [210 297] put setpagedevice"
+*PageSize A8: "1 dict dup /PageSize [148 210] put setpagedevice"
+*PageSize A9: "1 dict dup /PageSize [105 148] put setpagedevice"
+*PageSize A10: "1 dict dup /PageSize [74 105] put setpagedevice"
+*PageSize B5: "1 dict dup /PageSize [501 709] put setpagedevice"
+*PageSize Letter/US Letter: "1 dict dup /PageSize [612 792] put setpagedevice"
+*CloseUI: *PageSize
+
+*OpenUI *PageRegion: PickOne
+*OrderDependency: 40 AnySetup *PageRegion
+*DefaultPageRegion: Letter
+*PageRegion A4: "1 dict dup /PageSize [595 842] put setpagedevice"
+*PageRegion A5: "1 dict dup /PageSize [421 595] put setpagedevice"
+*PageRegion A6: "1 dict dup /PageSize [297 421] put setpagedevice"
+*PageRegion A7: "1 dict dup /PageSize [210 297] put setpagedevice"
+*PageRegion A8: "1 dict dup /PageSize [148 210] put setpagedevice"
+*PageRegion A9: "1 dict dup /PageSize [105 148] put setpagedevice"
+*PageRegion A10: "1 dict dup /PageSize [74 105] put setpagedevice"
+*PageRegion B5: "1 dict dup /PageSize [501 709] put setpagedevice"
+*PageRegion Letter/US Letter: "1 dict dup /PageSize [612 792] put setpagedevice"
+*CloseUI: *PageRegion
+
+*DefaultImageableArea: Letter
+*ImageableArea A4: "18.425196 27.096094 576.625183 833.496094"
+*ImageableArea A5: "18.425196 27.096045 402.625183 586.496033"
+*ImageableArea A6: "18.425196 27.096045 278.625183 412.496033"
+*ImageableArea A7: "18.425196 27.096045 191.625198 288.496033"
+*ImageableArea A8: "18.425196 27.096045 129.625198 201.496048"
+*ImageableArea A9: "18.425196 27.096045 86.625198 139.496048"
+*ImageableArea A10: "18.425196 27.096045 55.625195 96.496048"
+*ImageableArea B5: "18.425196 27.096045 482.625183 700.496033"
+*ImageableArea Letter/US Letter: "18.425196 27.096045 593.625183 783.496033"
+
+*?ImageableArea: "
+save
+  /cvp {(                ) cvs print ( ) print } bind def
+  /upperright {10000 mul floor 10000 div} bind def
+  /lowerleft {10000 mul ceiling 10000 div} bind def
+  newpath clippath pathbbox
+  4 -2 roll exch 2 {lowerleft cvp} repeat
+  exch 2 {upperright cvp} repeat flush
+ restore
+"
+*End
+
+*PaperDimension A4: "595 842"
+*PaperDimension A5: "421 595"
+*PaperDimension A6: "297 421"
+*PaperDimension A7: "210 297"
+*PaperDimension A8: "148 210"
+*PaperDimension A9: "105 148"
+*PaperDimension A10: "74 105"
+*PaperDimension B5: "501 709"
+*PaperDimension Letter/US Letter: "612 792"
+
+*HWMargins: "9.637794495 27.042521 9.637794495 8.503937"
+
+*% =============Halftone Information ===============
+
+*ScreenFreq: "60.0"
+*ScreenAngle: "45.0"
+
+*DefaultScreenProc: Dot
+*ScreenProc Dot: "
+{dup mul exch dup mul add 1.0 exch sub }
+"
+*End
+*ScreenProc Line: "{ pop }"
+*ScreenProc Ellipse: "{ dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub }"
+
+*DefaultTransfer: Normalized
+*Transfer Normalized: "{mark
+1.0 1.000 0.955 0.915 0.847 0.765 0.683 0.602 0.500 0.311 0.030 0.0
+counttomark dup 3 add -1 roll exch
+2 sub mul dup floor cvi dup 3 1 roll sub exch dup 
+3 add index exch 2 add index dup 4 1 roll sub mul add
+counttomark 1 add 1 roll cleartomark
+} bind"
+*End
+*Transfer Null: "{ }"
+*Transfer Null.Inverse: "{ 1 exch sub }"
+*End
+
+*%==================Input Slot====================
+
+*OpenUI *InputSlot/Media Source: PickOne
+*OrderDependency: 20 AnySetup *InputSlot
+*DefaultInputSlot: Feeder
+*InputSlot Feeder/Paper Tray: ""
+*CloseUI: *InputSlot
+
+*%=================Manual Feed====================
+
+*OpenUI *ManualFeed/Manual Feed:  Boolean
+*OrderDependency: 20 AnySetup *ManualFeed
+*DefaultManualFeed: False
+*ManualFeed True/True: "1 dict dup /ManualFeed true put setpagedevice"
+*ManualFeed False/False: "1 dict dup /ManualFeed false put setpagedevice"
+*?ManualFeed: "
+ save
+ currentpagedevice /ManualFeed get
+ {(True)}{(False)}ifelse = flush
+ restore"
+*End
+
+*CloseUI: *ManualFeed
+
+*%===================Resolution====================
+
+*OpenUI *Resolution/Resolution: PickOne
+*OrderDependency: 10 AnySetup *Resolution
+*DefaultResolution: 360x360dpi
+*Resolution 90x90dpi/90dpi: "
+ 1 dict dup /HWResolution [ 90 90 ]
+ put setpagedevice"
+*End
+
+*Resolution 180x180dpi/180dpi: "
+ 1 dict dup /HWResolution [ 180 180 ]
+ put setpagedevice"
+*End
+
+*Resolution 360x360dpi/360dpi: "
+ 1 dict dup /HWResolution [ 360 360 ]
+ put setpagedevice"
+*End
+
+*?Resolution: "
+ save
+ currentpagedevice /HWResolution get dup
+ 0 get cvi 10 string cvs print
+ (x) print
+ 0 get cvi 10 string print
+ (dpi) = flush
+ restore"
+*End
+
+*CloseUI: *Resolution
+
+*%===================Output Depth====================
+
+*OpenUI *BitsPerPixel/Print Depth: PickOne
+*OrderDependency: 30 AnySetup *BitsPerPixel
+*DefaultBitsPerPixel: 24
+*BitsPerPixel None/1bpp: "
+ 1 dict dup /BitsPerPixel 1 put
+ setpagedevice"
+*End
+
+*BitsPerPixel 8/8bpp: "
+ 1 dict dup /BitsPerPixel 8 put
+ setpagedevice"
+*End
+
+*BitsPerPixel 16/16bpp: "
+ 1 dict dup /BitsPerPixel 16 put
+ setpagedevice"
+*End
+
+*BitsPerPixel 24/24bpp: "
+ 1 dict dup /BitsPerPixel 24 put
+ setpagedevice"
+*End
+
+*BitsPerPixel 32/32bpp: "
+ 1 dict dup /BitsPerPixel 32 put
+ setpagedevice"
+*End
+
+*?BitsPerPixel: "
+ save
+ currentpagedevice /BitsPerPixel get dup 1 eq { pop (None) } if = flush
+ restore"
+*End
+
+*CloseUI: *BitsPerPixel
+
+*%=================Media Type============================
+
+*OpenUI *MediaType/Media Type: PickOne
+*OrderDependency: 50 AnySetup *MediaType
+*DefaultMediaType: PlainPaper
+*MediaType PlainPaper/Plain Paper: "
+ 1 dict dup /MediaType (PlainPaper) put setpagedevice"
+*End
+
+*MediaType CoatedPaper/Coated Paper: "
+ 1 dict dup /MediaType (CoatedPaper) put setpagedevice"
+*End
+
+*MediaType TransparencyFilm/Transparency Film: "
+ 1 dict dup /MediaType (TransparencyFilm) put setpagedevice"
+*End
+
+*MediaType Envelope/Envelope: "
+ 1 dict dup /MediaType (Envelope) put setpagedevice"
+*End
+
+*MediaType Card/Card: "
+ 1 dict dup /MediaType (Card) put setpagedevice"
+*End
+
+*MediaType Other/Other: "
+ 1 dict dup /MediaType (Other) put setpagedevice"
+*End
+
+*?MediaType: "
+ save
+ currentpagedevice /MediaType get
+ dup null eq {pop (Unknown)} if = flush 
+ restore " 
+*End
+
+*CloseUI: *MediaType
+
+*%===================Printing Quality====================
+
+*OpenUI *OutputMode/Print Quality: PickOne
+*OrderDependency: 50 AnySetup *OuputMode
+*DefaultOutputMode: Normal
+*OutputMode Draft/Draft: "
+ 1 dict dup /PrintQuality (Draft) put setpagedevice"
+*End
+
+*OutputMode Normal/Normal: "
+ 1 dict dup /PrintQuality (Normal) put setpagedevice"
+*End
+
+*OutputMode High/High: "
+ 1 dict dup /PrintQuality (High) put setpagedevice"
+*End
+
+*?OutputMode: "
+ save
+ currentpagedevice /PrintQuality get
+ dup null eq {pop (Unknown)} if = flush 
+ restore " 
+*End
+
+*CloseUI: *OutputMode
+
+*%===================Color/Gray Printing====================
+
+*OpenUI *ColorModel/Color Processing: PickOne
+*OrderDependency: 20 AnySetup *ColorModel
+*DefaultColorModel: DeviceCMYK
+*ColorModel DeviceGray/Gray: "
+ 1 dict dup /ProcessColorModel /DeviceGray 
+ put setpagedevice"
+*End
+
+*ColorModel DeviceRGB/RGB: "
+ 1 dict dup /ProcessColorModel /DeviceRGB
+ put setpagedevice"
+*End
+
+*ColorModel DeviceCMYK/CMYK: "
+ 1 dict dup /ProcessColorModel /DeviceCMYK 
+ put setpagedevice"
+*End
+
+*?ColorModel: "
+ save
+ currentpagedevice /ProcessColorModel get = flush 
+ restore "
+*End
+
+*CloseUI: *ColorModel
+
+*%===================Media Weight/Thick Media====================
+
+*OpenUI *ThickMedia/Thick Media: PickOne
+*OrderDependency: 30 AnySetup *ThickMedia
+*Default ThickMedia: Thin
+*ThickMedia Thin/No: "
+ 1 dict dup /MediaWeight 80 
+ put setpagedevice"
+*End
+
+*ThickMedia Thick/Yes: "
+ 1 dict dup /ThickMedia 120
+ put setpagedevice"
+*End
+
+*?ThickMedia: "
+ save
+ currentpagedevice /MediaWeight get 105 gt { (Thick) } { (Thin) } ifelse
+ = flush 
+ restore "
+*End
+
+*CloseUI: *ThickMedia
+
+*%===================PrintColors====================
+
+*OpenUI *PrintColors/Print Colors: PickOne
+*OrderDependency: 20 AnySetup *PrintColors
+*DefaultPrintColors: "15"
+*PrintColors 0/None: "1 dict dup /PrintColors 0 put setpagedevice"
+*End
+
+*PrintColors 1/Cyan: "1 dict dup /PrintColors 1 put setpagedevice"
+*End
+
+*PrintColors 2/Magenta: "1 dict dup /PrintColors 2 put setpagedevice"
+*End
+
+*PrintColors 4/Yellow: "1 dict dup /PrintColors 4 put setpagedevice"
+*End
+
+*PrintColors 8/Black: "1 dict dup /PrintColors 8 put setpagedevice"
+*End
+
+*PrintColors 15/All: "1 dict dup /PrintColors 15 put setpagedevice"
+*End
+
+
+*CloseUI *PrintColors
+
+*%===================Monochrome Printing====================
+
+*OpenUI *MonochromePrint/Monochrome Print: Boolean
+*OrderDependency: 50 AnySetup *MonochromePrint
+*DefaultMonochromePrint: False
+*MonochromePrint True/Yes: "
+ 1 dict dup /MonochromePrint true 
+ put setpagedevice"
+*End
+
+*MonochromePrint False/No: "
+ 1 dict dup /MonochromePrint false 
+ put setpagedevice"
+*End
+
+*?MonochromePrint: "
+ save
+ currentpagedevice /MonochromePrint get
+ {(True)}{(False)}ifelse = flush
+ restore"
+*End
+
+*CloseUI: *MonochromePrint
+

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/cbjc800.ppd

@@ -0,0 +1,389 @@
+*PPD-Adobe: "4.1"
+*% Adobe Systems PostScript(R) Printer Description File
+*% Copyright 1995 Yves Arrouye for AFPL Ghostscript with Level 2 PS.
+*% All Rights Reserved. 
+*% This file may be distributed as part of GNU Ghostscript and/or AFPL
+*% Ghostscript, under the same terms and conditions as Ghostscript.
+*% End of Copyright statement
+*FormatVersion: "4.1"
+*FileVersion: "1.0"
+*LanguageVersion: English
+*PCFileName: "CBJC800.PPD"
+*Product: "(Canon Bubble Jet Color 800)"
+*PSVersion: "(2010.351) 0"
+*ModelName: "Canon Bubble Jet Color 800"
+*NickName: "BJC-800"
+
+*% This file is not complete, and may lack some useful information...
+
+*% Note: the default transfer function should be set to Null if Ghostscript
+*% exhibit a bug making magenta appear while printing in gray levels...
+*% Note: if you print on A4 paper by default, change *Default values (the
+*% default is Letter here).
+
+*% ==============Constraints =================
+
+*UIConstraints: *BitsPerPixel None *ColorModel DeviceCMYK
+*UIConstraints: *BitsPerPixel None *ColorModel DeviceRGB
+*UIConstraints: *BitsPerPixel 16 *ColorModel DeviceRGB
+*UIConstraints: *BitsPerPixel 16 *ColorModel DeviceGray
+*UIConstraints: *BitsPerPixel 24 *ColorModel DeviceGray
+*UIConstraints: *BitsPerPixel 32 *ColorModel DeviceRGB
+*UIConstraints: *BitsPerPixel 32 *ColorModel DeviceGray
+
+*UIConstraints: *ColorModel DeviceCMYK *BitsPerPixel None
+*UIConstraints: *ColorModel DeviceRGB *BitsPerPixel None
+*UIConstraints: *ColorModel DeviceRGB *BitsPerPixel 16
+*UIConstraints: *ColorModel DeviceRGB *BitsPerPixel 32
+*UIConstraints: *ColorModel DeviceGray *BitsPerPixel 16
+*UIConstraints: *ColorModel DeviceGray *BitsPerPixel 24
+*UIConstraints: *ColorModel DeviceGray *BitsPerPixel 32
+
+*% =========== Device Capabilities ===============
+
+*LanguageLevel: "2"
+*Protocols: TBCP
+*FreeVM: "2124600"
+*ColorDevice:  True
+*DefaultColorSpace: CMYK
+*FileSystem: True
+*Throughput: "1"
+
+*Password: "()" 
+
+*% ============Paper Size Information ==============
+
+*OpenUI *PageSize: PickOne
+*OrderDependency: 30 AnySetup *PageSize
+*DefaultPageSize: Letter
+*PageSize A4: "1 dict dup /PageSize [595 842] put setpagedevice"
+*PageSize A5: "1 dict dup /PageSize [421 595] put setpagedevice"
+*PageSize A6: "1 dict dup /PageSize [297 421] put setpagedevice"
+*PageSize A7: "1 dict dup /PageSize [210 297] put setpagedevice"
+*PageSize A8: "1 dict dup /PageSize [148 210] put setpagedevice"
+*PageSize A9: "1 dict dup /PageSize [105 148] put setpagedevice"
+*PageSize A10: "1 dict dup /PageSize [74 105] put setpagedevice"
+*PageSize B5: "1 dict dup /PageSize [501 709] put setpagedevice"
+*PageSize Letter/US Letter: "1 dict dup /PageSize [612 792] put setpagedevice"
+*PageSize 11x17/US 11x17: "1 dict dup /PageSize [792 1224] put setpagedevice"
+*PageSize Ledger/US Ledger: "1 dict dup /PageSize [1224 792] put setpagedevice"
+*PageSize Legal/US Legal: "1 dict dup /PageSize [612 1008] put setpagedevice"
+*CloseUI: *PageSize
+
+*OpenUI *PageRegion: PickOne
+*OrderDependency: 40 AnySetup *PageRegion
+*DefaultPageRegion: Letter
+*PageRegion A4: "1 dict dup /PageSize [595 842] put setpagedevice"
+*PageRegion A5: "1 dict dup /PageSize [421 595] put setpagedevice"
+*PageRegion A6: "1 dict dup /PageSize [297 421] put setpagedevice"
+*PageRegion A7: "1 dict dup /PageSize [210 297] put setpagedevice"
+*PageRegion A8: "1 dict dup /PageSize [148 210] put setpagedevice"
+*PageRegion A9: "1 dict dup /PageSize [105 148] put setpagedevice"
+*PageRegion A10: "1 dict dup /PageSize [74 105] put setpagedevice"
+*PageRegion B5: "1 dict dup /PageSize [501 709] put setpagedevice"
+*PageRegion Letter/US Letter: "1 dict dup /PageSize [612 792] put setpagedevice"
+*PageRegion 11x17/US 11x17: "1 dict dup /PageSize [792 1224] put setpagedevice"
+*PageRegion Ledger/US Ledger: "1 dict dup /PageSize [1224 792] put setpagedevice"
+*PageRegion Legal/US Legal: "1 dict dup /PageSize [612 1008] put setpagedevice"
+*CloseUI: *PageRegion
+
+*DefaultImageableArea: Letter
+*ImageableArea A3: "9.637793 27.096094 832.437805 1181.496094"
+*ImageableArea A4: "18.425196 27.096094 576.625183 833.496094"
+*ImageableArea A5: "18.425196 27.096045 402.625183 586.496033"
+*ImageableArea A6: "18.425196 27.096045 278.625183 412.496033"
+*ImageableArea A7: "18.425196 27.096045 191.625198 288.496033"
+*ImageableArea A8: "18.425196 27.096045 129.625198 201.496048"
+*ImageableArea A9: "18.425196 27.096045 86.625198 139.496048"
+*ImageableArea A10: "18.425196 27.096045 55.625195 96.496048"
+*ImageableArea B5: "18.425196 27.096045 482.625183 700.496033"
+*ImageableArea Letter/US Letter: "18.425196 27.096045 593.625183 783.496033"
+*ImageableArea 11x17/US 11x17: "9.637793 27.096094 782.437805 1215.496094"
+*ImageableArea Ledger/US Ledger: "9.637793 27.096045 1214.437744 783.496033"
+*ImageableArea Legal/US Legal: "9.637793 27.096094 602.437805 999.496094"
+
+*?ImageableArea: "
+save
+  /cvp {(                ) cvs print ( ) print } bind def
+  /upperright {10000 mul floor 10000 div} bind def
+  /lowerleft {10000 mul ceiling 10000 div} bind def
+  newpath clippath pathbbox
+  4 -2 roll exch 2 {lowerleft cvp} repeat
+  exch 2 {upperright cvp} repeat flush
+ restore
+"
+*End
+
+*PaperDimension A4: "595 842"
+*PaperDimension A5: "421 595"
+*PaperDimension A6: "297 421"
+*PaperDimension A7: "210 297"
+*PaperDimension A8: "148 210"
+*PaperDimension A9: "105 148"
+*PaperDimension A10: "74 105"
+*PaperDimension B5: "501 709"
+*PaperDimension Letter/US Letter: "612 792"
+*PaperDimension 11x17/US 11x17: "792 1224"
+*PaperDimension Ledger/US Ledger: "1224 792"
+*PaperDimension Legal/US Legal: "612 1008"
+
+*HWMargins: "9.637794495 19.842518 9.637794495 8.503937"
+
+*% =============Halftone Information ===============
+
+*ScreenFreq: "60.0"
+*ScreenAngle: "45.0"
+
+*DefaultScreenProc: Dot
+*ScreenProc Dot: "
+{dup mul exch dup mul add 1.0 exch sub }
+"
+*End
+*ScreenProc Line: "{ pop }"
+*ScreenProc Ellipse: "{ dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub }"
+
+*DefaultTransfer: Normalized
+*Transfer Normalized: "{mark
+1.0 1.000 0.955 0.915 0.847 0.765 0.683 0.602 0.500 0.311 0.030 0.0
+counttomark dup 3 add -1 roll exch
+2 sub mul dup floor cvi dup 3 1 roll sub exch dup 
+3 add index exch 2 add index dup 4 1 roll sub mul add
+counttomark 1 add 1 roll cleartomark
+} bind"
+*End
+*Transfer Null: "{ }"
+*Transfer Null.Inverse: "{ 1 exch sub }"
+*End
+
+*%==================Input Slot====================
+
+*OpenUI *InputSlot/Media Source: PickOne
+*OrderDependency: 20 AnySetup *InputSlot
+*DefaultInputSlot: Feeder
+*InputSlot Feeder/Paper Tray: ""
+*CloseUI: *InputSlot
+
+*%=================Manual Feed====================
+
+*OpenUI *ManualFeed/Manual Feed:  Boolean
+*OrderDependency: 20 AnySetup *ManualFeed
+*DefaultManualFeed: False
+*ManualFeed True/True: "1 dict dup /ManualFeed true put setpagedevice"
+*ManualFeed False/False: "1 dict dup /ManualFeed false put setpagedevice"
+*?ManualFeed: "
+ save
+ currentpagedevice /ManualFeed get
+ {(True)}{(False)}ifelse = flush
+ restore"
+*End
+
+*CloseUI: *ManualFeed
+
+*%===================Resolution====================
+
+*OpenUI *Resolution/Resolution: PickOne
+*OrderDependency: 10 AnySetup *Resolution
+*DefaultResolution: 360x360dpi
+*Resolution 90x90dpi/90dpi: "
+ 1 dict dup /HWResolution [ 90 90 ]
+ put setpagedevice"
+*End
+
+*Resolution 180x180dpi/180dpi: "
+ 1 dict dup /HWResolution [ 180 180 ]
+ put setpagedevice"
+*End
+
+*Resolution 360x360dpi/360dpi: "
+ 1 dict dup /HWResolution [ 360 360 ]
+ put setpagedevice"
+*End
+
+*?Resolution: "
+ save
+ currentpagedevice /HWResolution get dup
+ 0 get cvi 10 string cvs print
+ (x) print
+ 0 get cvi 10 string print
+ (dpi) = flush
+ restore"
+*End
+
+*CloseUI: *Resolution
+
+*%===================Output Depth====================
+
+*OpenUI *BitsPerPixel/Print Depth: PickOne
+*OrderDependency: 30 AnySetup *BitsPerPixel
+*DefaultBitsPerPixel: 24
+*BitsPerPixel None/1bpp: "
+ 1 dict dup /BitsPerPixel 1 put
+ setpagedevice"
+*End
+
+*BitsPerPixel 8/8bpp: "
+ 1 dict dup /BitsPerPixel 8 put
+ setpagedevice"
+*End
+
+*BitsPerPixel 16/16bpp: "
+ 1 dict dup /BitsPerPixel 16 put
+ setpagedevice"
+*End
+
+*BitsPerPixel 24/24bpp: "
+ 1 dict dup /BitsPerPixel 24 put
+ setpagedevice"
+*End
+
+*BitsPerPixel 32/32bpp: "
+ 1 dict dup /BitsPerPixel 32 put
+ setpagedevice"
+*End
+
+*?BitsPerPixel: "
+ save
+ currentpagedevice /BitsPerPixel get dup 1 eq { pop (None) } if = flush
+ restore"
+*End
+
+*CloseUI: *BitsPerPixel
+
+*%=================Media Type============================
+
+*OpenUI *MediaType/Media Type: PickOne
+*OrderDependency: 50 AnySetup *MediaType
+*DefaultMediaType: PlainPaper
+*MediaType PlainPaper/Plain Paper: "
+ 1 dict dup /MediaType (PlainPaper) put setpagedevice"
+*End
+
+*MediaType CoatedPaper/Coated Paper: "
+ 1 dict dup /MediaType (CoatedPaper) put setpagedevice"
+*End
+
+*MediaType TransparencyFilm/Transparency Film: "
+ 1 dict dup /MediaType (TransparencyFilm) put setpagedevice"
+*End
+
+*MediaType Envelope/Envelope: "
+ 1 dict dup /MediaType (Envelope) put setpagedevice"
+*End
+
+*MediaType Card/Card: "
+ 1 dict dup /MediaType (Card) put setpagedevice"
+*End
+
+*MediaType Other/Other: "
+ 1 dict dup /MediaType (Other) put setpagedevice"
+*End
+
+*?MediaType: "
+ save
+ currentpagedevice /MediaType get
+ dup null eq {pop (Unknown)} if = flush 
+ restore " 
+*End
+
+*CloseUI: *MediaType
+
+*%===================Printing Quality====================
+
+*OpenUI *OutputMode/Print Quality: PickOne
+*OrderDependency: 10 AnySetup *OuputMode
+*DefaultOutputMode: Normal
+*OutputMode Draft/Draft: "
+ 1 dict dup /PrintQuality (Draft) put setpagedevice"
+*End
+
+*OutputMode Low/Low: "
+ 1 dict dup /PrintQuality (Low) put setpagedevice"
+*End
+
+*OutputMode Normal/Normal: "
+ 1 dict dup /PrintQuality (Normal) put setpagedevice"
+*End
+
+*OutputMode High/High: "
+ 1 dict dup /PrintQuality (High) put setpagedevice"
+*End
+
+*CloseUI: *OutputMode
+
+*%===================Color/Gray Printing====================
+
+*OpenUI *ColorModel/Color Processing: PickOne
+*OrderDependency: 20 AnySetup *ColorModel
+*DefaultColorModel: DeviceCMYK
+*ColorModel DeviceGray/Gray: "
+ 1 dict dup /ProcessColorModel /DeviceGray 
+ put setpagedevice"
+*End
+
+*ColorModel DeviceRGB/RGB: "
+ 1 dict dup /ProcessColorModel /DeviceRGB
+ put setpagedevice"
+*End
+
+*ColorModel DeviceCMYK/CMYK: "
+ 1 dict dup /ProcessColorModel /DeviceCMYK 
+ put setpagedevice"
+*End
+
+*?ColorModel: "
+ save
+ currentpagedevice /ProcessColorModel get = flush 
+ restore "
+*End
+
+*CloseUI: *ColorModel
+
+*%===================Media Weight/Thick Media====================
+
+*OpenUI *ThickMedia/Thick Media: PickOne
+*OrderDependency: 30 AnySetup *ThickMedia
+*Default ThickMedia: Thin
+*ThickMedia Thin/No: "
+ 1 dict dup /MediaWeight 80 
+ put setpagedevice"
+*End
+
+*ThickMedia Thick/Yes: "
+ 1 dict dup /ThickMedia 120
+ put setpagedevice"
+*End
+
+*?ThickMedia: "
+ save
+ currentpagedevice /MediaWeight get 105 gt { (Thick) } { (Thin) } ifelse
+ = flush 
+ restore "
+*End
+
+*CloseUI: *ThickMedia
+
+*%===================PrintColors====================
+
+*OpenUI *PrintColors/Print Colors: PickOne
+*OrderDependency: 20 AnySetup *PrintColors
+*DefaultPrintColors: "15"
+*PrintColors 0/None: "1 dict dup /PrintColors 0 put setpagedevice"
+*End
+
+*PrintColors 1/Cyan: "1 dict dup /PrintColors 1 put setpagedevice"
+*End
+
+*PrintColors 2/Magenta: "1 dict dup /PrintColors 2 put setpagedevice"
+*End
+
+*PrintColors 4/Yellow: "1 dict dup /PrintColors 4 put setpagedevice"
+*End
+
+*PrintColors 8/Black: "1 dict dup /PrintColors 8 put setpagedevice"
+*End
+
+*PrintColors 15/All: "1 dict dup /PrintColors 15 put setpagedevice"
+*End
+
+
+*CloseUI *PrintColors

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/cdj550.upp

@@ -0,0 +1,48 @@
+-supModel="HP Deskjet 550c, 300x300DpI, Gamma=2"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Pcl
+-r300x300
+-dupMargins="{ 12.0 36.0 12.0 12.0}"
+-dupBlackTransfer="{
+     0.0000 0.0010 0.0042 0.0094 0.0166 0.0260 0.0375 0.0510 
+     0.0666 0.0843 0.1041 0.1259 0.1498 0.1758 0.2039 0.2341
+     0.2663 0.3007 0.3371 0.3756 0.4162 0.4589 0.5036 0.5505
+     0.5994 0.6504 0.7034 0.7586 0.8158 0.8751 0.9365 1.0000
+}"
+-dupCyanTransfer="{
+     0.0000 0.0010 0.0042 0.0094 0.0166 0.0260 0.0375 0.0510 
+     0.0666 0.0843 0.1041 0.1259 0.1498 0.1758 0.2039 0.2341
+     0.2663 0.3007 0.3371 0.3756 0.4162 0.4589 0.5036 0.5505
+     0.5994 0.6504 0.7034 0.7586 0.8158 0.8751 0.9365 1.0000
+}"
+-dupMagentaTransfer="{
+     0.0000 0.0010 0.0042 0.0094 0.0166 0.0260 0.0375 0.0510 
+     0.0666 0.0843 0.1041 0.1259 0.1498 0.1758 0.2039 0.2341
+     0.2663 0.3007 0.3371 0.3756 0.4162 0.4589 0.5036 0.5505
+     0.5994 0.6504 0.7034 0.7586 0.8158 0.8751 0.9365 1.0000
+}"
+-dupYellowTransfer="{
+     0.0000 0.0010 0.0042 0.0094 0.0166 0.0260 0.0375 0.0510 
+     0.0666 0.0843 0.1041 0.1259 0.1498 0.1758 0.2039 0.2341
+     0.2663 0.3007 0.3371 0.3756 0.4162 0.4589 0.5036 0.5505
+     0.5994 0.6504 0.7034 0.7586 0.8158 0.8751 0.9365 1.0000
+}"
+-dupBeginPageCommand="<
+   1b2a726243
+   1b2a7433303052
+   1b266c33616f6c45
+   1b2a6f31643251
+   1b2a703059
+   1b2a72732d34753041
+   1b2a62326d
+>"
+-dupAdjustPageWidthCommand
+-dupEndPageCommand="(0M\033*rbC\033E\033&l0H)"
+-dupAbortCommand="(0M\033*rbC\033E\15\12\12\12\12    Printout-Aborted\15\033&l0H)"
+-dupYMoveCommand="(%dy\0)"
+-dupWriteComponentCommands="{ (%dv\0) (%dv\0) (%dv\0) (%dw\0) }"
+

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/cdj690.upp

@@ -0,0 +1,52 @@
+-supModel="HP Deskjet 690 Normal Gamma 2.0"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Pcl
+-r600x300
+-dupMargins="{ 12.0 36.0 12.0 12.0}"
+-dupBlackTransfer="{
+     0.0000 0.0010 0.0042 0.0094 0.0166 0.0260 0.0375 0.0510 
+     0.0666 0.0843 0.1041 0.1259 0.1498 0.1758 0.2039 0.2341
+     0.2663 0.3007 0.3371 0.3756 0.4162 0.4589 0.5036 0.5505
+     0.5994 0.6504 0.7034 0.7586 0.8158 0.8751 0.9365 1.0000
+}"
+-dupCyanTransfer="{
+     0.0000 0.0010 0.0042 0.0094 0.0166 0.0260 0.0375 0.0510 
+     0.0666 0.0843 0.1041 0.1259 0.1498 0.1758 0.2039 0.2341
+     0.2663 0.3007 0.3371 0.3756 0.4162 0.4589 0.5036 0.5505
+     0.5994 0.6504 0.7034 0.7586 0.8158 0.8751 0.9365 1.0000
+}"
+-dupMagentaTransfer="{
+     0.0000 0.0010 0.0042 0.0094 0.0166 0.0260 0.0375 0.0510 
+     0.0666 0.0843 0.1041 0.1259 0.1498 0.1758 0.2039 0.2341
+     0.2663 0.3007 0.3371 0.3756 0.4162 0.4589 0.5036 0.5505
+     0.5994 0.6504 0.7034 0.7586 0.8158 0.8751 0.9365 1.0000
+}"
+-dupYellowTransfer="{
+     0.0000 0.0010 0.0042 0.0094 0.0166 0.0260 0.0375 0.0510 
+     0.0666 0.0843 0.1041 0.1259 0.1498 0.1758 0.2039 0.2341
+     0.2663 0.3007 0.3371 0.3756 0.4162 0.4589 0.5036 0.5505
+     0.5994 0.6504 0.7034 0.7586 0.8158 0.8751 0.9365 1.0000
+}"
+-dupBeginPageCommand="<
+1b25 2d31 3233 3435 5840 
+504a 4c20 454e 5445 5220 4c41 4e47 5541 
+4745 3d50 434c 534c 4545 4b0a 1b45 1b2a 
+6232 421b 2a6f 3557 040c 0000 001b 2a6f 
+3144 1b26 6c31 481b 266c 3236 6130 4c1b 
+2a6f 3557 0103 0000 011b 266c 304d 1b26 
+6c30 6f30 451b 2a6f 304d 1b26 7533 3030 
+441b 2a70 3058 1b2a 7030 591b 2a67 3857 
+0201 0258 012c 0002 1b2a 7234 3830 3053 
+1b2a 7231 411b 2a62 324d 1b2a 6233 3034 
+591b 2a62 326d 
+>"
+-dupAdjustPageWidthCommand
+-dupEndPageCommand="(0M\033*rbC\033E\033&l0H)"
+-dupAbortCommand="(0M\033*rbC\033E\15\12\12\12\12    Printout-Aborted\15\033&l0H)"
+-dupYMoveCommand="(%dy\0)"
+-dupWriteComponentCommands="{ (%dv\0) (%dv\0) (%dv\0) (%dw\0) }"
+-dupOutputYOffset=10000

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/cdj690ec.upp

@@ -0,0 +1,54 @@
+-supModel="HP Deskjet 690 Econo-Fast Gamma 2.0"
+-sDEVICE=uniprint
+-sPAPERSIZE=a4
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceCMYK
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Pcl
+-r300x300
+
+-dupOutputYOffset=300
+-dupMargins="{ 0.0 36.0 12.0 12.0}"
+-dupBlackTransfer="{
+     0.0000 0.0010 0.0042 0.0094 0.0166 0.0260 0.0375 0.0510 
+     0.0666 0.0843 0.1041 0.1259 0.1498 0.1758 0.2039 0.2341
+     0.2663 0.3007 0.3371 0.3756 0.4162 0.4589 0.5036 0.5505
+     0.5994 0.6504 0.7034 0.7586 0.8158 0.8751 0.9365 1.0000
+}"
+-dupCyanTransfer="{
+     0.0000 0.0010 0.0042 0.0094 0.0166 0.0260 0.0375 0.0510 
+     0.0666 0.0843 0.1041 0.1259 0.1498 0.1758 0.2039 0.2341
+     0.2663 0.3007 0.3371 0.3756 0.4162 0.4589 0.5036 0.5505
+     0.5994 0.6504 0.7034 0.7586 0.8158 0.8751 0.9365 1.0000
+}"
+-dupMagentaTransfer="{
+     0.0000 0.0010 0.0042 0.0094 0.0166 0.0260 0.0375 0.0510 
+     0.0666 0.0843 0.1041 0.1259 0.1498 0.1758 0.2039 0.2341
+     0.2663 0.3007 0.3371 0.3756 0.4162 0.4589 0.5036 0.5505
+     0.5994 0.6504 0.7034 0.7586 0.8158 0.8751 0.9365 1.0000
+}"
+-dupYellowTransfer="{
+     0.0000 0.0010 0.0042 0.0094 0.0166 0.0260 0.0375 0.0510 
+     0.0666 0.0843 0.1041 0.1259 0.1498 0.1758 0.2039 0.2341
+     0.2663 0.3007 0.3371 0.3756 0.4162 0.4589 0.5036 0.5505
+     0.5994 0.6504 0.7034 0.7586 0.8158 0.8751 0.9365 1.0000
+}"
+-dupBeginPageCommand="<
+1b25 2d31 3233 3435 5840 
+504a 4c20 454e 5445 5220 4c41 4e47 5541 
+4745 3d50 434c 534c 4545 4b0a 1b45 1b2a 
+6232 421b 2a6f 3557 040c 0000 001b 2a6f 
+3144 1b26 6c31 481b 266c 3236 6130 4c1b 
+2a6f 3557 0103 0000 011b 266c 304d 1b26 
+6c30 6f30 451b 2a6f 2d31 4d1b 2675 3330 
+3044 1b2a 7030 581b 2a70 3059 1b2a 6732 
+3657 0204 012c 012c 0002 012c 012c 0002 
+012c 012c 0002 012c 012c 0002 1b2a 7232 
+3430 3053 1b2a 7231 411b 2a62 324d 1b2a 
+6231 591b 2a62 326d>"
+-dupAdjustPageWidthCommand
+-dupEndPageCommand="(0M\033*rbC\033E\033&l0H)"
+-dupAbortCommand="(0M\033*rbC\033E\15\12\12\12\12    Printout-Aborted\15\033&l0H)"
+-dupYMoveCommand="(%dy\0)"
+-dupWriteComponentCommands="{ (%dv\0) (%dv\0) (%dv\0) (%dw\0) }"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/cid2code.ps

@@ -0,0 +1,160 @@
+%    Copyright (C) 1998, 2000 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: cid2code.ps 6300 2005-12-28 19:56:24Z giles $
+% Construct an inverse map from CIDs to codes.
+
+% Create an inverse map from CIDs to code values.
+% We only use this for 16-bit Unicode, so it has some limitations.
+% After invoking .cmap2code, loading a CMap file prints out the map
+% instead of doing what it usually does.  For example:
+%
+%	gs -dNODISPLAY -dBATCH lib/cid2code.ps -c .cmap2code\
+%	  -f Resource/CMap/UniJIS-UCS2-H > mapfile
+
+/.cmap2codedict 10 dict begin
+
+/begincmap {
+  mark
+} def
+/endcmap {
+		% Stack: mark code_lo1 code_hi1 cid1 ...
+  20 dict begin
+    /depth counttomark 3 sub def
+		% Do a first pass to determine the maximum CID.
+    0 0 3 depth {
+      1 add /d exch def
+      d index d 2 add index 1 get add d 3 add index 1 get sub .max
+    } for
+    1 add /ncid exch def
+    /map ncid 2 mul string def
+		% Now fill in the map.
+    0 3 depth {
+      /d exch def
+      d index 2 mul /cid2 exch def
+      d 1 add index /hi exch def
+      d 2 add index 2 string copy /lo exch def
+      lo 1 get 1 hi 1 get {
+	map cid2 lo 0 get put
+	map cid2 1 add 3 -1 roll put
+	/cid2 cid2 2 add def
+      } for
+    } for
+		% Print the map.
+    (%stdout) (w) file
+      dup (<) print
+      dup /ASCIIHexEncode filter
+	dup map writestring
+      closefile
+      () = flush
+    closefile
+  end
+} def
+%/begincodespacerange
+/endcodespacerange {cleartomark} def
+%/usecmap
+
+%/beginbfchar
+/endbfchar {cleartomark} def
+%/beginbfrange
+/endbfrange {cleartomark} def
+
+%/begincidchar
+/endcidchar {
+  counttomark 2 idiv { dup counttomark 1 add 3 roll } repeat pop
+} def
+%/begincidrange
+/endcidrange {
+  counttomark 1 add -1 roll pop
+} def
+
+%/beginnotdefchar
+/endnotdefchar {cleartomark} def
+%/beginnotdefrange
+/endnotdefrange {cleartomark} def
+
+currentdict end readonly def
+
+/.cmap2code {		% - .cmap2code -
+  /CIDInit /ProcSet findresource dup length dict copy
+  .cmap2codedict { 3 copy put pop pop } forall
+  /CIDInit exch /ProcSet defineresource pop
+} def
+
+% Extract and print reverse mapping information from a cid2code.txt file.
+/.printhex2 {		% <int16> .printhex2 -
+  (<) print
+  16#10000 add 16 =string cvrs 1 4 getinterval print
+  (>) print
+} def
+/.cid2code {		% <cmaptemplate> <file> <column> .cid2code -
+  30 dict begin
+  /column exch def
+  (r) file /f exch def
+  (%!) =
+  (/CIDInit /ProcSet findresource begin   12 dict begin   begincmap) =
+		% Print the information from the template.
+  {
+    exch ==only ( ) print
+    dup type /dicttype eq {
+      dup length =only ( dict dup begin) = {
+	(  ) print exch ===only ( ) print ===only ( def) =
+      } forall (end def) =
+    } {
+      ===only
+    } ifelse ( def) =
+  } forall
+		% Read the data from the cid2code.txt file.
+  {
+    f =string readline pop (CID\t) anchorsearch { pop pop exit } if pop
+  } loop
+  /map [ {
+    f =string readline not { pop exit } if
+    column { (\t) search pop pop pop } repeat
+    (\t) search { exch pop exch pop } if
+    (,) search { exch pop exch pop } if
+    dup length 4 ne { pop (*) } if
+    dup (*) eq { pop (0000) } if
+    (16#) exch concatstrings cvi
+  } loop ] def
+		% Print the code space range(s).
+  /maxcid map length 1 sub def
+  mark maxcid
+  dup 255 and 255 eq {
+    0 exch
+  } {
+    dup 16#ff00 and exch 0 2 index 1 sub
+  } ifelse
+  counttomark 2 idiv dup =only ( begincodespacerange) = {
+    exch .printhex2 .printhex2 () =
+  } repeat (endcodespacerange) =
+		% Print the map data.
+  0 1 100 maxcid {
+    /lo exch def
+    /hi lo 99 add maxcid .min def
+    0 lo 1 hi { map exch get 0 ne { 1 add } if } for
+    dup 0 eq {
+      pop
+    } {
+      =only ( begincidchar) = lo 1 hi {
+	map 1 index get dup 0 eq { pop pop } { exch .printhex2 = } ifelse
+      } for (endcidchar) =
+    } ifelse
+  } for
+		% Wrap up.
+  (endcmap   CMapName currentdict /CMap defineresource pop   end   end) =
+  f closefile
+  end
+} bind def

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/cidfmap

@@ -0,0 +1,43 @@
+%!
+% cidfmap generated automatically by mkcidfm.ps from fonts found in
+%   C:/Windows/fonts
+
+% Substitutions
+/MS-PGothic << /FileType /TrueType /SubfontID 1 /CSI [(Japan1) 3] /Path (C:/Windows/fonts/msgothic.ttc) >> ;
+/MS-Mincho << /FileType /TrueType /SubfontID 0 /CSI [(Japan1) 3] /Path (C:/Windows/fonts/msmincho.ttc) >> ;
+/DotumChe << /FileType /TrueType /SubfontID 3 /CSI [(Korea1) 3] /Path (C:/Windows/fonts/gulim.ttc) >> ;
+/SimSun << /FileType /TrueType /SubfontID 0 /CSI [(GB1) 2] /Path (C:/Windows/fonts/simsun.ttc) >> ;
+/Gulim << /FileType /TrueType /SubfontID 0 /CSI [(Korea1) 3] /Path (C:/Windows/fonts/gulim.ttc) >> ;
+/MingLiU << /FileType /TrueType /SubfontID 0 /CSI [(CNS1) 2] /Path (C:/Windows/fonts/mingliu.ttc) >> ;
+/BatangChe << /FileType /TrueType /SubfontID 1 /CSI [(Korea1) 3] /Path (C:/Windows/fonts/batang.ttc) >> ;
+/Dotum << /FileType /TrueType /SubfontID 2 /CSI [(Korea1) 3] /Path (C:/Windows/fonts/gulim.ttc) >> ;
+/µ¸¿ò << /FileType /TrueType /SubfontID 2 /CSI [(Korea1) 3] /Path (C:/Windows/fonts/gulim.ttc) >> ;
+/PMingLiU << /FileType /TrueType /SubfontID 1 /CSI [(CNS1) 2] /Path (C:/Windows/fonts/mingliu.ttc) >> ;
+/SimHei << /FileType /TrueType /SubfontID 0 /CSI [(GB1) 2] /Path (C:/Windows/fonts/simhei.ttf) >> ;
+/Gungsuh << /FileType /TrueType /SubfontID 2 /CSI [(Korea1) 3] /Path (C:/Windows/fonts/batang.ttc) >> ;
+/MS-PMincho << /FileType /TrueType /SubfontID 1 /CSI [(Japan1) 3] /Path (C:/Windows/fonts/msmincho.ttc) >> ;
+/MS-UI-Gothic << /FileType /TrueType /SubfontID 2 /CSI [(Japan1) 3] /Path (C:/Windows/fonts/msgothic.ttc) >> ;
+/MS-Gothic << /FileType /TrueType /SubfontID 0 /CSI [(Japan1) 3] /Path (C:/Windows/fonts/msgothic.ttc) >> ;
+/NSimSun << /FileType /TrueType /SubfontID 1 /CSI [(GB1) 2] /Path (C:/Windows/fonts/simsun.ttc) >> ;
+/Batang << /FileType /TrueType /SubfontID 0 /CSI [(Korea1) 3] /Path (C:/Windows/fonts/batang.ttc) >> ;
+/GulimChe << /FileType /TrueType /SubfontID 1 /CSI [(Korea1) 3] /Path (C:/Windows/fonts/gulim.ttc) >> ;
+/±¼¸² << /FileType /TrueType /SubfontID 1 /CSI [(Korea1) 3] /Path (C:/Windows/fonts/gulim.ttc) >> ;
+/GungsuhChe << /FileType /TrueType /SubfontID 3 /CSI [(Korea1) 3] /Path (C:/Windows/fonts/batang.ttc) >> ;
+
+% Aliases
+/STHeiti-Regular /SimHei ;
+/STSong-Light /SimSun ;
+/STKaiti-Regular /SimHei ;
+/HeiseiKakuGo-W5 /MS-Gothic ;
+/HeiseiMin-W3 /MS-Mincho ;
+/HYSMyeongJo-Medium /Batang ;
+/GothicBBB-Medium /MS-Gothic ;
+/MKai-Medium /MingLiU ;
+/Ryumin-Light /MS-Mincho ;
+/MHei-Medium /MingLiU ;
+/HYRGoThic-Medium /Gulim ;
+/MSung-Medium /MingLiU ;
+/Ryumin-Medium /MS-Mincho ;
+/HYGoThic-Medium /Dotum ;
+/STFangsong-Light /SimSun ;
+/MSung-Light /MingLiU ;

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/cidfmap.bak

@@ -0,0 +1,28 @@
+%!
+% $Id: cidfmap 8954 2008-08-08 04:22:38Z ray $
+% This is a sample map file for CIDFont category.
+
+%
+% The map is a set of records, which must use one of the two formats :
+%
+% 1. A substutution of a CIF font with another CID font :
+%
+%    /substituted /original ;
+%
+%    Where 'substituted' is a name being used in a document,
+%    'original' is a name of an available resource.
+%
+% 2. A substutution of a CIF font with a True Type font :
+%
+%    /substituted << /FileType /TrueType /Path (path) /SunfontID 1 /CSI [(ordering) supplement] >> ;
+%
+%    Where 'substituted' is a name being used in a document,
+%    'path' is a path to a True Type font file,
+%    'ordering' is a value of Ordering required for CIDSystemInfo dictionary,
+%    'supplement' is a value of Supplement required for CIDSystemInfo dictionary.
+%
+% Examples :
+%    
+%   /ShinGo-Bold   /HeiseiKakuGo-W5 ;
+%   /Ryumin-Medium << /FileType /TrueType /Path (H:/AuxFiles/Fonts/BATANG.TTC) /SubfontID 3 /CSI [(Japan1) 2] >> ;
+%

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/decrypt.ps

@@ -0,0 +1,15 @@
+%!
+% Decrypt an eexec-encoded file.
+% $Id: decrypt.ps 6300 2005-12-28 19:56:24Z giles $
+
+(t.in) (r) file /in exch def
+(t.out) (w) file /out exch def
+256 string /buf exch def
+55665		% eexec encryption seed
+ { in buf readhexstring /more exch def
+   dup .type1decrypt out exch writestring
+   more not { exit } if
+ } loop
+in closefile
+out closefile
+quit

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/dnj750c.upp

@@ -0,0 +1,47 @@
+-supModel="HP Designjet 750c, 300x300DpI, Gamma=2.5, CMY"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceRGB
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Pcl
+-r300x300
+-dupMargins="{0.0 0.0 0.0 0.0}"
+-dupRedTransfer="{1.0 0.921295345 0.846429467 0.775337517 0.707954228 
+0.644212425 0.584044278 0.527380228 0.474149585 0.424279869 0.377697408 
+0.334326446 0.294089675 0.256907612 0.222698912 0.191379622 0.162863538 
+0.137061611 0.113881744 0.0932285339 0.0750028 0.0591011234 0.0454152822 
+0.0338314585 0.0242292974 0.0164806321 0.0104477014 0.00598061318 0.00291339168 
+0.00105723308 0.000186894162 0.0}"
+-dupGreenTransfer="{1.0 0.921295345 0.846429467 0.775337517 0.707954228 
+0.644212425 0.584044278 0.527380228 0.474149585 0.424279869 0.377697408 
+0.334326446 0.294089675 0.256907612 0.222698912 0.191379622 0.162863538 
+0.137061611 0.113881744 0.0932285339 0.0750028 0.0591011234 0.0454152822 
+0.0338314585 0.0242292974 0.0164806321 0.0104477014 0.00598061318 0.00291339168 
+0.00105723308 0.000186894162 0.0}"
+-dupBlueTransfer="{1.0 0.921295345 0.846429467 0.775337517 0.707954228 
+0.644212425 0.584044278 0.527380228 0.474149585 0.424279869 0.377697408 
+0.334326446 0.294089675 0.256907612 0.222698912 0.191379622 0.162863538 
+0.137061611 0.113881744 0.0932285339 0.0750028 0.0591011234 0.0454152822 
+0.0338314585 0.0242292974 0.0164806321 0.0104477014 0.00598061318 0.00291339168 
+0.00105723308 0.000186894162 0.0}"
+-dupBeginPageCommand="<1b252d31323334355840504a4c204a4f42204e414d45203d20226773
+220d0a40504a4c20534554204d4952524f52203d204f4646200a40504a4c205345542050414c4554
+5445534f55524345203d20534f465457415245200a40504a4c205345542052454e4445524d4f4445
+203d20434f4c4f52200a40504a4c20534554205245534f4c5554494f4e203d2030200a40504a4c20
+534554205052494e5441524541203d2046554c4c53495a45200a40504a4c20534554205041504552
+4c454e475448203d2030200a40504a4c205345542050415045525749445448203d2030200a40504a
+4c20534554204f5249454e544154494f4e203d20504f525452414954200a40504a4c20534554204d
+415247494e53203d204e4f524d414c200a40504a4c20454e544552204c414e4755414745203d2048
+50474c32200d0a1b2531424250352c31494e5755304e50384543514c3130301b2531411b2661314e
+1b2a7631385700000308080800ff00ff00ff0000000000001b2a7632353561323535623235356330
+491b2a763061323535623235356331491b2a763235356130623235356332491b2a76306130623235
+356333491b2a763235356132353562306334491b2a76306132353562306335491b2a763235356130
+62306336491b2a7630613062306337491b2a74521b2a72531b2a72541b2a7231411b2a62324d>"
+-dupAdjustPageWidthCommand
+-dupAdjustPageLengthCommand
+-dupAdjustResolutionCommand
+-dupEndPageCommand="<1b2a72431b451b25314250473b1b252d313233343558>"
+-dupAbortCommand="
+(\033*rC\033E\15\12\12\12\12    Printout-Aborted\033%1BPG;\033%-12345X)"
+-dupWriteComponentCommands="{(\033*b%dV\0) (\033*b%dV\0) (\033*b%dW\0)}"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/dnj750m.upp

@@ -0,0 +1,59 @@
+-supModel="HP Designjet 750m, 600x600DpI, Gamma=2.5, CMY"
+-sDEVICE=uniprint
+-dNOPAUSE
+-dSAFER
+-dupColorModel=/DeviceGray
+-dupRendering=/ErrorDiffusion
+-dupOutputFormat=/Pcl
+-r600x600
+-dupMargins="{0.0 0.0 0.0 0.0}"
+-dupWhiteTransfer="{
+1.0            0.921295345  0.846429467   0.775337517   0.707954228
+0.644212425    0.584044278  0.527380228   0.474149585   0.424279869
+0.377697408    0.334326446  0.294089675   0.256907612   0.222698912
+0.191379622    0.162863538  0.137061611   0.113881744   0.0932285339
+0.0750028      0.0591011234 0.0454152822  0.0338314585  0.0242292974
+0.0164806321   0.0104477014 0.00598061318 0.00291339168 0.00105723308
+0.000186894162 0.0
+}"
+-dupBeginPageCommand="<
+   1b252d313233343558
+   40504a4c204a4f42204e414d45203d20226773220d0a
+   40504a4c20534554204d4952524f52203d204f4646200a
+   40504a4c205345542050414c45545445534f55524345203d20534f465457415245200a
+   40504a4c205345542052454e4445524d4f4445203d20475241595343414c45200a
+   40504a4c20534554205245534f4c5554494f4e203d2030200a
+   40504a4c20534554205052494e5441524541203d2046554c4c53495a45200a
+   40504a4c205345542050415045524c454e475448203d2030200a
+   40504a4c205345542050415045525749445448203d2030200a
+   40504a4c20534554204f5249454e544154494f4e203d20504f525452414954200a
+   40504a4c20534554204d415247494e53203d204e4f524d414c200a
+   40504a4c20454e544552204c414e4755414745203d204850474c32200d0a
+   1b253142
+   4250352c31
+   494e
+   575530
+   4e5032
+   4543
+   514c313030
+   1b253141
+   1b2661314e
+   1b2a763657
+   00
+   00
+   01
+   080808
+   1b2a76 32353561 32353562 32353563 3049
+   1b2a76     3061     3062     3063 3149
+   1b2a74 33323152
+   1b2a72 33323153
+   1b2a72 54
+   1b2a72 3141
+   1b2a62 324d
+>"
+-dupAdjustPageWidthCommand
+-dupAdjustPageLengthCommand
+-dupAdjustResolutionCommand
+-dupEndPageCommand="(\033*rC\033E\033%1BPG;\033%-12345X)"
+-dupAbortCommand="(\033*rC\033E\15\12\12\12\12    Printout-Aborted\033%1BPG;\033%-12345X)"
+-dupWriteComponentCommands="{ (\033*b%dW\0) }"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/docie.ps

@@ -0,0 +1,220 @@
+%    Copyright (C) 1995 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: docie.ps 8411 2007-11-28 18:39:59Z ray $
+% docie.ps
+% Emulate CIE algorithms in PostScript.
+
+% ---------------- Auxiliary procedures ---------------- %
+
+/r1default [0 1] def
+/r3default [0 1 0 1 0 1] def
+
+/apply3		% <u> <v> <w> [<pu> <pv> <pw>] apply3 <u'> <v'> <w'>
+ {  { 4 -1 roll exch exec } forall
+ } bind def
+
+/restrict	% <u> <min> <max> restrict <u'>
+ { 3 1 roll .max .min
+ } bind def
+
+/restrict3	% <u> <v> <w> [<minu> ... <maxw>] restrict3 <u'> <v'> <w'>
+ { aload pop
+   7 -1 roll 3 1 roll restrict 7 1 roll
+   5 -1 roll 3 1 roll restrict 5 1 roll
+   restrict 3 1 roll
+ } bind def
+
+/rescale	% <u> <min> <max> rescale <u'>
+ { 1 index sub 3 1 roll sub exch div 0 .max 1 .min
+ } bind def
+
+/rescale3	% <u> <v> <w> [<minu> ... <maxw>] rescale3 <u'> <v'> <w'>
+ { aload pop
+   7 -1 roll 3 1 roll rescale 7 1 roll
+   5 -1 roll 3 1 roll rescale 5 1 roll
+   rescale 3 1 roll
+ } bind def
+
+/mmult3		% <u> <v> <w> [<uu> <uv> ... <wv> <ww>] mmult3
+		%   <u'> <v'> <w'>
+ { 4 -1 roll dup dup 6 -1 roll dup dup 8 -1 roll dup dup
+   10 -1 roll { 10 -1 roll mul } forall
+		% Stack: u1 v1 w1 u2 v2 w2 u3 v3 w3
+   4 -1 roll add 6 -1 roll add
+		% Stack: u1 v1 u2 v2 u3 v3 w'
+   7 1 roll 3 -1 roll add 4 -1 roll add
+		% Stack: w' u1 u2 u3 v'
+   5 1 roll add add 3 1 roll
+ } bind def
+
+/minvert3	% [<uu> <uv> ... <wv> <ww>] minvert3
+		%   [<uu'> <uv'> ... <wv'> <ww'>]
+ { 16 dict begin
+   aload pop { I H G F E D C B A } { exch def } forall
+   /coa E I mul F H mul sub def
+   /cob F G mul D I mul sub def
+   /coc D H mul E G mul sub def
+   /det A coa mul B cob mul add C coc mul add def
+   [ coa det div
+     C H mul B I mul sub det div
+     B F mul C E mul sub det div
+     cob det div
+     A I mul C G mul sub det div
+     C D mul A F mul sub det div
+     coc det div
+     B G mul A H mul sub det div
+     A E mul B D mul sub det div
+   ]
+   end
+ } bind def
+
+/print1
+ { print dup ==
+ } bind def
+
+/print3
+ { print 3 array astore dup == aload pop
+ } bind def
+
+% ---------------- Mapping to XYZ ---------------- %
+
+/csmap		% <csdict> <l> <m> <n> csmap <csdict> <x> <y> <z>
+ { 3 index /RangeLMN .knownget not { r3default } if restrict3
+DOCIEDEBUG { (After RangeLMN Decode: ) print3 } if
+   3 index /DecodeLMN .knownget { apply3 } if
+DOCIEDEBUG { (After DecodeLMN Decode: ) print3 } if
+   3 index /MatrixLMN .knownget { mmult3 } if
+DOCIEDEBUG { (After MatrixLMN Decode: ) print3 } if
+ } bind def
+
+/csciea		% <csdict> <a> csciea <csdict> <x> <y> <z>
+ { 1 index /RangeA .knownget not { r1default aload pop } if restrict
+DOCIEDEBUG { (After RangeA Decode: ) print1 } if
+   1 index /DecodeA .knownget { exec } if
+DOCIEDEBUG { (After DecodeA Decode: ) print1 } if
+   1 index /MatrixA .knownget
+    { { 1 index mul exch } forall pop }
+    { dup dup }
+   ifelse
+DOCIEDEBUG { (After MatrixA Decode: ) print3 } if
+   csmap
+ } bind def
+
+/cscieabc	% <csdict> <a> <b> <c> cscieabc <csdict> <x> <y> <z>
+ { 3 index /RangeABC .knownget not { r3default } if restrict3
+DOCIEDEBUG { (After RangeABC Decode: ) print3 } if
+   3 index /DecodeABC .knownget { apply3 } if
+DOCIEDEBUG { (After DecodeABC Decode: ) print3 } if
+   3 index /MatrixABC .knownget { mmult3 } if
+DOCIEDEBUG { (After MatrixABC Decode: ) print3 } if
+   csmap
+ } bind def
+
+% ---------------- Rendering from XYZ ---------------- %
+
+/lookup3	% <rtable> <a[0..1]> <b[0..1]> <c[0..1]> lookup3
+		%   <rtable> <bytes>
+ { 3 -1 roll 3 index 0 get 1 sub mul
+   3 -1 roll 3 index 1 get 1 sub mul
+   3 -1 roll 3 index 2 get 1 sub mul
+		% Stack: rtable ia ib ic
+DOCIEDEBUG { (RenderTable indices: ) print3 mark 5 1 roll } if
+   3 -1 roll round cvi 3 index 3 get exch get
+		% Stack: rtable ib ic string
+   3 -1 roll round cvi 3 index 2 get mul
+		% Stack: rtable ic string ib*nc
+   3 -1 roll round cvi add 2 index 4 get mul
+		% Stack: rtable string index
+   2 index 4 get getinterval
+		% Stack: rtable bytes
+DOCIEDEBUG { (RenderTable values: ) print (<) print (%stdout) (w) file 1 index writehexstring (>) = } if
+ } bind def
+
+/bpdefault [0 0 0] def
+
+/crmap		% <csdict> <crdict> <x> <y> <z> crmap <v1> ...
+ {
+DOCIEDEBUG { (CIE XYZ = ) print3 } if
+   3 index /MatrixPQR .knownget { mmult3 } if
+DOCIEDEBUG { (After MatrixPQR: ) print3 } if
+   4 index /WhitePoint get
+   5 index /BlackPoint .knownget not { bpdefault } if
+   5 index /WhitePoint get
+   6 index /BlackPoint .knownget not { bpdefault } if
+   4
+     { 4 -1 roll aload pop
+			% Stack: csdict crdict x y z pt pt pt px py pz
+       3 copy 12 index /MatrixPQR .knownget { mmult3 } if 6 array astore
+     }
+   repeat
+			% Stack: csdict crdict x y z wps+ bps+ wpd+ bpd+
+   9 -1 roll pop		% get rid of csdict
+   7 4 roll
+   7 index /TransformPQR get
+    {			% Stack: crdict wps+ bps+ wpd+ bpd+ u v w proc
+      8 copy exch pop exch pop
+      exec exch pop 4 -1 roll pop
+    }
+   forall
+   7 3 roll pop pop pop pop	% get rid of White/BlackPoints
+DOCIEDEBUG { (After TransformPQR: ) print3 } if
+   3 index /MatrixPQR .knownget { minvert3 mmult3 } if
+DOCIEDEBUG { (After MatrixPQR': ) print3 } if
+   3 index /MatrixLMN .knownget { mmult3 } if
+DOCIEDEBUG { (After MatrixLMN Encode: ) print3 } if
+   3 index /EncodeLMN .knownget { apply3 } if
+DOCIEDEBUG { (After EncodeLMN Encode: ) print3 } if
+   3 index /RangeLMN .knownget not { r3default } if restrict3
+DOCIEDEBUG { (After RangeLMN Encode: ) print3 } if
+   3 index /MatrixABC .knownget { mmult3 } if
+DOCIEDEBUG { (After MatrixABC Encode: ) print3 } if
+   3 index /EncodeABC .knownget { apply3 } if
+DOCIEDEBUG { (After EncodeABC Encode: ) print3 } if
+   3 index /RangeABC .knownget not { r3default } if
+   5 -1 roll /RenderTable .knownget
+    {		% Stack: u v w ranges rtable
+      5 1 roll rescale3
+DOCIEDEBUG { (Rescaled ABC: ) print3 } if
+		% Stack: rtable a b c
+      lookup3
+		% Stack: rtable bytes
+      0 1 3 index 4 get 1 sub
+       {	% Stack: values rtable bytes c
+	 2 copy get 255 div
+		% Stack: values rtable bytes c v
+	 3 index 3 -1 roll 5 add get exec 3 1 roll
+       }
+      for pop pop
+DOCIEDEBUG { (After RenderTableT: ) print ] dup == aload pop } if
+    }
+    { restrict3
+DOCIEDEBUG { (After RangeABC Encode: ) print3 } if
+    }
+   ifelse
+ } bind def
+
+% ---------------- Top level control ---------------- %
+
+/mapdict mark
+  /CIEBasedA { 1 get exch csciea currentcolorrendering 4 1 roll crmap } bind
+  /DeviceGray { pop /DefaultGray /ColorSpace findresource 1 get exch csciea currentcolorrendering 4 1 roll crmap } bind
+  /CIEBasedABC { 1 get 4 1 roll cscieabc currentcolorrendering 4 1 roll crmap } bind
+  /DeviceRGB { pop /DefaultRGB /ColorSpace findresource 1 get 4 1 roll cscieabc currentcolorrendering 4 1 roll crmap } bind
+.dicttomark def
+/mapcie		% <a> mapcie <v1> ...
+		% <a> <b> <c> mapcie <v1> ...
+ { currentcolorspace dup 0 get //mapdict exch get exec
+ } bind def

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/dumphint

@@ -0,0 +1,30 @@
+#!/bin/sh
+# $Id: dumphint 9320 2009-01-04 20:11:57Z till $
+# Linearized PDF hint formatting utility.
+
+# This definition is changed on install to match the
+# executable name set in the makefile
+GS_EXECUTABLE=gs
+gs="`dirname $0`/$GS_EXECUTABLE"
+if test ! -x "$gs"; then
+	gs="$GS_EXECUTABLE"
+fi
+GS_EXECUTABLE="$gs"
+
+
+OPTIONS="-dSAFER -dDELAYSAFER"
+while true
+do
+	case "$1" in
+	-?*) OPTIONS="$OPTIONS $1" ;;
+	*)  break ;;
+	esac
+	shift
+done
+
+if [ $# -ne 1 ]; then
+	echo "Usage: `basename $0` input.pdf" 1>&2
+	exit 1
+fi
+
+exec "$GS_EXECUTABLE" -q -dNODISPLAY $OPTIONS -- "`dirname $0`/dumphint.ps" "$1"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/dumphint.bat

@@ -0,0 +1,22 @@
+@echo off 
+@rem $Id: dumphint.bat 6300 2005-12-28 19:56:24Z giles $
+@rem Linearized PDF hint formatting utility.
+
+if %1/==/ goto usage
+call gssetgs.bat
+echo -q -dNODISPLAY -dSAFER -dDELAYSAFER >_.at
+:cp
+if %2/==/ goto doit
+echo %2 >>_.at
+shift
+goto cp
+
+:doit
+%GSC% -q @_.at -- dumphint.ps %1
+if exist _.at erase _.at
+goto end
+
+:usage
+echo Usage: dumphint input.pdf
+
+:end

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/dumphint.ps

@@ -0,0 +1,756 @@
+% Copyright (C) 2000, 2001 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: dumphint.ps 8284 2007-10-10 17:40:38Z giles $
+% Linearized PDF hint formatting utility.
+
+%
+% Linearized PDF hints generated by Acrobat suite seem to deviate from
+% the published specification.
+%
+% /P (page offset hint table) key in hint stream is not generated by
+% Adobe products. The key is no longer required in PDF 1.5.
+%
+% Per-page items 4 and 5 of the page offset hint table start from 1st
+% page rather than 2nd page as the spec claims.
+%
+% All array entries start from the new byte boundary.
+%
+
+/table_width 79 def 
+/col1_width  66 def
+
+% Skip bits to the next byte boundary
+/bytealign {		% <stream> bytealign -
+  begin /N 0 def /B 0 def end
+} bind def
+
+% Set bit stream position and align it to byte boundary
+/set_align {            % <<>> pos set_align -
+  exch begin
+  S exch setfileposition
+  /N 0 def /B 0 def
+  end
+} bind def
+
+% Read requested number of bits from the bit stream.
+/bitread {		% <bstream> <width> bitwrite <value>
+  exch begin
+  0                     %  bit val
+  { 
+    1 index N .min      %  bit val m
+    dup 3 1 roll        %  bit m val m 
+    bitshift            %  bit m val<<m
+    B 2 index N sub     %  bit m val<<m B m-N
+    bitshift add        %  bit m val<<m+B>>(N-m)
+    3 -1 roll           %  m val' bit 
+    2 index sub         %  m val' bit'
+    3 -1 roll           %  val' bit' m
+    N exch sub dup      %  val' bit' N' N'
+    1 exch bitshift     %  val' bit' N' 1<<N'
+    1 sub B and         %  val' bit' N' B&(1<<N')
+    /B exch def         %  val' bit' N'
+    /N exch def         %  val' bit'
+    dup 0 le {
+      pop exit          %  val'
+    } if
+    /N N 8 add def
+    /B B 8 bitshift S read not { 0 ( *** EOF! *** ) = } if add def
+    exch
+  } loop                %  bit' val'
+  end
+} bind def
+
+% Print a string several times
+/multiprint {           % cnt (s) multiprint -
+  exch { dup print } repeat pop
+} bind def
+
+% Split the line into 2 substrings.
+/split_line {           % (s) split_line () ()
+  dup length col1_width gt {
+    col1_width 1 sub
+    dup -1 0 {
+      dup               % (s) w i i
+      3 index           % (s) w i i ()
+      exch get          % (s) w i c
+      32 eq {
+        exch pop exit
+      } if
+      pop
+    } for
+    1 add               % (s) w'
+    1 index exch        % (s) (s) w'
+    0 exch              % (s) (s) 0 w'
+    getinterval         % (s) (v)
+  } {
+    dup                 % (s) (s)
+  } ifelse                  
+  (\n) search {
+    4 1 roll            % (pre) (s) (post) (match)
+    pop pop             % (pre) (s)
+    1 index length      % (pre) (s) len
+    1 add               % (pre) (s) len+1
+  } {
+    exch                % (pre) (s)
+    1 index length      % (pre) (s) len
+  } ifelse
+  1 index length        % (pre) (s) len Len
+  1 index sub           % (pre) (s) len Len-len
+  getinterval           % (pre) (post)
+} bind def
+
+% Print a 2 column table. The string is printed in 1st column
+% left-aligned. The number is printed in 2nd column right-aligned.
+/two_column {           % n () two_column -
+  split_line            % n (a) ()
+  3 1 roll              % () n (a)
+  dup length            % () n (a) len
+  exch print            % () n len
+  exch =string cvs      % () len (n)
+  dup length            % () len (n) len2
+  3 -1 roll add         % () (n) len+len2 
+  //table_width         % () (n) len+len2 78
+  exch sub              % () (n) 78-len+len2 
+  ( ) multiprint        % () (n)
+  =                     % ()
+  { dup length 0 eq { exit } if
+    split_line exch =
+  } loop
+  pop
+  () =
+} bind def
+
+% Print the header of a hint table
+/table_header {               % () table_header -
+  dup length dup
+  table_width exch sub 2 idiv % () len sp
+  dup ( ) multiprint          % () len sp
+  3 -1 roll =                 % len sp
+  ( ) multiprint              % len
+  (=) multiprint
+  ()= ()=
+} bind def
+
+% Pretty-print an array on top level
+/dump_array {               % [ ] dump_array -
+  ([) = ( ) print
+  1 exch {
+    =string cvs         % pos ()
+    dup length dup      % pos () len len
+    3 index add 1 add   % pos () len len+pos+1
+    table_width gt {
+      () =
+      (  ) print        % pos () len
+      2 add             % pos () pos'
+      3 1 roll print pop % pos'
+    } {
+      ( ) print         % pos () len
+      exch print        % pos len
+      add 1 add         % pos'
+    } ifelse
+  } forall
+  pop
+  () = (]) =
+} bind def
+
+% Pretty-print an array on 2nd level
+/dump_array2 {             % [ ] dump_array2 -
+  (  [) print
+  3 exch {
+    =string cvs            % pos ()
+    dup length dup         % pos () len len
+    3 index add 1 add      % pos () len len+pos+1
+    table_width 2 sub gt {
+      () =
+      (    ) print         % pos () len
+      4 add                % pos () pos'
+      3 1 roll print pop   % pos'
+    } {
+      ( ) print            % pos () len
+      exch print           % pos len
+      add 1 add            % pos'
+    } ifelse
+  } forall
+  pop
+  ( ]) =
+} bind def
+
+% Print an array header
+/array_header {
+  () = =
+} bind def
+
+% Analyze the page offset hint table.
+/dump_page_offset_table {  % - dump_page_offset_table -
+  hint_stream
+    
+  dup 32 bitread
+  dup /hint_minnop exch def
+  (1. The least number of objects in a page.) two_column
+
+  dup 32 bitread
+  dup /hint_1st_obj exch def
+  (2. Location of the first page's page object.) two_column
+
+  dup 16 bitread
+  dup /hint_maxnopbits exch def
+  (3. Bits for difference between max and min number of page objects.) two_column
+
+  dup 32 bitread
+  dup /hint_minpl exch def
+  (4. Least length of a page.) two_column
+
+  dup 16 bitread
+  dup /hint_maxplbits exch def
+  (5. Bits for difference between max and min length of a page.) two_column
+
+  dup 32 bitread
+  dup /hint_minsco exch def
+  (6. Least start of Contents offset. ) 
+  1 index 0 ne { (\n*** Acrobat expects 0 ***) concatstrings } if
+  two_column
+
+  dup 16 bitread
+  dup /hint_maxscobits exch def
+  (7. Bits for difference between max and min offset to the start of the content stream.) two_column
+
+  dup 32 bitread
+  dup /hint_mincl exch def
+  (8. Least contents length.) two_column
+
+  dup 16 bitread
+  dup /hint_maxclbits exch def
+  (9. Bits needed to represent the greatest Contents length.) two_column
+
+  dup 16 bitread
+  dup /hint_maxsorbits exch def
+  (10. Bits needed to represent the greatest number of Shared Object references.) two_column
+
+  dup 16 bitread
+  dup /hint_sobits exch def
+  (11. Bits needed to identify a Shared Object.) two_column
+
+  dup 16 bitread
+  dup /hint_numfbits exch def
+  (12. Bits needed to represent numerator of fraction.) two_column
+
+  dup 16 bitread
+  dup /hint_denf exch def
+  (13. Denominator of fraction.) two_column
+
+  pop 
+
+  LinearizationParams /N get
+
+  % 1. Number of objects in the page.
+  hint_stream bytealign
+  /hint_page_obj [
+    2 index {
+      hint_stream hint_maxnopbits bitread
+      hint_minnop add
+    } repeat
+  ] readonly def
+
+  (1. Number of objects on the page) array_header
+  hint_page_obj dump_array
+
+  % 2, Page length in bytes.
+  hint_stream bytealign
+  /hint_page_len [
+    2 index {
+      hint_stream hint_maxplbits bitread
+      hint_minpl add
+    } repeat
+  ] readonly def
+
+  (2. Page length in bytes.) array_header
+  hint_page_len dump_array
+
+  % 3, Number of shared objects referenced from the page
+  hint_stream bytealign
+  /hint_page_sobj [
+    2 index {
+      hint_stream hint_maxsorbits bitread
+    } repeat
+  ] readonly def
+
+  (3. Number of shared objects referenced from the page.) array_header
+  hint_page_sobj dump_array
+
+  % 4. Index into the shared objects hint table
+  hint_stream bytealign
+  /hint_page_sobj_id [
+    0 1 4 index 1 sub {
+      hint_page_sobj exch get [
+        exch {
+          hint_stream hint_sobits bitread
+        } repeat
+      ] readonly
+    } for
+  ] readonly def
+
+  (4. Index into the shared objects hint table.) array_header
+  ([) =
+  hint_page_sobj_id { dump_array2 } forall
+  (])=
+
+  % 5. Fractional position for each shared object reference
+  hint_stream bytealign
+  /hint_page_sobj_pos [
+    0 1 4 index 1 sub {
+      hint_page_sobj exch get [
+        exch {
+          hint_stream hint_numfbits bitread
+          hint_denf div
+        } repeat
+      ] readonly
+    } for
+  ] readonly def
+
+  (5. Fractional position for each shared object reference. ) array_header
+  ([)=
+  hint_page_sobj_pos { dump_array2 } forall
+  (])=
+
+  % 6. Offset of the page's content stream from the beginning of the page.
+  hint_stream bytealign
+  /hint_page_content_offset [
+    2 index {
+      hint_stream hint_maxscobits bitread
+      hint_minsco add
+    } repeat
+  ] readonly def
+
+  (6. Offset of the page's content stream from the beginning of the page.) array_header
+  hint_page_content_offset dump_array
+
+  % 7. Length of the page's content stream in bytes.
+  hint_stream bytealign
+  /hint_page_content_len [
+    2 index {
+      hint_stream hint_maxclbits bitread
+      hint_mincl add
+    } repeat
+  ] readonly def
+
+  (7. Length of the page's content stream in bytes.) array_header
+  hint_page_content_len dump_array
+
+  pop
+} bind def
+
+% Analyze tha shared object hint table
+/dump_shared_object_table { 
+  hint_stream
+    
+  dup 32 bitread
+  dup /shint_1st_obj_id exch def
+  (1. Object number of the first object in the shared objects section) two_column
+
+  dup 32 bitread
+  dup /shint_1st_obj_pos exch def
+  (2. Location of the first object in the shared objects section.) two_column
+
+  dup 32 bitread
+  dup /shint_1st_shared exch def
+  (3. The number of shared object entries for the first page.) two_column
+
+  dup 32 bitread
+  dup /shint_all_shared exch def
+  (4. Number of shared object entries for the shared objects section including 1st page.) two_column
+
+  dup 16 bitread
+  dup /shint_group_bits exch def
+  (5. Number of bits needed to represent the greatest number of objects in a shared object group.) two_column
+
+  dup 32 bitread
+  dup /shint_group_least_sz exch def
+  (6. Least length of a shared object group in bytes.) two_column
+
+  dup 16 bitread
+  dup /shint_group_diff_bits exch def
+  (7. Bits for the difference between the greatest and least length of a shared object group size.)  two_column
+  pop
+
+  (1. length of the object group in bytes.) array_header
+  hint_stream bytealign
+  /shint_group_sz [
+    shint_all_shared {
+      hint_stream shint_group_diff_bits bitread
+      shint_group_least_sz add
+    } repeat
+  ] readonly def
+
+  shint_group_sz dump_array
+
+  (2. MD5 signature flag) array_header
+    hint_stream bytealign
+    /shint_md5_flags
+    [ shint_all_shared 
+      { hint_stream 1 bitread
+      } repeat
+    ] readonly def
+
+    shint_md5_flags dump_array
+
+    (3. MD5 signature string) array_header
+    false shint_md5_flags { 0 ne or } forall { 
+      shint_md5_flags {
+        0 eq {
+          (<>)=
+        } {
+          hint_stream /S get 128 string
+          readstring pop
+          dup length 128 eq {
+            ==
+          } { pop (Error reading nd5 string.) ==
+          } ifelse
+        } ifelse
+      } forall   
+    } {
+      () = (none) =
+    } ifelse
+
+    (4. The number of objects in the group.) array_header
+    hint_stream bytealign
+    /shint_group_cnt [
+      shint_all_shared {
+        hint_stream shint_group_bits bitread
+      } repeat
+    ] readonly def
+
+    shint_group_cnt dump_array
+
+  } bind def
+
+% Analyze the thumbnail hint table.
+/dump_thumbnail_table {
+  hint_stream
+
+  dup 32 bitread
+  dup /thint_1st_obj_id exch def
+  (1. Object number of the first thumbnail image.) two_column
+
+  dup 32 bitread
+  dup /thint_1st_obj_pos exch def
+  (2. Location of the first thumbnail image.) two_column
+
+  dup 32 bitread
+  dup /thint_page_cnt exch def
+  (3. Number of pages that have thumbnail images.) two_column
+
+  dup 16 bitread
+  dup /thint_no_thumbnail_bits exch def
+  (4. Bits for the max number of consecutive pages without a thumbnail image.) two_column
+
+  dup 32 bitread
+  dup /thint_min_sz exch def
+  (5. The least length of a thumbnail image in bytes.) two_column
+
+  dup 15 bitread
+  dup /thint_obj_sz_bits exch def
+  (6. Bits for the difference between max and min length of a thumbnail image.) two_column
+
+  dup 32 bitread
+  dup /thint_min_obj_cnt exch def
+  (7. The least number of objects in a thumbnail image.) two_column
+
+  dup 16 bitread
+  dup /thint_obj_cnt_bits exch def
+  (8. Bits for the difference between max and min number of objects in a thumbnail image.) two_column
+
+  dup 32 bitread
+  dup /thint_1st_shared_obj exch def
+  (9. First object in the thumbnail shared objects section.) two_column
+
+  dup 32 bitread
+  dup /thint_1st_shared_pos exch def
+  (10. Location of the first object in the thumbnail shared objects section.) two_column
+
+  dup 32 bitread
+  dup /thint_shared_cnt exch def
+  (11. Number of thumbnail shared objects.) two_column
+
+  dup 32 bitread
+  dup /thint_shared_section_sz exch def
+  (12. Length of the thumbnail shared objects section in bytes.) two_column
+
+  pop
+  LinearizationParams /N get
+
+  (1. The number of preceding pages lacking a thumbnail image.) array_header
+  hint_stream bytealign
+  /thint_no_thumbnail_pages [
+    2 index {
+      hint_stream thint_no_thumbnail_bits bitread
+    } repeat
+  ] readonly def
+
+  thint_no_thumbnail_pages dump_array
+
+  (2. Number of objects in this page's thumbnail image.) array_header
+  hint_stream bytealign
+  /thint_page_obj_cnt [
+    2 index {
+      hint_stream thint_obj_cnt_bits bitread
+      thint_min_obj_cnt add
+    } repeat
+  ] readonly def
+
+  thint_page_obj_cnt dump_array
+
+  (3. Length of this page's thumbnail image in bytes.) array_header
+  hint_stream bytealign
+  /thint_page_obj_sz [
+    2 index {
+      hint_stream thint_obj_sz_bits bitread
+      thint_min_sz add
+    } repeat
+  ] readonly def
+
+  thint_page_obj_sz dump_array
+  pop
+} bind def
+
+% Analyze the generic hint table.
+% The hint field names are re-used. 
+/dump_generic_table { 
+  hint_stream
+
+  dup 32 bitread
+  dup /ghint_1st_obj exch def
+  (1. Object number of the first object in the group.) two_column
+
+  dup 32 bitread
+  dup /ghint_1st_obj_pos exch def
+  (2. Location of the first object in the group.) two_column
+
+  dup 32 bitread
+  dup /ghint_obj_cnt exch def
+  (3. Number of objects in the group.) two_column
+
+  dup 32 bitread
+  dup /ghint_group_sz exch def
+  (4. Length of the object group in bytes.) two_column
+
+  pop
+} bind def
+
+% Analyze the interactive hint table.
+% The hint field names are re-used.
+/dump_interactive_table {
+  hint_stream
+
+  dup 32 bitread
+  dup /ihint_1st_obj exch def
+  (1. Object number of the first object in the group.) two_column
+
+  dup 32 bitread
+  dup /ihint_1st_obj_pos exch def
+  (2. Location of the first object in the group.) two_column
+
+  dup 32 bitread
+  dup /ihint_obj_cnt exch def
+  (3. Number of objects in the group.) two_column
+
+  dup 32 bitread
+  dup /ihint_group_sz exch def
+  (4. Length of the object group in bytes.) two_column
+
+  dup 32 bitread
+  dup /ihint_shared_cnt exch def
+  (5. Number of shared object references.) two_column
+
+  dup 16 bitread
+  dup /ihint_shared_obj_bits exch def
+  (6. Bits for the max shared object id used by the interactive form or the logical structure hierarchy.)
+  1 index hint_sobits ne {
+    (\n*** This fiels is not equal to max shared object ID bits ***) concatstrings 
+  } if
+
+  pop
+
+  (7. Shared object identifier.) array_header
+  hint_stream bytealign
+  /ihint_shared_obj_id [
+    ihint_shared_cnt {
+      hint_stream hint_sobits bitread
+    } repeat
+  ] readonly def
+
+  ihint_shared_obj_id dump_array
+} bind def
+
+% Enumerate all documented hint tables.
+/dump_all_tables {  % <<stream>> dump_all_tables -
+  (Page offset hint table) table_header
+  hint_stream 0 set_align
+  dump_page_offset_table
+
+  (S, Shared object hint table) table_header
+  dup /S .knownget {
+    hint_stream exch set_align
+    dump_shared_object_table
+  } {
+    (Required table is not found.) error_msg
+  } ifelse
+
+  dup /T .knownget {
+    (T, Thumbnail hint table) table_header
+    hint_stream exch set_align
+    dump_thumbnail_table
+  } if   
+
+  dup /O .knownget {
+    (O, Outline hint table) table_header
+    hint_stream exch set_align
+    dump_generic_table
+  } if
+
+  dup /A .knownget {
+    (A, Thread information hint table) table_header 
+    hint_stream exch set_align
+    dump_generic_table
+  } if
+
+  dup /E .knownget {
+    (E, Named destination hint table) table_header
+    hint_stream exch set_align
+    dump_generic_table
+  } if
+
+  dup /V .knownget {
+    (V, Interactive form hint table) table_header
+    hint_stream exch set_align
+    dump_interactive_table
+  } if
+
+  dup /I .knownget {
+    (I, Information dictionary hint table) table_header
+    hint_stream exch set_align
+    dump_generic_table
+  } if
+
+  dup /C .knownget {
+    (C, Logical structure hint table) table_header
+    hint_stream exch set_align
+    dump_interactive_table
+  } if
+
+  dup /L .knownget {
+    (L, Page label hint table) table_header
+    hint_stream exch set_align
+    dump_generic_table
+  } if
+
+    pop
+} bind def
+
+
+% Load PDF file and extract the hint stream.
+/pdf_dump_hints {                             % <infile> pdf_dump_hints -
+  dup (r) file                                % fname
+  false exch                                  % fname F file 
+  {
+    dup 7 string readstring pop               % fname F file ()
+    (%PDF-1.) ne { pop exit } if              % fname F file
+    dup 0 setfileposition
+    dup token not { pop exit } if             % fname F file obj
+    dup type /integertype ne { pop exit } if  % fname F file obj
+    1 index token not { pop pop exit } if     % fname F file obj gen
+    dup type /integertype ne {pop pop exit}if % fname F file obj gen
+    4 2 roll                                  % fname obj gen F file
+    dup 0 setfileposition
+    exch true or                              % fname obj gen file T
+    exit
+  } loop
+  {
+    pdfdict begin
+    pdfopenfile dup begin
+    40 dict begin
+    /IDict exch def
+    .setsafe
+
+    % Read all objects into memory.
+    Trailer touch
+    resolveR                                  % fname <<>>
+    dup /Linearized known {
+      dup /L get                              % fname <<>> Len
+      3 -1 roll status not { 0 0 0 0 } if     % <<>> Len
+      pop pop exch pop                        % <<>> Len len
+      eq {
+        /LinearizationParams exch def
+        LinearizationParams /H get
+        dup length 2 eq {
+          0 get PDFoffset add PDFfile exch setfileposition
+          PDFfile token pop 
+          PDFfile token pop
+          resolveR dup true resolvestream
+          /ReusableStreamDecode filter 
+          bitstream dup bytealign
+          /hint_stream exch def
+
+          dump_all_tables
+        } {
+          pop
+          (Overflow hint stream is not supported.) =
+        } ifelse
+      } {
+        pop
+        (Wrong file length in linearization dictionary.) =
+      } ifelse
+    } {
+      pop (The file is not linearized.) =
+    } ifelse
+    end		% temporary dict
+    end		% IDict
+    end
+  } {
+    pop
+    (Input file is not a valid PDF file.) =
+  } ifelse
+} bind def
+
+% Initial setup
+/dump_hints {
+  counttomark 1 eq {
+    exch pop
+    save exch
+    3000000 setvmthreshold
+    pdfoptdict begin 
+    pdf_dump_hints
+    end
+    restore
+    true
+  } {
+    cleartomark false
+  } ifelse
+} bind def
+
+/shellarguments {false} def
+(pdfopt.ps) runlibfile
+currentdict /shellarguments undef
+
+% Check for command line arguments.
+mark shellarguments {
+  dump_hints not {
+    (Usage: gs -dNODISPLAY  -- dumphint.ps input.pdf) = flush
+  } if
+} {
+  pop
+} ifelse
+
+% EOF

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/dvipdf

@@ -0,0 +1,47 @@
+#!/bin/sh
+# $Id: dvipdf 9344 2009-01-10 22:11:18Z till $
+# Convert DVI to PDF.
+#
+# Please contact Andrew Ford <A.Ford@ford-mason.co.uk> with any questions
+# about this file.
+#
+# Based on ps2pdf
+
+# This definition is changed on install to match the
+# executable name set in the makefile
+GS_EXECUTABLE=gs
+
+
+OPTIONS=""
+DVIPSOPTIONS=""
+while true
+do
+	case "$1" in
+	-R*) DVIPSOPTIONS="$DVIPSOPTIONS $1";;
+	-?*) OPTIONS="$OPTIONS $1" ;;
+	*)  break ;;
+	esac
+	shift
+done
+
+if [ $# -lt 1 -o $# -gt 2 ]; then
+	echo "Usage: `basename $0` [options...] input.dvi [output.pdf]" 1>&2
+	exit 1
+fi
+
+infile=$1;
+
+if [ $# -eq 1 ]
+then
+	case "${infile}" in
+	  *.dvi)	base=`basename "${infile}" .dvi` ;;
+	  *)		base=`basename "${infile}"` ;;
+	esac
+	outfile="${base}".pdf
+else
+	outfile=$2
+fi
+
+# We have to include the options twice because -I only takes effect if it
+# appears before other options.
+exec dvips -Ppdf $DVIPSOPTIONS -q -f "$infile" | $GS_EXECUTABLE $OPTIONS -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sstdout=%stderr -sOutputFile="$outfile" $OPTIONS -c .setpdfwrite -

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/eps2eps

@@ -0,0 +1,29 @@
+#!/bin/sh
+# $Id: eps2eps 9344 2009-01-10 22:11:18Z till $
+# "Distill" Encapsulated PostScript.
+
+# This definition is changed on install to match the
+# executable name set in the makefile
+GS_EXECUTABLE=gs
+gs="`dirname $0`/$GS_EXECUTABLE"
+if test ! -x "$gs"; then
+	gs="$GS_EXECUTABLE"
+fi
+GS_EXECUTABLE="$gs"
+
+OPTIONS="-dDEVICEWIDTH=250000 -dDEVICEHEIGHT=250000"
+while true
+do
+	case "$1" in
+	-?*) OPTIONS="$OPTIONS $1" ;;
+	*)  break ;;
+	esac
+	shift
+done
+
+if [ $# -ne 2 ]; then
+	echo "Usage: `basename $0` ...switches... input.eps output.eps" 1>&2
+	exit 1
+fi
+
+exec "$GS_EXECUTABLE" -q -sDEVICE=epswrite -sstdout=%stderr "-sOutputFile=$2" -dNOPAUSE -dBATCH -dSAFER $OPTIONS "$1"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/eps2eps.bat

@@ -0,0 +1,26 @@
+@echo off 
+@rem $Id: eps2eps.bat 6300 2005-12-28 19:56:24Z giles $
+@rem "Distill" Encapsulated PostScript.
+
+if %1/==/ goto usage
+if %2/==/ goto usage
+call gssetgs.bat
+echo -dNOPAUSE -dBATCH -dSAFER >_.at
+rem Watcom C deletes = signs, so use # instead.
+echo -dDEVICEWIDTH#250000 -dDEVICEHEIGHT#250000 >>_.at
+:cp
+if %3/==/ goto doit
+echo %1 >>_.at
+shift
+goto cp
+
+:doit
+rem Watcom C deletes = signs, so use # instead.
+%GSC% -q -sDEVICE#epswrite -sOutputFile#%2 @_.at %1
+if exist _.at erase _.at
+goto end
+
+:usage
+echo "Usage: eps2eps ...switches... input.eps output.eps"
+
+:end

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/eps2eps.cmd

@@ -0,0 +1,36 @@
+/* $Id: eps2eps.cmd 6300 2005-12-28 19:56:24Z giles $ */
+/*
+ * This file is maintained by a user: if you have any questions about it,
+ * please contact Mark Hale (mark.hale@physics.org).
+ */
+
+/* "Distill" Encapsulated PostScript. */
+
+parse arg params
+
+gs='@gsos2'
+
+if params='' then call usage
+
+options='-dNOPAUSE -dBATCH -dSAFER'
+
+/* extract options from command line */
+i=1
+param=word(params,i)
+do while substr(param,1,1)='-'
+	options=options param
+	i=i+1
+	param=word(params,i)
+end
+
+infile=param
+if infile='' then call usage
+outfile=word(params,i+1)
+if outfile='' then call usage
+
+gs '-q -sDEVICE=epswrite -sOutputFile='outfile options infile
+exit
+
+usage:
+say 'Usage: eps2eps ...switches... input.eps output.eps'
+exit

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/fixmswrd.pl

@@ -0,0 +1,206 @@
+#!/usr/bin/perl
+# $Id: fixmswrd.pl 6300 2005-12-28 19:56:24Z giles $
+
+#   (C) 1997 Anthony Shipman
+# 
+#   This software is provided 'as-is', without any express or implied
+#   warranty.  In no event will the authors be held liable for any damages
+#   arising from the use of this software.
+# 
+#   Permission is granted to anyone to use this software for any purpose,
+#   including commercial applications, and to alter it and redistribute it
+#   freely, subject to the following restrictions:
+# 
+#   1. The origin of this software must not be misrepresented; you must not
+#      claim that you wrote the original software. If you use this software
+#      in a product, an acknowledgment in the product documentation would be
+#      appreciated but is not required.
+#   2. Altered source versions must be plainly marked as such, and must not be
+#      misrepresented as being the original software.
+#   3. This notice may not be removed or altered from any source distribution.
+# 
+#   Anthony Shipman    shipmana@acm.org
+
+# This program patches the postscript generated by MS Word printer drivers
+# so that they work with ghostview 1.5.  The problem is that the document
+# structuring conventions are not followed by Word.  The pages are supposed
+# to be independent but they depend on a dictionary being opened outside
+# of the pages.  The erroneous structure is
+# 
+# 	%%EndSetup
+# 	NTPSOct95 begin
+# 	%%Page: 1 1
+# 	<text>
+# 	showpage
+# 	%%Page: 2 2
+# 	<text>
+# 	showpage
+# 	......
+# 	%%Trailer
+# 	...
+# 	end
+# 	%%EOF
+# 
+# This only works if the all of the structure around the pages is preserved.
+# The opening of NTPSOct95 happens outside of any structured section so
+# it is never seen by ghostview.  We change the structure to
+# 
+# 	%%EndSetup
+# 	%%Page: 1 1
+# 	NTPSOct95 begin
+# 	<text>
+# 	showpage
+# 	end
+# 	%%Page: 2 2
+# 	NTPSOct95 begin
+# 	<text>
+# 	showpage
+# 	end
+# 	......
+# 	%%Trailer
+# 	...
+# 	%%EOF
+# 
+# That is the dictionary opening is repeated inside each page.
+# 
+# We add a comment to the document to mark that it has been converted.
+# This has the form 
+#	%LOCALGhostviewPatched
+#
+# Usage:
+#	fixmswrd [-v] [file [output-file]]
+
+require 'getopts.pl';
+
+#=================================================================
+
+$program = "fixmswrd";
+
+sub usage {
+    die "Usage: $program [-v] [file [output-file]]\n";
+}
+
+#=================================================================
+
+&Getopts("v") || &usage;
+
+$verbose = $opt_v;
+
+
+$infile = shift(@ARGV);
+if ($infile)
+{
+    open(INFILE, $infile) || die "$program: Cannot read from $infile\n";
+    $handle = "INFILE";
+}
+else
+{
+    $handle = "STDIN";
+}
+
+
+$outfile = shift(@ARGV);
+if ($outfile)
+{
+    open(OUTFILE, ">$outfile") || die "$program: Cannot write to $outfile\n";
+    select(OUTFILE);
+}
+
+#  This reads the header comments and detects the presence of the marker.
+$have_marker = 0;
+
+undef $dict_name;
+undef $dict_line;
+
+&read_comments;
+&put_comments;
+
+if ($have_marker)
+{
+    $verbose && print STDERR "$program: Warning - already converted\n";
+
+    while(<$handle>)		# pass the file through unchanged.
+    {
+	print;
+    }
+}
+else
+{
+    $seen_trailer = 0;
+
+    while(<$handle>)		# massage the file
+    {
+	if ($dict_line)
+	{
+	    next if (/$dict_line/o);		# drop the old begin line
+	    $seen_trailer = 1 if (/^%%Trailer/);
+	    next if ($seen_trailer and /^end/);	# drop the old end line
+	}
+
+	print;
+
+	if (/^%%Page:/)
+	{
+	    print "$dict_name begin\n";	# add at the start of the page
+	}
+	elsif (/^showpage/)
+	{
+	    print "end\n";			# add at the end of the page
+	}
+	elsif (/^%%BeginResource: procset (\S+)/)
+	{
+	    $dict_name = $1;
+	    $dict_line = "^$dict_name begin";
+	}
+	elsif (/^%%BeginProcSet: (\S+)/)	# for older document versions
+	{
+	    $dict_name = $1;
+	    $dict_line = "^$dict_name begin";
+	}
+	elsif (/^%%EndProlog:/)
+	{
+	    unless ($dict_line) 
+	    {
+		$verbose && 
+		    print STDERR "$program: Warning - unrecognised document structure\n";
+	    }
+	}
+    }
+}
+
+exit 0;
+
+#=================================================================
+
+
+#  This reads all of the header comments into an array which we can write
+#  out again later.  In addition we detect the presence of the marker comment.
+
+sub read_comments
+{
+    @headers = ();
+
+    while (<$handle>)
+    {				# without chopping
+	push(@headers, $_);
+	if (/^%LOCALGhostviewPatched/)
+	{
+	    $have_marker = 1;
+	}
+	last if /^%%EndComments/;
+    }
+}
+
+
+
+sub put_comments 
+{
+    foreach $h (@headers)
+    {
+	if (!$have_marker and ($h =~ /^%%EndComments/))
+	{
+	    print "%LOCALGhostviewPatched\n";
+	}
+	print $h;		# contains the newline
+    }
+}

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/font2c

@@ -0,0 +1,13 @@
+#!/bin/sh
+# $Id: font2c 8107 2007-07-05 19:04:29Z till $
+
+# This definition is changed on install to match the
+# executable name set in the makefile
+GS_EXECUTABLE=gs
+gs="`dirname $0`/$GS_EXECUTABLE"
+if test ! -x "$gs"; then
+	gs="$GS_EXECUTABLE"
+fi
+GS_EXECUTABLE="$gs"
+
+exec "$GS_EXECUTABLE" -q -dNODISPLAY -dWRITESYSTEMDICT -- font2c.ps "$@"

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/font2c.bat

@@ -0,0 +1,5 @@
+@echo off
+@rem $Id: font2c.bat 6300 2005-12-28 19:56:24Z giles $
+
+call gssetgs.bat
+%GSC% -q -dNODISPLAY -dWRITESYSTEMDICT -- font2c.ps %1 %2 %3 %4 %5 %6 %7 %8 %9

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/font2c.cmd

@@ -0,0 +1,7 @@
+/* $Id: font2c.cmd 6300 2005-12-28 19:56:24Z giles $ */
+/*
+ * This file is maintained by a user: if you have any questions about it,
+ * please contact Mark Hale (mark.hale@physics.org).
+ */
+
+@gsos2 -q -dNODISPLAY -dWRITESYSTEMDICT -- font2c.ps %1 %2 %3 %4 %5 %6 %7 %8 %9

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/font2c.ps

@@ -0,0 +1,675 @@
+%    Copyright (C) 1992, 1993, 1994, 1995, 1999 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: font2c.ps 6300 2005-12-28 19:56:24Z giles $
+% font2c.ps
+% Write out a PostScript Type 0 or Type 1 font as C code
+% that can be linked with the interpreter.
+% This even works on protected fonts, if you use the -dWRITESYSTEMDICT
+% switch in the command line.  The code is reentrant and location-
+% independent and has no external references, so it can be put into
+% a sharable library even on VMS.
+
+/font2cdict 100 dict dup begin
+
+% Define the maximum string length that all compilers will accept.
+% This must be approximately
+%	min(max line length, max string literal length) / 4 - 5.
+
+/max_wcs 50 def
+
+% Define a temporary file for writing out procedures.
+/wtempname (_.tmp) def
+
+% ------ Protection utilities ------ %
+
+% Protection values are represented by a mask:
+/a_noaccess 0 def
+/a_executeonly 1 def
+/a_readonly 3 def
+/a_all 7 def
+/prot_names
+ [ (0) (a_execute) null (a_readonly) null null null (a_all)
+ ] def
+/prot_opers
+ [ {noaccess} {executeonly} {} {readonly} {} {} {} {}
+ ] def
+
+% Get the protection of an object.
+   /getpa
+    { dup wcheck
+       { pop a_all }
+       {	% Check for executeonly or noaccess objects in protected.
+         dup protected exch known
+	  { protected exch get }
+	  { pop a_readonly }
+	 ifelse
+       }
+      ifelse
+    } bind def
+
+% Get the protection appropriate for (all the) values in a dictionary.
+   /getva
+    { a_noaccess exch
+       { exch pop
+         dup type dup /stringtype eq 1 index /arraytype eq or
+	 exch /packedarraytype eq or
+	  { getpa a_readonly and or }
+	  { pop pop a_all exit }
+	 ifelse
+       }
+      forall
+    } bind def
+
+% Keep track of executeonly and noaccess objects,
+% but don't let the protection actually take effect.
+.currentglobal
+false .setglobal	% so protected can reference local objs
+/protected		% do first so // will work
+  systemdict wcheck { 1500 dict } { 1 dict } ifelse
+def
+systemdict wcheck not
+ { (Warning: you will not be able to convert protected fonts.\n) print
+   (If you need to convert a protected font, please\n) print
+   (restart the program and specify the -dWRITESYSTEMDICT switch.\n) print
+   flush
+   (%end) .skipeof
+ }
+if
+userdict begin
+  /executeonly
+   { dup //protected exch //a_executeonly put readonly
+   } bind def
+  /noaccess
+   { dup //protected exch //a_noaccess put readonly
+   } bind def
+end
+true .setglobal
+systemdict begin
+  /executeonly
+   { userdict /executeonly get exec
+   } bind odef
+  /noaccess
+   { userdict /noaccess get exec
+   } bind odef
+end
+%end
+.setglobal
+
+% ------ Output utilities ------ %
+
+% By convention, the output file is named cfile.
+
+% Define some utilities for writing the output file.
+   /wtstring 100 string def
+   /wb {cfile exch write} bind def
+   /ws {cfile exch writestring} bind def
+   /wl {ws (\n) ws} bind def
+   /wt {wtstring cvs ws} bind def
+
+% Write a C string.  Some compilers have unreasonably small limits on
+% the length of a string literal or the length of a line, so every place
+% that uses wcs must either know that the string is short,
+% or be prepared to use wcca instead.
+   /wbx
+    { 8#1000 add 8 (0000) cvrs dup 0 (\\) 0 get put ws
+    } bind def
+   /wcst
+    [
+      32 { /wbx load } repeat
+      95 { /wb load } repeat
+      129 { /wbx load } repeat
+    ] def
+   ("\\) { wcst exch { (\\) ws wb } put } forall
+   /wcs
+    { (") ws { dup wcst exch get exec } forall (") ws
+    } bind def
+   /can_wcs	% Test if can use wcs
+    { length max_wcs le
+    } bind def
+   /wncs	% name -> C string
+    { wtstring cvs wcs
+    } bind def
+% Write a C string as an array of character values.
+% We only need this because of line and literal length limitations.
+   /wca		% <string> <prefix> <suffix> wca -
+    { 0 4 -2 roll exch
+       {	% Stack: suffix n prefix char
+	 exch ws
+	 exch dup 19 ge { () wl pop 0 } if 1 add
+	 exch dup 32 ge 1 index 126 le and
+	  { 39 wb dup 39 eq 1 index 92 eq or { 92 wb } if wb 39 wb }
+	  { wt }
+	 ifelse (,)
+       } forall
+      pop pop ws
+    } bind def
+   /wcca	% <string> wcca -
+    { ({\n) (}) wca
+    } bind def
+
+% Write object protection attributes.  Note that dictionaries and arrays are
+% the only objects that can be writable.
+   /wpa
+    { dup xcheck { (a_executable|) ws } if
+      dup type dup /dicttype eq exch /arraytype eq or
+       { getpa }
+       { getpa a_readonly and }
+      ifelse prot_names exch get ws
+    } bind def
+   /wva
+    { getva prot_names exch get ws
+    } bind def
+
+% ------ Object writing ------ %
+
+   /wnstring 128 string def
+
+% Convert an object to a string to be scanned at a later time.
+   /cvos		% <obj> cvos <string>
+    {		% We'd like to use == and write directly to a string,
+		% but we can't do the former because of operators,
+		% and we can't do the latter because we can't predict
+		% how long the string would have to be....
+	 wtempname (w) file dup 3 -1 roll wproc closefile
+	 wtempname status pop pop pop exch pop string
+	 wtempname (r) file dup 3 -1 roll readstring pop exch closefile
+    } bind def
+
+% Write a string/name or null as an element of a string/name/null array.
+% Convert any other kind of value to a token to be read back in.
+   /wsn
+    { dup null eq
+       { pop (\t255,255,) wl
+       }
+       { dup type /nametype eq { wnstring cvs } if
+	 dup type /stringtype ne { cvos (255,) ws } if
+	 dup length 256 idiv wt (,) ws
+	 dup length 256 mod wt
+	 (,) (,\n) wca
+       }
+      ifelse
+    } bind def
+% Write a packed string/name/null array.
+   /wsna	% <name> <(string|name|null)*> wsna -
+    { (\tstatic const unsigned char ) ws exch wt ([] = {) wl
+      { wsn } forall
+      (\t0\n};) wl
+    } bind def
+
+% Write a number or an array of numbers, as refs.
+/isnumber
+ { type dup /integertype eq exch /realtype eq or
+ } bind def
+/wnums
+ { dup isnumber
+    { (real_v\() ws wt (\),) ws }
+    { { wnums } forall }
+   ifelse
+ } bind def
+
+% Test whether a procedure or unusual array can be written (printed).
+/iswx 4 dict dup begin
+  /arraytype { { iswproc } isall } def
+  /nametype { pop true } def
+  /operatortype { pop true } def	% assume it has been bound in
+  /packedarraytype /arraytype load def
+end def
+/iswnx 6 dict dup begin
+  /arraytype { { iswproc } isall } def
+  /integertype { pop true } def
+  /nametype { pop true } def
+  /realtype { pop true } def
+  /stringtype { pop true } def
+  /packedarraytype /arraytype load def
+end def
+/iswproc	% <obj> iswproc <bool>
+ { dup xcheck { iswx } { iswnx } ifelse
+   1 index type .knownget { exec } { pop false } ifelse
+ } bind def
+
+% Write a printable procedure (one for which iswproc returns true).
+/wproca 3 dict dup begin
+  /arraytype
+   { 1 index ({) writestring
+      { 1 index ( ) writestring 1 index exch wproc } forall
+     (}) writestring
+   } bind def
+  /packedarraytype /arraytype load def
+  /operatortype { .writecvs } bind def	% assume binding would work
+end def
+/wproc		% <file> <proc> wproc -
+ { dup type wproca exch .knownget { exec } { write==only } ifelse
+ } bind def
+
+% Write a named object.  Return true if this was possible.
+% Legal types are: boolean, integer, name, real, string,
+% array of (integer, integer+real, name, null+string),
+% and certain procedures and other arrays (see iswproc above).
+% All other objects are either handled specially or ignored.
+   /isall	% <array> <proc> isall <bool>
+    { true 3 -1 roll
+       { 2 index exec not { pop false exit } if }
+      forall exch pop
+    } bind def
+   /wott 8 dict dup begin
+      /arraytype
+       { woatt
+          { aload pop 2 index 2 index exec
+	     { exch pop exec exit }
+	     { pop pop }
+	    ifelse
+	  }
+	 forall
+       } bind def
+      /booleantype
+       { { (\tmake_true\(&) } { (\tmake_false\(&) } ifelse ws
+         wt (\);) wl true
+       } bind def
+      /integertype
+       { (\tmake_int\(&) ws exch wt (, ) ws
+         wt (\);) wl true
+       } bind def
+      /nametype
+       { (\tcode = (*pprocs->name_create)\(i_ctx_p, &) ws exch wt
+         (, ) ws wnstring cvs wcs	% OK, names are short
+	 (\);) wl
+	 (\tif ( code < 0 ) return code;) wl
+	 true
+       } bind def
+      /packedarraytype
+	/arraytype load def
+      /realtype
+       { (\tmake_real\(&) ws exch wt (, (float)) ws
+         wt (\);) wl true
+       } bind def
+      /stringtype
+       { ({\tstatic const unsigned char s_[] = ) ws
+         dup dup can_wcs { wcs } { wcca } ifelse
+	 (;) wl
+	 (\tmake_const_string\(&) ws exch wt
+	 (, a_readonly, ) ws length wt (, (const byte *)s_\);) wl
+	 (}) wl true
+       } bind def
+   end def
+% Write some other kind of object, if known.
+   /wother
+    { dup otherobjs exch known
+       { otherobjs exch get (\t) ws exch wt ( = ) ws wt (;) wl true }
+       { pop pop false }
+      ifelse
+    } bind def
+% Top-level procedure.
+   /wo		% name obj -> OK
+    { dup type wott exch .knownget { exec } { wother } ifelse
+    } bind def
+
+% Write an array (called by wo).
+   /wap		% <name> <array> wap -
+    { dup xcheck not 1 index wcheck not and 1 index rcheck and
+       { pop pop }
+       { (\tr_set_attrs\(&) ws exch wt (, ) ws wpa (\);) wl }
+      ifelse
+    } bind def
+   /wnuma {	% <name> <array> <element_C_type> <<type>_v> wnuma -
+      ({\tstatic const ref_\() ws exch ws (\) a_[] = {) wl exch
+		% Stack: name type_v array
+      dup length 0 eq {
+	(\t) ws 1 index ws (\(0\)) wl
+      } {
+	dup {
+	  (\t) ws 2 index ws (\() ws wt (\),) wl
+	} forall
+      } ifelse exch pop
+		% Stack: name array
+      (\t};) wl
+      dup wcheck {
+	(\tcode = (*pprocs->scalar_array_create)\(i_ctx_p, &) ws exch wt
+	(, (const ref *)a_, ) ws dup length wt
+	(, ) ws wpa (\);) wl
+	(\tif ( code < 0 ) return code;) wl
+      } {
+	(\tmake_const_array\(&) ws exch wt
+	(, avm_foreign|) ws dup wpa (, ) ws length wt
+	(, (const ref *)a_\);) wl
+      } ifelse
+      (}) wl
+    } bind def
+   /woatt [
+	% Integers
+     { { { type /integertype eq } isall }
+       { (long) (integer_v) wnuma true }
+     }
+	% Integers + reals
+     { { { type dup /integertype eq exch /realtype eq or } isall }
+       { (float) (real_v) wnuma true }
+     }
+	% Strings + nulls
+     { { { type dup /nulltype eq exch /stringtype eq or } isall }
+       { ({) ws dup (sa_) exch wsna
+	 (\tcode = (*pprocs->string_array_create)\(i_ctx_p, &) ws exch wt
+	 (, \(const char *\)sa_, ) ws dup length wt (, ) ws wpa (\);) wl
+	 (\tif ( code < 0 ) return code;) wl
+	 (}) wl true
+       }
+     }
+	% Names
+     { { { type /nametype eq } isall }
+       { ({) ws dup (na_) exch wsna
+	 (\tcode = (*pprocs->name_array_create)\(i_ctx_p, &) ws 1 index wt
+	 (, \(const char *\)na_, ) ws dup length wt (\);) wl
+	 (\tif ( code < 0 ) return code;) wl
+	 wap (}) wl true
+       }
+     }
+	% Procedure
+     { { iswproc }
+       { dup cvos
+		% Stack: name proc string
+	 ({\tstatic const unsigned char s_[] = ) ws
+         dup dup can_wcs { wcs } { wcca } ifelse
+	 (;) wl
+	 (\tcode = (*pprocs->ref_from_string)\(i_ctx_p, &) ws 2 index wt
+	 (, \(const char *\)s_, ) ws length wt (\);) wl
+	 (\tif ( code < 0 ) return code;) wl
+	 wap (}) wl true
+	 wtempname deletefile
+       }
+     }
+	% Default
+     { { pop true }
+       { wother }
+     }
+   ] def
+
+% Write a named dictionary.  We assume the ref is already declared.
+   /wd		% <name> <dict> <extra> wd -
+    { 3 1 roll
+      ({) ws
+      (\tref v_[) ws dup length wt (];) wl
+      dup [ exch
+       { counttomark 2 sub wtstring cvs
+         (v_[) exch concatstrings (]) concatstrings exch wo not
+          { (Skipping ) print ==only (....\n) print }
+	 if
+       } forall
+      ]
+		% Stack: array of keys (names)
+      ({) ws dup (str_keys_) exch wsna
+      (\tstatic const cfont_dict_keys keys_ =) wl
+      (\t { 0, 0, ) ws length wt (, ) ws 3 -1 roll wt (, ) ws
+      dup wpa (, ) ws dup wva ( };) wl pop
+      (\tcode = \(*pprocs->ref_dict_create\)\(i_ctx_p, &) ws wt
+      (, &keys_, \(const char *\)str_keys_, v_\);) wl
+      (\tif ( code < 0 ) return code;) wl
+      (}) wl
+      (}) wl
+    } bind def
+
+% Write character dictionary keys.
+% We save a lot of space by abbreviating keys which appear in
+% StandardEncoding or ISOLatin1Encoding.
+% Writes code to declare and initialize enc_keys_, str_keys, and keys_.
+/wcdkeys	% <dict> wcdkeys -
+ {	% Write keys present in StandardEncoding or ISOLatin1Encoding,
+	% pushing other keys on the o-stack.
+   (static const charindex enc_keys_[] = {) wl
+   dup [ exch 0 exch
+    { pop decoding 1 index known
+       { decoding exch get ({) ws dup -8 bitshift wt
+	 (,) ws 255 and wt (}, ) ws
+	 1 add dup 5 mod 0 eq { (\n) ws } if
+       }
+       { exch }
+      ifelse
+    }
+   forall pop
+   ]
+   ({0,0}\n};) wl
+	% Write other keys.
+   (str_keys_) exch wsna
+	% Write the declaration for keys_.
+   (static const cfont_dict_keys keys_ = {) wl
+   (\tenc_keys_, countof\(enc_keys_\) - 1,) wl
+   (\t) ws dup length wt ( - \(countof\(enc_keys_\) - 1\), 0, ) ws
+   dup wpa (, ) ws wva () wl
+   (};) wl
+ } bind def
+
+% Enumerate character dictionary values in the same order that
+% the keys appear in enc_keys_ and str_keys_.
+% <proc> is called with each value in turn.
+/cdforall	% <dict> <proc> cdforall -
+ { 2 copy
+    { decoding 3 index known
+       { 3 -1 roll pop exec }
+       { pop pop pop }
+      ifelse
+    }
+   /exec cvx 3 packedarray cvx
+   /forall cvx
+   5 -2 roll
+    { decoding 3 index known
+       { pop pop pop }
+       { 3 -1 roll pop exec }
+      ifelse
+    }
+   /exec cvx 3 packedarray cvx
+   /forall cvx
+   6 packedarray cvx exec
+ } bind def
+
+% ------ Writers for special objects ------ %
+
+/writespecial 10 dict dup begin
+
+   /FontInfo { 0 wd } def
+
+   /Private { 0 wd } def
+
+   /CharStrings
+    { ({) wl
+      dup wcdkeys
+      (static const unsigned char values_[] = {) wl
+       { wsn } cdforall
+      (\t0\n};) wl
+      (\tcode = \(*pprocs->string_dict_create\)\(i_ctx_p, &) ws wt
+      (, &keys_, (const char *)str_keys_, \(const char *\)values_\);) wl
+      (\tif ( code < 0 ) return code;) wl
+      (}) wl
+    } bind def
+
+   /Metrics
+    { ({) wl
+      dup wcdkeys
+      (static const ref_(float) values_[] = {) wl
+      dup { (\t) ws wnums () wl } cdforall
+      (\t0\n};) wl
+      (static const unsigned char lengths_[] = {) wl
+       { (\t) ws dup isnumber
+	  { pop 0 }
+	  { length 1 add }
+	 ifelse wt (,) wl
+       } cdforall
+      (\t0\n};) wl
+      (\tcode = \(*pprocs->num_dict_create\)\(i_ctx_p, &) ws wt
+      (, &keys_, str_keys_, (const ref *)values_, lengths_\);) wl
+      (\tif ( code < 0 ) return code;) wl
+      (}) wl
+    } bind def
+
+   /Metrics2 /Metrics load def
+
+   /FDepVector pop	% (converted to a list of font names)
+
+end def
+
+% ------ The main program ------ %
+
+% Construct an inverse dictionary of encodings.
+[ /StandardEncoding /ISOLatin1Encoding
+  /SymbolEncoding /DingbatsEncoding
+  /KanjiSubEncoding
+]
+dup length dict begin
+ { mark exch dup { .findencoding exch def } stopped cleartomark
+ } forall
+currentdict end /encodingnames exch def
+
+% Invert the StandardEncoding and ISOLatin1Encoding vectors.
+512 dict begin
+  0 1 255 { dup ISOLatin1Encoding exch get exch 256 add def } for
+  0 1 255 { dup StandardEncoding exch get exch def } for
+currentdict end /decoding exch def
+
+/writefont		% cfilename procname -> [writes the current font]
+ { (gsf_) exch concatstrings
+     /fontprocname exch def
+   /cfname exch def
+   /cfile cfname (w) file def
+
+% Remove unwanted keys from the font.
+   currentfont dup length dict begin { def } forall
+    { /FID /MIDVector /CurMID } { currentdict exch undef } forall
+   /Font currentdict end def
+
+% Replace the FDepVector with a list of font names.
+   Font /FDepVector .knownget
+    { [ exch { /FontName get } forall ]
+      Font /FDepVector 3 -1 roll put
+    }
+   if
+
+% Find all the special objects we know about.
+% wo uses this to write out references to otherwise intractable objects.
+   /otherobjs writespecial length dict dup begin
+     writespecial
+      { pop Font 1 index .knownget { exch def } { pop } ifelse
+      }
+     forall
+   end def
+
+% Define a dummy FontInfo, in case the font doesn't have one.
+   /FontInfo 0 dict def
+
+% Write out the boilerplate.
+   Font begin
+   (/****************************************************************) wl
+   (   Portions of this file are subject to the following notice(s):) wl
+   systemdict /copyright get wl
+   FontInfo /Notice .knownget
+    { (----------------------------------------------------------------) wl wl
+    } if
+   (****************************************************************/) wl
+   () wl
+   (/* ) ws cfname ws ( */) wl
+   (/* This file was created by the ) ws product ws ( font2c utility. */) wl
+   () wl
+   (#undef DEBUG) wl
+   (#include "ccfont.h") wl
+   () wl
+
+% Write the procedure prologue.
+   (#ifdef __PROTOTYPES__) wl
+   (ccfont_proc\() ws fontprocname ws (\);) wl
+   (int) wl
+   fontprocname ws ((i_ctx_t *i_ctx_p, const cfont_procs *pprocs, ref *pfont)) wl
+   (#else) wl
+   (int) wl
+   fontprocname ws ((i_ctx_p, pprocs, pfont) i_ctx_t *i_ctx_p; const cfont_procs *pprocs; ref *pfont;) wl
+   (#endif) wl
+   ({\tint code;) wl
+   (\tref Font;) wl
+   otherobjs
+    { exch pop (\tref ) ws wt (;) wl }
+   forall
+
+% Write out the special objects.
+   otherobjs
+    { exch writespecial 2 index get exec
+    }
+   forall
+
+% Write out the main font dictionary.
+% If possible, substitute the encoding name for the encoding;
+% PostScript code will fix this up.
+    { /Encoding /PrefEnc }
+    { Font 1 index .knownget
+       { encodingnames exch .knownget { def } { pop } ifelse }
+       { pop }
+      ifelse
+    }
+   forall
+   (Font) Font FontType 0 eq { 5 } { 1 } ifelse wd
+
+% Finish the procedural initialization code.
+   (\t*pfont = Font;) wl
+   (\treturn 0;) wl
+   (}) wl
+   end				% Font
+
+   cfile closefile
+
+ } bind def
+
+end def			% font2cdict
+
+% Compute the procedure name from the font name.
+% Replace all non-alphanumeric characters with '_'.
+/makefontprocnamemap 256 string
+   0 1 255 { 2 copy 95 put pop } for
+   (0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz)
+    { 2 copy dup put pop } forall
+readonly def
+/makefontprocname	% <fontname> makefontprocname <procnamestring>
+ { dup length string cvs
+   dup length 1 sub -1 0
+    {		% Stack: string index
+      2 copy 2 copy get //makefontprocnamemap exch get put pop
+    }
+   for 
+ } def
+
+/writefont { font2cdict begin writefont end } def
+
+% If the program was invoked from the command line, run it now.
+[ shellarguments
+ { counttomark dup 2 eq exch 3 eq or
+    { counttomark -1 roll cvn
+      (Converting ) print dup =only ( font.\n) print flush
+		% Ensure that we get a clean copy of the font from the
+		% file system.
+      2 {	% do both local and global
+	currentglobal not setglobal
+	dup undefinefont
+      } repeat
+      findfont setfont
+      (FontName is ) print currentfont /FontName get ==only (.\n) print flush
+      counttomark 1 eq
+       {	% Construct the procedure name from the file name.
+         currentfont /FontName get makefontprocname
+       }
+      if
+      writefont
+      (Done.\n) print flush
+    }
+    { cleartomark
+      (Usage: font2c fontname cfilename.c [shortname]\n) print
+      ( e.g.: font2c Courier cour.c\n) print flush
+      mark
+    }
+   ifelse
+ }
+if pop

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/font2pcl.ps

@@ -0,0 +1,603 @@
+%    Copyright (C) 1993, 1994, 1995, 1997 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: font2pcl.ps 6300 2005-12-28 19:56:24Z giles $
+% font2pcl.ps
+% Write out a font as a PCL bitmap font.
+
+/pcldict 60 dict def
+
+% Write out the current font as a PCL bitmap font.
+% The current transformation matrix defines the font size and orientation.
+
+/WriteResolution? false def	% true=use "resolution bound font" format,
+				% false=use older format
+
+/LJ4 false def			% true=use LJ4 Typeface code
+				% false=use LJIIP/IID/IIIx Typeface code
+
+pcldict begin		% internal procedures
+
+/findstring	% <string> <substring> findstring <bool>
+ { search { pop pop pop true } { pop false } ifelse
+ } def
+
+	% Determine which set of keywords is present in a string.
+	% The last keyword set must be empty.
+
+/keysearch	% <string> <array of arrays of keywords> keysearch <index>
+ { 0 1 2 index length 1 sub
+    { 2 copy get true exch
+       {	% Stack: <string> <a.a.k.> <index> <bool> <keyword>
+         4 index exch findstring and
+       }
+      forall
+       { 0 exch getinterval exit
+       }
+      if pop
+    }
+   for
+   exch pop length	% invalid index if missing
+ } def
+
+	% Determine the device height of a string in quarter-dots.
+
+/charheight		% <string> charheight <int>
+ { gsave newpath 0 0 moveto false charpath
+   pathbbox exch pop exch sub exch pop 0 exch grestore
+   dtransform add abs 4 mul cvi
+ } def
+
+	% Compute an integer version of the transformed FontBBox.
+
+/inflate		% <num> inflate <num>
+ { dup 0 gt { ceiling } { floor } ifelse
+ } def
+/ixbbox			% - ixbbox <llx> <lly> <urx> <ury>
+ { /FontBBox load aload pop		% might be executable or literal
+   4 2 roll transform exch truncate cvi exch truncate cvi
+   4 2 roll transform exch inflate cvi exch inflate cvi
+ } def
+
+	% Determine the original font of a possibly transformed font.
+	% Since some badly behaved PostScript files construct transformed
+	% fonts "by hand", we can't just rely on the OrigFont pointers.
+	% Instead, if a font with the given name exists, and if its
+	% entries for FontType and UniqueID match those of the font we
+	% obtain by following the OrigFont chain, we use that font.
+
+/origfont
+ {  { dup /OrigFont known not { exit } if /OrigFont get } loop
+   FontDirectory 1 index /FontName get .knownget
+    {		% Stack: origfont namedfont
+      1 index /FontType get 1 index /FontType get eq
+       { 1 index /UniqueID .knownget
+	  { 1 index /UniqueID .knownget
+	     { eq { exch } if }
+	     { pop }
+            ifelse
+	  }
+	 if
+       }
+      if pop
+    }
+   if
+ } def
+
+
+	% Determine the bounding box of the current device's image.
+	% Free variables: row, zerow.
+
+/devbbox		% <rw> <rh> devbbox <ymin> <ymax1> <xmin> <xmax1>
+ {		% Find top and bottom whitespace.
+   dup
+    { dup 0 eq { exit } if 1 sub
+      dup currentdevice exch row copyscanlines
+      zerow ne { 1 add exit } if
+    }
+   loop		% ymax1
+   0
+    { 2 copy eq { exit } if
+      dup currentdevice exch row copyscanlines
+      zerow ne { exit } if
+      1 add
+    }
+   loop		% ymin
+   exch
+		% Find left and right whitespace.
+   3 index 0
+		% Stack: rw rh ymin ymax1 xmin xmax1
+   3 index 1 4 index 1 sub
+    { currentdevice exch row copyscanlines .findzeros
+      exch 4 1 roll .max 3 1 roll .min exch
+    }
+   for		% xmin xmax1
+		% Special check: xmin > xmax1 if height = 0
+   2 copy gt { exch pop dup } if
+   6 -2 roll pop pop
+
+ } def
+
+	% Write values on outfile.
+
+ /w1 { 255 and outfile exch write } def
+ /w2 { dup -8 bitshift w1 w1 } def
+ /wbyte			% <byte> <label> wbyte
+  { VDEBUG { print ( =byte= ) print dup == flush } { pop } ifelse w1
+  } def
+ /wword			% <word16> <label> wword
+  { VDEBUG { print ( =word= ) print dup == flush } { pop } ifelse w2
+  } def
+ /wdword		% <word32> <label> wdword
+  { VDEBUG { print ( =dword= ) print dup == flush } { pop } ifelse
+    dup -16 bitshift w2 w2
+  } def
+
+/style.posture.keys
+ [ { (Italic) } { (Oblique) }
+   { }
+ ] def
+/style.posture.values <010100> def
+
+/style.appearance.width.keys
+ [ { (Ultra) (Compressed) }
+   { (Extra) (Compressed) }
+   { (Extra) (Condensed) }
+   { (Extra) (Extended) }
+   { (Extra) (Expanded) }
+   { (Compressed) }
+   { (Condensed) }
+   { (Extended) }
+   { (Expanded) }
+   { }
+ ] def
+/style.appearance.width.values <04030207070201060600> def
+
+/width.type.keys
+ [ { (Ultra) (Compressed) }
+   { (Extra) (Compressed) }
+   { (Extra) (Condensed) }
+   { (Extra) (Expanded) }
+   { (Compressed) }
+   { (Condensed) }
+   { (Expanded) }
+   { }
+ ] def
+/width.type.values <fbfcfd03fdfe0200> def
+
+/stroke.weight.keys
+ [ { (Ultra) (Thin) }
+   { (Ultra) (Black) }
+   { (Extra) (Thin) }
+   { (Extra) (Light) }
+   { (Extra) (Bold) }
+   { (Extra) (Black) }
+   { (Demi) (Light) }
+   { (Demi) (Bold) }
+   { (Semi) (Light) }
+   { (Semi) (Bold) }
+   { (Thin) }
+   { (Light) }
+   { (Bold) }
+   { (Black) }
+   { }
+ ] def
+/stroke.weight.values <f907fafc0406fe02ff01fbfd030500> def
+
+/vendor.keys
+ [ { (Agfa) }
+   { (Bitstream) }
+   { (Linotype) }
+   { (Monotype) }
+   { (Adobe) }
+   { }
+ ] def
+/vendor.default.index 4 def		% might as well be Adobe
+/old.vendor.values <020406080a00> def
+/new.vendor.values <010203040500> def
+/vendor.initials (CBLMA\000) def
+
+currentdict readonly end pop		% pcldict
+
+
+% Convert and write a PCL font for the current font and transformation.
+
+% Write the font header.  We split this off only to avoid overflowing
+% the limit on the maximum size of a procedure.
+% Free variables: outfile uury u0y rw rh orientation uh ully
+/writefontheader
+ { outfile (\033\)s) writestring
+   outfile 64 WriteResolution? { 4 add } if
+     Copyright length add write==only
+   outfile (W) writestring
+   WriteResolution? { 20 68 } { 0 64 } ifelse
+     (Font Descriptor Size) wword
+     (Header Format) wbyte
+   1 (Font Type) wbyte
+   FullName style.posture.keys keysearch style.posture.values exch get
+   FullName style.appearance.width.keys keysearch
+     style.appearance.width.values exch get 4 mul add
+   PaintType 2 eq { 32 add } if
+     /style exch def
+   style -8 bitshift (Style MSB) wbyte
+   0 (Reserved) wbyte
+   /baseline uury 1 sub u0y sub def
+     baseline (Baseline Position) wword
+   rw (Cell Width) wword
+   rh (Cell Height) wword
+   orientation (Orientation) wbyte
+   FontInfo /isFixedPitch .knownget not { false } if
+    { 0 } { 1 } ifelse (Spacing) wbyte
+	% Use loop/exit to fake a multiple-exit block.
+    { Encoding StandardEncoding eq { 10 (J) exit } if
+      Encoding ISOLatin1Encoding eq { 11 (J) exit } if
+      Encoding SymbolEncoding eq { 19 (M) exit } if
+      Encoding DingbatsEncoding eq { 10 (L) exit } if
+%      (Warning: unknown Encoding, using ISOLatin1.\n) print flush
+      11 (J) exit
+    }
+   loop
+   0 get 64 sub exch 32 mul add (Symbol Set) wword
+   ( ) stringwidth pop 0 dtransform add abs 4 mul
+     /pitch exch def
+   pitch cvi (Pitch) wword
+   uh 4 mul (Height) wword			% Height
+   (x) charheight (x-Height) wword
+   FullName width.type.keys keysearch
+     width.type.values exch get (Width Type) wbyte
+   style 255 and (Style LSB) wbyte
+   FullName stroke.weight.keys keysearch
+     stroke.weight.values exch get (Stroke Weight) wbyte
+   FullName vendor.keys keysearch
+     dup vendor.initials exch get 0 eq
+      {		% No vendor in FullName, try Notice
+        pop Copyright vendor.keys keysearch
+	dup vendor.initials exch get 0 eq { pop vendor.default.index } if
+      }
+     if
+     /vendor.index exch def
+   0 (Typeface LSB) wbyte		% punt
+   0 (Typeface MSB) wbyte		% punt
+   0 (Serif Style) wbyte		% punt
+   2 (Quality) wbyte
+   0 (Placement) wbyte
+   gsave FontMatrix concat rot neg rotate
+   /ulwidth
+     FontInfo /UnderlineThickness .knownget
+      { 0 exch dtransform exch pop abs }
+      { resolution 100 div }
+     ifelse def
+   FontInfo /UnderlinePosition .knownget
+    { 0 exch transform exch pop negY ulwidth 2 div add }
+    { ully ulwidth add }
+   ifelse u0y sub
+   round cvi 1 .max 255 .min (Underline Position) wbyte
+   ulwidth round cvi 1 .max 255 .min (Underline Thickness) wbyte
+   grestore
+   uh 1.2 mul 4 mul cvi (Text Height) wword
+   (average lowercase character) dup stringwidth
+     pop 0 dtransform add abs
+     exch length div 4 mul cvi (Text Width) wword
+   0
+    { dup Encoding exch get /.notdef ne { exit } if
+      1 add
+    }
+   loop (First Code) wword
+   255
+    { dup Encoding exch get /.notdef ne { exit } if
+      1 sub
+    }
+   loop (Last Code) wword
+   pitch dup cvi sub 256 mul cvi (Pitch Extended) wbyte
+   0 (Height Extended) wbyte
+   0 (Cap Height) wword			% (default)
+   currentfont /UniqueID known { UniqueID } { 0 } ifelse
+     16#c1000000 add (Font Number (Adobe UniqueID)) wdword
+   FontName length 16 .max string
+     dup FontName exch cvs pop
+     outfile exch 0 16 getinterval writestring	% Font Name
+   WriteResolution?
+    { resolution dup (X Resolution) wword (Y Resolution) wword
+    }
+   if
+   outfile Copyright writestring	% Copyright
+ } def
+
+/writePCL		% <fontfile> <resolution> writePCL -
+ {
+   save
+   currentfont begin
+   pcldict begin
+   80 dict begin		% allow for recursion
+     /saved exch def
+     /resolution exch def
+     /outfile exch def
+   matrix currentmatrix dup 4 0 put dup 5 0 put setmatrix
+
+	% Supply some default values so we don't have to check later.
+
+   currentfont /FontInfo known not { /FontInfo 1 dict def } if
+   currentfont /FontName known not { /FontName () def } if
+   /Copyright   FontInfo /Notice .knownget not { () } if   def
+   /FullName
+     FontInfo /FullName .knownget not
+      { FontName dup length string cvs }
+     if def
+
+	% Determine the original font, and its relationship to this one.
+
+   /OrigFont currentfont origfont def
+   /OrigMatrix OrigFont /FontMatrix get def
+   /OrigMatrixInverse OrigMatrix matrix invertmatrix def
+   /ScaleMatrix matrix currentfont OrigFont ne
+    { FontMatrix exch OrigMatrixInverse exch concatmatrix
+    } if
+   def
+   /CurrentScaleMatrix
+     matrix currentmatrix
+     matrix defaultmatrix
+     dup 0 get 1 index 3 get mul 0 lt
+     1 index dup 1 get exch 2 get mul 0 gt or
+       /flipY exch def
+     dup invertmatrix
+     dup concatmatrix
+   def
+   /negY flipY { {neg} } { {} } ifelse def
+
+	% Print debugging information.
+
+   /CDEBUG where { pop } { /CDEBUG false def } ifelse
+   /VDEBUG where { pop } { /VDEBUG false def } ifelse
+   CDEBUG { /VDEBUG true def } if
+   DEBUG
+    { (currentmatrix: ) print matrix currentmatrix ==
+      (defaultmatrix: ) print matrix defaultmatrix ==
+      (flipY: ) print flipY ==
+      (scaling matrix: ) print CurrentScaleMatrix ==
+      (FontMatrix: ) print FontMatrix ==
+      (FontBBox: ) print /FontBBox load ==
+      currentfont OrigFont ne
+       { OrigFont /FontName .knownget { (orig FontName: ) print == } if
+         (orig FontMatrix: ) print OrigMatrix ==
+       } if
+      currentfont /ScaleMatrix .knownget { (ScaleMatrix: ) print == } if
+      gsave
+	FontMatrix concat
+	(combined matrix: ) print matrix currentmatrix ==
+      grestore
+      flush
+    } if
+
+	% Determine the orientation.
+
+   ScaleMatrix matrix currentmatrix dup concatmatrix
+   0 1 3
+    { 1 index 1 get 0 eq 2 index 2 get 0 eq and 2 index 0 get 0 gt and
+       { exit } if
+      pop -90 matrix rotate exch dup concatmatrix
+    }
+   for
+   dup type /integertype ne
+    { (Only rotations by multiples of 90 degrees are supported:\n) print
+      == flush
+      saved end end end restore stop
+    }
+   if
+   /orientation exch def
+   /rot orientation 90 mul def
+   DEBUG { (orientation: ) print orientation == flush } if
+
+   dup dup 0 get exch 3 get negY sub abs 0.5 ge
+    { (Only identical scaling in X and Y is supported:\n) print
+      exch flipY 3 array astore ==
+      currentdevice .devicename ==
+      matrix defaultmatrix == flush
+      saved end end end restore stop
+    }
+   if pop
+
+	% Determine the font metrics, in the PCL character coordinate system,
+	% which has +Y going towards the top of the page.
+
+   gsave
+   FontMatrix concat
+     0 0 transform
+     negY round cvi /r0y exch def
+     round cvi /r0x exch def
+   ixbbox
+     negY /rury exch def  /rurx exch def
+     negY /rlly exch def  /rllx exch def
+     /rminx rllx rurx .min def
+     /rminy rlly negY rury negY .min def
+     /rw rurx rllx sub abs def
+     /rh rury rlly sub abs def
+   gsave rot neg rotate
+     0 0 transform
+     negY round cvi /u0y exch def
+     round cvi /u0x exch def
+   ixbbox
+     negY /uury exch def   /uurx exch def
+     negY /ully exch def   /ullx exch def
+     /uw uurx ullx sub def
+     /uh uury ully sub def
+   grestore
+   DEBUG 
+    { (rmatrix: ) print matrix currentmatrix ==
+      (rFontBBox: ) print [rllx rlly rurx rury] ==
+      (uFontBBox: ) print [ullx ully uurx uury] ==
+      flush
+    } if
+   grestore
+
+	% Disable the character cache, to avoid excessive allocation
+	% and memory sandbars.
+
+   mark cachestatus   /upper exch def
+   cleartomark 0 setcachelimit
+   
+	% Write the font header.
+
+   writefontheader
+
+	% Establish an image device for rasterizing characters.
+
+   matrix currentmatrix
+     dup 4 rminx neg put
+     dup 5 rminy neg put
+	% Round the width up to a multiple of 8
+	% so we don't get garbage bits in the last byte of each row.
+   rw 7 add -8 and rh <ff 00> makeimagedevice
+     /cdevice exch def
+   nulldevice			% prevent page device switching
+   cdevice setdevice
+
+	% Rasterize each character in turn.
+
+   /raster   rw 7 add 8 idiv   def
+   /row   raster string   def
+   /zerow   row length string   def
+   0 1 Encoding length 1 sub
+    { /cindex exch def
+      Encoding cindex get /.notdef ne
+       { VDEBUG { Encoding cindex get == flush } if
+         erasepage initgraphics
+	 0 0 moveto currentpoint transform add
+	 ( ) dup 0 cindex put show
+	 currentpoint transform add exch sub round cvi
+	   /cwidth exch abs def
+	 rw rh devbbox
+	 VDEBUG
+	  { (image bbox: ) print 4 copy 4 2 roll 4 array astore == flush
+	  } if
+		% Save the device bounding box.
+		% Note that this is in current device coordinates,
+		% not PCL (right-handed) coordinates.
+	 /bqx exch def  /bpx exch def  /bqy exch def  /bpy exch def
+		% Re-render with the character justified to (0,0).
+		% This may be either the lower left or the upper left corner.
+	 bpx neg bpy neg idtransform moveto
+	 erasepage
+	 VDEBUG { (show point: ) print [ currentpoint transform ] == flush } if
+	 ( ) dup 0 cindex put show
+		% Find the bounding box.  Note that xmin and ymin are now 0,
+		% xmax1 = xw, and ymax1 = yh.
+	 rw rh devbbox
+	   /xw exch def
+		% xmin or ymin can be non-zero only if the character is blank.
+	   xw 0 eq
+	    { pop }
+	    { dup 0 ne { (Non-zero xmin! ) print = } { pop } ifelse }
+	   ifelse
+	   /yh exch def
+	   yh 0 eq
+	    { pop }
+	    { dup 0 ne { (Non-zero ymin! ) print = } { pop } ifelse }
+	   ifelse
+
+	 /xbw xw 7 add 8 idiv def
+	 /xright raster 8 mul xw sub def
+		% Write the Character Code command.
+	 outfile (\033*c) writestring
+	 outfile cindex write==only
+	 outfile (E) writestring
+	 	% Write the Character Definition command.
+	 outfile (\033\(s) writestring
+	 yh xbw mul 16 add
+	 outfile exch write=only
+		% Record the character position for the .PCM file.
+	 /cfpos outfile fileposition 1 add def
+	 outfile (W\004\000\016\001) writestring
+	 orientation (Orientation) wbyte 0 (Reserved) wbyte
+	 rminx bpx add r0x sub (Left Offset) wword
+	 flipY { rminy bpy add neg } { rminy bqy add } ifelse r0y sub
+	   (Top Offset) wword
+	 xw (Character Width) wword
+	 yh (Character Height) wword
+	 cwidth orientation 2 ge { neg } if 4 mul (Delta X) wword
+		% Write the character data.
+	 flipY { 0 1 yh 1 sub } { yh 1 sub -1 0 } ifelse
+	  { cdevice exch row copyscanlines
+	    0 xbw getinterval
+	    CDEBUG
+	     { dup
+	        { 8
+		   { dup 128 ge { (+) } { (.) } ifelse print
+		     127 and 1 bitshift
+		   }
+		  repeat pop
+	        }
+	       forall (\n) print
+	     }
+	    if
+	    outfile exch writestring
+	  }
+	 for
+       }
+       { /bpx 0 def   /bpy 0 def   /bqx 0 def   /bqy 0 def
+	 /cwidth 0 def
+	 /cfpos 0 def
+       }
+      ifelse
+
+    }
+   for
+
+	% Wrap up.
+
+   upper setcachelimit
+   outfile closefile
+
+   nulldevice			% prevent page device switching
+   saved end end end restore
+
+ } def
+
+% Provide definitions for testing with older or non-custom interpreters.
+
+/.findzeros where { pop (%END) .skipeof } if
+/.findzeros
+ { userdict begin   /zs exch def   /zl zs length def
+   0 { dup zl ge { exit } if dup zs exch get 0 ne { exit } if 1 add } loop
+   zl { dup 0 eq { exit } if dup 1 sub zs exch get 0 ne { exit } if 1 sub } loop
+   exch 3 bitshift exch 3 bitshift
+   2 copy lt
+    { exch zs 1 index -3 bitshift get
+       { dup 16#80 and 0 ne { exit } if exch 1 add exch 1 bitshift } loop pop
+      exch zs 1 index -3 bitshift 1 sub get
+       { dup 1 and 0 ne { exit } if exch 1 sub exch -1 bitshift } loop pop
+    }
+   if end
+ } bind def
+%END
+
+/write=only where { pop (%END) .skipeof } if
+/w=s 128 string def
+/write=only
+ { w=s cvs writestring
+ } bind def
+%END
+
+%**************** Test
+/PCLTEST where {
+  pop
+  /DEBUG true def
+  /CDEBUG true def
+  /VDEBUG true def
+  /Times-Roman findfont 10 scalefont setfont
+  (t.pcf) (w) file
+  300 72 div dup scale
+  300 writePCL
+  flush quit
+} if

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/ghostpdf.inf

@@ -0,0 +1,44 @@
+; GHOSTPDF.INF (for Windows 2k, XP and XP x64 edition)
+
+[Version]
+Signature="$Windows NT$"
+Provider=Ghostgum Software Pty Ltd
+ClassGUID={4D36E979-E325-11CE-BFC1-08002BE10318}
+Class=Printer
+CatalogFile=oemprint.cat
+
+DriverVer=01/02/2007,1.0.0.1
+
+; Manufacturer section
+[Manufacturer]
+"Ghostscript"=Ghostscript,NTamd64,NTia64
+
+; Model sections
+[Ghostscript]
+"Ghostscript PDF" = GHOSTPDF.PPD, Ghostscript_PDF, Ghostscript_PDF_Writer
+
+[Ghostscript.NTamd64]
+"Ghostscript PDF" = GHOSTPDF.PPD, Ghostscript_PDF, Ghostscript_PDF_Writer
+
+[Ghostscript.NTia64]
+"Ghostscript PDF" = GHOSTPDF.PPD, Ghostscript_PDF, Ghostscript_PDF_Writer
+
+; Installer section
+[GHOSTPDF.PPD]
+CopyFiles=@GHOSTPDF.PPD
+DataSection=PSCRIPT_DATA
+Include=NTPRINT.INF
+Needs=PSCRIPT.OEM
+
+[DestinationDirs]
+DefaultDestDir=66000
+
+[SourceDisksNames]
+1=%Disk1%,,,""
+
+[SourceDisksFiles]
+GHOSTPDF.PPD =1
+
+[Strings]
+Disk1="Ghostscript PPD Setup Disk 1"
+; end of ghostpdf.inf

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/ghostpdf.ppd

@@ -0,0 +1,522 @@
+*PPD-Adobe: "4.3"
+*FileVersion: "1.1"
+*FormatVersion: "4.3" 
+*LanguageEncoding: ISOLatin1
+*LanguageVersion: English
+*Manufacturer: "Ghostscript"
+*ModelName: "Ghostscript PDF Writer"
+*ShortNickName: "Ghostscript"
+*NickName: "Ghostscript"
+*% PCFileName should be of the form XXNNNNNN.PPD where XX is an assigned
+*% manufacturer code.
+*PCFileName: "GHOSTPDF.PPD"
+*Product: "(Ghostscript)"
+*Product: "(AFPL Ghostscript)"
+*Product: "(GNU Ghostscript)"
+*Product: "(GPL Ghostscript)"
+*PSVersion: "(3010) 815"
+
+*% *DefaultImageableArea:
+*% *DefaultPageRegion:
+*% *PageRegion:
+*% *ImageableArea:
+*% *DefaultPageSize:
+*% *PageSize:
+*% *DefaultPaperDimension:
+*% *PaperDimension:
+
+*% == Above are required
+
+*Copyright: "2004-2006 Ghostgum Software Pty Ltd"
+*%
+*%  Copyright (C) 2004-2006, Ghostgum Software Pty Ltd.  All rights reserved.
+*%
+*%  Permission is hereby granted, free of charge, to any person obtaining
+*%  a copy of this file ("Software"), to deal in the Software without
+*%  restriction, including without limitation the rights to use, copy,
+*%  modify, merge, publish, distribute, sublicense, and/or sell copies of
+*%  this Software, and to permit persons to whom this file is furnished to
+*%  do so, subject to the following conditions:
+*%
+*%  This Software is distributed with NO WARRANTY OF ANY KIND.  No author
+*%  or distributor accepts any responsibility for the consequences of using it,
+*%  or for whether it serves any particular purpose or works at all, unless he
+*%  or she says so in writing.
+*%
+*%  The above copyright notice and this permission notice shall be included
+*%  in all copies or substantial portions of the Software.
+
+*% There is an accompanying file ghostpdf.inf that is used to 
+*% install this PPD on Windows 2k/XP.
+*% This PPD includes configuration items specific to generating
+*% PDF files with ghostscript.
+*% If you are not using the ghostscript pdfwrite device,
+*% all items in the PDF group should be left as "Default".
+
+
+*% == Basic Capabilities
+*LanguageLevel: "3"
+*ColorDevice: True
+*DefaultColorSpace: RGB
+*FileSystem: True
+*Extensions: CMYK FileSystem Composite
+*TTRasterizer: Type42
+*FreeVM: "10000000"
+*PrintPSErrors: True
+*ContoneOnly: True
+*% AccurateScreensSupport: True
+
+*% order dependency
+*%  10 HWResolution
+*%  20 PageSize and other page device parameters
+*%  30 PDFSETTINGS
+*%  40 distiller parameters
+
+*% == Resolution
+*OpenUI *Resolution: PickOne
+*DefaultResolution: 600dpi
+*OrderDependency: 10 AnySetup *Resolution
+*Resolution 72dpi: "<< /HWResolution [72 72] >> setpagedevice"
+*Resolution 96dpi: "<< /HWResolution [96 96] >> setpagedevice"
+*Resolution 144dpi: "<< /HWResolution [144 144] >> setpagedevice"
+*Resolution 150dpi: "<< /HWResolution [150 150] >> setpagedevice"
+*Resolution 300dpi: "<< /HWResolution [300 300] >> setpagedevice"
+*Resolution 600dpi: "<< /HWResolution [600 600] >> setpagedevice"
+*Resolution 720dpi: "<< /HWResolution [720 720] >> setpagedevice"
+*Resolution 1200dpi: "<< /HWResolution [1200 1200] >> setpagedevice"
+*Resolution 2400dpi: "<< /HWResolution [2400 2400] >> setpagedevice"
+*Resolution 3600dpi: "<< /HWResolution [3600 3600] >> setpagedevice"
+*Resolution 4000dpi: "<< /HWResolution [4000 4000] >> setpagedevice"
+*CloseUI: *Resolution
+
+
+*% == Paper stuff
+*% Page sizes taken from ghostscript gs_statd.ps.
+*% Ghostscript pdfwrite ignores Orientation, so set the
+*% custom page width/height and then use an Install procedure
+*% to rotate the image.
+
+*HWMargins: 0 0 0 0
+*ParamCustomPageSize Width: 1 points 1 5670
+*ParamCustomPageSize Height: 2 points 1 5670
+*ParamCustomPageSize WidthOffset/Width Margin: 3 points 0 5670
+*ParamCustomPageSize HeightOffset/Height Margin: 4 points 0 5670
+*ParamCustomPageSize Orientation: 5 int 0 3
+*NonUIOrderDependency: 20 AnySetup *CustomPageSize
+*CustomPageSize True: "
+  5 -2 roll exch 5 2 roll
+  3 -2 roll exch 3 2 roll
+  [ {}
+    {90 rotate 0 currentpagedevice /PageSize get 0 get neg translate}
+    {180 rotate currentpagedevice /PageSize get 
+     dup 0 get neg exch 1 get neg translate}
+    {270 rotate currentpagedevice /PageSize get 1 get neg 0 translate}
+  ] exch get
+  4 dict dup begin 6 1 roll
+  /Install exch def
+  2 array astore /PageOffset exch def
+  2 array astore /PageSize exch def
+  /ImagingBBox null def
+  end setpagedevice"
+*End
+*MaxMediaWidth: "5670"
+*MaxMediaHeight: "5670"
+
+*LandscapeOrientation: Any
+
+*OpenUI *PageSize: PickOne
+*DefaultPageSize: Letter
+*OrderDependency: 20 AnySetup *PageSize
+*PageSize Tabloid: "<< /PageSize [792 1224] /ImagingBBox null >> setpagedevice"
+*PageSize Ledger: "<< /PageSize [1224 792] /ImagingBBox null >> setpagedevice"
+*PageSize Legal: "<< /PageSize [612 1008] /ImagingBBox null >> setpagedevice"
+*PageSize Letter: "<< /PageSize [612 792] /ImagingBBox null >> setpagedevice"
+*PageSize LetterSmall: "<< /PageSize [612 792] /ImagingBBox [25 25 587 767] >> setpagedevice"
+*PageSize Statement: "<< /PageSize [396 612] /ImagingBBox null >> setpagedevice"
+*PageSize Note: "<< /PageSize [612 792] /ImagingBBox [25 25 587 767] >> setpagedevice"
+*PageSize A0: "<< /PageSize [2384 3370] /ImagingBBox null >> setpagedevice"
+*PageSize A1: "<< /PageSize [1684 2384] /ImagingBBox null >> setpagedevice"
+*PageSize A2: "<< /PageSize [1191 1684] /ImagingBBox null >> setpagedevice"
+*PageSize A3: "<< /PageSize [842 1191] /ImagingBBox null >> setpagedevice"
+*PageSize A4: "<< /PageSize [595 842] /ImagingBBox null >> setpagedevice"
+*PageSize A4Small: "<< /PageSize [595 842] /ImagingBBox [25 25 570 817] >> setpagedevice"
+*PageSize A5: "<< /PageSize [420 595] /ImagingBBox null >> setpagedevice"
+*PageSize A6: "<< /PageSize [297 420] /ImagingBBox null >> setpagedevice"
+*PageSize A7: "<< /PageSize [210 297] /ImagingBBox null >> setpagedevice"
+*PageSize A8: "<< /PageSize [148 210] /ImagingBBox null >> setpagedevice"
+*PageSize A9: "<< /PageSize [105 148] /ImagingBBox null >> setpagedevice"
+*PageSize A10: "<< /PageSize [73 105] /ImagingBBox null >> setpagedevice"
+*PageSize ISOB0/ISO B0: "<< /PageSize [2835 4008] /ImagingBBox null >> setpagedevice"
+*PageSize ISOB1/ISO B1: "<< /PageSize [2004 2835] /ImagingBBox null >> setpagedevice"
+*PageSize ISOB2/ISO B2: "<< /PageSize [1417 2004] /ImagingBBox null >> setpagedevice"
+*PageSize ISOB3/ISO B3: "<< /PageSize [1001 1417] /ImagingBBox null >> setpagedevice"
+*PageSize ISOB4/ISO B4: "<< /PageSize [709 1001] /ImagingBBox null >> setpagedevice"
+*PageSize ISOB5/ISO B5: "<< /PageSize [499 709] /ImagingBBox null >> setpagedevice"
+*PageSize ISOB6/ISO B6: "<< /PageSize [354 499] /ImagingBBox null >> setpagedevice"
+*PageSize B0/JIS B0: "<< /PageSize [2920 4127] /ImagingBBox null >> setpagedevice"
+*PageSize B1/JIS B1: "<< /PageSize [2064 2920] /ImagingBBox null >> setpagedevice"
+*PageSize B2/JIS B2: "<< /PageSize [1460 2064] /ImagingBBox null >> setpagedevice"
+*PageSize B3/JIS B3: "<< /PageSize [1032 1460] /ImagingBBox null >> setpagedevice"
+*PageSize B4/JIS B4: "<< /PageSize [729 1032] /ImagingBBox null >> setpagedevice"
+*PageSize B5/JIS B5: "<< /PageSize [516 729] /ImagingBBox null >> setpagedevice"
+*PageSize B6/JIS B6: "<< /PageSize [363 516] /ImagingBBox null >> setpagedevice"
+*PageSize EnvC0/Envelope C0: "<< /PageSize [2599 3677] /ImagingBBox null >> setpagedevice"
+*PageSize EnvC1/Envelope C1: "<< /PageSize [1837 2599] /ImagingBBox null >> setpagedevice"
+*PageSize EnvC2/Envelope C2: "<< /PageSize [1296 1837] /ImagingBBox null >> setpagedevice"
+*PageSize EnvC3/Envelope C3: "<< /PageSize [918 1296] /ImagingBBox null >> setpagedevice"
+*PageSize EnvC4/Envelope C4: "<< /PageSize [649 918] /ImagingBBox null >> setpagedevice"
+*PageSize EnvC5/Envelope C5: "<< /PageSize [459 649] /ImagingBBox null >> setpagedevice"
+*PageSize EnvC6/Envelope C6: "<< /PageSize [323 459] /ImagingBBox null >> setpagedevice"
+*PageSize ARCHE: "<< /PageSize [2592 3456] /ImagingBBox null >> setpagedevice"
+*PageSize ARCHD: "<< /PageSize [1728 2592] /ImagingBBox null >> setpagedevice"
+*PageSize ARCHC: "<< /PageSize [1296 1728] /ImagingBBox null >> setpagedevice"
+*PageSize ARCHB: "<< /PageSize [864 1296] /ImagingBBox null >> setpagedevice"
+*PageSize ARCHA: "<< /PageSize [648 864] /ImagingBBox null >> setpagedevice"
+*PageSize FLSA: "<< /PageSize [612 936] /ImagingBBox null >> setpagedevice"
+*PageSize FLSE: "<< /PageSize [612 936] /ImagingBBox null >> setpagedevice"
+*PageSize PA4: "<< /PageSize [595 792] /ImagingBBox null >> setpagedevice"
+*CloseUI: *PageSize
+
+*OpenUI *PageRegion: PickOne
+*DefaultPageRegion: Letter
+*OrderDependency: 20 AnySetup *PageRegion
+*PageRegion Tabloid: "<< /PageSize [792 1224] /ImagingBBox null >> setpagedevice"
+*PageRegion Ledger: "<< /PageSize [1224 792] /ImagingBBox null >> setpagedevice"
+*PageRegion Legal: "<< /PageSize [612 1008] /ImagingBBox null >> setpagedevice"
+*PageRegion Letter: "<< /PageSize [612 792] /ImagingBBox null >> setpagedevice"
+*PageRegion LetterSmall: "<< /PageSize [612 792] /ImagingBBox [25 25 587 767] >> setpagedevice"
+*PageRegion Note: "<< /PageSize [612 792] /ImagingBBox [25 25 587 767] >> setpagedevice"
+*PageRegion Statement: "<< /PageSize [396 612] /ImagingBBox null >> setpagedevice"
+*PageRegion A0: "<< /PageSize [2384 3370] /ImagingBBox null >> setpagedevice"
+*PageRegion A1: "<< /PageSize [1684 2384] /ImagingBBox null >> setpagedevice"
+*PageRegion A2: "<< /PageSize [1191 1684] /ImagingBBox null >> setpagedevice"
+*PageRegion A3: "<< /PageSize [842 1191] /ImagingBBox null >> setpagedevice"
+*PageRegion A4: "<< /PageSize [595 842] /ImagingBBox null >> setpagedevice"
+*PageRegion A4Small: "<< /PageSize [595 842] /ImagingBBox [25 25 570 817] >> setpagedevice"
+*PageRegion A5: "<< /PageSize [420 595] /ImagingBBox null >> setpagedevice"
+*PageRegion A6: "<< /PageSize [297 420] /ImagingBBox null >> setpagedevice"
+*PageRegion A7: "<< /PageSize [210 297] /ImagingBBox null >> setpagedevice"
+*PageRegion A8: "<< /PageSize [148 210] /ImagingBBox null >> setpagedevice"
+*PageRegion A9: "<< /PageSize [105 148] /ImagingBBox null >> setpagedevice"
+*PageRegion A10: "<< /PageSize [73 105] /ImagingBBox null >> setpagedevice"
+*PageRegion ISOB0/ISO B0: "<< /PageSize [2835 4008] /ImagingBBox null >> setpagedevice"
+*PageRegion ISOB1/ISO B1: "<< /PageSize [2004 2835] /ImagingBBox null >> setpagedevice"
+*PageRegion ISOB2/ISO B2: "<< /PageSize [1417 2004] /ImagingBBox null >> setpagedevice"
+*PageRegion ISOB3/ISO B3: "<< /PageSize [1001 1417] /ImagingBBox null >> setpagedevice"
+*PageRegion ISOB4/ISO B4: "<< /PageSize [709 1001] /ImagingBBox null >> setpagedevice"
+*PageRegion ISOB5/ISO B5: "<< /PageSize [499 709] /ImagingBBox null >> setpagedevice"
+*PageRegion ISOB6/ISO B6: "<< /PageSize [354 499] /ImagingBBox null >> setpagedevice"
+*PageRegion B0/JIS B0: "<< /PageSize [2920 4127] /ImagingBBox null >> setpagedevice"
+*PageRegion B1/JIS B1: "<< /PageSize [2064 2920] /ImagingBBox null >> setpagedevice"
+*PageRegion B2/JIS B2: "<< /PageSize [1460 2064] /ImagingBBox null >> setpagedevice"
+*PageRegion B3/JIS B3: "<< /PageSize [1032 1460] /ImagingBBox null >> setpagedevice"
+*PageRegion B4/JIS B4: "<< /PageSize [729 1032] /ImagingBBox null >> setpagedevice"
+*PageRegion B5/JIS B5: "<< /PageSize [516 729] /ImagingBBox null >> setpagedevice"
+*PageRegion B6/JIS B6: "<< /PageSize [363 516] /ImagingBBox null >> setpagedevice"
+*PageRegion EnvC0/Envelope C0: "<< /PageSize [2599 3677] /ImagingBBox null >> setpagedevice"
+*PageRegion EnvC1/Envelope C1: "<< /PageSize [1837 2599] /ImagingBBox null >> setpagedevice"
+*PageRegion EnvC2/Envelope C2: "<< /PageSize [1296 1837] /ImagingBBox null >> setpagedevice"
+*PageRegion EnvC3/Envelope C3: "<< /PageSize [918 1296] /ImagingBBox null >> setpagedevice"
+*PageRegion EnvC4/Envelope C4: "<< /PageSize [649 918] /ImagingBBox null >> setpagedevice"
+*PageRegion EnvC5/Envelope C5: "<< /PageSize [459 649] /ImagingBBox null >> setpagedevice"
+*PageRegion EnvC6/Envelope C6: "<< /PageSize [323 459] /ImagingBBox null >> setpagedevice"
+*PageRegion ARCHE: "<< /PageSize [2592 3456] /ImagingBBox null >> setpagedevice"
+*PageRegion ARCHD: "<< /PageSize [1728 2592] /ImagingBBox null >> setpagedevice"
+*PageRegion ARCHC: "<< /PageSize [1296 1728] /ImagingBBox null >> setpagedevice"
+*PageRegion ARCHB: "<< /PageSize [864 1296] /ImagingBBox null >> setpagedevice"
+*PageRegion ARCHA: "<< /PageSize [648 864] /ImagingBBox null >> setpagedevice"
+*PageRegion FLSA: "<< /PageSize [612 936] /ImagingBBox null >> setpagedevice"
+*PageRegion FLSE: "<< /PageSize [612 936] /ImagingBBox null >> setpagedevice"
+*PageRegion PA4: "<< /PageSize [595 792] /ImagingBBox null >> setpagedevice"
+*CloseUI: *PageRegion
+
+*DefaultImageableArea: Letter
+*ImageableArea Tabloid: "0 0 792 1224"
+*ImageableArea Ledger: "0 0 1224 792"
+*ImageableArea Legal: "0 0 612 1008"
+*ImageableArea Letter: "0 0 612 792"
+*ImageableArea LetterSmall: "25 25 587 767"
+*ImageableArea Note: "25 25 587 767"
+*ImageableArea Statement: "0 0 396 612"
+*ImageableArea A0: "0 0 2384 3370"
+*ImageableArea A1: "0 0 1684 2384"
+*ImageableArea A2: "0 0 1191 1684"
+*ImageableArea A3: "0 0 842 1191"
+*ImageableArea A4: "0 0 595 842"
+*ImageableArea A4Small: "25 25 570 817"
+*ImageableArea A5: "0 0 420 595"
+*ImageableArea A6: "0 0 297 420"
+*ImageableArea A7: "0 0 210 297"
+*ImageableArea A8: "0 0 148 210"
+*ImageableArea A9: "0 0 105 148"
+*ImageableArea A10: "0 0 73 105"
+*ImageableArea ISOB0/ISO B0: "0 0 2835 4008"
+*ImageableArea ISOB1/ISO B1: "0 0 2004 2835"
+*ImageableArea ISOB2/ISO B2: "0 0 1417 2004"
+*ImageableArea ISOB3/ISO B3: "0 0 1001 1417"
+*ImageableArea ISOB4/ISO B4: "0 0 709 1001"
+*ImageableArea ISOB5/ISO B5: "0 0 499 709"
+*ImageableArea ISOB6/ISO B6: "0 0 354 499"
+*ImageableArea B0/JIS B0: "0 0 2920 4127"
+*ImageableArea B1/JIS B1: "0 0 2064 2920"
+*ImageableArea B2/JIS B2: "0 0 1460 2064"
+*ImageableArea B3/JIS B3: "0 0 1032 1460"
+*ImageableArea B4/JIS B4: "0 0 729 1032"
+*ImageableArea B5/JIS B5: "0 0 516 729"
+*ImageableArea B6/JIS B6: "0 0 363 516"
+*ImageableArea EnvC0/Envelope C0: "0 0 2599 3677"
+*ImageableArea EnvC1/Envelope C1: "0 0 1837 2599"
+*ImageableArea EnvC2/Envelope C2: "0 0 1296 1837"
+*ImageableArea EnvC3/Envelope C3: "0 0 918 1296"
+*ImageableArea EnvC4/Envelope C4: "0 0 649 918"
+*ImageableArea EnvC5/Envelope C5: "0 0 459 649"
+*ImageableArea EnvC6/Envelope C6: "0 0 323 459"
+*ImageableArea ARCHE: "0 0 2592 3456"
+*ImageableArea ARCHD: "0 0 1728 2592"
+*ImageableArea ARCHC: "0 0 1296 1728"
+*ImageableArea ARCHB: "0 0 864 1296"
+*ImageableArea ARCHA: "0 0 648 864"
+*ImageableArea FLSA: "0 0 612 936"
+*ImageableArea FLSE: "0 0 612 936"
+*ImageableArea PA4: "0 0 595 792"
+
+*DefaultPaperDimension: Letter
+*PaperDimension Tabloid: "792 1224"
+*PaperDimension Ledger: "1224 792"
+*PaperDimension Legal: "612 1008"
+*PaperDimension Letter: "612 792"
+*PaperDimension LetterSmall: "612 792"
+*PaperDimension Note: "612 792"
+*PaperDimension Statement: "396 612"
+*PaperDimension A0: "2384 3370"
+*PaperDimension A1: "1684 2384"
+*PaperDimension A2: "1191 1684"
+*PaperDimension A3: "842 1191"
+*PaperDimension A4: "595 842"
+*PaperDimension A4Small: "595 842"
+*PaperDimension A5: "420 595"
+*PaperDimension A6: "297 420"
+*PaperDimension A7: "210 297"
+*PaperDimension A8: "148 210"
+*PaperDimension A9: "105 148"
+*PaperDimension A10: "73 105"
+*PaperDimension ISOB0/ISO B0: "2835 4008"
+*PaperDimension ISOB1/ISO B1: "2004 2835"
+*PaperDimension ISOB2/ISO B2: "1417 2004"
+*PaperDimension ISOB3/ISO B3: "1001 1417"
+*PaperDimension ISOB4/ISO B4: "709 1001"
+*PaperDimension ISOB5/ISO B5: "499 709"
+*PaperDimension ISOB6/ISO B6: "354 499"
+*PaperDimension B0/JIS B0: "2920 4127"
+*PaperDimension B1/JIS B1: "2064 2920"
+*PaperDimension B2/JIS B2: "1460 2064"
+*PaperDimension B3/JIS B3: "1032 1460"
+*PaperDimension B4/JIS B4: "729 1032"
+*PaperDimension B5/JIS B5: "516 729"
+*PaperDimension B6/JIS B6: "363 516"
+*PaperDimension EnvC0/Envelope C0: "2599 3677"
+*PaperDimension EnvC1/Envelope C1: "1837 2599"
+*PaperDimension EnvC2/Envelope C2: "1296 1837"
+*PaperDimension EnvC3/Envelope C3: "918 1296"
+*PaperDimension EnvC4/Envelope C4: "649 918"
+*PaperDimension EnvC5/Envelope C5: "459 649"
+*PaperDimension EnvC6/Envelope C6: "323 459"
+*PaperDimension ARCHE: "2592 3456"
+*PaperDimension ARCHD: "1728 2592"
+*PaperDimension ARCHC: "1296 1728"
+*PaperDimension ARCHB: "864 1296"
+*PaperDimension ARCHA: "648 864"
+*PaperDimension FLSA: "612 936"
+*PaperDimension FLSE: "612 936"
+*PaperDimension PA4: "595 792"
+
+
+*% == Fonts
+*DefaultFont: Courier
+*% First the standard 35 aliases with the actual fonts commented out.
+*Font Bookman-Demi: Standard "(1.05)" Standard ROM
+*% *Font URWBookmanL-DemiBold: Standard "(1.05)" Standard ROM
+*Font Bookman-DemiItalic: Standard "(1.05)" Standard ROM
+*% *Font URWBookmanL-DemiBoldItal: Standard "(1.05)" Standard ROM
+*Font Bookman-Light: Standard "(1.05)" Standard ROM
+*% *Font URWBookmanL-Ligh: Standard "(1.05)" Standard ROM
+*Font Bookman-LightItalic: Standard "(1.05)" Standard ROM
+*% *Font URWBookmanL-LighItal: Standard "(1.05)" Standard ROM
+*Font Courier: Standard "(1.05)" Standard ROM
+*% *Font NimbusMonL-Regu: Standard "(1.05)" Standard ROM
+*Font Courier-Oblique: Standard "(1.05)" Standard ROM
+*% *Font NimbusMonL-ReguObli: Standard "(1.05)" Standard ROM
+*Font Courier-Bold: Standard "(1.05)" Standard ROM
+*% *Font NimbusMonL-Bold: Standard "(1.05)" Standard ROM
+*Font Courier-BoldOblique: Standard "(1.05)" Standard ROM
+*% *Font NimbusMonL-BoldObli: Standard "(1.05)" Standard ROM
+*Font AvantGarde-Book: Standard "(1.05)" Standard ROM
+*% *Font URWGothicL-Book: Standard "(1.05)" Standard ROM
+*Font AvantGarde-BookOblique: Standard "(1.05)" Standard ROM
+*% *Font URWGothicL-BookObli: Standard "(1.05)" Standard ROM
+*Font AvantGarde-Demi: Standard "(1.05)" Standard ROM
+*% *Font URWGothicL-Demi: Standard "(1.05)" Standard ROM
+*Font AvantGarde-DemiOblique: Standard "(1.05)" Standard ROM
+*% *Font URWGothicL-DemiObli: Standard "(1.05)" Standard ROM
+*Font Helvetica: Standard "(1.05)" Standard ROM
+*% *Font NimbusSanL-Regu: Standard "(1.05)" Standard ROM
+*Font Helvetica-Oblique: Standard "(1.05)" Standard ROM
+*% *Font NimbusSanL-ReguItal: Standard "(1.05)" Standard ROM
+*Font Helvetica-Bold: Standard "(1.05)" Standard ROM
+*% *Font NimbusSanL-Bold: Standard "(1.05)" Standard ROM
+*Font Helvetica-BoldOblique: Standard "(1.05)" Standard ROM
+*% *Font NimbusSanL-BoldItal: Standard "(1.05)" Standard ROM
+*Font Helvetica-Narrow: Standard "(1.05)" Standard ROM
+*% *Font NimbusSanL-ReguCond: Standard "(1.05)" Standard ROM
+*Font Helvetica-Narrow-Oblique: Standard "(1.05)" Standard ROM
+*% *Font NimbusSanL-ReguCondItal: Standard "(1.05)" Standard ROM
+*Font Helvetica-Narrow-Bold: Standard "(1.05)" Standard ROM
+*% *Font NimbusSanL-BoldCond: Standard "(1.05)" Standard ROM
+*Font Helvetica-Narrow-BoldOblique: Standard "(1.05)" Standard ROM
+*% *Font NimbusSanL-BoldCondItal: Standard "(1.05)" Standard ROM
+*Font Palatino-Roman: Standard "(1.05)" Standard ROM
+*% *Font URWPalladioL-Roma: Standard "(1.05)" Standard ROM
+*Font Palatino-Italic: Standard "(1.05)" Standard ROM
+*% *Font URWPalladioL-Ital: Standard "(1.05)" Standard ROM
+*Font Palatino-Bold: Standard "(1.05)" Standard ROM
+*% *Font URWPalladioL-Bold: Standard "(1.05)" Standard ROM
+*Font Palatino-BoldItalic: Standard "(1.05)" Standard ROM
+*% *Font URWPalladioL-BoldItal: Standard "(1.05)" Standard ROM
+*Font NewCenturySchlbk-Roman: Standard "(1.05)" Standard ROM
+*% *Font CenturySchL-Roma: Standard "(1.05)" Standard ROM
+*Font NewCenturySchlbk-Italic: Standard "(1.05)" Standard ROM
+*% *Font CenturySchL-Ital: Standard "(1.05)" Standard ROM
+*Font NewCenturySchlbk-Bold: Standard "(1.05)" Standard ROM
+*% *Font CenturySchL-Bold: Standard "(1.05)" Standard ROM
+*Font NewCenturySchlbk-BoldItalic: Standard "(1.05)" Standard ROM
+*% *Font CenturySchL-BoldItal: Standard "(1.05)" Standard ROM
+*Font Times-Roman: Standard "(1.05)" Standard ROM
+*% *Font NimbusRomNo9L-Regu: Standard "(1.05)" Standard ROM
+*Font Times-Italic: Standard "(1.05)" Standard ROM
+*% *Font NimbusRomNo9L-ReguItal: Standard "(1.05)" Standard ROM
+*Font Times-Bold: Standard "(1.05)" Standard ROM
+*% *Font NimbusRomNo9L-Medi: Standard "(1.05)" Standard ROM
+*Font Times-BoldItalic: Standard "(1.05)" Standard ROM
+*% *Font NimbusRomNo9L-MediItal: Standard "(1.05)" Standard ROM
+*Font Symbol: Special "(001.005)" Special ROM
+*% *Font StandardSymL: Special (001.005)" Special ROM
+*Font ZapfChancery-MediumItalic: Standard "(1.05)" Standard ROM
+*% *Font URWChanceryL-MediItal: Standard "(1.05)" Standard ROM
+*Font ZapfDingbats: Special (001.005)" Special ROM
+*% *Font Dingbats: Special (001.005)" Special ROM
+*% Then a few ghostscript extras
+*Font Charter-Roman: Standard "(2.0-1.0)" Standard ROM
+*Font CharterBT-Roman: Standard "(2.0-1.0)" Standard ROM
+*Font Charter-Italic: Standard "(2.0-1.0)" Standard ROM
+*Font CharterBT-Italic: Standard "(2.0-1.0)" Standard ROM
+*Font Charter-Bold: Standard "(2.0-1.0)" Standard ROM
+*Font CharterBT-Bold: Standard "(2.0-1.0)" Standard ROM
+*Font Charter-BoldItalic: Standard "(2.0-1.0)" Standard ROM
+*Font CharterBT-BoldItalic: Standard "(2.0-1.0)" Standard ROM
+*Font Utopia-Regular: Standard "(001.001)" Standard ROM
+*Font Utopia-Italic: Standard "(001.001)" Standard ROM
+*Font Utopia-Bold: Standard "(001.001)" Standard ROM
+*Font Utopia-BoldItalic: Standard "(001.001)" Standard ROM
+
+*% == Most of these set distiller parameters
+*% If the target device is not the Ghostscript pdfwrite device,
+*% then these should all be left at "Default"
+*OpenGroup: PDF
+
+*% == The pdfwrite device can select different color spaces
+*OpenUI *ColorModel/PDF Colour Model: PickOne
+*DefaultColorModel: Default
+*OrderDependency: 20 AnySetup *ColorModel
+*ColorModel Default: ""
+*ColorModel Grey: "<< /ProcessColorModel /DeviceGray >> setpagedevice"
+*ColorModel RGB: "<< /ProcessColorModel /DeviceRGB >> setpagedevice"
+*ColorModel CMYK: "<< /ProcessColorModel /DeviceCMYK >> setpagedevice"
+*CloseUI: *ColorModel
+
+*OpenUI *PDFSettings/PDF Settings: PickOne
+*DefaultPDFSettings: Default
+*OrderDependency: 30 AnySetup *PDFSettings
+*PDFSettings Default: ""
+*PDFSettings Screen: ".distillersettings /screen get setdistillerparams"
+*PDFSettings Ebook: ".distillersettings /ebook get setdistillerparams"
+*PDFSettings Printer: ".distillersettings /printer get setdistillerparams"
+*PDFSettings Prepress: ".distillersettings /prepress get setdistillerparams"
+*CloseUI: *PDFSettings
+
+*OpenUI *ColorImageFilter/PDF Colour Image Compression: PickOne
+*DefaultColorImageFilter: Default
+*OrderDependency: 40 AnySetup *ColorImageFilter
+*ColorImageFilter Default: ""
+*ColorImageFilter JPEG: "<< /AutoFilterColorImages false /ColorImageFilter /DCTEncode >> setdistillerparams"
+*ColorImageFilter Flate: "<< /AutoFilterColorImages false /ColorImageFilter /FlateEncode >> setdistillerparams"
+*CloseUI: *ColorImageFilter
+
+*OpenUI *GrayImageFilter/PDF Grey Image Compression: PickOne
+*DefaultGrayImageFilter: Default
+*OrderDependency: 40 AnySetup *GrayImageFilter
+*GrayImageFilter Default: ""
+*GrayImageFilter JPEG: "<< /AutoFilterGrayImages false /GrayImageFilter /DCTEncode >> setdistillerparams"
+*GrayImageFilter Flate: "<< /AutoFilterGrayImages false /GrayImageFilter /FlateEncode >> setdistillerparams"
+*CloseUI: *GrayImageFilter
+
+*OpenUI *MonoImageFilter/PDF Monochrome Image Compression: PickOne
+*DefaultMonoImageFilter: Default
+*OrderDependency: 40 AnySetup *MonoImageFilter
+*MonoImageFilter Default: ""
+*MonoImageFilter FaxG3/Fax G3: "<< /AutoFilterMonoImages false /MonoImageFilter /CCITTFaxEncode >> setdistillerparams"
+*MonoImageFilter Flate: "<< /AutoFilterMonoImages false /MonoImageFilter /FlateEncode >> setdistillerparams"
+*CloseUI: *MonoImageFilter
+
+*OpenUI *CompatibilityLevel/PDF Compatibility: PickOne
+*DefaultCompatibilityLevel: Default
+*OrderDependency: 40 AnySetup *CompatibilityLevel
+*CompatibilityLevel Default: ""
+*CompatibilityLevel 1.2: "<< /CompatibilityLevel 1.2 >> setdistillerparams"
+*CompatibilityLevel 1.3: "<< /CompatibilityLevel 1.3 >> setdistillerparams"
+*CompatibilityLevel 1.4: "<< /CompatibilityLevel 1.4 >> setdistillerparams"
+*CloseUI: *CompatibilityLevel
+
+*OpenUI *AutoRotatePages/PDF AutoRotatePages: PickOne
+*DefaultAutoRotatePages: Default
+*OrderDependency: 40 AnySetup *AutoRotatePages
+*AutoRotatePages Default: ""
+*AutoRotatePages None: "<< /AutoRotatePages /None >> setdistillerparams"
+*AutoRotatePages PageByPage: "<< /AutoRotatePages /PageByPage >> setdistillerparams"
+*AutoRotatePages All: "<< /AutoRotatePages /All >> setdistillerparams"
+*CloseUI: *AutoRotatePages
+
+*OpenUI *ParseDSCComments/PDF ParseDSCComments: PickOne
+*DefaultParseDSCComments: Default
+*OrderDependency: 40 AnySetup *ParseDSCComments
+*ParseDSCComments Default: ""
+*ParseDSCComments True: "<< /ParseDSCComments true >> setdistillerparams"
+*ParseDSCComments False: "<< /ParseDSCComments false >> setdistillerparams"
+*CloseUI: *ParseDSCComments
+
+*OpenUI *EmbedAllFonts/PDF EmbedAllFonts: PickOne
+*DefaultEmbedAllFonts: Default
+*OrderDependency: 40 AnySetup *EmbedAllFonts
+*EmbedAllFonts Default: ""
+*EmbedAllFonts True: "<< /EmbedAllFonts true >> setdistillerparams"
+*EmbedAllFonts False: "<< /EmbedAllFonts false >> setdistillerparams"
+*CloseUI: *EmbedAllFonts
+
+*OpenUI *SubsetFonts/PDF SubsetFonts: PickOne
+*DefaultSubsetFonts: Default
+*OrderDependency: 40 AnySetup *SubsetFonts
+*SubsetFonts Default: ""
+*SubsetFonts True: "<< /SubsetFonts true >> setdistillerparams"
+*SubsetFonts False: "<< /SubsetFonts false >> setdistillerparams"
+*CloseUI: *SubsetFonts
+
+*OpenUI *CompressPages/PDF Compress Pages: PickOne
+*DefaultCompressPages: Default
+*OrderDependency: 40 AnySetup *CompressPages
+*CompressPages Default: ""
+*CompressPages True: "<< /CompressPages true >> setdistillerparams"
+*CompressPages False: "<< /CompressPages false >> setdistillerparams"
+*CloseUI: *CompressPages
+
+*CloseGroup: PDF
+
+*% End of Ghostscript PDF Writer PPD file

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/gs_btokn.ps

@@ -0,0 +1,331 @@
+%    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_btokn.ps 8954 2008-08-08 04:22:38Z ray $
+% Initialization file for binary tokens.
+% When this is run, systemdict is still writable,
+% but everything defined here goes into level2dict.
+
+% Define whether or not to allow writing dictionaries.
+% This is a non-standard feature!
+/WRITEDICTS false def
+
+languagelevel 1 .setlanguagelevel
+level2dict begin
+
+% Initialization for the system name table.
+
+mark
+% 0
+	/abs /add /aload /anchorsearch /and
+	/arc /arcn /arct /arcto /array
+	/ashow /astore /awidthshow /begin /bind
+	/bitshift /ceiling /charpath /clear /cleartomark
+% 20
+	/clip /clippath /closepath /concat /concatmatrix
+	/copy /count /counttomark /currentcmykcolor /currentdash
+	/currentdict /currentfile /currentfont /currentgray /currentgstate
+	/currenthsbcolor /currentlinecap /currentlinejoin /currentlinewidth /currentmatrix
+% 40
+	/currentpoint /currentrgbcolor /currentshared /curveto /cvi
+	/cvlit /cvn /cvr /cvrs /cvs
+	/cvx /def /defineusername /dict /div
+	/dtransform /dup /end /eoclip /eofill
+% 60
+	/eoviewclip /eq /exch /exec /exit
+	/file /fill /findfont /flattenpath /floor
+	/flush /flushfile /for /forall /ge
+	/get /getinterval /grestore /gsave /gstate
+% 80
+	/gt /identmatrix /idiv /idtransform /if
+	/ifelse /image /imagemask /index /ineofill
+	/infill /initviewclip /inueofill /inufill /invertmatrix
+	/itransform /known /le /length /lineto
+% 100
+	/load /loop /lt /makefont /matrix
+	/maxlength /mod /moveto /mul /ne
+	/neg /newpath /not /null /or
+	/pathbbox /pathforall /pop /print /printobject
+% 120
+	/put /putinterval /rcurveto /read /readhexstring
+	/readline /readstring /rectclip /rectfill /rectstroke
+	/rectviewclip /repeat /restore /rlineto /rmoveto
+	/roll /rotate /round /save /scale
+% 140
+	/scalefont /search /selectfont /setbbox /setcachedevice
+	/setcachedevice2 /setcharwidth /setcmykcolor /setdash /setfont
+	/setgray /setgstate /sethsbcolor /setlinecap /setlinejoin
+	/setlinewidth /setmatrix /setrgbcolor /setshared /shareddict
+% 160
+	/show /showpage /stop /stopped /store
+	/string /stringwidth /stroke /strokepath /sub
+	/systemdict /token /transform /translate /truncate
+	/type /uappend /ucache /ueofill /ufill
+% 180
+	/undef /upath /userdict /ustroke /viewclip
+	/viewclippath /where /widthshow /write /writehexstring
+	/writeobject /writestring /wtranslation /xor /xshow
+	/xyshow /yshow /FontDirectory /SharedFontDirectory /Courier
+% 200
+	/Courier-Bold /Courier-BoldOblique /Courier-Oblique /Helvetica /Helvetica-Bold
+	/Helvetica-BoldOblique /Helvetica-Oblique /Symbol /Times-Bold /Times-BoldItalic
+	/Times-Italic /Times-Roman /execuserobject /currentcolor /currentcolorspace
+	/currentglobal /execform /filter /findresource /globaldict
+% 220
+	/makepattern /setcolor /setcolorspace /setglobal /setpagedevice
+	/setpattern
+% pad to 256
+	counttomark 256 exch sub { 0 } repeat
+% 256
+	/= /== /ISOLatin1Encoding /StandardEncoding
+% 260
+	([) cvn (]) cvn /atan /banddevice /bytesavailable
+	/cachestatus /closefile /colorimage /condition /copypage
+	/cos /countdictstack /countexecstack /cshow /currentblackgeneration
+	/currentcacheparams /currentcolorscreen /currentcolortransfer /currentcontext /currentflat
+% 280
+	/currenthalftone /currenthalftonephase /currentmiterlimit /currentobjectformat /currentpacking
+	/currentscreen /currentstrokeadjust /currenttransfer /currentundercolorremoval /defaultmatrix
+	/definefont /deletefile /detach /deviceinfo /dictstack
+	/echo /erasepage /errordict /execstack /executeonly
+% 300
+	/exp /false /filenameforall /fileposition /fork
+	/framedevice /grestoreall /handleerror /initclip /initgraphics
+	/initmatrix /instroke /inustroke /join /kshow
+	/ln /lock /log /mark /monitor
+% 320
+	/noaccess /notify /nulldevice /packedarray /quit
+	/rand /rcheck /readonly /realtime /renamefile
+	/renderbands /resetfile /reversepath /rootfont /rrand
+	/run /scheck /setblackgeneration /setcachelimit /setcacheparams
+% 340
+	/setcolorscreen /setcolortransfer /setfileposition /setflat /sethalftone
+	/sethalftonephase /setmiterlimit /setobjectformat /setpacking /setscreen
+	/setstrokeadjust /settransfer /setucacheparams /setundercolorremoval /sin
+	/sqrt /srand /stack /status /statusdict
+% 360
+	/true /ucachestatus /undefinefont /usertime /ustrokepath
+	/version /vmreclaim /vmstatus /wait /wcheck
+	/xcheck /yield /defineuserobject /undefineuserobject /UserObjects
+	/cleardictstack
+% 376
+	/A /B /C /D /E /F /G /H /I /J /K /L /M
+	/N /O /P /Q /R /S /T /U /V /W /X /Y /Z
+	/a /b /c /d /e /f /g /h /i /j /k /l /m
+	/n /o /p /q /r /s /t /u /v /w /x /y /z
+% 428
+	/setvmthreshold (<<) cvn
+	(>>) cvn /currentcolorrendering /currentdevparams /currentoverprint /currentpagedevice
+	/currentsystemparams /currentuserparams /defineresource /findencoding /gcheck
+% 440
+	/glyphshow /languagelevel /product /pstack /resourceforall
+	/resourcestatus /revision /serialnumber /setcolorrendering /setdevparams
+	/setoverprint /setsystemparams /setuserparams /startjob /undefineresource
+	/GlobalFontDirectory /ASCII85Decode /ASCII85Encode /ASCIIHexDecode /ASCIIHexEncode
+% 460
+	/CCITTFaxDecode /CCITTFaxEncode /DCTDecode /DCTEncode /LZWDecode
+	/LZWEncode /NullEncode /RunLengthDecode /RunLengthEncode /SubFileDecode
+	/CIEBasedA /CIEBasedABC /DeviceCMYK /DeviceGray /DeviceRGB
+	/Indexed /Pattern /Separation /CIEBasedDEF /CIEBasedDEFG
+% 480
+	/DeviceN
+% 481 -- end
+.packtomark .installsystemnames
+
+% Define printobject and writeobject.
+% These are mostly implemented in PostScript, so that we don't have to
+% worry about interrupts or callbacks when writing to the output file.
+
+% Define procedures for accumulating the space required to represent
+% an object in binary form.  The procedures for composite objects (arrays
+% and dictionaries) leave different results on the stack:
+%	<#refs> <#chars> <simple_obj> -proc- <#refs> <#chars>
+%	<#refs> <#chars> <array|dict> -proc- <array|dict> <#refs> <#chars>
+% This is required so that .writeobjects can also accumulate the actual
+% list of composite objects to write in the binary object sequence.
+/cntdict mark
+  /integertype /pop load
+  /realtype 1 index
+  /marktype 1 index
+  /nulltype 1 index
+  /booleantype 1 index
+  /nametype { length add } bind
+  /stringtype 1 index
+  /arraytype null
+  /dicttype null
+.dicttomark def
+/.cntobj {	% <<arguments and results as for procedures in cntdict>>
+  dup type //cntdict exch get exec
+} .bind def
+cntdict /arraytype {
+  dup dup length 5 -1 roll add 4 2 roll { .cntobj } forall
+} bind put
+cntdict /dicttype {
+  WRITEDICTS {
+    dup dup length 2 mul 5 -1 roll add 4 2 roll {
+	% We have to use .execn here, rather than simply rolling the
+	% value under the top elements, because key might involve arrays
+	% or dictionaries.
+      cvlit {.cntobj} exch 2 .execn .cntobj
+    } forall
+  } {
+    /writeobject .systemvar /typecheck signalerror
+  } ifelse
+} bind put
+
+/w2dict mark
+  /nametype { 2 copy .writecvs pop } bind
+  /stringtype 1 index
+.dicttomark def
+
+/.bosheader {		% <top_length> <total_length> <string8> .bosheader
+			%   <string4|8>
+  dup 0 currentobjectformat 127 add put		% object format => BOS tag
+  2 index 255 le 2 index 65531 le and {
+	% Use the short header format: tag toplen(1) totlen(2)
+    exch 4 add exch
+    0 4 getinterval
+    dup 1 5 -1 roll put
+  } {
+	% Use the long header format: tag 0(1) toplen(2) totlen(4)
+    exch 8 add exch
+     0 0 4 2 roll .bosobject exch pop exch pop	% store with byte swapping
+  } ifelse		% Stack: shortlen str
+  exch dup -8 bitshift exch 255 and	% str hibyte lobyte
+  currentobjectformat 1 and 0 eq {	% lsb first
+    exch
+  } if
+  2 index 3 3 -1 roll put
+  1 index 2 3 -1 roll put
+} .bind def
+
+/.writeobjects {	% <file> <tag> <array> .writeobjects -
+  mark exch
+
+	% Count the space required for refs and strings.
+
+  dup length 0 3 -1 roll
+	% Stack: file tag -mark- #refs #chars array
+  dup 4 1 roll { .cntobj } forall
+
+	% Write the header.
+
+	% Stack: file tag -mark- array1 ... (array|dict)N #refs #chars
+  counttomark 3 add -2 roll 4 1 roll
+	% Stack: -mark- array1 ... (array|dict)N tag #refs #chars file
+  dup counttomark 1 sub index length
+  4 index 3 bitshift 4 index add
+  (xxxxxxxx) .bosheader writestring
+
+	% Write the objects per se.
+
+  3 1 roll pop
+  counttomark 1 sub index length 3 bitshift exch
+  3 bitshift
+	% Stack: -mark- array1 ... (array|dict)N tag file ref# char#
+  counttomark 4 sub {
+    counttomark -1 roll dup 6 1 roll
+	% Stack: ... objN tag file ref# char# objN
+    dup type /dicttype eq {		% can't be first object
+      { 5 1 roll (x\000xxxxxx) .bosobject
+	3 index exch writestring
+	4 -1 roll (x\000xxxxxx) .bosobject
+	3 index exch writestring
+      } forall
+    } {
+      { (x\000xxxxxx) .bosobject
+	dup 1 6 index put
+	3 index exch writestring
+	4 -1 roll pop 0 4 1 roll	% clear tag
+      } forall
+    } ifelse
+  } repeat
+
+	% Write the strings and names.
+
+  pop pop exch pop
+	% Stack: -mark- array1 ... array|dictN file
+  counttomark 1 sub {
+    counttomark -1 roll {
+		% The counting pass ensured that the keys and values
+		% of any dictionary must be writable objects.
+		% Hence, we are processing a dictionary iff
+		% the next-to-top stack element is not a file.
+      1 index type /filetype ne {
+	exch 2 index exch dup type //w2dict exch .knownget
+	 { exec } { pop } ifelse pop
+      } if
+      dup type //w2dict exch .knownget { exec } { pop } ifelse
+    } forall
+  } repeat
+
+	% Clean up.
+
+	% Stack: -mark- file
+  pop pop
+
+} .bind def
+
+/printobject {		% <obj> <tag> printobject -
+  currentobjectformat 0 eq {
+      /printobject .systemvar /undefined signalerror
+  } if
+  (%stdout) (w) file 2 index 2 index .writeobject pop pop
+} odef
+/writeobject {		% <file> <obj> <tag> writeobject -
+  currentobjectformat 0 eq {
+      /writeobject .systemvar /undefined signalerror
+  } if
+  2 .argindex pop	% check # of args
+  .writeobject
+} odef
+/.writeobject {
+  3 copy exch
+		% We must allocate the array in local VM
+		% to avoid a possible invalidaccess.
+  .currentglobal false .setglobal exch 1 array astore exch .setglobal
+  .writeobjects pop pop pop
+} .bind def
+
+% Implement binary error message output.
+/.objectprinttest {		% <obj> .objectprinttest -
+		% This is a pseudo-operator so it will restore the stack
+		% if it gets an error.
+  mark 0 0 3 .argindex .cntobj cleartomark pop
+} bind odef
+/.printerror {
+  $error /binary get .languagelevel 2 ge and {
+    currentobjectformat 0 ne {
+      [ /Error $error /errorname get $error /command get
+		% Convert the object with cvs if it isn't printable.
+      dup { .objectprinttest } .internalstopped {
+	pop 100 string cvs
+      } if
+      false ] 250 printobject
+    }
+    //.printerror	% known to be a procedure
+    ifelse
+  }
+  //.printerror		% known to be a procedure
+  ifelse
+} bind def
+
+currentdict /cntdict .undef
+currentdict /w2dict .undef
+
+% End of level2dict
+
+end
+.setlanguagelevel

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/gs_ce_e.ps

@@ -0,0 +1,47 @@
+%    Copyright (C) 1999 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_ce_e.ps 6300 2005-12-28 19:56:24Z giles $
+% Define the Adobe CE (Central European) encoding vector.
+% We define it by differences from the ISOLatin1Encoding vector.
+/CEEncoding
+ISOLatin1Encoding 0 39 getinterval aload pop
+% 047
+    /quotesingle
+ISOLatin1Encoding 40 56 getinterval aload pop
+% 140
+    /grave
+ISOLatin1Encoding 97 31 getinterval aload pop
+% 20x
+  /.notdef /.notdef /quotesinglbase /.notdef /quotedblbase /ellipsis /dagger /daggerdbl
+  /.notdef /perthousand /Scaron /guilsinglleft /Sacute /Tcaron /Zcaron /Zacute
+  /.notdef /grave /acute /circumflex /tilde /bullet /endash /emdash
+  /.notdef /trademark /scaron /guilsinglright /sacute /tcaron /zcaron /zacute
+% 24x
+  /space /caron /breve /Lslash /currency /Aogonek /brokenbar /section
+  /dieresis /copyright /Scommaaccent /guillemotleft /logicalnot /hyphen /registered /Zdotaccent
+  /degree /plusminus /ogonek /lslash /acute /mu /paragraph /periodcentered
+  /cedilla /aogonek /scommaaccent /guillemotright /Lcaron /hungarumlaut /lcaron /zdotaccent
+% 30x
+  /Racute /Aacute /Acircumflex /Abreve /Adieresis /Lacute /Cacute /Ccedilla
+  /Ccaron /Eacute /Eogonek /Edieresis /Ecaron /Iacute /Icircumflex /Dcaron
+  /Dcroat /Nacute /Ncaron /Oacute /Ocircumflex /Ohungarumlaut /Odieresis /multiply
+  /Rcaron /Uring /Uacute /Uhungarumlaut /Udieresis /Yacute /Tcommaaccent /germandbls
+% 34x
+  /racute /aacute /acircumflex /abreve /adieresis /lacute /cacute /ccedilla
+  /ccaron /eacute /eogonek /edieresis /ecaron /iacute /icircumflex /dcaron
+  /dcroat /nacute /ncaron /oacute /ocircumflex /ohungarumlaut /odieresis /divide
+  /rcaron /uring /uacute /uhungarumlaut /udieresis /yacute /tcommaaccent /dotaccent
+256 packedarray .defineencoding

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/gs_cet.ps

@@ -0,0 +1,73 @@
+%!PS
+% Set defaults for Ghostscript to match Adobe CPSI behaviour for CET
+% $Id: gs_cet.ps 10679 2010-02-01 00:02:04Z alexcher $
+
+% do this in the server level so it is persistent across jobs
+true 0 startjob not {
+  (*** Warning: CET startup is not in server default) = flush
+} if
+
+300 .sethiresscreen	% needed for language switch build since it
+			% processes gs_init.ps BEFORE setting the resolution
+
+0 array 0 setdash % CET 09-08 wants local setdash
+
+currentglobal true setglobal
+
+{
+  systemdict dup dup dup
+  /version (3017.102) put		% match CPSI 3017.102
+  /product (PhotoPRINT SE 5.0v2) put	% match CPSI 3017.102
+  /revision 0 put			% match CPSI 3017.103 Tek shows revision 5
+  /serialnumber 233640 put		% match CPSI 3017.102 Tek shows serialnumber 1401788461
+  systemdict /deviceinfo undef          % for CET 20-23-1
+} superexec
+
+{ } bind dup
+setblackgeneration
+setundercolorremoval
+0 array cvx readonly dup dup dup setcolortransfer
+
+% CPSI doesn't define "Localization" resource.
+/Localization /Category undefineresource
+
+% Redefine Font category to return -1 (unknown) VM usage
+% in all cases to avoid differences between hosts.
+/Font /Category findresource
+dup length dict copy 
+dup
+dup /.loadfontresource get
+dup length array copy cvx
+dup 1 0 put
+dup 7 -1 put
+/.loadfontresource exch put
+/Font exch /Category defineresource pop
+
+% Some previously compile time options such as USE_ADOBE_CMYK_RGB
+% and GS_CHAR_FILL are now dynamic. Force CPSI compatibility.
+true .setCPSImode
+
+setglobal
+
+% Remove all but 'letter' page size
+<<
+currentpagedevice /InputAttributes get
+1 1 2 index length 1 sub {
+  1 index exch undef
+} for
+/InputAttributes exch
+>>
+setpagedevice
+
+% Patch setsmoothness, currentsmoothness for a better view of shadings :
+userdict /.smoothness currentsmoothness put
+/setsmoothness { 
+   dup type dup /integertype eq exch /realtype eq or {
+     userdict /.smoothness 3 2 roll cvr put 
+   } {
+     /setsmoothness .systemvar /typecheck signalerror
+   } ifelse
+} bind odef
+/currentsmoothness { userdict /.smoothness get } bind odef % for 09-55.PS, 09-57.PS .
+
+false 0 startjob pop		% re-enter encapsulated mode

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/gs_cff.ps

@@ -0,0 +1,856 @@
+%    Copyright (C) 1997, 1998, 1999, 2000 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_cff.ps 9351 2009-01-13 22:17:21Z alexcher $
+% Loader for CFF (compressed) fonts, including OpenType CFFs.
+% The following are not implemented yet:
+%	Deleted entries in the Name Index
+%	Embedded PostScript
+%	Multiple Master fonts
+%	Chameleon fonts
+%	Synthetic fonts
+
+% ---------------- Font loading machinery ---------------- %
+
+% Augment the FONTPATH machinery so it recognizes OpenType CFF font sets.
+
+/.scanfontheaders where {
+  pop /.scanfontheaders [
+   .scanfontheaders aload pop (OTTO*)
+  ] def
+} if
+
+% Load a font file that might be an OpenType CFF font set.
+
+% <file> .loadfontfile -
+/.loadnonottofontfile /.loadfontfile load def
+/.loadfontfile {
+  dup 4 string .peekstring pop (OTTO) eq {
+		% If this is a font at all, it's an OpenType CFF font set.
+    .init_otto_font_file
+	% Use a random FontSet resource name.  ****** WRONG ******
+    realtime rand xor =string cvs exch //false //false
+    ReadData pop
+  } {
+		% Not a TrueType font.
+    .loadnonottofontfile
+  } ifelse
+} bind def
+
+% <file> .init_otto_font_file <file>
+/.init_otto_font_file {
+  /FontSetInit /ProcSet findresource begin
+  2 dict begin
+  /f exch def /cff null def
+  card32 pop card16 6 { next pop } repeat dup {
+		% Stack: numtables tablesleft
+    dup 0 eq {
+      pop pop /.loadottofontfile cvx /invalidfont signalerror
+    } if
+    f 4 string readstring pop (CFF ) eq { sub exit } if
+    f 12 string readstring pop pop 1 sub	% skip to next table
+  } loop
+		% Stack: tablesread
+  card32 pop card32 card32
+		% Stack: tablesread start length
+  exch 3 -1 roll 1 add 16 mul 12 add sub
+  f exch subfilefilter flushfile	% skip to start
+  f exch subfilefilter end
+} bind def
+
+53 dict begin
+
+% ---------------- Standard strings (actually names) ---------------- %
+
+/StandardStrings mark
+	% The initial StandardStrings that that denote characters are
+	% defined as a pseudo-Encoding.
+% 0
+  /CFFStandardStrings .findencoding aload pop
+% 379
+  (001.000)
+% 380
+  (001.001) (001.002) (001.003) /Black /Bold
+  /Book /Light /Medium /Regular /Roman
+  /Semibold
+.packtomark def
+
+% ---------------- Standard encodings ---------------- %
+
+/StandardEncodings [
+
+% StandardEncoding
+mark
+  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 0 0 0 0 0 0
+  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 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 0 0 0 0 0 0 0
+  0 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110
+  0 111 112 113 114 0 115 116 117 118 119 120 121 122 0 123
+  0 124 125 126 127 128 129 130 131 0 132 133 0 134 135 136
+  137 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+  0 138 0 139 0 0 0 0 140 141 142 143 0 0 0 0
+  0 144 0 0 0 145 0 0 146 147 148 149 0 0 0 0
+.packtomark
+
+% ExpertEncoding
+mark
+  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 0 0 0 0 0 0
+  1 229 230 0 231 232 233 234 235 236 237 238 13 14 15 99
+  239 240 241 242 243 244 245 246 247 248 27 28 249 250 251 252
+  0 253 254 255 256 257 0 0 0 258 0 0 259 260 261 262
+  0 0 263 264 265 0 266 109 110 267 268 269 0 270 271 272
+  273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288
+  289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 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 0 0 0 0 0 0 0
+  0 304 305 306 0 0 307 308 309 310 311 0 312 0 0 313
+  0 0 314 315 0 0 316 317 318 0 0 0 158 155 163 319
+  320 321 322 323 324 325 0 0 326 150 164 169 327 328 329 330
+  331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346
+  347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362
+  363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378
+.packtomark
+
+] readonly def
+
+% ---------------- Standard Charsets ---------------- %
+
+% We include an explicit 0 at the beginning of each charset.
+
+/StandardCharsets [
+
+% ISOAdobe
+mark
+  0
+  1 1 228 { } for
+.packtomark
+
+% Expert
+mark
+  0
+  1 229 230 231 232 233 234 235 236 237 238 13 14 15 99 239
+  240 241 242 243 244 245 246 247 248 27 28 249 250 251 252 253
+  254 255 256 257 258 259 260 261 262 263 264 265 266 109 110 267
+  268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283
+  284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299
+  300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315
+  316 317 318 158 155 163 319 320 321 322 323 324 325 326 150 164
+  169 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341
+  342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357
+  358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373
+  374 375 376 377 378
+.packtomark
+
+% ExpertSubset
+mark
+  0
+  1 231 232 235 236 237 238 13 14 15 99 239 240 241 242 243
+  244 245 246 247 248 27 28 249 250 251 253 254 255 256 257 258
+  259 260 261 262 263 264 265 266 109 110 267 268 269 270 272 300
+  301 302 305 314 315 158 155 163 320 321 322 323 324 325 326 150
+  164 169 327 328 329 330 331 332 333 334 335 336 337 338 339 340
+  341 342 343 344 345 346
+.packtomark
+
+] readonly def
+
+% ---------------- Font loading ---------------- %
+
+% ------ Utilities ------ %
+
+/advance {	% <n> advance -
+  f cff eq { pos add /pos exch store } { pop } ifelse
+} bind def
+/next {		% - next <byte>
+  f read {
+    1 advance
+    CFFDEBUG { (  ) print dup = } if
+  } {
+    0
+    CFFDEBUG { (  Out of range access, assuming 0) = } if
+    /pdfformaterror where {
+      pop 
+      (   **** Warning: Out of range access to a CFF table, assuming 0.\n)
+      pdfformaterror
+    } if
+  } ifelse
+} bind def
+/next2 {	% - next2 <byte1> <byte2>
+  f read {
+    f read {
+      2 advance
+      CFFDEBUG { (  ) print 1 index =only (,) print dup = } if
+    } {
+      1 advance
+      CFFDEBUG { (  ) print dup = } if
+    } ifelse
+  } if
+} bind def
+/nextstring {	% <length> nextstring <string>
+  dup 0 eq {
+    pop ()
+  } {
+    string f exch readstring pop dup length advance
+    CFFDEBUG { (  ) print dup == } if
+  } ifelse
+} bind def
+/card8		% - card8 <card8>
+ /next load
+def
+/card16 {	% - card16 <card16>
+  next2 exch 8 bitshift add
+} bind def
+/card32 {	% - card32 <card32>
+  card16 16 bitshift card16 add
+} bind def
+/offsetprocs [
+  /card8 load
+  /card16 load
+  { card8 16 bitshift card16 add } bind
+  /card32 load
+] readonly def
+/offsetproc {	% <offsize> offsetproc <proc>
+  1 sub //offsetprocs exch get
+} bind def
+/offset {	% <offsize> offset <offset>
+  offsetproc exec
+} bind def
+/sid		% - <sid> sid
+  /card16 load
+def
+/Index {	% <name> Index <name> <array>
+  CFFDEBUG { (% reading Index: ) print dup = } if
+  mark card16
+  dup 0 ne {
+    1 exch next
+    dup 0 eq { 
+      pop       % skip incorrect index, bug 689854
+    } {
+      offsetproc dup exec pop exch {
+        dup exec dup 4 -1 roll sub 3 1 roll exch
+      } repeat
+    } ifelse pop
+  } if pop .packtomark
+  CFFDEBUG { (% Index lengths = ) print dup === } if
+  [ exch { nextstring } forall ] readonly
+} bind def
+/tokens {	% - tokens <num1> ... <op#> (op# = 12 means EOF)
+  {
+    f read not { 12 exit } if
+    CFFDEBUG { (..) print dup = } if
+    1 advance
+    dup 12 eq { pop next 32 add exit } if
+    dup 28 lt { exit } if
+    dup 32 lt {
+      28 sub {
+	{ card16 32768 xor 32768 sub }
+	{ 4 offset dup 16#7fffffff gt { -1 32 bitshift add } if }
+	{ tokenreal }
+	{ 31 exit }
+      } exch get exec
+    } {
+      dup 247 lt {
+	139 sub
+      } {
+	247 sub {
+	  { next 108 add }
+	  { next 364 add }
+	  { next 620 add }
+	  { next 876 add }
+	  { next 108 add neg }
+	  { next 364 add neg }
+	  { next 620 add neg }
+	  { next 876 add neg }
+	  % 255 is deliberately omitted and will cause a rangecheck
+	} exch get exec
+      } ifelse
+    } ifelse
+  } loop
+} bind def
+/tokenbuf 100 string def
+/tokenput {	% <index> <str> tokenput <index+length>
+  dup length 3 1 roll
+  tokenbuf 2 index 3 -1 roll putinterval add
+} bind def
+/tokenrealarray [
+ (0)(1)(2)(3)(4)(5)(6)(7)(8)(9)(.)(E)
+ (E-)
+ ()		% ignore the invalid value
+ (-)
+ { exit } bind
+] readonly def
+/tokenreal {	% - tokenreal <float>
+  0 {
+    next exch 1 index -4 bitshift tokenrealarray exch get exec tokenput
+		% We must leave the byte on the stack temporarily so that
+		% the exit will see a consistent stack state.
+    1 index 15 and tokenrealarray exch get exec tokenput exch pop
+  } loop
+  tokenbuf 0 3 -1 roll getinterval cvr exch pop
+} bind def
+/Dict {		% <opsdict> Dict -
+  /opdict exch store {
+    mark tokens
+    CFFDEBUG { (tokens: ) print ] dup === mark exch aload pop } if
+    opdict exch .knownget { exec } if cleartomark
+  } loop cleartomark
+} bind def
+/idstring {	% <sid> idstring <string|name>
+  dup 391 lt { //StandardStrings } { 391 sub strings } ifelse exch get
+} bind def
+/idname {	% <sid> idname <name>
+  idstring dup type /nametype ne { cvn } if
+} bind def
+/subfilefilter {	% <file> <length> subfilefilter <filter>
+	% SubFileDecode interprets a length of 0 as infinite.
+  dup 0 le { pop pop () 0 } if () /SubFileDecode filter
+} bind def
+
+% ------ Top dictionary ------ %
+
+/offput {	% <offset> <proc> offput -
+  1 index 0 le
+  CFFDEBUG { dup { (not ) print } if (queued: ) print 2 index =only ( ) print 1 index === } if
+  { pop pop
+  }
+  { currentdict exch aload length 1 add packedarray cvx
+      offsets 3 1 roll put
+  }
+  ifelse
+} bind def
+/queueput {	% <font> <proc> queueput -
+  16#7fffffff offsets { pop .min } forall
+  pos sub nextstring
+  3 1 roll aload length 2 add packedarray cvx
+  [ queued aload pop counttomark 2 add -1 roll ]
+  /queued exch store
+} bind def
+/printvk {	% <value> <key> printvk <value> <key>
+  CFFDEBUG { (\t% ) print dup =only ( = ) print 1 index === } if
+} bind def
+/xxput {	% <value> <key> <dict> xxput -
+  3 1 roll exch put
+} bind def
+/putfi {	% <value> <key> putfi -
+  printvk FontInfo xxput
+} bind def
+/xdef {		% <value> <key> xdef -
+  exch def
+} bind def
+/pxdef {	% <value> <key> pxdef -
+  printvk xdef
+} bind def
+/topdictops mark
+  12 { CFFDEBUG { (\t% EOD) = } if exit }
+  0 { idstring /version putfi }
+  1 { idstring /Notice putfi }
+  32 { idstring /Copyright putfi }
+  2 { idstring /FullName putfi }
+  3 { idstring /FamilyName putfi }
+  4 { idstring /Weight putfi }
+  33 { 0 ne /isFixedPitch putfi }
+  34 { /ItalicAngle putfi }
+  35 { /UnderlinePosition putfi }
+  36 { /UnderlineThickness putfi }
+  37 { /PaintType pxdef }
+  38 { /FontType pxdef }		% actually CharstringType
+  39 { counttomark array astore /FontMatrix pxdef }
+  13 { /UniqueID pxdef }
+  5 { counttomark array astore /FontBBox pxdef }
+  40 { /StrokeWidth pxdef }
+  14 { counttomark array astore /XUID pxdef }
+  15 {
+    /charset printvk pop
+    dup StandardCharsets length lt {
+      StandardCharsets exch get /charset xdef
+    } {
+      { queuecharset } offput
+    } ifelse
+  }
+  16 {
+    /Encoding printvk pop
+    dup StandardEncodings length lt {
+      /Encoding xdef
+    } {
+      { queueEncoding } offput
+    } ifelse
+  }
+  17 { { readCharStrings } offput }
+  18 { exch /readPrivate cvx 2 packedarray offput }
+	% CIDFont operators
+  62 {		% ROS, must be first in a CIDFont
+    currentdict /FontType undef
+    currentdict /Encoding undef
+    currentdict /FontMatrix undef
+    /CIDFontVersion 0 def
+    /CIDFontRevision 0 def
+    /CIDFontType 0 def
+    /CIDCount 8720 def % Default value defined in CFF spec.
+    3 dict begin
+    /Supplement pxdef
+    idstring dup type /nametype eq { .namestring } if /Ordering pxdef
+    idstring dup type /nametype eq { .namestring } if /Registry pxdef
+    /CIDSystemInfo currentdict end def
+  }
+  63 { /CIDFontVersion pxdef }
+  64 { /CIDFontRevision pxdef }
+  65 { /CIDFontType pxdef }
+  66 { /CIDCount pxdef }
+  67 { /UIDBase pxdef }
+  68 { { readFDArray } offput }
+  69 { { readFDSelect } offput }
+	% This operator only appears in a FDArray element.
+	% We don't really need it, so ignore an error.
+  70 { { idstring } .internalstopped { pop pop } { /FontName pxdef } ifelse }
+.dicttomark readonly def
+
+% readcharset and readFDSelect may require the length of CharStringArray,
+% but these structures may occur in the file before the CharStrings.
+% If that happens, use a hack: assume that all the data up to the next
+% queued read should be read.
+
+/charstringcount {	% <font> charstringcount <count> true
+			% <font> charstringcount <length> false
+  /CharStringArray .knownget {
+    length true
+  } {
+	% Hack: look for the next queued read.
+    16#7fffffff offsets { pop .min } forall
+    pos sub false
+  } ifelse
+} bind def
+
+/readCharStrings {	% <font> readCharStrings -
+  /CharStringArray Index put
+} bind def
+
+% ------ Charsets and encodings ------ %
+
+% Note: formats 1 and 2 can overflow the operand stack.
+% We'll fix this if it ever becomes necessary.
+/charsetcount {
+  charstringcount { 1 sub } { 2 idiv } ifelse
+} bind def
+/charsetformats [
+{ [ 0 3 -1 roll charsetcount { sid } repeat ]
+} bind
+{ [ 0 3 -1 roll charsetcount {
+    dup 0 eq { pop exit } if
+    sid card8 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
+  } loop ]
+} bind
+{ [ 0 3 -1 roll charsetcount {
+    dup 0 eq { pop exit } if
+    sid card16 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
+  } loop ]
+} bind
+] readonly def
+/queuecharset {		% <font> queuecharset -
+  { readcharset } queueput
+} bind def
+/readcharset {		% <data> <font> readcharset -
+  begin 0 () /SubFileDecode filter /f exch store
+  charsetformats next get currentdict exch exec /charset exch def end
+} bind def
+
+/encodingformats [
+{ 1 1 next { next exch Encoding 3 1 roll put } for
+} bind
+{ 1 next {
+    next next 1 add {
+			% Stack: gid code
+      Encoding 1 index 3 index put
+      exch 1 add exch 1 add
+    } repeat pop
+  } repeat pop
+} bind
+] readonly def
+/queueEncoding {	% <font> queueEncoding -
+  { readEncoding } queueput
+} bind def
+/readEncoding {		% <data> <font> readEncoding -
+  begin 0 () /SubFileDecode filter /f exch store
+  /Encoding [ 256 { /.notdef } repeat ] def
+  next encodingformats 1 index 127 and get exec
+  128 ge {
+			% Read supplementary encodings.
+    next {
+      Encoding next sid idname put
+    } repeat
+  } if end
+} bind def
+
+% ------ FDArray and FDSelect ------ %
+
+/readFDArray {		% <font> readFDArray -
+  /FDarray Index exch pop exch
+  2 dict begin /f null def begin
+  [ exch {
+    dup length subfilefilter /f exch store
+    10 dict begin
+    /FontType 2 def
+    /PaintType 0 def
+    /FontMatrix [0.001 0 0 0.001 0 0] def
+    /Private 20 dict def
+    //topdictops Dict currentdict end
+  } forall ] /FDArray xdef end end
+} bind def
+
+/fdselectformats [
+% Note: this procedure can overflow the operand stack.
+% We'll fix this if it ever becomes necessary.
+{ [ exch charstringcount pop { card8 } repeat ] } bind	% Format 0
+{ /FDSelect cvx /invalidfont signalerror } bind		% Format 1
+dup							% Format 2
+% The following procedure does not use excessive op-stack space.
+{ pop 65535 array card16 card16 exch			% Format 3
+  { % Stack: array previndex
+    card8 card16 
+    exch 1 index 4 -1 roll
+    exch 1 exch 1 sub
+    { 3 index exch 2 index put } for pop
+  } repeat
+  % now resize the array to the final index.
+  0 exch getinterval
+} bind
+] readonly def
+
+/readFDSelect {		% <font> readFDSelect -
+  begin fdselectformats next get currentdict exch exec /FDSelect exch def end
+} bind def
+
+
+% ------ Private dictionary ------ %
+
+/deltarray {		% -mark- <num1> ... deltarray <num1'> ...
+  0 counttomark 1 sub { counttomark -1 roll add dup } repeat pop
+  counttomark array astore
+} bind def
+
+/privatedictops mark
+  12 { CFFDEBUG { (\t% EOD) = } if exit }
+  6 { deltarray /BlueValues pxdef }
+  7 { deltarray /OtherBlues pxdef }
+  8 { deltarray /FamilyBlues pxdef }
+  9 { deltarray /FamilyOtherBlues pxdef }
+  41 { /BlueScale pxdef }
+  42 { /BlueShift pxdef }
+  43 { /BlueFuzz pxdef }
+  10 { 1 array astore /StdHW pxdef }
+  11 { 1 array astore /StdVW pxdef }
+  44 { deltarray /StemSnapH pxdef }
+  45 { deltarray /StemSnapV pxdef }
+  46 { 0 ne /ForceBold pxdef }
+  47 { /ForceBoldThreshold pxdef }
+  48 { /lenIV pxdef }
+  49 { /LanguageGroup pxdef }
+  50 { /ExpansionFactor pxdef }
+  51 { /initialRandomSeed pxdef }
+  19 { PrivateStart add { readSubrs } offput }
+  20 { /defaultWidthX pxdef }
+  21 { /nominalWidthX pxdef }
+	% Multiple Master fonts only
+  59 { /NDV pxdef }
+  60 { /CDV pxdef }
+  61 { /lenBuildCharArray pxdef }
+.dicttomark readonly def
+
+/readPrivate {		% <font> <size> readPrivate -
+  2 dict begin
+  f 3 1 roll exch       % f <size> <font> 
+  StringCache queued_offset known {
+    /PrivateStart queued_offset def
+  } {
+    /PrivateStart pos def
+    1 index 0 gt {
+      f 2 index string readstring pop
+    } {
+      ()
+    } ifelse
+    StringCache queued_offset 2 index put
+    0 () /SubFileDecode filter
+    /f exch store
+  } ifelse
+  dup /FontType .knownget not { 2 } if exch
+  /Private get begin
+		% Default lenIV to -1 even for Type 1 CharStrings.
+  2 ne { /lenIV -1 def } if
+  //privatedictops Dict end
+  exch /f exch store advance
+  end
+} bind def
+
+/readSubrs {		% <font> readSubrs -
+  /Subrs Index put
+} bind def
+
+% ------ Main program ------ %
+
+% Clean up after finishing a font.
+/cleanupFont {		% (currentdict) cleanupFont -
+		% Remove unwanted entries.
+  currentdict /charset undef
+  currentdict /CharStringArray undef
+} bind def
+
+% Update the Encoding and CharStrings for a real font.
+/finishFont {		% (currentdict) finishFont -
+		% Construct the real Encoding.
+		% The value of Encoding is either a number, for predefined
+		% encodings, or an array of mixed GIDs and names.
+  /Encoding mark Encoding
+  CFFDEBUG { (Encoding: ) print dup === flush } if
+  dup type /integertype eq {
+    StandardEncodings exch get { idname } forall
+  } {
+    {
+      dup type /integertype eq { charset exch get idname } if
+    } forall
+  } ifelse .packtomark def
+		% Construct the CharStrings.
+		% Note that they may only correspond to an initial
+		% subset of the charset.
+  /CharStrings charset length CharStringArray length .min dict def
+  CFFDEBUG {
+    charset length =only ( charset ) print
+    CharStringArray length =only ( CharStringArray) =
+    charset == flush
+  } if
+  0 1 CharStrings maxlength 1 sub {
+    dup CharStringArray exch get
+    exch charset exch get idstring CharStrings xxput
+  } for
+  cleanupFont
+} bind def
+
+% Replace CharStrings with GlyphDirectory for a CIDFont;
+% Move GlobalSubrs to descendent fonts.
+/finishCIDFont {	% (currentdict) finishCIDFont -
+		% Construct the GlyphDirectory, similar to CharStrings.
+  /FDBytes FDArray length 1 gt { 1 } { 0 } ifelse def
+  /GlyphDirectory charset length CharStringArray length .min dict def
+  CFFDEBUG {
+    charset length =only ( charset ) print
+    CharStringArray length =only ( CharStringArray) =
+    charset == flush
+  } if
+  0 1 GlyphDirectory maxlength 1 sub {
+    dup CharStringArray exch get
+		% If there is more than one FDArray entry, add the font
+		% index to the beginning of each charstring.
+    FDBytes 1 eq {
+      FDSelect 2 index get
+      1 string dup 0 4 -1 roll put exch concatstrings
+    } if
+    exch charset exch get GlyphDirectory xxput
+  } for
+
+  Private /GlobalSubrs .knownget {
+    FDArray {
+    /Private get /GlobalSubrs 2 index put
+    } forall
+    pop
+    Private /GlobalSubrs undef
+  } if
+
+		% Clean up.
+  currentdict /FDSelect undef
+  cleanupFont
+} bind def
+
+% PDF may load OpenType font containing ordinary CFF data as a CIDFont.
+% Convert the ordinary font to a CIDFont.
+/makeCIDFont {        % (currentdict) finishCIDFont -
+  /CIDFontType 0 def
+  /FDBytes 0 def
+  /GDBytes 0 def
+  /CIDMapOffset 0 def
+
+  /CIDSystemInfo 3 dict begin  % bogus
+    /Registry   (Adobe) def
+    /Ordering   (Identity) def
+    /Supplement 0 def
+  currentdict end def
+
+  /FDArray 4 dict begin
+    /FontMatrix dup load { 1000 0 0 1000 0 0 } matrix concatmatrix def
+    /Private    dup load def
+    /FontType   dup load def
+    /PaintType  dup load def
+  currentdict end 1 array astore def
+
+  /FontType 9 def
+
+  /GlyphDirectory CharStringArray def
+  /CIDCount GlyphDirectory length def
+
+  currentdict /Private undef
+  currentdict /Encoding undef
+  currentdict /CharStrings undef
+  currentdict /UniqueID undef
+  currentdict /XUID undef
+  cleanupFont
+} bind def
+
+% We need to pass the file as a parameter for the sake of the PDF
+% interpreter. Also for the sake of PDF, a flag forces the font
+% to be defined as <resname> instead of the name embedded in the data.
+% This is needed for subsetted fonts; it is valid if the CFF
+% contains only a single font.
+% Finally, PDF interpreter may request creation of CIDFont out of an
+% ordinary CFF font.
+/StartData {          % <resname> <nbytes> StartData -
+  currentfile exch subfilefilter //false //false ReadData pop
+} bind def
+/ReadData {           % <resname> <file> <forceresname> <forcecid> ReadData <fontset>
+	% Initialize.
+
+  30 dict begin
+  /forcecidfont exch def
+  /forceresname exch def
+  /cff exch def
+  /pos 0 def
+  /resname exch cvlit def
+  /DEBUG CFFDEBUG def	% bring the binding closer
+  /StringCache 1 dict def % Private DICT may be reused.
+
+	% Read the header.
+
+  /f cff def
+  /vmajor next def
+  /vminor next def
+  /hdrsize next def
+  /aoffsize next def
+  hdrsize 4 gt {
+    hdrsize 4 sub dup advance
+    f exch () /SubFileDecode filter flushfile
+  } if
+
+	% Read the Indexes.
+
+  /names Index def
+  /topdicts Index def
+  /strings Index def
+  /gsubrs Index def
+
+	% Read the top Dicts.
+
+  /offsets 50 dict def
+  /queued [] def
+  /opdict null def		% reserve a slot
+  /fonts [ topdicts {
+    0 () /SubFileDecode filter /f exch def
+    40 dict begin
+		% Preload defaults that differ from PostScript defaults,
+		% or that are required.
+      /FontType 2 def
+      /PaintType 0 def
+      /FontMatrix [0.001 0 0 0.001 0 0] def
+      /charset StandardCharsets 0 get def
+      /Encoding 0 def
+      /FontInfo 10 dict
+	dup /UnderlinePosition -100 put
+	dup /UnderlineThickness 50 put
+      def
+      /Private 20 dict
+	gsubrs length 0 ne { dup /GlobalSubrs gsubrs put } if
+      def
+      //topdictops Dict
+    currentdict end
+  } forall ] def
+
+	% Read other tables with queued offsets.
+        % We process these in order so we can advance if needed.
+	% The CFF file may not be positionable.
+  {		% outer loop since offsets may be updated when processing
+    CFFDEBUG { (offsets: ) print [ offsets { pop } forall ] == } if
+    [ offsets { pop } forall ] { lt } .sort	% process in order of appearance
+    { 
+      CFFDEBUG { (queued offset: ) print dup =print flush (, current pos=) print pos = } if
+      /queued_offset 1 index def
+      StringCache 1 index .knownget {
+        /f exch 0 () /SubFileDecode filter def
+      } {
+        /f cff def
+        dup pos ne { dup pos sub nextstring pop } if	% negative advance will cause error
+      } ifelse
+      offsets exch 2 copy get 3 1 roll undef
+      CFFDEBUG { (exec queued: ) print dup == } if
+      exec
+    } forall
+    offsets length 0 eq { exit } if
+  } loop
+
+	% Process out-of-order tables.
+
+  CFFDEBUG { queued length =only ( queued) = flush } if
+  queued { exec } forall
+
+	% Update Encoding and CharStrings.
+
+  fonts {
+    begin
+    currentdict /CIDFontType known {
+      finishCIDFont
+    } {
+      forcecidfont //makeCIDFont //finishFont ifelse
+    } ifelse
+    end
+  } forall
+
+	% Wrap up.
+
+  resname mark 0 1 fonts length 1 sub {
+    CFFDEBUG { dup =only ( ) print flush } if
+    dup names exch get
+    forceresname { pop resname } if
+    CFFDEBUG { dup == flush } if
+    exch fonts exch get
+    dup /CIDFontType known {
+		% This is a CIDFont.
+      dup /CIDFontName 3 index put
+      1 index exch /CIDFont defineresource
+    } {
+		% This is a font.
+      dup /FontName 3 index put
+      1 index exch definefont
+    } ifelse
+  } for .dicttomark
+  end		% temporary dict
+  end		% FontSetInit ProcSet
+  /FontSet defineresource
+
+} bind def
+
+% ---------------- Resource category definition ---------------- %
+
+currentdict end readonly
+
+languagelevel exch 2 .setlanguagelevel
+
+/FontSet /Generic /Category findresource dup length dict .copydict
+/Category defineresource pop
+
+/FontSetInit exch /ProcSet defineresource pop
+
+.setlanguagelevel

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/gs_cidcm.ps

@@ -0,0 +1,452 @@
+%    Copyright (C) 2000 Artifex Software, Inc.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_cidcm.ps 9164 2008-10-17 13:44:34Z alexcher $
+% Extending Font resource category with CIDFont-CMap fonts.
+
+languagelevel 2 .setlanguagelevel currentglobal true setglobal
+
+
+% In the comments below, 'CSI' is an abbreviation/acronym for CIDSystemInfo.
+% We pre-scan resource files to retrieve the CSI from them.
+% First we define a hidden procset .prs_dict containing
+% necessary variables and procedures.
+% Then we redefine the old /Font category using this procset.
+
+% We maintain internal caches for the CSI values retrieved from
+% resource files. This supposes that document doesn't uninstall
+% resource files. To disable caching, set enable_cache to false.
+
+% We assume that names starting with '.prs' do not appear in resource files.
+% If this causes any problem, this prefix should be systematically changed
+% in this file.  ('prs' is an abbreviation for 'prescan'.)
+
+25 dict begin
+
+% Define local variables :
+
+/.prs_dict currentdict def       % self-reference (constant)
+/.prs_empty 0 dict readonly def  
+/path_buffer 8192 string def
+/name_buffer 1024 string def
+/minus (-) 0 get def             % character code constant for '-'
+/period (.) 0 get def            % character code constant for '.'
+/CMap 10 dict def                % CSI cache for CMaps
+/CIDFont 10 dict def             % CSI cache for CIDFonts
+/enable_cache true def           % set false to disable cache
+
+% The folloving variables are just placeholders for ones to be set
+% dynamically :
+/.prsFile 0 def                   % file to prescan
+/.prsResult 0 def                 % result of prescan
+/.prsDictCount 0 def              % save the dictionary stack depth
+
+% Define a dummy CIDInit procset to use while pre-scanning :
+
+/DummyCIDInit 15 dict 
+begin
+
+  /begincmap {} def
+  /usecmap {pop} bind def
+
+  {stop} bind
+  [ /begincodespacerange /endcodespacerange /beginnotdefchar /endnotdefchar
+    /beginnotdefrange /endnotdefrange /begincidchar /endcidchar /begincidrange 
+    /endcidrange /endcmap /usefont /StartData
+  ] {
+    1 index def
+  } bind forall
+  pop
+
+currentdict end def
+
+% Define a local 'findresource' for pre-scanning :
+% (it returns the dummy CIDInit instead of the regular CIDInit ProcSet)
+
+/findresource { % <InstName> <CatName> findresource <inst>
+  2 copy /ProcSet eq exch             % /InstName /CatName bool /InstName
+  /CIDInit eq and {
+    pop pop //DummyCIDInit
+  } {
+    //findresource exec
+  } ifelse
+} bind def
+
+% Define procedures for pre-scanning :
+
+/StopIfCSIDefined {   % - StopIfCSIDefined -
+  
+  % Check if the dictionary stack contains a dictionary containing /CIDSystemInfo. 
+  % The search is limited to the top .prsDictCount dictionaries in the stack.
+  % If so, retrieve the CSI, and execute stop to terminate the pre-scanning of the file.
+  % Otherwise, do nothing, so the pre-scanning continues.
+
+  countdictstack //.prs_dict /.prsDictCount get sub dup {
+    currentdict /CIDSystemInfo .knownget {
+      //.prs_dict exch /.prsResult exch put
+      stop
+    } if
+    currentdict exch end
+  } repeat {
+    begin
+  } repeat
+} bind def
+
+/PrescanFile {     % - PrescanFile -
+  { //.prs_dict /.prsFile get token {      
+      dup type                          % token type
+      dup /nametype eq exch /operatortype eq or {
+        dup xcheck {
+          exec
+          //StopIfCSIDefined exec
+        } if
+      } if
+    } {
+      stop
+    } ifelse
+  } loop
+} bind odef
+
+/GetCIDSystemInfoFromFile { % <file> GetCIDSystemInfoFromFile <CSI>
+  
+  % This procedure reads resource files with 'token',
+  % executing the tokens untill /CIDSystemInfo appears to be defined.
+  % Normally the resource file creates a new dictionary on
+  % dictionary stack and defines /CIDSystemInfo in it.
+  %
+  % Returns an empty dictionary if no CIDSystemInfo is found.
+
+  RESMPDEBUG { (cidcm GetCIDSystemInfoFromFile beg) = } if
+  //.prs_dict begin
+  /.prsFile exch def
+  /.prsResult //.prs_empty def
+  /.prsDictCount countdictstack def
+  RESMPDEBUG { (cidcm GetCIDSystemInfoFromFile will PrescanFile.) = } if
+  { //PrescanFile } stopped pop
+  //.prs_dict /.prsResult get
+  end
+  RESMPDEBUG { (cidcm GetCIDSystemInfoFromFile end) = } if
+} bind def
+
+/GetCIDSystemInfo {     % <InstName> <CatName> GetCIDSystemInfo <CSI>
+  
+  % Retrieve CSI, using caches.
+
+  RESMPDEBUG { (cidcm GetCIDSystemInfo beg) = } if
+  /Category findresource begin                % /InstName
+  dup ResourceStatus 
+  {
+    pop 2 lt {
+      FindResource /CIDSystemInfo .knownget not {
+        //.prs_empty
+      } if                                    % CSI
+    } {                                       % /InstName
+      currentdict /GetCIDSystemInfoFromMap .knownget {
+        exec
+      } if
+      dup type /nametype eq
+      {
+        RESMPDEBUG { (cidcm GetCIDSystemInfo got a name.) = } if
+        //.prs_dict Category get              % /InstName CSIs
+        dup 2 index known
+        //enable_cache and {
+          RESMPDEBUG { (cidcm GetCIDSystemInfo from cache.) = } if
+          exch get                            % CSI
+        } {
+          RESMPDEBUG { (cidcm GetCIDSystemInfo from file.) = } if
+          exch                                % CSIs /InstName
+          dup //path_buffer ResourceFileName  % CSIs /InstName (path)
+          RESMPDEBUG { (cidcm GetCIDSystemInfo from file ) print dup = } if
+          currentglobal exch true setglobal   % CSIs /InstName g (path)
+          mark exch                           % CSIs /InstName g [ (path)
+          { (r) file } stopped {
+            cleartomark //.prs_empty
+          } {
+            exch 1 index                      % CSIs /InstName g file [ file
+            //GetCIDSystemInfoFromFile stopped {
+              cleartomark closefile //.prs_empty
+            } {
+              exch pop exch closefile
+            } ifelse
+          } ifelse                            % CSIs /InstName g CSI
+          exch setglobal                      % CSIs /InstName CSI
+          dup 4 1 roll                        % CSI CSIs /InstName CSI
+          put                                 % CSI
+          RESMPDEBUG {
+            (cidcm GetCIDSystemInfo got from file : <<) print
+            dup { exch //=string cvs print ( ) print
+                       //=string cvs print ( ) print
+            } forall
+            (>>) =
+          } if
+        } ifelse
+      } if
+    } ifelse
+  } {
+    pop //.prs_empty
+  } ifelse
+  end
+  RESMPDEBUG { (cidcm GetCIDSystemInfo end) = } if
+} bind def
+
+/IsCompatibleCSI {  % <CSI-M> <CSI-F> IsCompatibleCSI <bool>
+  
+  % The CSI in a CIDFont may be an array, a dict, or null.
+  % If it is an array, it must be of 1 element, which is a dict.
+  % In this case the dict is used for testing the compatibility.
+  % Two dicts are compatible iff they contain same /Ordering and /Registry.
+  % Identity CMap is compatible with any CIDFont.
+
+  exch                                  % CSI-F CSI-M
+  { dup type /arraytype eq {
+      dup length 1 ne {
+        pop pop //false exit
+      } if
+      0 get
+    } if                                % CSI-F CSI-M
+    dup type /dicttype ne {
+      pop pop //false exit
+    } if                                % CSI-F <<CSI-M>>
+    exch                                % <<CSI-M>> CSI-F
+    dup type /dicttype ne {
+      pop pop //false exit
+    } if                                % <<CSI-M>> <<CSI-F>>
+    dup /Ordering .knownget {
+      /Identity eq {
+        pop pop //true exit
+      } if
+    } if
+    //true                              % <<CSI-M>> <<CSI-F>> bEQ
+    [/Registry /Ordering] {                    
+      2 index 1 index .knownget not {
+        1234567
+      } if                              % <<CSI-M>> <<CSI-F>> bEQ /key vF
+      exch                              % <<CSI-M>> <<CSI-F>> bEQ vF /key
+      4 index exch .knownget not {
+        7654321
+      } if                              % <<CSI-M>> <<CSI-F>> bEQ vF vM
+      eq and                            % <<CSI-M>> <<CSI-F>> bEQ
+    } forall
+    exch pop exch pop                   % bEQ
+    exit
+  } loop
+} bind def
+
+/IsWellComposed {     % <CIDFontName> <CMapName> IsWellComposed <bool>
+  
+  % Check if the given CIDFont and CMap have compatible CSIs.
+  exch                                  % /CMapName /CIDFontName
+  /CIDFont //GetCIDSystemInfo exec      % /CMapName CSI-F
+  dup type /dicttype eq {
+    dup length 0 ne {                          
+      exch                              % CSI-F /CMapName
+      /CMap //GetCIDSystemInfo exec     % CSI-F CSI-M
+      //IsCompatibleCSI exec            % bool
+    } {
+      pop pop false
+    } ifelse
+  } {
+    pop pop false
+  } ifelse
+} bind def
+
+/IsComposedFont {   % <FontName> IsComposedFont <CIDFontName> <CMapName> true
+                    % <FontName> IsComposedFont false
+  
+  % Check if the given font name may be decomposed into CIDFont.CMap, CIDFont-CMap
+  % or into CIDFont--CMap, such that CIDFont and CMap have compatible CSIs.
+                                        % FontName
+  dup type /stringtype ne {
+    //name_buffer cvs
+  } if                                  % (FontName)
+  { dup length 2 sub -1 1 {
+                                        % (FontName) i
+      2 copy get dup //minus eq exch //period eq or {                
+        2 copy 2 copy                   % (FontName) i (FontName) i (FontName) i
+        2 copy get //minus eq {
+          2 copy 1 sub get //minus eq {
+            1 sub
+          } if
+        } if                            % (FontName) i (FontName) i (FontName) i0
+        0 exch getinterval cvn          % (FontName) i (FontName) i /CIDFontName
+        3 1 roll                        % (FontName) i /CIDFontName (FontName) i
+        1 add dup                       % (FontName) i /CIDFontName (FontName) i1 i1
+        5 index length                  % (FontName) i /CIDFontName (FontName) i1 i1 l
+        exch sub getinterval cvn        % (FontName) i /CIDFontName /CMapName
+        2 copy //IsWellComposed exec {  % (FontName) i /CIDFontName /CMapName 
+          4 2 roll pop pop              % /CIDFontName /CMapName
+          stop
+        } if
+        pop pop pop
+      } {
+        pop
+      } ifelse                          % (FontName)
+    } for
+    pop
+  } stopped
+} bind def
+
+/ComposeName { % <CIDFont> <CMap> <scr> ComposeName <CIDFont-CMap>
+  dup dup 5 2 roll                        % (scr) (scr) /CIDFont /CMap (scr)
+  3 2 roll exch cvs length dup            % (scr) (scr) /CMap l0 l0
+  4 -1 roll exch //minus put              % (scr) /CMap l0
+  1 add dup                               % (scr) /CMap l1 l1
+  3 index dup length                      % (scr) /CMap l1 l1 (scr) L
+  2 index sub                             % (scr) /CMap l1 l1 (scr) LT
+  3 2 roll                                % (scr) /CMap l1 (scr) LT l1
+  exch getinterval                        % (scr) /CMap l1 (scrT)
+  3 2 roll exch cvs length                % (scr) l1 l2
+  add 0 exch getinterval                  % (CIDFont-CMap)
+} bind def
+
+% Redefine the /Font category with CIDFont-CMap construction :
+
+% The following code supposes that the following names are not
+% defined in the old /Font category dictionary :
+% /IsComposedFont, /IsWellComposed .
+
+
+/Font /Category findresource dup length dict copy begin
+
+/FindResource {  % <InstName> FindResource <inst>
+  dup //ResourceStatus exec {
+    pop pop //FindResource exec
+  } {                                                
+    dup //IsComposedFont exec {          % /FontName /CIDFontName /CMapName 
+      exch [ exch ] composefont          % inst
+    } {
+      //FindResource exec
+    } ifelse
+  } ifelse
+} bind def
+
+/ResourceStatus {  % <InstName> ResourceStatus <nStatus> <nSize> true
+                   % <InstName> ResourceStatus false
+  dup //ResourceStatus exec {                    
+    3 2 roll pop true                     % nStatus nSize true
+  } {
+    //IsComposedFont exec {               % /CIDFontName /CMapName 
+      /CMap resourcestatus {              % /CIDFontName nStatusM nSizeM 
+        exch pop exch                     % nSizeM /CIDFontName 
+        /CIDFont resourcestatus {         % nSizeM nStatusF nSizeF 
+          exch pop                        % nSizeF nSizeM
+          dup 0 ge {
+            exch dup 0 ge {
+              add
+            } {
+              exch pop
+            } ifelse
+          } {
+            pop
+          } ifelse                        % nSize
+          2 exch true                     % nStatus nSize true
+        } {                        
+          pop pop pop false  % work around buggy resource file
+        } ifelse
+      } {                            
+        pop pop pop false    % work around buggy resource file
+      } ifelse
+    } {
+      false
+    } ifelse
+  } ifelse
+} bind def
+
+/ResourceForAll { % <template> <proc> <scratch> ResourceForAll - 
+
+  % We suppose that the resourceforall procedure does not 
+  % define or install new fonts, CMaps, and/or CIDFonts.
+
+  % First we create 3 temporary dictionaries to store temporary data
+  % about fonts, CMaps and CIDFonts.
+  % These dictionaries must be created dynamically, to allow for a possible 
+  % recursive call to resourceforall from the resourceforall procedure.
+  currentglobal false setglobal
+  20 dict 20 dict 20 dict                  % (templ) proc (scr) g <<CIDFont>> <<CMap>> <<Fonts>>
+  
+
+  % Store resource identifiers into local dictionaries
+  % A resource instance can have a key that is not a name or a string. In this
+  % case, resourceforall passes the key directly to proc instead of copying it
+  % into the scratch string. This case can arise only for a resource instance
+  % defined in virtual memory by a previous defineresource
+
+  % Discard non-string keys of CIDFont and CMap because <CIDFontName>-<CMapName>
+  % is only defined for names.
+
+  { /.DisableResourceOrdering pop % gs_resmp accesses this through execstack - don't remove !
+
+    6 index [ 2 index {exch //null put} aload pop ] cvx bind 6 index //ResourceForAll exec
+
+    (*) [ 3 index {exch dup type /stringtype eq { cvn dup put } { pop pop } ifelse } aload pop
+        ] cvx bind 6 index /CMap resourceforall
+
+    (*) [ 4 index {exch dup type /stringtype eq { cvn dup put } { pop pop } ifelse } aload pop
+        ] cvx bind 6 index /CIDFont resourceforall
+
+    exit
+  } loop % This loop is a pattern for execstack_lookup - don't remove !
+  4 -1 roll setglobal                     % (templ) proc (scr) <<CIDFont>> <<CMap>> <<Fonts>>
+
+  %% Make the list of fonts in the form (/Name status) :
+
+                                          % (templ) proc (scr) <<CIDFont>> <<CMap>> <<Fonts>>
+  dup {                                              
+    pop dup
+    //ResourceStatus exec {                        
+      pop 2 index                         % (templ) proc (scr) <<CIDFont>> <<CMap>> <<Fonts>> /Name nStatus <<Font>>
+      3 1 roll put                        % (templ) proc (scr) <<CIDFont>> <<CMap>> <<Fonts>>
+    } {
+      pop
+    } ifelse
+  } forall                                % (templ) proc (scr) <<CIDFont>> <<CMap>> <<Fonts>>
+ 
+  %% Add CIDFont-CMap to it (filtering duplicates) :
+ 
+  3 2 roll  {                                        
+    3 index {                                        
+      3 1 roll                            % (templ) proc (scr) <<CMap>> <<Font>> /CIDFont /CMap /CIDFont /CMap
+      6 index //ComposeName exec          % (templ) proc (scr) <<CMap>> <<Font>> /CIDFont /CMap (Font)
+      dup 8 index .stringmatch {              
+        cvn                               % (templ) proc (scr) <<CMap>> <<Font>> /CIDFont /CMap /Font
+        dup 4 index exch known {
+          pop pop
+        } {                                            
+          2 index                         % (templ) proc (scr) <<CMap>> <<Font>> /CIDFont /CMap /Font /CIDFont
+          4 2 roll                        % (templ) proc (scr) <<CMap>> <<Font>> /Font /CIDFont /CIDFont /CMap
+          //IsWellComposed exec {                
+            exch 2 index exch 2 put       % (templ) proc (scr) <<CMap>> <<Font>> /CIDFont
+          } {
+            exch pop
+          } ifelse
+        } ifelse
+      } {
+        pop pop
+      } ifelse
+      dup                                 % (templ) proc (scr) <<CMap>> <<Font>> /CIDFont /CIDFont
+    } forall
+    pop pop                               % (templ) proc (scr) <<CMap>> <<Font>>
+  } forall                                % (templ) proc (scr) <<CMap>> <<Font>>
+  exch pop                                % (templ) proc (scr) <<Font>>
+  4 3 roll pop                            % proc (scr) <<Font>>
+
+  % Make the enumerator and apply it :
+  /MappedCategoryRedefiner /ProcSet findresource /MakeResourceEnumerator get exec exec
+} bind def
+
+
+currentdict end /Font exch /Category defineresource pop
+end
+setglobal .setlanguagelevel

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/gs_ciddc.ps

@@ -0,0 +1,224 @@
+%    Copyright (C) 1994, 1996, 1997, 1998, 1999, 2000 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_ciddc.ps 9834 2009-07-03 09:27:02Z ken $
+% Define SubstCID, Decoding and CIDDecoding resource categories and related procsets.
+
+languagelevel 2 .setlanguagelevel
+currentglobal true setglobal
+
+%----------------ParseDecoding procset----------------------------
+
+/ParseDecoding <<
+
+/Parse    % <resource_name> <num_tokens> Parse -
+{ dict begin                                  % /ResName
+  0                                           % /ResName nCode
+  { currentfile token not {
+      exit
+    } if                                      % /ResName nCode token
+    dup type /integertype eq {                % /ResName nCode
+       exch pop
+    } {
+      1 index def                             % /ResName nCode
+    } ifelse
+  } loop                                      % /ResName nCode
+  pop                                         % /ResName
+  currentdict end /Decoding                   % /ResName <<inst>> /Decoding
+  defineresource pop
+} bind
+
+>> /ProcSet defineresource pop
+
+%----------------Decoding category----------------------------
+
+/Generic /Category findresource dup length dict copy
+dup /InstanceType /dicttype put
+/Decoding exch /Category defineresource pop
+
+%----------------ParseCMap_Inverse procset----------------------------
+
+/ParseCMap_Inverse <<
+  /findresource { pop } bind
+  /defineresource { pop pop } bind
+  /dict {}
+  /def { pop pop } bind
+  /dup null
+  /begin { pop } bind
+  /end {}
+  /currentdict null
+  /CMapName null
+  /usecmap { pop } bind
+  /begincmap {}
+  /endcmap {}
+  /begincodespacerange { pop mark } bind
+  /endcodespacerange { cleartomark } bind
+  /beginnotdefrange { pop mark } bind
+  /endnotdefrange { cleartomark } bind
+  /beginbfchar { pop mark } bind
+  /endbfchar { pop mark } bind
+  /beginbfrange { begincidrange }
+  /endbfrange { endcidrange }
+  /begincidchar { beginbfchar }
+  /endcidchar { endbfchar }
+  /begincidrange { pop mark } bind
+  /endcidrange  { cleartomark } bind
+>>  % Just keep it on stack for a while.
+
+% Now we define another dict for local binding, than merge it with the previous one :
+dup length 5 add dict begin
+
+  /.Ranges 40 dict def % Key = CID/256, value = array of 256 integer codes.
+  //.Ranges /CIDCount 0 put
+
+  /.StringToInt     % <string> .StringToInt <integer>
+  { 0 exch { exch 8 bitshift add } forall
+  } bind def
+
+  /.SetCouple    % <I> <b> .SetCouple -
+  { exch                                    % b I
+    dup 256 idiv                            % b I I0
+    dup //.Ranges exch known not {
+      dup //.Ranges exch 256 array put
+    } if                                    % b I I0
+    //.Ranges exch get                      % b I [Range]
+    exch 256 mod                            % b [Range] I1
+    2 copy get                              % b [Range] I1 e
+    dup //null ne {
+      % We've got char code duplicates for same CID.
+      dup type /integertype eq {
+        4 3 roll                            % [Range] I1 e b
+        2 array astore put                  %
+      } {
+        dup length 1 add dup dup array dup  % b [Range] I1 D l l D' D'
+        3 2 roll 0 exch getinterval         % b [Range] I1 D l D' D''
+        4 3 roll exch copy pop              % b [Range] I1 l D'
+        dup 3 2 roll 1 sub                  % b [Range] I1 D' D' l-1
+        6 5 roll                            % [Range] I1 D' D' l-1 b
+        put put                             %
+      } ifelse
+    } {
+      pop 3 2 roll put                      %
+    } ifelse
+  } bind def
+
+  /endcidrange
+  { % Writes the inversed CMap to .Ranges
+    counttomark 3 idiv {                    % (b) (e) I
+      exch .StringToInt                     % (b) I e
+      3 2 roll .StringToInt                 % I e b
+      % Note : this code does't handle multidimentional CID ranges.
+      % fixme : optimize below.
+      dup 3 2 roll exch sub 1 add           % I b d
+      { 2 copy //.SetCouple exec            % I b
+        1 add exch 1 add exch
+      } repeat                              % I b
+      pop                                   % I
+      dup //.Ranges /CIDCount get gt {      % I
+        dup //.Ranges exch /CIDCount exch put
+      } if                                  % I
+      pop
+    } repeat
+    pop % mark
+  } bind def
+
+  /.GetCIDDecoding         % - .GetCIDDEcoding <dict>
+  { //.Ranges dup length dict copy
+    //.Ranges //.PurgeDict exec
+    //.Ranges /CIDCount 0 put
+  } bind def
+
+currentdict end
+exch copy % Merge the dicts - see above.
+/ProcSet defineresource pop
+
+%----------------CIDDecoding category----------------------------
+% Note that we put all instances in global memory - see FindResource.
+
+/Generic /Category findresource dup length dict copy
+begin
+  /Category /CIDDecoding def
+  /InstanceType /dicttype def
+
+  /.CMapChooser <<
+    % This lists CMaps to inverse and unite for creating a CIDDecoding.
+    % Choose by FAPIcidfmap.Registry concatenated with TrueType encoding ID.
+    % Font renderer must provide the glyph substitution internally.
+
+    /CNS1.Big5       [ /ETen-B5-H /ETen-B5-V ]
+    /CNS1.Unicode    [ /UniCNS-UCS2-H /UniCNS-UCS2-V]
+    /GB1.GB2312      [ /GBK-EUC-H /GBK-EUC-V ]
+    /GB1.Unicode     [ /UniGB-UCS2-H /UniGB-UCS2-V ]
+    /Japan1.ShiftJIS [ /90ms-RKSJ-H /90ms-RKSJ-V ]
+    /Japan1.Unicode  [ /UniJIS-UCS2-H  /UniJIS-UCS2-V]
+    /Japan2.ShiftJIS [ /90ms-RKSJ-H /90ms-RKSJ-V ]
+    /Japan2.Unicode  [ /UniHojo-UCS2-H ]
+    /Korea1.Johab    [ /KSC-Johab-V /KSC-Johab-H ]
+    /Korea1.Wansung  [ /KSCms-UHC-V /KSCms-UHC-H ]
+    /Korea1.Unicode  [ /UniKS-UCS2-H /UniKS-UCS2-V ]
+    /Identity.Symbol [ /Identity-H /Identity-V ]
+    /Unicode.Unicode [ /Identity-UTF16-H ]
+    /Identity.Unicode [ /Identity-UTF16-H ]
+  >> def
+
+  /.MakeInstance    % <name> .MakeInstance <inst>
+  { dup                                              % /Name /Name
+    //.CMapChooser exch .knownget not {
+      (Can't build /) print =string cvs print ( /CIDDecoding resource. See gs_ciddc.ps . ) =
+      /findresource cvx /undefinedresource signalerror
+    } if                                             % /Name [CMaps]
+    exch pop                                         % [CMaps]
+    /CMap /Category findresource                     % [CMaps] <CMapCategory>
+    /ParseCMap_Inverse /ProcSet findresource         % [CMaps] <CMapCategory> <PCI>
+    3 2 roll {                                       % <CMapCategory> <PCI> /CMapName
+      3 2 roll begin                                 % <PCI> /CMapName
+      dup .ResourceFile not {
+        (Can't find CMap ) print =string cvs print ( building a CIDDecoding resource. ) =
+        /findresource cvx /undefinedresource signalerror
+      } if
+      currentdict end exch                           % <PCI> /CMapName <CMapCategory> file
+
+      3 index begin
+      cvx exec                                       % <PCI> /CMapName <CMapCategory>
+      end
+      exch pop exch                                  % <CMapCategory> <PCI>
+    } forall
+    exch pop begin                                   %
+    .GetCIDDecoding
+    end
+  } bind def
+
+  /FindResource      % <name> FindResource <dict>
+  { currentglobal exch                               % bGlobal /InstName
+    true setglobal
+    dup //.MakeInstance exec                         % bGlobal /InstName <Inst>
+    DefineResource                                   % bGlobal <Inst>
+    exch setglobal                                   % <Inst>
+  } bind def
+
+currentdict end
+/CIDDecoding exch /Category defineresource pop
+
+%----------------SubstCID category----------------------------
+
+/Generic /Category findresource dup length dict copy
+begin
+  /Category /SubstCID def
+  /InstanceType /dicttype def
+currentdict end
+/SubstCID exch /Category defineresource pop
+
+setglobal
+.setlanguagelevel

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/gs_cidfm.ps

@@ -0,0 +1,129 @@
+%    Copyright (C) 2000 Artifex Software, Inc.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_cidfm.ps 8954 2008-08-08 04:22:38Z ray $
+% Redefine CIDFont category with cidfmap .
+
+languagelevel 2 .setlanguagelevel
+
+4 dict begin
+/CategoryName /CIDFont def
+
+/MapFileName (cidfmap) def
+
+/IsMyRecord      % <raw_record> -> <raw_record> bool
+{ % Only for client's needs.
+  dup type /nametype eq
+} bind def
+
+/RecordVirtualMethods 3 dict begin
+
+  /MakeInstance   % <Name> <record> MakeInstance <Name> <Instance> <size>
+  { % We know that currentdict is the category.
+    /Substitute get FindResource            % /Name <<CIDFont>>
+    dup length dict copy                    % /Name <<CIDFont>>
+    1 index ResourceStatus pop exch pop     % /Name <<CIDFont>> size
+  } bind def
+
+  /GetFilePath  % <scratch> <Name> <record> GetFilePath <filepath>
+  { % We know that currentdict is the category.
+    exch pop
+    /Substitute get exch ResourceFileName
+  } bind def
+
+  /GetSize   % <Name> <record> GetSize <size>
+  { % We know that currentdict is the category.
+    /Substitute get ResourceStatus {
+      exch pop exch pop
+    } {
+      /undefinedresource signalerror
+    } ifelse
+  } bind def
+
+  /GetCSI   % <record> GetCSI null
+  	    % <record> GetCSI dict
+  { % We know that currentdict is the category.
+    RESMPDEBUG { (cidfm GetCSI beg ) = } if
+    /Substitute get			% /Name
+    GetCIDSystemInfoFromMap
+    RESMPDEBUG { (cidfm GetCSI end ) print dup = } if
+  } bind def
+
+  /IsActive % <record> IsActive <bool>
+  { pop true
+  } bind def
+
+currentdict end def
+
+/VerifyMap  % <raw_map> VerifyMap -
+{ % Checks for vicious substitution cycles.
+  dup length dict copy                  % <<map>>
+  dup length dict                       % <<map>> <<temp>>
+  { % Choose a random record :
+    true 2 index {                      % <<map>> <<temp>> true /Name /Subs
+      3 2 roll pop false exit           % <<map>> <<temp>> /Name /Subs false
+    } forall
+    { exit                              % <<map>> <<temp>>
+    } if                                % <<map>> <<temp>> /Name /Subs
+    % Move the substitution chain to <<temp>>, checking for a cycle :
+    3 index 2 index undef               % <<map>> <<temp>> /Name /Subs
+    exch 2 index exch 0 put             % <<map>> <<temp>> /Subs
+    { //IsMyRecord exec not {
+        % Not a substitution, the chain terminates.
+        pop exit                        % <<map>> <<temp>>
+      } if                              % <<map>> <<temp>> /Subs
+      1 index 1 index known {
+        (Vicious substitution cycle in map file with the entry ) print =string cvs print ( .) =
+        /VerifyMap cvx /undefinedresource signalerror
+      } if                              % <<map>> <<temp>> /Subs
+      1 index 1 index 0 put
+      dup 3 index exch .knownget not {  % <<map>> <<temp>> /Subs
+        % No more substitutions, the chain terminates.
+        pop exit                        % <<map>> <<temp>>
+      } if                              % <<map>> <<temp>> /Subs /Subs1
+      exch                              % <<map>> <<temp>> /Subs1 /Subs
+      3 index exch undef                % <<map>> <<temp>> /Subs1
+    } loop
+    % Not cycled, now purge the <<temp>> :
+    { % Choose a random record :
+      true 1 index {                    % <<map>> <<temp>> true /Name /Subs
+        3 2 roll pop false exit         % <<map>> <<temp>> /Name /Subs false
+      } forall
+      { exit                            % <<map>> <<temp>>
+      } if                              % <<map>> <<temp>> /Name /Subs
+      % Remove it :
+      pop 1 index exch undef            % <<map>> <<temp>>
+    } loop
+  } loop
+  pop pop                               %
+} bind def
+
+/PreprocessRecord  % <map> <Name> <raw_record> PreprocessRecord <map> <Name> <record> <bool>
+{ //IsMyRecord exec {
+    1 dict begin
+    /Substitute exch def
+    /RecordVirtualMethods //RecordVirtualMethods def
+    currentdict end
+    true
+  } {
+    false
+  } ifelse
+} bind def
+
+currentdict end 
+
+/MappedCategoryRedefiner /ProcSet findresource /Redefine get exec
+
+.setlanguagelevel

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/gs_cidfn.ps

@@ -0,0 +1,412 @@
+%    Copyright (C) 1995, 2000 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_cidfn.ps 8954 2008-08-08 04:22:38Z ray $
+% ProcSet for implementing CIDFont and CIDMap resources.
+% When this is run, systemdict is still writable.
+
+% ---------------- Defining CIDFont resources ---------------- %
+
+% Define a CIDFont resource.  This is the defineresource implementation for
+% the CIDFont resource category.
+
+/.checkfonttype {	% <cidfont> <fonttype> .checkfonttype <cidfont> <new?>
+  1 index /FID known {
+    1 index /FontType get ne {
+      /definefont cvx /invalidfont signalerror
+    } if false
+  } {
+    1 index /FontType 3 -1 roll put true
+  } ifelse
+} bind def
+
+/.cidfonttypes where { pop } { /.cidfonttypes 6 dict def } ifelse
+.cidfonttypes
+
+30 dict begin
+
+% The key in .cidfonttypes is the CIDFontType value;
+% the value is a procedure that takes a font name and the CIDFont dictionary
+% and replaces the latter with a real font.
+
+% ------ CIDFontType 0 (FontType 9) ------ %
+
+% We add the following entries to the CIDFont dictionary, in addition to
+% the ones documented by Adobe:
+%	SubrCache - dictionary for caching Subr arrays
+% For CIDFonts where we read the data from disk incrementally:
+%	GlyphData is 0 (arbitrary)
+%	DataSource - a ReusableStreamDecode filter for the data
+% We also add a FID entry, and possibly a Subrs entry, to each element of
+% FDArray.
+
+dup 0 {
+  9 .checkfonttype {
+    /CIDInit /ProcSet findresource begin
+    .completefont9
+    end
+  } if
+  1 index exch .buildfont9 exch pop
+} put % Don't bind it here, because gs_fapi.ps redefines .buildfont9
+
+% Add entries to a new CIDFontType 0 font per documentation (FontMatrix)
+% or for .buildfont9 (FDArray.Private.Subrs).
+/.completefont9 {	% <cidfont0> .completefont9 <cidfont0>
+  currentglobal 3 1 roll dup gcheck setglobal
+  dup /FontMatrix known {
+    dup /FDArray get {
+      dup /FontMatrix get 0 get 1000000 ge {
+        /FontMatrix matrix put  % Bug 688517
+      } {
+        pop
+      } ifelse
+    } forall
+  } {
+    dup /FontMatrix [0.001 0 0 0.001 0 0] put
+    dup /FDArray get {
+       currentglobal exch dup gcheck setglobal
+       dup /FontMatrix get {1000 0 0 1000 0 0} matrix concatmatrix
+       /FontMatrix exch put
+       setglobal
+    } forall
+  } ifelse
+  dup /FDArray get {
+		% Read the Subrs if necessary.
+    dup /Private get dup /Subrs known not {
+      dup /SubrCount .knownget {
+		% Stack: font Private SubrCount
+	currentglobal 3 1 roll 1 index gcheck setglobal
+	array 1 index /Subrs 3 -1 roll put
+		% Stack: font global Private
+	2 index begin begin .loadsubrs end end
+	setglobal
+      } {
+	pop
+      } ifelse readonly pop
+    } {
+      pop pop
+    } ifelse
+  } forall
+  3 -1 roll setglobal
+} bind def
+
+% Read some Subrs for the current Type 1 subfont.
+% The subfont's Private dict is currentdict; the CIDFont itself is the
+% next dictionary on the stack.
+/.readsubrs {		% <Subrs> <start> .readsubrs <Subrs>
+  1 SubrCount 1 sub {
+    dup SDBytes mul SubrMapOffset add
+    dup SDBytes .readint exch SDBytes add SDBytes .readint
+    1 index sub string ReadString 2 index 3 1 roll put
+  } for
+} bind def
+
+% Ensure that all the Subrs for the current Type 1 subfont are loaded.
+% The subfont's Private dict is currentdict; the CIDFont itself is the
+% next dictionary on the stack.
+/.loadsubrs {
+  Subrs length 0 ne {
+    SubrCache SubrMapOffset .knownget {
+		% We've already loaded some Subrs at this offset.
+		% Make sure we've got as many as we need.
+      dup length SubrCount lt {
+		% We need to load more.
+	SubrCount array exch 1 index copy length .readsubrs
+	SubrCache SubrMapOffset 2 index put
+      } if
+    } {
+		% We haven't loaded any Subrs at this offset yet.
+      SubrCount array 0 .readsubrs
+      SubrCache SubrMapOffset 2 index put
+    } ifelse
+    Subrs copy pop
+  } if
+} bind def
+
+% ------ CIDFontType 1 (FontType 10) ------ %
+
+dup 1 {
+  10 .checkfonttype pop
+  1 index exch .buildfont10 exch pop
+} put % Don't bind it here because gs_fapi.ps redefines .buildfont10
+
+% ------ CIDFontType 2 (FontType 11) ------ %
+
+dup 2 {
+  11 .checkfonttype pop
+  1 index exch .buildfont11 exch pop
+} put % Don't bind it here because gs_fapi.ps redefines .buildfont11
+
+pop		% .cidfonttypes
+
+% ---------------- Reading CIDFontType 0 files ---------------- %
+
+/StartData {		% <(Binary)|(Hex)> <datalength> StartData -
+			%   (currentdict is CID font dict)
+		% If we're loading a resource file and the data format is
+		% binary, we can just save a pointer to the data and load it
+		% incrementally.
+  mark {
+		% Previous versions of this code made provisions for
+		% reading hex-encoded data incrementally.  Since hex data
+		% doesn't seem to be used in practice, we no longer bother.
+    2 index (Binary) ne { stop } if
+    currentfile .currentresourcefile ne { stop } if
+		% Hack: the pdfwrite driver relies on finalization to write
+		% out fonts.  However, the font may be finalized after the
+		% resource file, in which case the resource file will be
+		% closed.  So if the current output device is pdfwrite,
+		% don't use incremental loading.
+    currentdevice .devicename /pdfwrite eq { stop } if
+    currentfile fileposition
+  } .internalstopped {
+		% File is not positionable, or uses hex data.
+		% Load the data now.
+    cleartomark exch
+    currentfile exch
+    (Hex) eq { /ASCIIHexDecode filter } if
+    exch
+		% Stack: file length
+    dup 65400 le {
+		% readstring with a 0-length string causes a rangecheck,
+		% but a data length of 0 is allowed.
+      string dup () ne { 1 index exch readstring pop } if
+    } {
+      mark 3 1 roll {
+		% Stack: mark str ... file length
+	dup 0 eq { pop exit } if
+	dup 65400 .min dup string 3 index exch readstring pop
+		% Stack: mark str ... file length newstrlen newstr
+	4 1 roll sub
+      } loop
+      counttomark 1 add 1 roll ]
+    } ifelse
+    /GlyphData exch def
+    dup currentfile eq { pop } { closefile } ifelse
+  } {
+		% File is positionable and binary, just save a pointer.
+		% Stack: (Binary) length -mark- pos
+    /GlyphData 0 def
+    exch pop 3 -1 roll pop exch
+		% Stack: pos length
+    /DataSource currentfile 2 index () .subfiledecode true .reusablestream def
+    currentfile 3 1 roll add setfileposition
+  } ifelse
+  /SubrCache 10 dict def
+  CIDFontName currentdict /CIDFont defineresource pop
+  end			% CID font dict
+  end			% resource category dict
+} bind def
+
+% Some Adobe fonts include the line
+%   /Setup /cid_Setup load def
+% This is apparently included only to prevent proper, conforming PostScript
+% interpreters (as opposed to ATM or a special Adobe font loader) from
+% loading the font, since Setup is not referenced anywhere else in the file.
+/cid_Setup { } def
+
+% ------ Generic ------ %
+
+% Read a string at a given offset in a "file" (binary file or
+% GlyphData in RAM).
+/ReadString {		% <pos> <string> ReadString <string>
+  GlyphData 0 eq {
+	% Read from the file.
+    DataSource 3 -1 roll setfileposition
+    DataSource exch readstring pop
+  } {
+	% Read from a string or an array of strings.
+    GlyphData .stringsreadstring
+  } ifelse
+} bind def
+/.stringsreadstring	% <pos> <string> <strings> .stringsreadstring
+			%   <vmstring>
+{ dup type /stringtype eq
+   { 3 1 roll length getinterval
+   }
+   {  {		% Stack: pos string glyphdata
+	dup 0 get length dup 4 index gt { exit } if
+	4 -1 roll exch sub 3 1 roll
+	dup length 1 sub 1 exch getinterval
+      }
+     loop
+		% Stack: pos string glyphdata glyphdata[0]length
+		% We know no request can span more than 2 strings.
+     3 index 3 index length add 1 index le
+      {		% Request fits in a single string: just return a substring.
+	pop 0 get 3 1 roll length getinterval
+      }
+      {		% Request spans 2 strings.  Copy the first part.
+	1 index 0 get 4 index 3 -1 roll 1 index sub getinterval
+	2 index copy
+		% Copy the second part.
+		% Stack: pos str glyphdata str1
+	length exch 1 get 0 3 index length
+	3 index sub getinterval 2 index 3 1 roll putinterval
+	exch pop
+      }
+     ifelse
+   }
+  ifelse
+} bind def
+
+% Interpret a byte string as a (big-endian) integer.
+/.cvbsi			% <bytes> .cvbsi <int>
+{ 0 exch { exch 8 bitshift add } forall
+} bind def
+
+% Read an integer from binary data.
+/.readint		% <pos> <nbytes> .readint <int>
+{ string ReadString .cvbsi
+} bind def
+
+currentdict end
+
+% ---------------- Rendering ---------------- %
+
+% ------ CIDFontType 0 ------ %
+
+/.readglyphdata {
+  currentfont exch .type9mapcid
+  FDArray exch get exch
+} bind def
+
+% BuildGlyph procedure for CIDFontType 0.
+% The name %Type9BuildGlyph is known to the interpreter.
+/.cid0buildstring 10 string def
+(%Type9BuildGlyph) cvn {	% <cidfont> <cid> %Type9BuildGlyph -
+  .currentglobal 3 1 roll 1 index gcheck .setglobal
+  1 index begin
+  dup .readglyphdata dup null eq {
+		% Substitute CID 0. **** WRONG ****
+    pop pop 0 .readglyphdata
+  } if
+		% Stack: cidfont cid subfont charstring
+  dup null eq { pop pop pop pop } {	%**** WRONG ****
+    4 -1 roll pop
+    3 1 roll exch dup 4 -1 roll 0 0 moveto
+    3 index /FontType get 2 eq { .type2execchar } { .type1execchar } ifelse
+  } ifelse	%**** WRONG ****
+  end
+  .setglobal
+} bind def
+
+% ------ CIDFontType 2 ------ %
+
+% BuildGlyph procedure for CIDFontType 2.
+% The name %Type11BuildGlyph is known to the interpreter.
+(%Type11BuildGlyph) cvn {	% <cidfont> <cid> %Type11BuildGlyph -
+		% We must be prepared for out-of-range CIDs.
+  2 copy { .type11mapcid } .internalstopped {
+    pop /CharStrings get /.notdef get
+  } if
+			% Stack: cidfont cid glyphindex
+  1 index exch .type42execchar
+} bind def
+
+% ---------------- Define resources ---------------- %
+
+languagelevel exch 2 .setlanguagelevel
+
+% Define the CIDInit ProcSet resource.
+% The ProcSet dictionary is still on the stack.
+
+% We might have loaded CMap support already.  However, Adobe's
+% protected font downloader defines a CIDInit ProcSet that will be
+% loaded from the filesystem later, so we must check specifically
+% for the ProcSet being defined in VM.
+/CIDInit /ProcSet 2 copy resourcestatus { pop 0 eq } { false } ifelse {
+  pop pop findresource dup length 4 index length add dict .copydict
+  4 -1 roll exch .copydict
+} {
+  3 -1 roll
+} ifelse exch defineresource pop
+
+% Define the CIDFont resource category.
+% We break out .buildcidfont because it appears that at least for
+% Type 32 (CIDFontType 4) fonts, the font can be registered in the Font
+% category with only a CIDFontType and no FontType.
+/.buildcidfont {		% <name> <fontdict> .buildcidfont
+				%   <name> <cidfont>
+  systemdict /ProvideUnicode .knownget not { false } if {
+    /FontEmulationProcs /ProcSet findresource
+    /ProvideUnicodeDecoding get exec
+  } if
+  dup /CIDFontType get //.cidfonttypes exch get exec
+} odef
+
+/CIDFont /Generic /Category findresource dup length dict .copydict
+dup /InstanceType /dicttype put
+dup /DefineResource {
+  .buildcidfont
+  dup /OrigFont known not {
+     dup dup /OrigFont exch .growput  % CPSI does it. Adding just for CET 33_all.PS conformity.
+  } if
+  dup /PaintType known not {
+     dup /PaintType 0 .growput  % CPSI does it. Adding just for CET 33_all.PS conformity.
+  } if
+  /Generic /Category findresource /DefineResource get exec
+} put
+% CIDFonts may be defined in CFF OpenType files.
+% Check for this here.
+/.loadcidfontresource {
+  dup .ResourceFile {
+    {.loadfont} .execasresource
+  } {
+    dup /undefinedresource signalerror
+  } ifelse
+} bind def
+dup /.LoadResource {
+  currentglobal {
+    .loadcidfontresource
+  } {
+    true setglobal {.loadcidfontresource} stopped false setglobal {stop} if
+  } ifelse
+} bind put
+
+/Category defineresource pop
+
+% Add the new FontType resources.
+
+9 1 11 { dup /FontType defineresource pop } for
+
+% Add the new FMapType resource.
+
+9 dup /FMapType defineresource pop
+
+% Define the CIDMap resource category.
+% These aren't documented, but it's clear what they are for:
+% to give names to CIDMaps for CIDFontType 2 fonts.
+
+/CIDMap /Generic /Category findresource dup length dict .copydict
+dup /.CheckResource {
+	% Allow a string, an array of strings, or (as of Adobe release 3011)
+	% a dictionary.
+  dup type dup dup /stringtype eq exch /dicttype eq or {
+    pop true
+  } {
+    dup /arraytype eq exch /packedarraytype eq or {
+      true exch { type /stringtype eq and } forall
+    } {
+      false
+    } ifelse
+  } ifelse
+} bind put
+/Category defineresource pop
+
+.setlanguagelevel
+
+%% Replace 1 (gs_ciddc.ps)
+(gs_ciddc.ps) runlibfile

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/gs_cidtt.ps

@@ -0,0 +1,161 @@
+%    Copyright (C) 2000 Artifex Software, Inc.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_cidtt.ps 9834 2009-07-03 09:27:02Z ken $
+% Redefine CIDFont category with an emulation with True Type fonts.
+
+languagelevel 2 .setlanguagelevel
+
+15 dict begin    % a temporary dictionary for local binding.
+
+%------------------Copy the FontEmulationProcs here : -------------------
+
+/FontEmulationProcs /ProcSet findresource {
+  def
+} forall
+
+currentdict /super.complete_instance currentdict /complete_instance get put
+
+%-------Auxiliary procedures for building CIDFontType 2 from TT file -----------
+
+/GenerateCIDMap   % <font> GenerateCIDMap <font>
+{ begin
+    % Obtain the maximal CID :
+    %   This implementation doesn't check whether glyphs really present.
+    Decoding /CIDCount get /CIDCount exch def
+    % Prepare the CIDMap structure :
+    /CIDMap [
+      CIDCount 22000 le {
+        CIDCount 2 mul string
+      } {
+        44000 string
+        CIDCount 44000 gt {
+	   % need three strings
+           44000 string		% 22000 2 mul string
+           CIDCount 44000 sub 2 mul string
+        } {
+           CIDCount 22000 sub 2 mul string
+        } ifelse
+      } ifelse
+    ] def
+    % Now fill it :
+    Decoding TT_cmap SubstNWP GDBytes CIDMap .fillCIDMap
+  currentdict end
+} bind def
+
+/GenerateIdentityCIDMap   % <font> GenerateCIDMap <font>
+{ begin
+    /CIDMap [ 44000 string 44000 string 44000 string] def
+    CIDMap .fillIdentityCIDMap
+  currentdict end
+} bind def
+
+/load_sfnts  % <FontDict> load_sfnts <FontDict> 
+{ % Read the True Type file from the path /Path, and buld /sfnts,
+  % skipping glyf and loca. 
+  dup /Path get                                            % <font> (path)
+  QUIET not {
+    (Loading a TT font from ) print dup print 
+    ( to emulate a CID font ) print 1 index /CIDFontName get =only ( ... ) print
+  } if
+  (r) file dup                                             % <font> file file
+  3 1 roll                                                 % file <font> file
+  1 index /SubfontID .knownget not { 0 } if                % file <font> file SubfontID
+  .load_tt_font_stripped exch copy                         % file <font>
+  QUIET not {
+    (Done.) =
+  } if
+  dup 3 1 roll                                             % <font> file <font>
+  exch /File exch put                                      % <font>
+  dup dup /CIDSystemInfo get /Ordering get (.)             % <font> () ()
+  2 index /Decoding get =string cvs                        % <font> () () ()
+  concatstrings concatstrings cvn /Decoding exch put       % <font>
+  dup dup /CIDSystemInfo get /Ordering get (-WMode)        % <font> <font> () ()
+  concatstrings cvn /SubstCID 
+  2 copy resourcestatus {
+    pop pop
+    findresource /subst_CID_on_WMode exch put              % <font>
+  } {
+    pop pop pop
+  } ifelse
+  dup /Decoding get /Identity.Unicode eq {
+    //ChooseDecoding exec                                  % <font>
+    //GenerateIdentityCIDMap exec                          % <font>
+  } {
+    //ChooseDecoding exec                                  % <font>
+    //GenerateCIDMap exec                                  % <font>
+  } ifelse
+} bind def
+
+%-----------TrueType-specific methods for category redefinition : -----------
+
+/RefinePath      % <FontDict> RefinePath <FontDict>
+{ dup begin
+  Path .libfile {
+      dup .filename {
+        currentdict exch /Path exch put
+      } if
+      closefile
+  } {
+    (Can't find the font file ) print =
+    /findfont cvx /undefinedfilename signalerror
+  } ifelse
+  end
+} bind def
+
+/complete_instance  % <font_name> <FontDict> <Options> complete_FAPI_Font <font_name> <FontDict>
+{ 1 index /CIDFontType 2 put % Other types are not emulated yet.
+  //super.complete_instance exec
+  //RefinePath exec
+  //load_sfnts exec
+} bind def
+
+/IsMyRecord      % <raw_record> -> <raw_record> bool
+{ dup type /dicttype eq { dup /FileType .knownget { /TrueType eq } { false } ifelse } { false } ifelse
+} bind def
+
+/IsActive       % <record> IsActive <bool>
+{ pop true
+} bind def
+
+/CIDFontRecordVirtualMethods //RecordVirtualMethodsStub dup length 3 add dict copy begin
+  /GetCSI //TranslateCSI def
+  /IsActive //IsActive def
+  /MakeInstance   % <Name> <record> MakeInstance <Name> <Instance> <size>
+  { currentglobal 3 1 roll true setglobal
+    //CIDFontOptions //complete_instance exec
+    2 copy //GetSize exec
+    4 3 roll setglobal
+  } bind def
+currentdict end def
+
+% Redefine the /CIDFont category :
+4 dict begin
+  /CategoryName /CIDFont def
+  /IsMapFileOptional true def
+  /VerifyMap  { pop } bind def
+  /PreprocessRecord  % <map> <Name> <raw_record> PreprocessRecord <map> <Name> <record> <bool>
+  { //IsMyRecord exec dup {
+      pop dup /RecordVirtualMethods //CIDFontRecordVirtualMethods put
+      true
+    } if
+  } bind def
+currentdict end
+
+/MappedCategoryRedefiner /ProcSet findresource /Redefine get exec
+
+end  % the temporary dictionary for local binding.
+
+.setlanguagelevel

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/gs_cmap.ps

@@ -0,0 +1,549 @@
+%    Copyright (C) 1995, 2000 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_cmap.ps 8954 2008-08-08 04:22:38Z ray $
+% ProcSet for implementing CMap resources.
+% When this is run, systemdict is still writable.
+
+% NOTE: Rearranged fonts are not implemented yet.
+
+[
+   /CMERGE_DEBUG
+   /USE_CIDCHAR_AS_RANGE
+] {dup where {pop pop} { currentdict exch //false def pop } ifelse} forall
+
+% ---------------- Public operators ---------------- %
+
+/.rewriteTempMapsNotDef {
+  %
+  % Before building .CodeMapData from .TempMaps,
+  % we need to replace dst type codes in the notdef map with the value 3,
+  % which corresponds to CODE_VALUE_NOTDEF, see gxfcmap.h .
+  %
+  CMAPDEBUG { (rewriting TempMapsNotDef\n) print flush } if
+  .TempMaps 2 get
+  dup length 0 gt {
+    0 get
+    CMAPDEBUG { (...original...\n) print flush } if
+    1 5 2 index length 1 sub {
+      { 1 index exch get 2 3 put } stopped
+      { CMAPDEBUG { (cannot rewrite\n) print flush } if }
+      { CMAPDEBUG { (rewrite\n) print flush } if } ifelse
+    } for
+  } if
+  pop
+  CMAPDEBUG { (...FINISHED...\n) print } if
+} bind def
+
+/.composefontdict {		% <name> <cmap|cmapname> <fonts> composefont <name> <font_dict>
+  10 dict begin
+    /CMap 2 index dup type /dicttype ne { /CMap findresource } if def
+    /FDepVector 1 index cvlit def	% temporarily
+    /Encoding [ 0 1 FDepVector length 1 sub { } for ] def
+    /FontInfo 1 dict def % for .processToUnicode in pdf_font.ps .
+    /FDepVector [ 0 1 FDepVector length 1 sub {
+		% Stack: name cmap[name] fonts /FDepVector [ fonts... i
+      FDepVector 1 index get
+      dup type /dicttype ne {
+	dup /CIDFont resourcestatus {
+	  pop pop /CIDFont
+	} {
+	  /Font
+	} ifelse findresource
+      } if
+      exch CMap /FontMatrices get dup length 2 index gt {
+	exch get dup //null eq { pop } { makefont } ifelse
+      } {
+	pop pop
+      } ifelse
+    } for ] readonly def
+    /FMapType 9 def
+    /FontMatrix matrix def
+    /FontName 3 index def
+    CMap /WMode .knownget { /WMode exch def } if
+    /FontType 0 def
+  pop pop currentdict end 
+} bind odef
+
+% composefont doesn't appear in CMap files -- it's documented in
+% the "PostScript Language Reference Manual Supplement".
+/composefont {		% <name> <cmap|cmapname> <fonts> composefont <font>
+  .composefontdict /Font defineresource
+} bind def
+
+% ---------------- CMap operators ---------------- %
+
+40 dict begin
+
+% Our internal .CodeMapData structure closely mirrors the structures
+% defined in gxfcmap.h (q.v.).  () indicate a string, [] indicate an array,
+% ? indicates a Boolean, # indicates an integer, {} for grouping.
+%	[[[(first) (last) ...]+]		% code space ranges
+%	 [[(prefix) (key_size,?is_range,value_type,value_size) (keys...)
+%	   {(values...) | [value ...]} #font_index ]+]	% code mappings
+%	  ...]
+%	 <<same>>		% notdef mappings
+%	]
+% FontMatrices is the array of matrices defined by begin/endusematrix.
+% All of the arrays and strings are read-only after they have been built.
+%
+% Note that the code in zfcmap.c that constructs the C structures from
+% the PostScript structures has intimate knowledge of the above format.
+
+% ****** NOTE: The code currently only handles "well-behaved" CMaps:
+%	- CID values only (no bfchars), 16-bit
+%	- Entries (both code space and map) must be sorted
+%	- Only the last byte must vary in each map range, except for
+%	the identity mapping
+
+% ------ Font-level operators ------ %
+
+/begincmap {		% - begincmap -
+  /.CodeMapData [[[]] [[]] [[]]] def
+  /FontMatrices [] def
+  /.FontIndex 0 def
+  /.TempMaps [20 dict 50 dict 50 dict] def
+  /CodeMap //null def		% for .buildcmap
+} bind def
+
+/endcmap {		% - endcmap -
+  .rewriteTempMapsNotDef
+
+  CMAPDEBUG {
+    2 (*** undefined charmap ***)
+    1 (*** defined charmap ***)
+    0 (*** code space ranges ***)
+    3 { =
+      .TempMaps exch get
+      0 1 2 index length 1 sub {
+        dup == (\t) print
+        1 index exch get ==
+      } for
+      pop
+    } repeat
+  } if
+  
+  /.CodeMapData dup load [ exch
+    .TempMaps aload pop begin begin begin 
+    {
+      [ exch aload pop
+        0 1 currentdict length 1 sub { 
+           currentdict exch get 
+        } for 
+      ]
+      end
+    } forall
+  ] .endmap def
+
+  CMAPDEBUG {
+    (*** Content of .CodeMapData ***) =
+    0 .CodeMapData { exch dup == 1 add exch (\t) print == } forall
+    pop
+  } if
+
+  currentdict /.TempMaps undef
+  /FontMatrices FontMatrices .endmap def
+} bind def
+
+/.endmap {		% <map> .endmap <map>
+  dup type /arraytype eq {
+	% This might be a shared read-only array inherited via usecmap.
+	% Don't try to update its elements if this is the case.
+    dup wcheck {
+      0 1 2 index length 1 sub {
+	2 copy 2 copy get .endmap put pop
+      } for readonly
+    } if
+  } {
+    dup type /stringtype eq { readonly } if
+  } ifelse
+} bind def
+
+/.appendmap {		% -mark- <elt> ... <array#> .appendmap -
+  .TempMaps exch get counttomark 1 add 1 roll
+  ] 1 index length exch put
+} bind def
+
+/begincodespacerange {	% <count> begincodespacerange -
+  pop mark
+} bind def
+
+/endcodespacerange {	% <code_lo> <code_hi> ... endcodespacerange -
+  0 .appendmap
+} bind def
+
+/usecmap {		% <CMap_name> usecmap -
+  /CMap findresource dup
+		% Copy the top level of .CodeMapData
+  /.CodeMapData exch /.CodeMapData get copyarray def
+  /FontMatrices exch /FontMatrices get copyarray def
+} bind def
+
+/usefont {		% <fontID> usefont -
+  /.FontIndex exch def
+} bind def
+
+/beginusematrix {	% <fontID> beginusematrix -
+  FontMatrices wcheck not FontMatrices length 2 index le or {
+    FontMatrices length 1 index 1 add .max array
+    dup 0 FontMatrices putinterval
+    /FontMatrices exch def
+  } if
+} bind def
+
+/endusematrix {		% <matrix> endusematrix -
+  FontMatrices 3 1 roll put
+} bind def
+
+% ------ Rearranged font operators ------ %
+
+/beginrearrangedfont {	% <font_name> <font*> beginrearrangedfont -
+  10 dict begin
+  /.FontNames exch def
+  /.FontName exch def
+  begincmap
+} bind def
+/endrearrangedfont {	% - endrearrangedfont -
+  (REARRANGED FONTS NOT IMPLEMENTED YET.) = flush
+  FontName .FontNames 0 get findfont end definefont pop
+} bind def
+
+% ------ Character name/code selector operators ------ %
+
+/beginbfchar {		% <count> beginbfchar -
+  pop mark
+} bind def
+/endbfchar {		% <code> <to_code|charname> ... endbfchar
+  counttomark 2 idiv {
+    counttomark -2 roll		% process in correct order
+    .addbfchar
+  } repeat 1 .appendmap
+} bind def
+
+/beginbfrange {		% <count> beginbfrange -
+  pop mark
+} bind def
+/endbfrange {		% <code_lo> <code_hi> <to_code|(charname*)> ...
+			%   endbfrange -
+  counttomark 3 idiv {
+    counttomark -3 roll		% process in correct order
+    dup type dup /arraytype eq exch /packedarraytype eq or {
+			% Array value, split up.
+      exch pop {
+			% Stack: code to_code|charname
+	1 index exch .addbfchar
+			% Increment the code.  As noted above, we require
+			% that only the last byte vary, but we still must
+			% mask it after incrementing, in case the last
+			% value was 0xff.
+			% Stack: code prefix params key value fontindex
+	6 -1 roll dup length string copy
+	dup dup length 1 sub 2 copy get 1 add 255 and put
+      } forall pop
+    } {
+			% Single value, handle directly.
+      .addbfrange
+    } ifelse
+  } repeat 1 .appendmap
+} bind def
+
+/.addbfchar {		% <code> <to_code|charname> .addbfchar
+			%   <prefix> <params> <key> <value> <font_index>
+  1 index exch .addbfrange
+} bind def
+/.addbfrange {		% <code_lo> <code_hi> <to_code|charname>
+			%   .addbfrange <<same as .addbfchar>>
+  4 string dup 3
+  3 index type /nametype eq {
+    2 index 2 1 put % dst = CODE_VALUE_GLYPH, see gxfcmap.h .
+    4 -1 roll 1 array astore 4 1 roll 4
+  } {
+    2 index 2 2 put % dst = CODE_VALUE_CHARS, see gxfcmap.h .
+    3 index length
+  } ifelse put
+			% Stack: code_lo code_hi value params
+  3 index 3 index eq {
+			% Single value.
+    3 -1 roll pop exch () exch
+  } {
+			% Range.
+    dup 0 1 put dup 1 1 put
+    4 2 roll
+    dup dup length 1 sub 0 exch getinterval 5 1 roll	% prefix
+			% Stack: prefix value params code_lo code_hi
+    2 { exch dup length 1 sub 1 getinterval } repeat concatstrings
+    3 -1 roll
+  } ifelse
+  .FontIndex
+} bind def
+
+% ------ CID selector operators ------ %
+
+/begincidchar {		% <count> begincidchar -
+  pop mark
+} bind def
+/endcidchar {		% <code> <cid> ... endcidchar -
+  1 .endmapchars
+} bind def
+
+/begincidrange {	% <count> begincidrange -
+  pop mark
+} bind def
+/endcidrange {		% <code_lo> <code_hi> <cid_base> ... endcidrange -
+  1 .endmapranges
+} bind def
+
+/.endmapchars {         % -mark- <code> <cid> ... <map#> .endmapchars -
+  counttomark 1 add 1 roll
+  counttomark 2 idiv {
+    counttomark -2 roll         % process in correct order
+    exch        % <cid> <code>
+                % Construct prefix, params, key, value, font_index
+    dup length 1 eq {   % 1-byte
+      <00 00 00 02> ()  % <prefix> <param> <null_key>
+    } {                 % N-byte
+      dup 0 1 getinterval exch  % make 1-byte prefix
+      4 string dup 0
+      USE_CIDCHAR_AS_RANGE {
+        <00 01 00 02>   % skelton for param
+      } {
+        <00 00 00 02>   % skelton for param
+      } ifelse
+      putinterval
+      exch              % <prefix> <param> <code>
+      dup length        % <prefix> <param> <code> N
+      1 sub             % <prefix> <param> <code> N-1
+      dup               % <prefix> <param> <code> N-1 N-1
+      3 index           % <prefix> <param> <code> N-1 N-1 <param>
+      exch              % <prefix> <param> <code> N-1 <param> N-1
+      0 exch            % <prefix> <param> <code> N-1 <param> 0 N-1
+      put               % <prefix> <param'> <code> N-1
+      1 exch            % <prefix> <param'> <code> 1 N-1
+      getinterval       % <prefix> <param'> <key>
+
+      USE_CIDCHAR_AS_RANGE {
+        dup length 2 mul string % <key> <dkey>
+        dup                     % <key> <dkey> <dkey>
+        2 index                 % <key> <dkey> <dkey> <key>
+        0 exch putinterval      % <key> <dkey'>
+        dup                     % <key> <dkey'> <dkey'>
+        3 -1 roll               % <dkey'> <dkey'> <key>
+        dup length              % <dkey'> <dkey'> <key> N-1
+        exch putinterval        % <dkey''>
+      } if
+
+    } ifelse
+
+    4 -1 roll           % <prefix> <param'> <key> <cid>
+    .endmapvalue        % <prefix> <param'> <key> <hex_cid> <font_idx>
+    % prefix params keys value fontindex
+    counttomark 5 gt { % 2 (or more) ranges (1 range = 5 item)
+       4 index 10 index eq      % compare prefix
+       4 index 10 index eq and  % compare params
+       1 index 7 index eq and   % compare fontindex
+        {
+          CMAPDEBUG { (merge! char\n) print } if
+          pop 4 2 roll pop pop
+           % prefix params keys value fontindex keys2 value2
+          5 -1 roll 3 -1 roll concatstrings
+           % prefix params value fontindex value2 keys'
+          4 -1 roll 3 -1 roll concatstrings
+           % prefix params fontindex keys' values'
+          3 -1 roll
+        } if
+     } if % end of 2 (or more) ranges
+    CMERGE_DEBUG {
+    ( prefix:) print 4 index =only
+    ( param:) print 3 index =only
+    ( key:) print 2 index =only
+    ( hex_cid:) print 1 index =only
+    ( font_idx:) print 0 index == flush
+    } if
+  } repeat
+  counttomark 2 add -1 roll .appendmap
+} bind def
+
+/.endmapranges {	% -mark- <code_lo> <code_hi> <cid_base> ... <map#>
+			%   .endmapranges -
+  counttomark 1 add 1 roll
+  counttomark 3 idiv {
+    counttomark -3 roll		% process in correct order
+		% Construct prefix, params, key_lo, key_hi, value, font_index
+    3 1 roll	% <cid_base> <code_lo> <code_hi>
+		%		prefix	key
+		% 1-byte code:	()	.
+		% 1-byte range:	()	.
+		% N-byte code:	.	(*)
+		% N-byte range:	(*)	(*)
+    dup 2 index eq {	% <code_lo> == <code_hi>
+           		% 0: prefix_len for 1-byte code
+           		% 1: prefix_len for N-byte code
+       dup length 1 eq { 0 } { 1 } ifelse
+    } {			% <code_lo> != <code_hi>
+     			% calculate prefix_len for *-byte range
+       dup length 1 sub % <cid_base> <code_lo> <code_hi> <code_len-1>
+       0		% initial value for N
+       {		% <cid_base> <code_lo> <code_hi> (code_len-1)  N
+           dup 2 index ge { exit } if % if (N >= len - 1) exit
+           3 index 1 index get	% N-th byte of code_lo
+           3 index 2 index get	% N-th byte of code_hi
+           eq { 1 add } { exit } ifelse
+       } loop
+       exch pop 	% discard <code_len-1>
+    } ifelse
+				% cid_base code_lo code_hi prefix_len
+
+    % Althogh Adobe CPSI with native CID/CMap support accept
+    % multi-dimensional range specification in notdef & cidrange
+    % (and CID is calculated as relative position in multi-dimensional
+    % range), but older CPSI & ATM cannot handle it.
+    % 
+    % GS accepts such specification, but it's recommended to keep
+    % from using this feature for notdef & cidrange.
+    % Following is a disabler of this feature.
+    % -------------------------------------------------------------
+    % counttomark 1 add index 	% get map#
+    % 0 ne {			% if not codespacerange
+    %   1 index length 		% get code length
+    %   1 index 			% get prefix length
+    %   sub			% calculate key length
+    %   1 gt {			% if (key_len > 1),
+    %      (.endmapranges error) = flush
+    %      (multi-dimensional range specification is used out of codespacerange)
+    %      = flush
+    %      (/) =only
+    %      CMapName CMapName length string cvs =only
+    %      (: <) =only
+    %      2 index (%stdout) (w) file exch writehexstring
+    %      (> <) =only
+    %      1 index (%stdout) (w) file exch writehexstring
+    %      (>\n) =only flush
+    %      quit
+    %   } if
+    % } if
+    % -------------------------------------------------------------
+
+    1 index exch 0 exch getinterval
+				% cid_base code_lo code_hi prefix
+    dup length 3 index length exch sub
+				% cid_base code_lo code_hi prefix range_len
+    dup 255 gt {
+       (too long coderange specification for current GS\n) print
+       /.endmapranges cvx /rangecheck signalerror
+    } if
+    <00 01 00 02> 4 string copy	% create initialized param
+    dup 0 4 -1 roll put		% put range_len into param
+
+    % get key_hi
+    3 -1 roll dup length 3 index length dup 3 1 roll sub getinterval
+
+    % get key_lo
+    4 -1 roll dup length 4 index length dup 3 1 roll sub getinterval
+
+    % make "keys" (concatenated key_lo + key_hi)
+    exch concatstrings
+
+    % 
+    4 -1 roll
+    .endmapvalue
+
+		% See if we can merge with the previous value.
+		% The prefix, params, and font index must match.
+    % prefix params keys value fontindex
+    counttomark 5 gt { % 2 (or more) ranges (1 range = 5 item)
+       4 index 10 index eq	% compare prefix
+       4 index 10 index eq and	% compare params
+       1 index 7 index eq and	% compare fontindex
+	{
+          CMAPDEBUG { (merge!\n) print } if
+	  pop 4 2 roll pop pop
+           % prefix params keys value fontindex keys2 value2
+	  5 -1 roll 3 -1 roll concatstrings
+           % prefix params value fontindex value2 keys'
+	  4 -1 roll 3 -1 roll concatstrings
+           % prefix params fontindex keys' values'
+	  3 -1 roll
+	} if
+     } if % end of 2 (or more) ranges
+  } repeat
+  counttomark 2 add -1 roll .appendmap
+} bind def
+
+/.endmapvalue {		% <cid> .endmapvalue (hi,lo) .FontIndex
+  2 string dup 0 3 index -8 bitshift put	% value
+  dup 1 4 -1 roll 255 and put
+  .FontIndex		% font_index
+} bind def
+
+% ------ notdef operators ------ %
+
+/beginnotdefchar {	% <count> beginnotdefchar -
+  pop mark
+} bind def
+/endnotdefchar {	% <code> <cid> ... endnotdefchar -
+  2 .endmapchars
+} bind def
+
+/beginnotdefrange {	% <count> beginnotdefrange -
+  pop mark
+} bind def
+/endnotdefrange {	% <code_lo> <code_hi> <cid> ... endnotdefrange -
+  2 .endmapranges
+} bind def
+
+% ---------------- Resource category definition ---------------- %
+
+currentdict end
+
+languagelevel exch 2 .setlanguagelevel
+
+/CMap /Generic /Category findresource dup length dict .copydict
+dup /InstanceType /dicttype put
+dup /DefineResource {
+		% The AdobePS5 Windows driver emits code that attempts to
+		% create CMaps without the required CMapName entry.
+		% Work around this here.
+  dup /CMapName known not {
+    dup wcheck not {
+      .currentglobal exch dup wcheck .setglobal
+      dup length dict .copydict exch .setglobal
+    } if
+    dup gcheck 2 index gcheck not and {
+      exch .currentglobal exch //true .setglobal
+      dup length string copy exch .setglobal exch
+    } if dup /CMapName 3 index put
+  } if
+  % Adobe PS CET 23-25 and others define an almost empty CMap. Tolerate this.
+  % With the above, we can actually tolerate: /name << >> defineresource
+  dup /CIDSystemInfo known not {
+    dup wcheck not {
+      .currentglobal exch dup wcheck .setglobal
+      dup length dict .copydict exch .setglobal
+    } if
+    dup /CIDSystemInfo [ //null ] put
+  } if
+  dup /CodeMap .knownget { //null eq { .buildcmap } if } if
+  /Generic /Category findresource /DefineResource get exec
+} bind put
+/Category defineresource pop
+	% We might have loaded CID font support already.
+/CIDInit /ProcSet 2 copy { findresource } .internalstopped
+	% An interior `stopped' might have reset VM allocation to local.
+//true .setglobal
+ { pop pop 3 -1 roll }
+ { dup length 4 index length add dict .copydict 4 -1 roll exch .copydict }
+ifelse exch defineresource pop
+
+.setlanguagelevel

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/gs_cmdl.ps

@@ -0,0 +1,180 @@
+%    Copyright (C) 1994, 1996, 1999 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_cmdl.ps 6300 2005-12-28 19:56:24Z giles $
+% Parse and execute the command line.
+% C code handles the following switches: -h/-? -I -M -v
+
+/cmddict 50 dict def
+cmddict begin
+
+% ---------------- Utility procedures ---------------- %
+
+% Get the next argument from the parsed argument list.
+/nextarg		% - nextarg <arg> true
+			% - nextarg false
+ { argv length 0 eq
+    { false }
+    { argv dup 0 get exch dup length 1 sub 1 exch getinterval /argv exch def }
+   ifelse
+ } bind def
+
+% Run a file, under job control if implemented.
+/runjob			% <file> runjob -
+ { end		% cmddict
+   /startjob where { pop false () startjob pop }
+   run
+   //cmddict begin
+ } bind def
+/runfilejob		% <filename> runfilejob -
+ { findlibfile { exch pop } { (r) file } runjob
+ } bind def
+
+% Expand arguments.  Free variables: expand@.
+/expandarg		% <string> expandarg <args...>
+ { dup () eq
+    { pop
+    }
+    { dup dup (--) eq exch (-+) eq or
+       { pop /expand@ false def
+       }
+       { expand@ { (@) anchorsearch } { false } ifelse
+	  { pop findlibfile
+	     { exch pop }
+	     { (r) file }		% let the error happen
+	    expandargfile
+	  }
+	 if
+       }
+      ifelse
+    }
+ } bind def
+/expandargfile		% <file> expandargfile <args...>
+ { [ exch cvlit
+    { token not { exit } if
+      dup type /stringtype ne { =string cvs dup length string copy } if
+      expandarg
+    }
+   /exec cvx
+   ] cvx loop
+ } bind def
+
+% ---------------- Recognized switches ---------------- %
+
+% Switches with arguments are defined as <x>;
+% switches without arguments are defined as -<x>.
+
+% Switches without arguments
+/--
+ { nextarg not
+    { (-- and -+ require a file name.) = flush }
+    { //systemdict /ARGUMENTS argv put /argv [] def runjob }
+   ifelse
+ } bind def
+/-+ /-- load def
+/-@ /-- load def
+/-A { (@) Z } bind def
+/-c
+ {  { argv length 0 eq { exit } if
+      argv 0 get (-) anchorsearch { pop pop exit } if
+      pop nextarg token
+       { exch pop			% Probably should check for empty.
+	 end exec //cmddict begin
+       }
+      if
+    }
+   loop
+ } bind def
+/-e { (#) Z } bind def
+/-E /-e load def
+/-f { } def
+/-q { //systemdict /QUIET true put } bind def
+
+% Switches with arguments
+/d
+ { (=) search not { (#) search not { () exch dup } if } if
+   exch pop cvn dup where
+    { pop (Redefining ) print print ( is not allowed.) = flush pop }
+    { exch token
+       { exch pop }		% Probably should check for empty.
+       { true }
+      ifelse
+      //systemdict 3 1 roll put
+    }
+   ifelse
+ } bind def
+/D /d load def
+/f { dup length 0 ne { runfilejob } if } bind def
+/g
+ { (x) search { cvi pop exch cvi } { cvi dup } ifelse
+   //systemdict begin /DEVICEHEIGHT exch def /DEVICEWIDTH exch def end
+ } bind def
+/r
+ { (x) search { cvr pop exch cvr } { cvr dup } ifelse
+   //systemdict begin /DEVICEYRESOLUTION exch def /DEVICEXRESOLUTION exch def end
+ } bind def
+/s
+ { (=) search not { (#) search not { () exch dup } if } if
+   exch pop cvn dup where { pop dup load } { () } ifelse
+   type /stringtype ne
+    { (Redefining ) print print ( is not allowed.) = flush pop }
+    { exch //systemdict 3 1 roll put }
+   ifelse
+ } bind def
+/S /s load def
+/Z { true .setdebug } bind def
+
+% ---------------- Main program ---------------- %
+
+% We process the command line in two passes.  In the first pass,
+% we read and expand any @-files as necessary.  The second pass
+% does the real work.
+
+/cmdstart
+ { //cmddict begin
+   /expand@ true def
+   [
+		% Process the GS_OPTIONS environment variable.
+   (GS_OPTIONS) getenv { 0 () /SubFileDecode filter expandargfile } if
+		% Process the actual command line.
+   .getargv { expandarg } forall
+   ] readonly /argv exch def
+		% Now interpret the commands.
+    { nextarg not { exit } if
+      dup 0 get (-) 0 get eq
+       { dup length 1 eq
+	  { pop (%stdin) (r) file runjob
+	  }
+	  { dup length 2 gt
+	     { dup dup length 2 sub 2 exch getinterval exch 1 1 getinterval }
+	    if currentdict .knownget
+	     { exec
+	     }
+	     { (Ignoring unknown switch ) print
+	       dup length 1 eq { (-) print print } if print
+	       () = flush
+	     }
+	    ifelse
+	  }
+	 ifelse
+       }
+       { runfilejob
+       }
+      ifelse
+    }
+   loop end
+ } bind def
+
+end		% cmddict

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/gs_cspace.ps

@@ -0,0 +1,190 @@
+%    Copyright (C) 2002 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_cspace.ps 10566 2009-12-29 01:17:48Z alexcher $
+% basic colorspace mechanism
+
+%
+% There have been some major changes to the PostScript colour handling.
+% In particular, the vast majority of the colour space code has been
+% converted from PostScript to C. This file has been extensively
+% modified, as has gs_icc.ps. The remaining PostScript files which 
+% previously implemented colour space handling; gs_ciecs2.ps, gs_ciecs3.ps
+% gs_devcs.ps, gs_devn.ps, gs_devpxl.ps, gs_indxd.ps, gs_patrn.ps and
+% gs_sepr.ps have been superceded by the C code and removed.
+%
+% gs_lev2.ps and gs_ll3.ps have also been modified so that they no longer
+% attempt to execute these PostScript files.
+%
+.currentglobal true .setglobal
+systemdict begin
+
+%
+% gs_res.ps, and possibly other files, use this dictionary. Formerly
+% in cspace_util, moved to systemdict.
+%
+20 dict dup /colorspacedict exch def
+
+begin % colorspacedict
+
+%
+% gs_res.ps uses these entries in colorspacedict
+% to populate the ColorSpaceFamily resource, so we need
+% to add the supported spaces.
+%
+/DeviceGray [] def
+/DeviceRGB [] def
+/DeviceCMYK [] def
+end % colorspacedict
+
+%
+% Global, read-only, unpacked, array-form device color spaces
+% We need to return an array argument in response to currentcolorspace
+% even if the argument presented to setcolorspace was a simple device
+% space name. Not only that, but in order to satisfy some Adobe
+% applications, it must be the *same* array every time. The only way
+% to do that is to define an appropriate set initial arrays and always return 
+% one of those. These arrays are defined here.
+%
+/DeviceGray_array /DeviceGray 1 array astore readonly def
+/DeviceRGB_array  /DeviceRGB  1 array astore readonly def
+/DeviceCMYK_array /DeviceCMYK 1 array astore readonly def
+
+%
+%   -   initgraphics   -
+%
+% The internal routine gs_initgraphics doesn't (re)set the color space,
+% so we must redefine the operation to do it here.
+%
+%
+/initgraphics
+  { initgraphics systemdict /DeviceGray_array get setcolorspace }
+.bind odef 
+
+
+%
+% These routines used for the NOSUBSTDEVICECOLORS switch. This prevents 
+% substitution of DeviceGray, DeviceRGB and DeviceCMYK with a Default*
+% colour space when /UseCIEColors is true. If the job includes a
+% definition of /DefaltGray, DefaultRGB or DefaultCMYK then it also executes
+% .includecolorspace to allow the device to record the substitute space.
+%
+/..page_default_spaces 3 dict def
+
+%
+% Used internally to retrieve any relevant default colour space.
+%
+% <Default space name> ..nosubstdevicetest false
+%                                          <Default space name> [space] true
+%
+% If the boolean is true then the C code must set the additional colour space
+% and execute .includecolorspace before finally setting a DeviceGray space.
+%
+/..nosubstdevicetest
+{
+  false mark 3 -1 roll
+  % If we have already recorded this space, don't repeat it.
+  systemdict /..page_default_spaces get 1 index known {
+    cleartomark
+  } {
+    {
+      % Check to see if this space was defined by defineresource, if so then 
+      % the job defined it, otherwise its the usual default, so ignore it. 
+      dup /ColorSpace resourcestatus {
+        pop 0 eq {
+		  % Default* defined by defineresource
+          systemdict /..page_default_spaces get 1 index //true put
+		  dup /ColorSpace findresource 4 2 roll pop pop true 
+        }{
+          cleartomark
+        } ifelse
+      }{
+        cleartomark
+      } ifelse
+    } stopped
+    {cleartomark}if
+  } ifelse
+}bind def
+
+%
+% <color_space_name> ..includecolorspace -
+%
+/..includecolorspace
+{ 
+  % If we have already recorded this space, don't repeat it.
+  systemdict /..page_default_spaces get 1 index known {
+    pop
+  } {
+    mark exch
+    {
+    % Check to see if this space was defined by defineresource, if so then 
+    % the job defined it, otherwise its the usual default, so ignore it. 
+    dup /ColorSpace resourcestatus {
+        pop 0 eq {
+          % Job defined /Default*, so record it and allow the device access to it
+          systemdict /..page_default_spaces get 1 index //true put
+          gsave
+          { dup /ColorSpace findresource //setcolorspace exec .includecolorspace
+          } stopped pop
+          grestore
+        } if
+      } if
+    } stopped pop
+    cleartomark
+  } ifelse
+} bind def
+
+%
+% <color_space> <color_space_name> cs_substitute_generic <color_space1> <color_space2>
+%
+/cs_substitute_generic
+{ .getuseciecolor
+    {NOSUBSTDEVICECOLORS 
+        { //..includecolorspace exec dup }
+        { /ColorSpace findresource }
+      ifelse
+    }
+    { pop dup }
+  ifelse
+}
+bind def
+
+%
+% <color_space> <color_space_name> cs_substitute_DeviceRGB_for_PDFX_or_PDFA <color_space1> <color_space2>
+%
+/cs_substitute_DeviceRGB_for_PDFX_or_PDFA
+{ systemdict /PDFX .knownget not { false } if
+  systemdict /PDFA .knownget not { false } if
+  or {
+    dup /ColorSpace resourcestatus {
+      pop pop
+    } {
+      (Error: Need a /DefaultRGB /ColorSpace resource for generating a PDF/X or PDF/A document.) =
+      /cs_substitute_DeviceRGB_for_PDFX_or_PDFA cvx /undefined signalerror
+    } ifelse
+    /ColorSpace findresource
+  } {
+    //cs_substitute_generic exec
+  } ifelse   
+} bind def
+end 
+
+%
+% Set the initial device space
+%
+systemdict /DeviceGray_array get setcolorspace
+
+
+.setglobal

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/gs_css_e.ps

@@ -0,0 +1,114 @@
+%    Copyright (C) 1999 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_css_e.ps 8954 2008-08-08 04:22:38Z ray $
+% Define the CFF StandardStrings that represent characters.
+% This is a pseudo-encoding.
+/currentglobal where
+ { pop currentglobal { setglobal } true setglobal }
+ { { } }
+ifelse
+/CFFStandardStrings mark
+
+% 0
+  /.notdef /space /exclam /quotedbl /numbersign
+  /dollar /percent /ampersand /quoteright /parenleft
+  /parenright /asterisk /plus /comma /hyphen
+  /period /slash /zero /one /two
+  /three /four /five /six /seven
+  /eight /nine /colon /semicolon /less
+  /equal /greater /question /at /A
+  /B /C /D /E /F
+  /G /H /I /J /K
+  /L /M /N /O /P
+% 50
+  /Q /R /S /T /U
+  /V /W /X /Y /Z
+  /bracketleft /backslash /bracketright /asciicircum /underscore
+  /quoteleft /a /b /c /d
+  /e /f /g /h /i
+  /j /k /l /m /n
+  /o /p /q /r /s
+  /t /u /v /w /x
+  /y /z /braceleft /bar /braceright
+  /asciitilde /exclamdown /cent /sterling /fraction
+% 100
+  /yen /florin /section /currency /quotesingle
+  /quotedblleft /guillemotleft /guilsinglleft /guilsinglright /fi
+  /fl /endash /dagger /daggerdbl /periodcentered
+  /paragraph /bullet /quotesinglbase /quotedblbase /quotedblright
+  /guillemotright /ellipsis /perthousand /questiondown /grave
+  /acute /circumflex /tilde /macron /breve
+  /dotaccent /dieresis /ring /cedilla /hungarumlaut
+  /ogonek /caron /emdash /AE /ordfeminine
+  /Lslash /Oslash /OE /ordmasculine /ae
+  /dotlessi /lslash /oslash /oe /germandbls
+% 150
+  /onesuperior /logicalnot /mu /trademark /Eth
+  /onehalf /plusminus /Thorn /onequarter /divide
+  /brokenbar /degree /thorn /threequarters /twosuperior
+  /registered /minus /eth /multiply /threesuperior
+  /copyright /Aacute /Acircumflex /Adieresis /Agrave
+  /Aring /Atilde /Ccedilla /Eacute /Ecircumflex
+  /Edieresis /Egrave /Iacute /Icircumflex /Idieresis
+  /Igrave /Ntilde /Oacute /Ocircumflex /Odieresis
+  /Ograve /Otilde /Scaron /Uacute /Ucircumflex
+  /Udieresis /Ugrave /Yacute /Ydieresis /Zcaron
+% 200
+  /aacute /acircumflex /adieresis /agrave /aring
+  /atilde /ccedilla /eacute /ecircumflex /edieresis
+  /egrave /iacute /icircumflex /idieresis /igrave
+  /ntilde /oacute /ocircumflex /odieresis /ograve
+  /otilde /scaron /uacute /ucircumflex /udieresis
+  /ugrave /yacute /ydieresis /zcaron /exclamsmall
+  /Hungarumlautsmall /dollaroldstyle /dollarsuperior /ampersandsmall /Acutesmall
+  /parenleftsuperior /parenrightsuperior /twodotenleader /onedotenleader /zerooldstyle
+  /oneoldstyle /twooldstyle /threeoldstyle /fouroldstyle /fiveoldstyle
+  /sixoldstyle /sevenoldstyle /eightoldstyle /nineoldstyle /commasuperior
+% 250
+  /threequartersemdash /periodsuperior /questionsmall /asuperior /bsuperior
+  /centsuperior /dsuperior /esuperior /isuperior /lsuperior
+  /msuperior /nsuperior /osuperior /rsuperior /ssuperior
+  /tsuperior /ff /ffi /ffl /parenleftinferior
+  /parenrightinferior /Circumflexsmall /hyphensuperior /Gravesmall /Asmall
+  /Bsmall /Csmall /Dsmall /Esmall /Fsmall
+  /Gsmall /Hsmall /Ismall /Jsmall /Ksmall
+  /Lsmall /Msmall /Nsmall /Osmall /Psmall
+  /Qsmall /Rsmall /Ssmall /Tsmall /Usmall
+  /Vsmall /Wsmall /Xsmall /Ysmall /Zsmall
+% 300
+  /colonmonetary /onefitted /rupiah /Tildesmall /exclamdownsmall
+  /centoldstyle /Lslashsmall /Scaronsmall /Zcaronsmall /Dieresissmall
+  /Brevesmall /Caronsmall /Dotaccentsmall /Macronsmall /figuredash
+  /hypheninferior /Ogoneksmall /Ringsmall /Cedillasmall /questiondownsmall
+  /oneeighth /threeeighths /fiveeighths /seveneighths /onethird
+  /twothirds /zerosuperior /foursuperior /fivesuperior /sixsuperior
+  /sevensuperior /eightsuperior /ninesuperior /zeroinferior /oneinferior
+  /twoinferior /threeinferior /fourinferior /fiveinferior /sixinferior
+  /seveninferior /eightinferior /nineinferior /centinferior /dollarinferior
+  /periodinferior /commainferior /Agravesmall /Aacutesmall /Acircumflexsmall
+% 350
+  /Atildesmall /Adieresissmall /Aringsmall /AEsmall /Ccedillasmall
+  /Egravesmall /Eacutesmall /Ecircumflexsmall /Edieresissmall /Igravesmall
+  /Iacutesmall /Icircumflexsmall /Idieresissmall /Ethsmall /Ntildesmall
+  /Ogravesmall /Oacutesmall /Ocircumflexsmall /Otildesmall /Odieresissmall
+  /OEsmall /Oslashsmall /Ugravesmall /Uacutesmall /Ucircumflexsmall
+  /Udieresissmall /Yacutesmall /Thornsmall /Ydieresissmall
+% 379 = end
+
+counttomark packedarray exch pop
+10 1 index .registerencoding
+.defineencoding
+exec

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/gs_dbt_e.ps

@@ -0,0 +1,59 @@
+%    Copyright (C) 1993, 1994 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_dbt_e.ps 8954 2008-08-08 04:22:38Z ray $
+% Define the Dingbats encoding vector.
+/currentglobal where
+ { pop currentglobal { setglobal } true setglobal }
+ { { } }
+ifelse
+/DingbatsEncoding
+% \000
+    StandardEncoding 0 32 getinterval aload pop		% /.notdef
+% \040
+    /space /a1 /a2 /a202 /a3 /a4 /a5 /a119
+    /a118 /a117 /a11 /a12 /a13 /a14 /a15 /a16
+    /a105 /a17 /a18 /a19 /a20 /a21 /a22 /a23
+    /a24 /a25 /a26 /a27 /a28 /a6 /a7 /a8
+% \100
+    /a9 /a10 /a29 /a30 /a31 /a32 /a33 /a34
+    /a35 /a36 /a37 /a38 /a39 /a40 /a41 /a42
+    /a43 /a44 /a45 /a46 /a47 /a48 /a49 /a50
+    /a51 /a52 /a53 /a54 /a55 /a56 /a57 /a58
+% \140
+    /a59 /a60 /a61 /a62 /a63 /a64 /a65 /a66
+    /a67 /a68 /a69 /a70 /a71 /a72 /a73 /a74
+    /a203 /a75 /a204 /a76 /a77 /a78 /a79 /a81
+    /a82 /a83 /a84 /a97 /a98 /a99 /a100 /.notdef
+% \200
+    StandardEncoding 0 32 getinterval aload pop		% /.notdef
+% \240
+    /.notdef /a101 /a102 /a103 /a104 /a106 /a107 /a108
+    /a112 /a111 /a110 /a109 /a120 /a121 /a122 /a123
+    /a124 /a125 /a126 /a127 /a128 /a129 /a130 /a131
+    /a132 /a133 /a134 /a135 /a136 /a137 /a138 /a139
+% \300
+    /a140 /a141 /a142 /a143 /a144 /a145 /a146 /a147
+    /a148 /a149 /a150 /a151 /a152 /a153 /a154 /a155
+    /a156 /a157 /a158 /a159 /a160 /a161 /a163 /a164
+    /a196 /a165 /a192 /a166 /a167 /a168 /a169 /a170
+% \340
+    /a171 /a172 /a173 /a162 /a174 /a175 /a176 /a177
+    /a178 /a179 /a193 /a180 /a199 /a181 /a200 /a182
+    /.notdef /a201 /a183 /a184 /a197 /a185 /a194 /a198
+    /a186 /a195 /a187 /a188 /a189 /a190 /a191 /.notdef
+256 packedarray .defineencoding
+3 DingbatsEncoding .registerencoding
+exec

XHWK.WKTool/PrintTool/Ghostscript/gs8.71/lib/gs_diskf.ps

@@ -0,0 +1,224 @@
+%    Copyright (C) 1996 Aladdin Enterprises.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_diskf.ps 8954 2008-08-08 04:22:38Z ray $
+% Support for converting Type 1 fonts without eexec encryption to
+% Type 4 fonts that load individual character outlines on demand.
+
+% If DISKFONTS is true, we load individual CharStrings as they are needed.
+% (This is intended primarily for machines with very small memories.)
+% Initially, the character definition is the file position of the definition;
+% this gets replaced with the actual CharString.
+% Note that if we are loading characters lazily, CharStrings is writable.
+
+% _Cstring must be long enough to hold the longest CharString for
+% a character defined using seac.  This is lenIV + 4 * 5 (for the operands
+% of sbw, assuming div is not used) + 2 (for sbw) + 3 * 5 (for the operands
+% of seac other than the character codes) + 2 * 2 (for the character codes)
+% + 2 (for seac), i.e., lenIV + 43.
+
+/_Cstring 60 string def
+
+% When we initially load the font, we call
+%	<index|charname> <length> <readproc> cskip_C
+% to skip over each character definition and return the file position instead.
+% This substitutes for the procedure
+%	<index|charname> <length> string currentfile exch read[hex]string pop
+%	  [encrypt]
+% What we actually store in the CharString is fileposition * 1000 + length,
+%   negated if the string is stored in binary form.
+
+/cskip_C
+ { exch dup 1000 ge 3 index type /nametype ne or
+    { % This is a Subrs string, or the string is so long we can't represent
+      % its length.  Load it now.
+      exch exec
+    }
+    { % Record the position and length, and skip the string.
+      dup currentfile fileposition 1000 mul add
+      2 index 3 get /readstring cvx eq { neg } if
+      3 1 roll
+      dup _Cstring length idiv
+       { currentfile _Cstring 3 index 3 get exec pop pop
+       } repeat
+      _Cstring length mod _Cstring exch 0 exch getinterval
+      currentfile exch 3 -1 roll 3 get exec pop pop
+    }
+   ifelse
+ } bind def
+
+% Load a CharString from the file.  The font is the top entry
+% on the dictionary stack.
+/load_C		% <charname> <fileposandlength> load_C -
+ { dup abs 1000 idiv FontFile exch setfileposition
+   CharStrings 3 1 roll
+   .currentglobal CharStrings .gcheck .setglobal exch
+   dup 0 lt
+    { neg 1000 mod string FontFile exch readstring }
+    { 1000 mod string FontFile exch readhexstring }
+   ifelse pop
+   exch .setglobal
+% If the CharStrings aren't encrypted on the file, encrypt now.
+   Private /-| get 0 get
+   dup type /nametype ne
+    { dup length 5 sub 5 exch getinterval exec }
+    { pop }
+   ifelse dup 4 1 roll put
+% If the character is defined with seac, load its components now.
+   mark exch seac_C
+   counttomark
+    { StandardEncoding exch get dup CharStrings exch get
+      dup type /integertype eq { load_C } { pop pop } ifelse
+    } repeat
+   pop		% the mark
+ } bind def
+
+/seac_C		% <charstring> seac_C <achar> <bchar> ..or nothing..
+ { dup length _Cstring length le
+    { 4330 exch _Cstring .type1decrypt exch pop
+      dup dup length 2 sub 2 getinterval <0c06> eq	% seac
+       { dup length
+         Private /lenIV known { Private /lenIV get } { 4 } ifelse
+	 exch 1 index sub getinterval
+% Parse the string just enough to extract the seac information.
+% We assume that the only possible operators are hsbw, sbw, and seac,
+% and that there are no 5-byte numbers.
+	 mark 0 3 -1 roll
+	  { exch
+	     { { dup 32 lt
+	          { pop 0 }
+		  { dup 247 lt
+		     { 139 sub 0 }
+		     { dup 251 lt
+			{ 247 sub 256 mul 108 add 1 1 }
+			{ 251 sub -256 mul -108 add -1 1 }
+		       ifelse
+		     }
+		    ifelse
+		  }
+		 ifelse
+	       }			% 0
+	       { mul add 0 }		% 1
+	     }
+	    exch get exec
+	  }
+	 forall pop
+	 counttomark 1 add 2 roll cleartomark	% pop all but achar bchar
+       }
+       { pop	% not seac
+       }
+      ifelse
+    }
+    { pop	% punt
+    }
+   ifelse
+ } bind def
+
+% Define replacement procedures for loading fonts.
+% If DISKFONTS is true and the body of the font is not encrypted with eexec:
+%    - Prevent the CharStrings from being made read-only.
+%    - Substitute a different CharString-reading procedure.
+% (eexec disables this because the implicit 'systemdict begin' hides
+% the redefinitions that make the scheme work.)
+% We assume that:
+%    - The magic procedures (-|, -!, |-, and |) are defined with
+%	executeonly or readonly;
+%    - The contents of the reading procedures are as defined in bdftops.ps;
+%    - The font includes the code
+%	<font> /CharStrings <CharStrings> readonly put
+/.loadfontdict 6 dict def mark
+ /begin			% push this dict after systemdict
+  { dup begin
+    //systemdict eq { //.loadfontdict begin } if
+  } bind
+ /end			% match begin
+  { currentdict end
+    //.loadfontdict eq currentdict //systemdict eq and { end } if
+  } bind
+ /dict			% leave room for FontFile, BuildChar, BuildGlyph
+  { 3 add dict
+  } bind
+ /executeonly		% for reading procedures
+  { readonly
+  }
+ /noaccess		% for Subrs strings and Private dictionary
+  { readonly
+  }
+ /readonly		% for procedures and CharStrings dictionary
+  {	% We want to take the following non-standard actions here:
+  	%   - If the operand is the CharStrings dictionary, do nothing;
+	%   - If the operand is a number (a file position replacing the
+	%	actual CharString), do nothing;
+	%   - If the operand is either of the reading procedures (-| or -!),
+	%	substitute a different one.
+    dup type /dicttype eq		% CharStrings or Private
+    count 2 gt and
+     { 1 index /CharStrings ne { readonly } if }
+     { dup type /arraytype eq		% procedure or data array
+	{ dup length 5 ge 1 index xcheck and
+	   { dup 0 get /string eq
+	     1 index 1 get /currentfile eq and
+	     1 index 2 get /exch eq and
+	     1 index 3 get dup /readstring eq exch /readhexstring eq or and
+	     1 index 4 get /pop eq and
+	      { /cskip_C cvx 2 packedarray cvx
+	      }
+	      { readonly
+	      }
+	     ifelse
+	   }
+	   { readonly
+	   }
+	  ifelse
+	}
+	{ dup type /stringtype eq	% must be a Subr string
+	   { readonly }
+	  if
+	}
+       ifelse
+     }
+    ifelse
+  } bind
+ /definefont		% to insert BuildChar/Glyph and change FontType
+  { dup /FontType get 1 eq
+     { dup /FontType 4 put
+       dup /BuildChar /build_C load put
+       dup /BuildGlyph /build_C load put
+     }
+    if definefont
+  } bind
+counttomark 2 idiv { .loadfontdict 3 1 roll put } repeat pop
+.loadfontdict readonly pop
+
+% Define the BuildChar and BuildGlyph procedures for modified fonts.
+% A single procedure serves for both.
+/build_C		% <font> <code|name> build_C -
+ { 1 index begin
+   dup dup type /integertype eq { Encoding exch get } if
+		% Stack: font code|name name
+   dup CharStrings exch .knownget not
+    { 2 copy eq { exch pop /.notdef exch } if
+      QUIET not
+       { (Substituting .notdef for ) print = flush }
+       { pop }
+      ifelse
+      /.notdef CharStrings /.notdef get
+    } if
+		% Stack: font code|name name charstring   
+   dup type /integertype eq
+    { load_C end build_C }
+    { end .type1execchar }
+   ifelse
+ } bind def