home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2002 February / INTERNET88.ISO / pc / software / windows / bits / pdf995 / data1.cab / Program_Executable_Files / res / markhint.ps < prev    next >
Encoding:
Text File  |  2001-12-08  |  3.8 KB  |  134 lines
  1. %    Copyright (C) 1994, 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of GNU Ghostscript.
  4. % 
  5. % GNU Ghostscript is distributed in the hope that it will be useful, but
  6. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  7. % to anyone for the consequences of using it or for whether it serves any
  8. % particular purpose or works at all, unless he says so in writing.  Refer
  9. % to the GNU General Public License for full details.
  10. % 
  11. % Everyone is granted permission to copy, modify and redistribute GNU
  12. % Ghostscript, but only under the conditions described in the GNU General
  13. % Public License.  A copy of this license is supposed to have been given
  14. % to you along with GNU Ghostscript so you can know your rights and
  15. % responsibilities.  It should be in a file named COPYING.  Among other
  16. % things, the copyright notice and this notice must be preserved on all
  17. % copies.
  18.  
  19. % $RCSfile: markhint.ps,v $ $Revision: 1.2.2.1 $
  20. % markhint.ps
  21. % Draw the hints for a Type 1 font.
  22.  
  23. (type1ops.ps) runlibfile
  24.  
  25. /mhsetup        % <matrix> <print> mhsetup -
  26.  { /mhprint exch def
  27.    /mhmx exch def
  28.    /mhdash 0 9 gsave initmatrix dtransform grestore idtransform add abs def
  29.    gsave
  30.    clippath pathbbox
  31.    2 index sub /bbh exch def
  32.    2 index sub /bbw exch def
  33.    /bby exch def
  34.    /bbx exch def
  35.    grestore
  36.  } def
  37.  
  38. /markfonthints        % <matrix> <print> markfonthints -
  39.  { mhsetup
  40.  } def
  41.  
  42. /hmark            % <y> hmark -
  43.  { bbx exch moveto bbw 0 rlineto stroke
  44.  } def
  45. /hsmark            % <y0> <dy> hsmark -
  46.  { 1 index add exch gsave
  47.    [mhdash] 0 setdash 0 exch mhmx transform exch pop hmark
  48.    [mhdash 2 div dup 2 mul] 0 setdash 0 exch mhmx transform exch pop hmark
  49.    grestore
  50.  } def
  51. /vmark            % <x> vmark -
  52.  { bby moveto 0 bbh rlineto stroke
  53.  } def
  54. /vsmark            % <x0> <dx> vsmark -
  55.  { 1 index add exch gsave
  56.    [mhdash] mhdash setdash 0 mhmx transform pop vmark
  57.    [mhdash 2 div dup 2 mul] 0 setdash 0 mhmx transform pop vmark
  58.    grestore
  59.  } def
  60. /pmark            % <x> <y> pmark -
  61.  { newpath 0 4.5 gsave initmatrix dtransform grestore idtransform add abs
  62.    0 360 arc stroke
  63.  } def
  64. /mchdict mark
  65.   /hsbw { pop 0 mhmx transform translate 0 0 pmark }
  66.   /sbw { pop pop mhmx transform translate 0 0 pmark }
  67.   /hstem
  68.    { mhprint { (hstem ) print 2 copy 2 packedarray == } if
  69.      hsmark
  70.    }
  71.   /vstem
  72.    { mhprint { (vstem ) print 2 copy 2 packedarray == } if
  73.      vsmark
  74.    }
  75.   /hstem3
  76.    { mhprint { (hstem3 ) print 6 copy 6 packedarray == } if
  77.      3 { hsmark } repeat
  78.    }
  79.   /vstem3
  80.    { mhprint { (vstem3 ) print 6 copy 6 packedarray == } if
  81.      3 { vsmark } repeat
  82.    }
  83.   /div
  84.    { div
  85.    }
  86.   /callothersubr
  87.    { 3 eq
  88.       { pop
  89.     mhprint { (replace) = } if
  90.         % We're replacing hints; lighten the color.
  91.     currentrgbcolor 3 { 2 mul 3 div 3 1 roll } repeat setrgbcolor
  92.       }
  93.       { { pop } repeat
  94.       } ifelse
  95.    }
  96.   /callsubr
  97.    { Private /Subrs get exch get mchinterp
  98.    }
  99.   /pop
  100.    {
  101.    }
  102.   /return
  103.    {
  104.    }
  105. .dicttomark def
  106.  
  107. /mchinterp        % <charstring> mchinterp -
  108.  { 4330 exch dup length string .type1decrypt exch pop
  109.    dup length lenIV sub lenIV exch getinterval
  110.    0 () /SubFileDecode filter
  111.    mark exch charstack_read ]
  112.     { dup type /nametype eq
  113.        { mchdict exch .knownget { exec } { cleartomark mark } ifelse
  114.        }
  115.       if
  116.     }
  117.    forall
  118.  } def
  119.  
  120. /markcharhints        % <charname> <matrix> <print> markcharhints -
  121.  { mhsetup
  122.    gsave mark
  123.    /Private currentfont /Private get def
  124.    Private rcheck    % make sure we won't get an access error
  125.     { /lenIV Private /lenIV .knownget not { 4 } if def
  126.       currentfont /CharStrings get 3 -1 roll get mchinterp
  127.     }
  128.     { (Sorry, this font is protected; I can't show the hints.\n) print flush
  129.       exch
  130.     }
  131.    ifelse
  132.    cleartomark grestore
  133.  } def
  134.