home *** CD-ROM | disk | FTP | other *** search
/ swCHIP 1991 January / swCHIP_95-1.bin / utility / gs333ini / gs3.33 / markhint.ps < prev    next >
Text File  |  1995-12-09  |  3KB  |  114 lines
  1. %    Copyright (C) 1994 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % markhint.ps
  19. % Draw the hints for a Type 1 font.
  20.  
  21. (type1ops.ps) run
  22.  
  23. /mhsetup        % <matrix> <print> mhsetup -
  24.  { /mhprint exch def
  25.    /mhmx exch def
  26.    /mhdash 0 9 gsave initmatrix dtransform grestore idtransform add abs def
  27.    gsave
  28.    clippath pathbbox
  29.    2 index sub /bbh exch def
  30.    2 index sub /bbw exch def
  31.    /bby exch def
  32.    /bbx exch def
  33.    grestore
  34.  } def
  35.  
  36. /markfonthints        % <matrix> <print> markfonthints -
  37.  { mhsetup
  38.  } def
  39.  
  40. /hmark            % <y> hmark -
  41.  { bbx exch moveto bbw 0 rlineto stroke
  42.  } def
  43. /vmark            % <x> vmark -
  44.  { bby moveto 0 bbh rlineto stroke
  45.  } def
  46. /pmark            % <x> <y> pmark -
  47.  { newpath 0 4.5 gsave initmatrix dtransform grestore idtransform add abs
  48.    0 360 arc stroke
  49.  } def
  50. /mchdict mark
  51.   /hsbw { pop 0 mhmx transform translate 0 0 pmark }
  52.   /sbw { pop pop mhmx transform translate 0 0 pmark }
  53.   /hstem
  54.    { mhprint { (hstem ) print 2 copy 2 packedarray == } if
  55.      1 index add exch gsave
  56.      [mhdash] 0 setdash 0 exch mhmx transform exch pop hmark
  57.      [mhdash 2 div dup 2 mul] 0 setdash 0 exch mhmx transform exch pop hmark
  58.      grestore
  59.    }
  60.   /vstem
  61.    { mhprint { (vstem ) print 2 copy 2 packedarray == } if
  62.      1 index add exch gsave
  63.      [mhdash] 0 setdash 0 mhmx transform pop vmark
  64.      [mhdash 2 div dup 2 mul] 0 setdash 0 mhmx transform pop vmark
  65.      grestore
  66.    }
  67.   /callothersubr
  68.    { 3 eq
  69.       { pop
  70. pstack flush
  71.         % We're replacing hints; lighten the color.
  72.     currentrgbcolor 3 { 2 mul 3 div 3 1 roll } repeat setrgbcolor
  73.       }
  74.       { { pop } repeat
  75.       } ifelse
  76.    }
  77.   /callsubr
  78.    { Private /Subrs get exch get mchinterp
  79.    }
  80.   /pop
  81.    {
  82.    }
  83.   /return
  84.    {
  85.    }
  86. .dicttomark def
  87.  
  88. /mchinterp        % <charstring> mchinterp -
  89.  { 4330 exch dup length string .type1decrypt exch pop
  90.    dup length lenIV sub lenIV exch getinterval
  91.    0 () /SubFileDecode filter
  92.    mark exch charstack_read ]
  93.     { dup type /nametype eq
  94.        { mchdict exch .knownget { exec } { cleartomark mark } ifelse
  95.        }
  96.       if
  97.     }
  98.    forall
  99.  } def
  100.  
  101. /markcharhints        % <charname> <matrix> <print> markcharhints -
  102.  { mhsetup
  103.    gsave mark
  104.    /Private currentfont /Private get def
  105.    Private rcheck    % make sure we won't get an access error
  106.     { /lenIV Private /lenIV .knownget not { 4 } if def
  107.       currentfont /CharStrings get 3 -1 roll get mchinterp
  108.     }
  109.     { (Sorry, this font is protected; I can't show the hints.\n) print flush
  110.     }
  111.    ifelse
  112.    cleartomark grestore
  113.  } def
  114.