sys/lib/ghostscript/viewps2a.ps

   1 %    Copyright (C) 1995 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: viewps2a.ps,v 1.4 2002/02/21 21:49:28 giles Exp $
  17 % Display a file produced by ps2ascii with no switch or with -dCOMPLEX.
  18 % This is just a procset to read in before the file to display.
  19
  20 /init { 0.1 0.1 scale } bind def
  21 init
  22 /next { currentfile token pop } bind def
  23 /F { next next pop next exch selectfont } bind def
  24 /P { showpage init } bind def
  25 /S
  26  { next next moveto
  27    next dup stringwidth pop next exch div
  28    gsave 1 scale show grestore
  29  } bind def
  30 /C { next next next setrgbcolor } bind def
  31 /I { next next next next gsave 0.75 setgray rectfill grestore } bind def
  32 /R { next next next next rectfill } bind def