DataMuseum.dk

top - metrics - download

    Length: 1465 (0x5b9)
    Types: TextFile
    Names: »gray.psr«

└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦af5ba6c8e⟧ »unix3.0/DVIWARE.tar.Z« 
        └─⟦ca79c7339⟧ 
            └─⟦this⟧ »DVIware/laser-setters/dvi-to-ps/TeXPS/dvitps/psr/gray.psr« 

TextFile

% Copyright (c) 1988 Stephan v. Bechtolsheim

% This file is part of the TeXPS Software Package.

% The TeXPS Software Package 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 TeXPS Software Package
% General Public License for full details.

% Everyone is granted permission to copy, modify and redistribute
% the TeXPS Software Package, but only under the conditions described in the
% TeXPS Software Package General Public License.   A copy of this license is
% supposed to have been given to you along with TeXPS Software Package so you
% can know your rights and responsibilities.  It should be in a
% file named CopyrightLong.  Among other things, the copyright notice
% and this notice must be preserved on all copies.

% dyminus dyplus dx Gray
% With respect to current point (x, y) fill in the
% area with corner points (x, y-dyminus) and (x+dx, y+dyplus)
% with gray.
/Gray {
	gsave
	0.9 setgray
%	currentpoint
%	newpath
%	moveto
	3 dict begin
		/dx exch def
		/dyplus exch def
		/dyminus exch def
		0 dyminus neg rmoveto	% move to upper left corner
		currentpoint newpath moveto
		dx 0 rlineto		% go right
		0 dyminus dyplus add rlineto	% go down
		dx neg 0 rlineto		% go left
		closepath
		fill
	end
	grestore
} def