1 files changed, 131 insertions, 0 deletions
diff --git a/Master/xemtex/gslib/markhint.ps b/Master/xemtex/gslib/markhint.ps
new file mode 100644
index 00000000000..1ce2498fe55
--- /dev/null
+++ b/Master/xemtex/gslib/markhint.ps
@@ -0,0 +1,131 @@
+%    Copyright (C) 1994, 1995, 1996 Aladdin Enterprises.  All rights reserved.
+% 
+% 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.
+
+% $Id: markhint.ps,v 1.2.6.1.2.1 2003/04/12 14:02:39 giles Exp $
+% markhint.ps
+% Draw the hints for a Type 1 font.
+
+(type1ops.ps) runlibfile
+
+/mhsetup		% <matrix> <print> mhsetup -
+ { /mhprint exch def
+   /mhmx exch def
+   /mhdash 0 9 gsave initmatrix dtransform grestore idtransform add abs def
+   gsave
+   clippath pathbbox
+   2 index sub /bbh exch def
+   2 index sub /bbw exch def
+   /bby exch def
+   /bbx exch def
+   grestore
+ } def
+
+/markfonthints		% <matrix> <print> markfonthints -
+ { mhsetup
+ } def
+
+/hmark			% <y> hmark -
+ { bbx exch moveto bbw 0 rlineto stroke
+ } def
+/hsmark			% <y0> <dy> hsmark -
+ { 1 index add exch gsave
+   [mhdash] 0 setdash 0 exch mhmx transform exch pop hmark
+   [mhdash 2 div dup 2 mul] 0 setdash 0 exch mhmx transform exch pop hmark
+   grestore
+ } def
+/vmark			% <x> vmark -
+ { bby moveto 0 bbh rlineto stroke
+ } def
+/vsmark			% <x0> <dx> vsmark -
+ { 1 index add exch gsave
+   [mhdash] mhdash setdash 0 mhmx transform pop vmark
+   [mhdash 2 div dup 2 mul] 0 setdash 0 mhmx transform pop vmark
+   grestore
+ } def
+/pmark			% <x> <y> pmark -
+ { newpath 0 4.5 gsave initmatrix dtransform grestore idtransform add abs
+   0 360 arc stroke
+ } def
+/mchdict mark
+  /hsbw { pop 0 mhmx transform translate 0 0 pmark }
+  /sbw { pop pop mhmx transform translate 0 0 pmark }
+  /hstem
+   { mhprint { (hstem ) print 2 copy 2 packedarray == } if
+     hsmark
+   }
+  /vstem
+   { mhprint { (vstem ) print 2 copy 2 packedarray == } if
+     vsmark
+   }
+  /hstem3
+   { mhprint { (hstem3 ) print 6 copy 6 packedarray == } if
+     3 { hsmark } repeat
+   }
+  /vstem3
+   { mhprint { (vstem3 ) print 6 copy 6 packedarray == } if
+     3 { vsmark } repeat
+   }
+  /div
+   { div
+   }
+  /callothersubr
+   { 3 eq
+      { pop
+	mhprint { (replace) = } if
+		% We're replacing hints; lighten the color.
+	currentrgbcolor 3 { 2 mul 3 div 3 1 roll } repeat setrgbcolor
+      }
+      { { pop } repeat
+      } ifelse
+   }
+  /callsubr
+   { Private /Subrs get exch get mchinterp
+   }
+  /pop
+   {
+   }
+  /return
+   {
+   }
+.dicttomark def
+
+/mchinterp		% <charstring> mchinterp -
+ { 4330 exch dup length string .type1decrypt exch pop
+   dup length lenIV sub lenIV exch getinterval
+   0 () /SubFileDecode filter
+   mark exch charstack_read ]
+    { dup type /nametype eq
+       { mchdict exch .knownget { exec } { cleartomark mark } ifelse
+       }
+      if
+    }
+   forall
+ } def
+
+/markcharhints		% <charname> <matrix> <print> markcharhints -
+ { mhsetup
+   gsave mark
+   /Private currentfont /Private get def
+   Private rcheck	% make sure we won't get an access error
+    { /lenIV Private /lenIV .knownget not { 4 } if def
+      currentfont /CharStrings get 3 -1 roll get mchinterp
+    }
+    { (Sorry, this font is protected; I can't show the hints.\n) print flush
+      exch
+    }
+   ifelse
+   cleartomark grestore
+ } def