#! /usr/NeWS/bin/psh
%!
% 
% (c) 1987 Sun Microsystems, Inc.
%
%  David A. LaVallee
%

/Box {	/sizeN exch def
	newpath
	0 0 moveto
	sizeN 0 rlineto 0 sizeN rlineto sizeN -1 mul 0 rlineto
	closepath
} def

/colorMe {
	/Saturation exch def
	/Hue exch def
	gsave
	Hue
	monochromecanvas
	{setgray} {Saturation Bright sethsbcolor} ifelse
	fill
	grestore stroke
} def
/Bright 1 store

/paintmesilly {
clippath pathbbox 120 div exch 120 div exch scale pop pop
gsave
/Times-Bold findfont 6 scalefont setfont
10 2 moveto (Hue -->) show
10 112 moveto (Bright = ) Bright 6 string cvs append show
gsave 8 10 translate 90 rotate 0 0 moveto (Saturation -->) show grestore
10 10 translate
	/Saturation 0 def
	10 {	/Saturation Saturation .1 add def
		/Hue 0 def
		10 {	10 Box Hue Saturation colorMe
			/Hue Hue .1 add def
			10 0 translate
		} repeat
		-100 10 translate
	} repeat
	110 -100 translate
grestore
} def

/kriswin
 framebuffer /new DefaultWindow send
def
{
 /FrameLabel (KolorTool) def
 /PaintClient {paintmesilly} def
 /ClientMenu 
  [ (.1) (.2) (.3) (.4) (.5) (.6) (.7) (.8) (.9) (1) ]
  [ {currentkey cvr /Bright exch store /paint kriswin send}
  ] /new DefaultMenu send def
} kriswin send

/reshapefromuser kriswin send
/map kriswin send