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

/turkey 24 23 1 { }
 { <	003b00 002700 002480 0e4940 114920
	14b220 3cb650 75fe88 17ff8c 175f14
	1c07e2 3803c4 703182 f8edfc b2bbc2
	bb6f84 31bfc2 18ea3c 0e3e00 07fc00
	03f800 1e1800 1ff800 > } buildimage def

/win framebuffer /new DefaultWindow send def	% Create a window
{						% Install my stuff.
/PaintClient	 {
	gsave ClientCanvas setcanvas
	clippath pathbbox /ymax exch def /xmax exch def pop pop
	/sc 2 def
	/x 20 def
	/y 20 def
	.5 setgray clippath fill
	 {
	     x sc add xmax ge { 
		 /x 20 def /y y sc add 10 add def
		 y ymax 20 sub gt { exit } if
	     } if
	     gsave x y translate sc sc scale true turkey
	     sc 200 div .8 1 sethsbcolor imagemaskcanvas pause grestore
	     /x sc x add 5 add def
	     /sc sc .95 div def
	 } loop
	 grestore
} def
/PaintIcon {
	gsave IconCanvas setcanvas
	clippath pathbbox scale pop pop
	.5 setgray fill
	0 .8 1 sethsbcolor false turkey imagemaskcanvas
	grestore
} def
} win send
/reshapefromuser win send				% Shape it.
/map win send  % Map the window. (Damage causes PaintClient to be called)