#! /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
%
%
% "@(#)flowers 9.3 88/01/18
%
% Copyright (c) 1987 by Sun Microsystems, Inc.
%

/&petal { 0 0 moveto 100 -15 lineto 100 0 15 -90 90 arc closepath fill } def
/flower {gsave dup 360 exch div exch { &petal dup rotate} repeat pop grestore} def
/PaintImage
	{ gsave 1 fillcanvas 0 setgray clippath pathbbox
	   3 div exch 2 div translate pop pop
	  16 flower
	  200 100 translate
	  .5 .5 scale 13 flower
	  -600 100 translate
	  1.5 1 scale 17 flower
	  grestore
	} def

/FlowerWindow {
	/win framebuffer /new DefaultWindow send def
	{
	   /FrameLabel (Flowers) def
	   /PaintClient {PaintImage} def
	   /PaintIcon {PaintImage} def
	} win send
	/reshapefromuser win send

	/map win send
	} def

FlowerWindow

