#! /usr/NeWS/bin/psh
%
% 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
%
%
% "@(#)spiral 9.2 88/01/18
%
% Copyright (c) 1985 by Sun Microsystems, Inc.
%

/dospiral {
    gsave
    clippath pathbbox pop pop translate clippath pathbbox
    2 div exch 2 div exch 1 index 1 index translate
    89 rotate
    min dup scale .85 .85 scale
    25 {
	newpath 0 .9 moveto 0 0 1 90 -90 arc 0 0 .9 -90 90 arcn
	fill .88 .88 scale 22.5 rotate
    } repeat
    pop pop
    grestore
} def

/win framebuffer /new DefaultWindow send def	% Create a window
{						% Install my stuff.
    /FrameLabel (Spiral) def
    /PaintClient {
	dospiral
    } def
    /PaintIcon {
	erasepage
	dospiral
	0 strokecanvas
    } def
} win send
/reshapefromuser win send	    % shape it.
/map win send			    % Map the window.
				    % (Damage causes PaintClient to be called)