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
33
34
35
|
% Copyright (C) 1995 Aladdin Enterprises. All rights reserved.
%
% This file is part of GNU Ghostscript.
%
% GNU Ghostscript is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY. No author or distributor accepts responsibility
% to anyone for the consequences of using it or for whether it serves any
% particular purpose or works at all, unless he says so in writing. Refer
% to the GNU General Public License for full details.
%
% Everyone is granted permission to copy, modify and redistribute GNU
% Ghostscript, but only under the conditions described in the GNU General
% Public License. A copy of this license is supposed to have been given
% to you along with GNU Ghostscript so you can know your rights and
% responsibilities. It should be in a file named COPYING. Among other
% things, the copyright notice and this notice must be preserved on all
% copies.
% $RCSfile: viewps2a.ps,v $ $Revision: 1.2.2.1 $
% 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
|
