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


#define BORDER 20
#define SIZETAG 50
#define PAINTTAG 51
#define SYNCTAG 60
cdef ps_whiteonblack()
	/fgcolor 1 1 1 rgbcolor def
	/bgcolor 0 0 0 rgbcolor def
cdef ps_blackonwhite()
	/bgcolor 1 1 1 rgbcolor def
	/fgcolor 0 0 0 rgbcolor def
cdef ps_createwindow()
	/resize 1 def
	/win framebuffer /new DefaultWindow send def	% Create a window
	{						% Install my stuff.
	    /FrameLabel (Icosahedron) def
	    /PaintClient {
		PAINTTAG tagprint
	    } def
	    /IconImage /hello_world def
	} win send
	/reshapefromuser win send	    % shape it.
	/map win send			    % Map the window.
					    % (Damage causes PaintClient to be called)
	/cv win /ClientCanvas get def
cdef ps_hackwindow()
	/hackcv where { pop } 
	{ systemdict /hackcv (/dev/bwtwo0) createdevice put } ifelse
	/cv hackcv def
cdef ps_screensavewindow()
	/cv framebuffer newcanvas def
	framebuffer setcanvas
	clippath cv reshapecanvas
	cv /Mapped true put
	cv setcanvas
	 {   createevent dup begin
	     /Name /LeftMouseButton def
	     end
	     expressinterest
	     awaitevent
	     currentprocess killprocessgroup
	 } fork pop
cdef ps_startico()
	/RS { 	cv setcanvas
		clippath bgcolor setcolor fill
		/resize 0 store
		SIZETAG tagprint
		clippath pathbbox
		typedprint typedprint pop pop
	} def
	/SY {	fgcolor setcolor stroke
		cv setcanvas 
		BORDER sub exch BORDER sub exch translate
		icoW icoH scale dbcv imagecanvas
		awaitevent clear
	} def
	/SL {	kicker dup /TimeStamp currenttime .001 add put sendevent
		dbcv setcanvas BORDER BORDER translate
		clippath bgcolor setcolor fill } def
	/SID {	BORDER 2 mul add /icoH exch def
		BORDER 2 mul add /icoW exch def
		/dbcv icoW icoH 1 { } null buildimage def } def
	cv setcanvas
	createevent dup begin
	    /Name /Pause def
	    /Canvas currentcanvas def
	end expressinterest
	/kicker createevent dup begin
	    /Name /Pause def
	    /Canvas currentcanvas def
	    /Process currentprocess def
	end def
cdef ps_resize() => PAINTTAG
cdef ps_restart(w,h) => SIZETAG (h,w) RS
cdef ps_startlines() SL
cdef ps_kickit(x, y) x y SY
cdef ps_seticodims(w, h) w h SID