Category : DeskTop Publishing in the 1990's
Archive   : GS261EXE.ZIP
Filename : COLORCIR.PS

%!

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