File: viewps2a.ps

package info (click to toggle)
ghostscript 9.05~dfsg-6.3%2Bdeb7u2
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 60,892 kB
  • sloc: ansic: 444,983; python: 4,915; cpp: 3,565; sh: 2,541; tcl: 1,482; perl: 1,284; makefile: 457; lisp: 407; awk: 66; yacc: 18
file content (32 lines) | stat: -rw-r--r-- 1,233 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
%    Copyright (C) 1995 Aladdin Enterprises.  All rights reserved.
%
% This software is provided AS-IS with no warranty, either express or
% implied.
%
% This software is distributed under license and may not be copied,
% modified or distributed except as expressly authorized under the terms
% of the license contained in the file LICENSE in this distribution.
%
% For more information about licensing, please refer to
% http://www.ghostscript.com/licensing/. For information on
% commercial licensing, go to http://www.artifex.com/licensing/ or
% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
% San Rafael, CA  94903, U.S.A., +1(415)492-9861.

% $Id$
% Display a file produced by ps2ascii with no switch or with -dCOMPLEX.
% This is just a procset to read in before the file to display.

/init { 0.1 0.1 scale } bind def
init
/next { currentfile token pop } bind def
/F { next next pop next exch selectfont } bind def
/P { showpage init } bind def
/S
 { next next moveto
   next dup stringwidth pop next exch div
   gsave 1 scale show grestore
 } bind def
/C { next next next setrgbcolor } bind def
/I { next next next next gsave 0.75 setgray rectfill grestore } bind def
/R { next next next next rectfill } bind def