home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Actualizar / Impressora_PDF / converter.exe / GPLGS / markhint.ps < prev    next >
Text File  |  2002-02-22  |  4KB  |  131 lines
  1. %    Copyright (C) 1994, 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: markhint.ps,v 1.4 2002/02/21 21:49:28 giles Exp $
  17. % markhint.ps
  18. % Draw the hints for a Type 1 font.
  19.  
  20. (type1ops.ps) runlibfile
  21.  
  22. /mhsetup        % <matrix> <print> mhsetup -
  23.  { /mhprint exch def
  24.    /mhmx exch def
  25.    /mhdash 0 9 gsave initmatrix dtransform grestore idtransform add abs def
  26.    gsave
  27.    clippath pathbbox
  28.    2 index sub /bbh exch def
  29.    2 index sub /bbw exch def
  30.    /bby exch def
  31.    /bbx exch def
  32.    grestore
  33.  } def
  34.  
  35. /markfonthints        % <matrix> <print> markfonthints -
  36.  { mhsetup
  37.  } def
  38.  
  39. /hmark            % <y> hmark -
  40.  { bbx exch moveto bbw 0 rlineto stroke
  41.  } def
  42. /hsmark            % <y0> <dy> hsmark -
  43.  { 1 index add exch gsave
  44.    [mhdash] 0 setdash 0 exch mhmx transform exch pop hmark
  45.    [mhdash 2 div dup 2 mul] 0 setdash 0 exch mhmx transform exch pop hmark
  46.    grestore
  47.  } def
  48. /vmark            % <x> vmark -
  49.  { bby moveto 0 bbh rlineto stroke
  50.  } def
  51. /vsmark            % <x0> <dx> vsmark -
  52.  { 1 index add exch gsave
  53.    [mhdash] mhdash setdash 0 mhmx transform pop vmark
  54.    [mhdash 2 div dup 2 mul] 0 setdash 0 mhmx transform pop vmark
  55.    grestore
  56.  } def
  57. /pmark            % <x> <y> pmark -
  58.  { newpath 0 4.5 gsave initmatrix dtransform grestore idtransform add abs
  59.    0 360 arc stroke
  60.  } def
  61. /mchdict mark
  62.   /hsbw { pop 0 mhmx transform translate 0 0 pmark }
  63.   /sbw { pop pop mhmx transform translate 0 0 pmark }
  64.   /hstem
  65.    { mhprint { (hstem ) print 2 copy 2 packedarray == } if
  66.      hsmark
  67.    }
  68.   /vstem
  69.    { mhprint { (vstem ) print 2 copy 2 packedarray == } if
  70.      vsmark
  71.    }
  72.   /hstem3
  73.    { mhprint { (hstem3 ) print 6 copy 6 packedarray == } if
  74.      3 { hsmark } repeat
  75.    }
  76.   /vstem3
  77.    { mhprint { (vstem3 ) print 6 copy 6 packedarray == } if
  78.      3 { vsmark } repeat
  79.    }
  80.   /div
  81.    { div
  82.    }
  83.   /callothersubr
  84.    { 3 eq
  85.       { pop
  86.     mhprint { (replace) = } if
  87.         % We're replacing hints; lighten the color.
  88.     currentrgbcolor 3 { 2 mul 3 div 3 1 roll } repeat setrgbcolor
  89.       }
  90.       { { pop } repeat
  91.       } ifelse
  92.    }
  93.   /callsubr
  94.    { Private /Subrs get exch get mchinterp
  95.    }
  96.   /pop
  97.    {
  98.    }
  99.   /return
  100.    {
  101.    }
  102. .dicttomark def
  103.  
  104. /mchinterp        % <charstring> mchinterp -
  105.  { 4330 exch dup length string .type1decrypt exch pop
  106.    dup length lenIV sub lenIV exch getinterval
  107.    0 () /SubFileDecode filter
  108.    mark exch charstack_read ]
  109.     { dup type /nametype eq
  110.        { mchdict exch .knownget { exec } { cleartomark mark } ifelse
  111.        }
  112.       if
  113.     }
  114.    forall
  115.  } def
  116.  
  117. /markcharhints        % <charname> <matrix> <print> markcharhints -
  118.  { mhsetup
  119.    gsave mark
  120.    /Private currentfont /Private get def
  121.    Private rcheck    % make sure we won't get an access error
  122.     { /lenIV Private /lenIV .knownget not { 4 } if def
  123.       currentfont /CharStrings get 3 -1 roll get mchinterp
  124.     }
  125.     { (Sorry, this font is protected; I can't show the hints.\n) print flush
  126.       exch
  127.     }
  128.    ifelse
  129.    cleartomark grestore
  130.  } def
  131.