System notes



color-circle.ps

Version date: Thu May 24 14:28:12 EDT 2012

%!

gsave
/Times-Roman findfont 24 scalefont setfont
72 72 translate 0 0 moveto 1 0 0 setrgbcolor (Red) show
72 0 translate 0 0 moveto 0 1 0 setrgbcolor (Green) show
72 0 translate 0 0 moveto 0 0 1 setrgbcolor (Blue) show
72 0 translate 0 0 moveto 1 1 0 setrgbcolor (Yellow) show
72 0 translate 0 0 moveto 1 0 1 setrgbcolor (Pink) show
72 0 translate 0 0 moveto 0 1 1 setrgbcolor (Cyan) show
72 0 translate 0 0 moveto 0.9 0.9 0.9 setrgbcolor ('White') show
grestore

0.0 setlinewidth

/hsvcircle {
gsave
/h 0.0 def
0 4 360 {
pop
gsave
0.5 0.0 translate

newpath
0.0 0.0 moveto
0.1 0.0 lineto
0.1 0.02 lineto
0.0 0.02 lineto
closepath
h 1.0 1.0 sethsbcolor
fill

%newpath
%0.0 0.0 moveto
%0.1 0.0 lineto
%0.1 0.02 lineto
%0.0 0.02 lineto
%closepath
%0.0 setgray
%stroke

grestore
/h h 4 360 div add def
4 rotate
} for
grestore
} def

/graycircle {
gsave
/h -1.0 def
0 4 360 {
pop
gsave
0.5 0.0 translate

newpath
0.0 0.0 moveto
0.1 0.0 lineto
0.1 0.02 lineto
0.0 0.02 lineto
closepath

h abs setgray
fill

%newpath
%0.0 0.0 moveto
%0.1 0.0 lineto
%0.1 0.02 lineto
%0.0 0.02 lineto
%closepath
%0.0 setgray
%stroke
grestore

/h h 8 360 div add def
4 rotate
} for
grestore
} def

0.0 setlinewidth
0.0 setgray
300 400 translate
500 500 scale

30 rotate
1.0 0.7 scale
-30 rotate

hsvcircle
0.8 0.8 scale
graycircle
0.8 0.8 scale
hsvcircle
0.8 0.8 scale
graycircle
0.8 0.8 scale
hsvcircle
0.8 0.8 scale
graycircle
0.8 0.8 scale
hsvcircle
0.8 0.8 scale
graycircle
0.8 0.8 scale
hsvcircle
0.8 0.8 scale
graycircle
0.8 0.8 scale
hsvcircle
0.8 0.8 scale
graycircle
0.8 0.8 scale
hsvcircle
0.8 0.8 scale
graycircle

showpage


Please read The Standard Disclaimer regarding information found in these pages.

To return to the top of the Corcoran document archives Click Here

If you came here directly from a search engine, and would like to view these pages in the proper frames from the top, Start Here

Or start at the very top of Mike Corcoran's home page