Tryag File Manager

//proc/self/root/usr/share/ghostscript/8.70/examples/colorcir.ps

%!
/colorcirsave save def		% prevent left over effects

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

/length 0.1 def
/width 0.02 def
/hsvcircle {
gsave
    /h 0.0 def
    0 4 360 {
    pop
    gsave
    0.5 0.0 translate

newpath
    0.0 0.0 moveto
    length 0.0 lineto
    length width lineto
    0.0 width lineto
    closepath
    h 1.0 1.0 sethsbcolor
    fill

%newpath
    %0.0 0.0 moveto
    %length 0.0 lineto
    %length width lineto
    %0.0 width 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
    length 0.0 lineto
    length width lineto
    0.0 width lineto
    closepath

h abs setgray
    fill

%newpath
    %0.0 0.0 moveto
    %length 0.0 lineto
    %length width lineto
    %0.0 width 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
clear cleardictstack
colorcirsave restore