colorcir.ps

来自「遗传算法工具箱 希望高手指点 GATOOLS」· PS 代码 · 共 121 行

%!

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