home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / markhint.ps < prev    next >
Text File  |  2000-03-09  |  4KB  |  133 lines
  1. %    Copyright (C) 1994, 1995, 1996 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. % $Id: markhint.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  19. % markhint.ps
  20. % Draw the hints for a Type 1 font.
  21.  
  22. (type1ops.ps) runlibfile
  23.  
  24. /mhsetup        % <matrix> <print> mhsetup -
  25.  { /mhprint exch def
  26.    /mhmx exch def
  27.    /mhdash 0 9 gsave initmatrix dtransform grestore idtransform add abs def
  28.    gsave
  29.    clippath pathbbox
  30.    2 index sub /bbh exch def
  31.    2 index sub /bbw exch def
  32.    /bby exch def
  33.    /bbx exch def
  34.    grestore
  35.  } def
  36.  
  37. /markfonthints        % <matrix> <print> markfonthints -
  38.  { mhsetup
  39.  } def
  40.  
  41. /hmark            % <y> hmark -
  42.  { bbx exch moveto bbw 0 rlineto stroke
  43.  } def
  44. /hsmark            % <y0> <dy> hsmark -
  45.  { 1 index add exch gsave
  46.    [mhdash] 0 setdash 0 exch mhmx transform exch pop hmark
  47.    [mhdash 2 div dup 2 mul] 0 setdash 0 exch mhmx transform exch pop hmark
  48.    grestore
  49.  } def
  50. /vmark            % <x> vmark -
  51.  { bby moveto 0 bbh rlineto stroke
  52.  } def
  53. /vsmark            % <x0> <dx> vsmark -
  54.  { 1 index add exch gsave
  55.    [mhdash] mhdash setdash 0 mhmx transform pop vmark
  56.    [mhdash 2 div dup 2 mul] 0 setdash 0 mhmx transform pop vmark
  57.    grestore
  58.  } def
  59. /pmark            % <x> <y> pmark -
  60.  { newpath 0 4.5 gsave initmatrix dtransform grestore idtransform add abs
  61.    0 360 arc stroke
  62.  } def
  63. /mchdict mark
  64.   /hsbw { pop 0 mhmx transform translate 0 0 pmark }
  65.   /sbw { pop pop mhmx transform translate 0 0 pmark }
  66.   /hstem
  67.    { mhprint { (hstem ) print 2 copy 2 packedarray == } if
  68.      hsmark
  69.    }
  70.   /vstem
  71.    { mhprint { (vstem ) print 2 copy 2 packedarray == } if
  72.      vsmark
  73.    }
  74.   /hstem3
  75.    { mhprint { (hstem3 ) print 6 copy 6 packedarray == } if
  76.      3 { hsmark } repeat
  77.    }
  78.   /vstem3
  79.    { mhprint { (vstem3 ) print 6 copy 6 packedarray == } if
  80.      3 { vsmark } repeat
  81.    }
  82.   /div
  83.    { div
  84.    }
  85.   /callothersubr
  86.    { 3 eq
  87.       { pop
  88.     mhprint { (replace) = } if
  89.         % We're replacing hints; lighten the color.
  90.     currentrgbcolor 3 { 2 mul 3 div 3 1 roll } repeat setrgbcolor
  91.       }
  92.       { { pop } repeat
  93.       } ifelse
  94.    }
  95.   /callsubr
  96.    { Private /Subrs get exch get mchinterp
  97.    }
  98.   /pop
  99.    {
  100.    }
  101.   /return
  102.    {
  103.    }
  104. .dicttomark def
  105.  
  106. /mchinterp        % <charstring> mchinterp -
  107.  { 4330 exch dup length string .type1decrypt exch pop
  108.    dup length lenIV sub lenIV exch getinterval
  109.    0 () /SubFileDecode filter
  110.    mark exch charstack_read ]
  111.     { dup type /nametype eq
  112.        { mchdict exch .knownget { exec } { cleartomark mark } ifelse
  113.        }
  114.       if
  115.     }
  116.    forall
  117.  } def
  118.  
  119. /markcharhints        % <charname> <matrix> <print> markcharhints -
  120.  { mhsetup
  121.    gsave mark
  122.    /Private currentfont /Private get def
  123.    Private rcheck    % make sure we won't get an access error
  124.     { /lenIV Private /lenIV .knownget not { 4 } if def
  125.       currentfont /CharStrings get 3 -1 roll get mchinterp
  126.     }
  127.     { (Sorry, this font is protected; I can't show the hints.\n) print flush
  128.       exch
  129.     }
  130.    ifelse
  131.    cleartomark grestore
  132.  } def
  133.