%ident	"@(#)lp:filter/postscript/postscript/banner.ps	1.1"
%
% CDDL HEADER START
%
% The contents of this file are subject to the terms of the
% Common Development and Distribution License, Version 1.0 only
% (the "License").  You may not use this file except in compliance
% with the License.
%
% You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
% or http://www.opensolaris.org/os/licensing.
% See the License for the specific language governing permissions
% and limitations under the License.
%
% When distributing Covered Code, include this CDDL HEADER in each
% file and include the License file at usr/src/OPENSOLARIS.LICENSE.
% If applicable, add the following below this CDDL HEADER, with the
% fields enclosed by brackets "[]" replaced with your own identifying
% information: Portions Copyright [yyyy] [name of copyright owner]
%
% CDDL HEADER END
%
%
% Simple program to print a banner page
%
% 04/19/91:
%	Modified to be more compatable with how other LP
%	banner pages look.
%

/banner {
	/saveobj save def
	erasepage initgraphics

	/#copies 1 def
	/inch {72 mul} bind def
	/pagebbox [clippath pathbbox newpath] def

	/font /Helvetica def
	/size 20 def
	/height pagebbox 3 get def
	/width pagebbox 2 get .09 mul def

	.92 setgray
	pagebbox 0 get pagebbox 1 get moveto
	width 0 rlineto 0 height rlineto width neg 0 rlineto closepath eofill
	pagebbox 2 get pagebbox 1 get moveto
	width neg 0 rlineto 0 height rlineto width 0 rlineto closepath eofill
	0 setgray

	font findfont size scalefont setfont
	/linesp size size .15 mul add neg def
	/tab (Destination) stringwidth pop 1.5 mul def
	/nextline {0 0 moveto show tab 0 moveto show 0 linesp translate} def

	pagebbox 0 get 1.5 width mul add pagebbox 3 get 2.0 width mul sub translate
	(Owner:) nextline
	(Originator:) nextline
	(Title:) nextline
	(Job-Id:) nextline
	(Printed:) nextline
	showpage
	saveobj restore
} bind def