%    Copyright (C) 1994 Aladdin Enterprises.  All rights reserved.% % This file is part of Aladdin Ghostscript.% % Aladdin Ghostscript 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.  Refer to the Aladdin Ghostscript Free Public% License (the "License") for full details.% % Every copy of Aladdin 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 Aladdin 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. % markhint.ps% Draw the hints for a Type 1 font. (type1ops.ps) run /mhsetup		% <matrix> mhsetup - { /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> markfonthints - { mhsetup } def /hmark			% <y> hmark - { bbx exch moveto bbw 0 rlineto stroke } def/vmark			% <x> vmark - { bby moveto 0 bbh rlineto stroke } 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   { 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   }  /vstem   { 1 index add exch gsave     [mhdash] 0 setdash 0 mhmx transform pop vmark     [mhdash 2 div dup 2 mul] 0 setdash 0 mhmx transform pop vmark     grestore   }  /callothersubr   { 3 eq { pop } { { 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> markcharhints - { mhsetup   gsave mark   /Private currentfont /Private get def   /lenIV Private /lenIV .knownget not { 4 } if def   currentfont /CharStrings get 3 -1 roll get mchinterp   cleartomark grestore } def