%
% This file is a product of Sun Microsystems, Inc. and is provided for
% unrestricted use provided that this legend is included on all tape
% media and as a part of the software program in whole or part.  Users
% may copy or modify this file without charge, but are not authorized to
% license or distribute it to anyone else except as part of a product
% or program developed by the user.
% 
% THIS FILE IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
% WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
% PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
% 
% This file is provided with no support and without any obligation on the
% part of Sun Microsystems, Inc. to assist in its use, correction,
% modification or enhancement.
% 
% SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
% INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY THIS FILE
% OR ANY PART THEREOF.
% 
% In no event will Sun Microsystems, Inc. be liable for any lost revenue
% or profits or other special, indirect and consequential damages, even
% if Sun has been advised of the possibility of such damages.
% 
% Sun Microsystems, Inc.
% 2550 Garcia Avenue
% Mountain View, California  94043
%
%
% "@(#)psload.cps 9.2 88/01/18 SMI
%
% Copyright (c) 1985 by Sun Microsystems, Inc.
%
% Load average program support code.
%
cdef CreateLoadWindow(divisions, string title)
    /Xdivs divisions def		% number of horizontal divisions
    /Ydivs 1 def			% number of vertical units
    /ClearColor 1 1 1 rgbcolor def	% color for clearing window
    /RuleColor 0 0 0 rgbcolor def	% color for drawing rule lines
    /FillColor 0.5 0.5 0.5 rgbcolor def	% color for drawing filled regions
    /PrevY 0 def
    /SetScale {				% set scaled coordinate system
	/Ydivs exch .5 add round def
	win begin
		Iconic? dup { IconCanvas } { ClientCanvas } ifelse
	end setcanvas
	ClearColor fillcanvas
	 { RuleColor strokecanvas } if
        initgraphics clippath pathbbox points2rect
	Ydivs div exch Xdivs div exch scale pop pop
	1 1 Ydivs 1 sub {0 exch moveto Xdivs 0 rlineto} for
	RuleColor setcolor stroke
	0 0 moveto
	FillColor setcolor
    } def
    /DLV {				% loadfactor x => - (draw next loadfactor value)
	/X exch def /Y exch def
	Y Ydivs gt {
	    /Ydivs Y .5 add round def
	    /paintclient win send	% client will reset scaling
	} {
	    % 1.1 here is for slight overlap
	    newpath
	    X 1.1 sub dup 0 moveto PrevY lineto X dup Y lineto 0 lineto
%	    FillColor setcolor fill
	    fill
	} ifelse
	/PrevY Y def
    } def
    /win framebuffer /new DefaultWindow send def
    {	/FrameLabel title def
	/IconLabel title def
	/PaintClient {(C) print} def
	/PaintIcon {(I) print} def
    } win send
    /reshapefromuser win send
    win /ClientCanvas get setcanvas
    /map win send
cdef ResetScale(float maxy)		maxy SetScale
cdef DrawLoadValue(x, float loadfactor)	loadfactor x DLV
cdef DrawMidLoadValue(x, float loadfactor)	x loadfactor lineto
cdef FinishLoad(x) x 0 lineto fill