Commit | Line | Data |
---|---|---|
b906fd85 WJ |
1 | %! |
2 | ||
3 | gsave | |
4 | /Times-Roman findfont 24 scalefont setfont | |
5 | 72 72 translate 0 0 moveto 1 0 0 setrgbcolor (Red) show | |
6 | 72 0 translate 0 0 moveto 0 1 0 setrgbcolor (Green) show | |
7 | 72 0 translate 0 0 moveto 0 0 1 setrgbcolor (Blue) show | |
8 | 72 0 translate 0 0 moveto 1 1 0 setrgbcolor (Yellow) show | |
9 | 72 0 translate 0 0 moveto 1 0 1 setrgbcolor (Pink) show | |
10 | 72 0 translate 0 0 moveto 0 1 1 setrgbcolor (Cyan) show | |
11 | 72 0 translate 0 0 moveto 0.9 0.9 0.9 setrgbcolor ('White') show | |
12 | grestore | |
13 | ||
14 | 0.0 setlinewidth | |
15 | ||
16 | /hsvcircle { | |
17 | gsave | |
18 | /h 0.0 def | |
19 | 0 4 360 { | |
20 | pop | |
21 | gsave | |
22 | 0.5 0.0 translate | |
23 | ||
24 | newpath | |
25 | 0.0 0.0 moveto | |
26 | 0.1 0.0 lineto | |
27 | 0.1 0.02 lineto | |
28 | 0.0 0.02 lineto | |
29 | closepath | |
30 | h 1.0 1.0 sethsbcolor | |
31 | fill | |
32 | ||
33 | %newpath | |
34 | %0.0 0.0 moveto | |
35 | %0.1 0.0 lineto | |
36 | %0.1 0.02 lineto | |
37 | %0.0 0.02 lineto | |
38 | %closepath | |
39 | %0.0 setgray | |
40 | %stroke | |
41 | ||
42 | grestore | |
43 | /h h 4 360 div add def | |
44 | 4 rotate | |
45 | } for | |
46 | grestore | |
47 | } def | |
48 | ||
49 | /graycircle { | |
50 | gsave | |
51 | /h -1.0 def | |
52 | 0 4 360 { | |
53 | pop | |
54 | gsave | |
55 | 0.5 0.0 translate | |
56 | ||
57 | newpath | |
58 | 0.0 0.0 moveto | |
59 | 0.1 0.0 lineto | |
60 | 0.1 0.02 lineto | |
61 | 0.0 0.02 lineto | |
62 | closepath | |
63 | ||
64 | h abs setgray | |
65 | fill | |
66 | ||
67 | %newpath | |
68 | %0.0 0.0 moveto | |
69 | %0.1 0.0 lineto | |
70 | %0.1 0.02 lineto | |
71 | %0.0 0.02 lineto | |
72 | %closepath | |
73 | %0.0 setgray | |
74 | %stroke | |
75 | grestore | |
76 | ||
77 | /h h 8 360 div add def | |
78 | 4 rotate | |
79 | } for | |
80 | grestore | |
81 | } def | |
82 | ||
83 | 0.0 setlinewidth | |
84 | 0.0 setgray | |
85 | 300 400 translate | |
86 | 500 500 scale | |
87 | ||
88 | 30 rotate | |
89 | 1.0 0.7 scale | |
90 | -30 rotate | |
91 | ||
92 | hsvcircle | |
93 | 0.8 0.8 scale | |
94 | graycircle | |
95 | 0.8 0.8 scale | |
96 | hsvcircle | |
97 | 0.8 0.8 scale | |
98 | graycircle | |
99 | 0.8 0.8 scale | |
100 | hsvcircle | |
101 | 0.8 0.8 scale | |
102 | graycircle | |
103 | 0.8 0.8 scale | |
104 | hsvcircle | |
105 | 0.8 0.8 scale | |
106 | graycircle | |
107 | 0.8 0.8 scale | |
108 | hsvcircle | |
109 | 0.8 0.8 scale | |
110 | graycircle | |
111 | 0.8 0.8 scale | |
112 | hsvcircle | |
113 | 0.8 0.8 scale | |
114 | graycircle | |
115 | 0.8 0.8 scale | |
116 | hsvcircle | |
117 | 0.8 0.8 scale | |
118 | graycircle | |
119 | ||
120 | showpage |