3bea4c16 |
1 | puts "================" |
2 | puts "OCC129" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################################### |
6 | # Object is not selectable in the Cascade Viewer |
7 | ###################################################################################### |
8 | |
9 | set BugNumber OCC22129 |
10 | |
11 | cylinder c 0 0 1 10 |
12 | mkface f c |
13 | |
14 | vinit |
15 | vdisplay f |
16 | |
17 | set x1 207 |
18 | set y1 184 |
19 | set x2 222 |
20 | set y2 175 |
21 | |
22 | set UNSELECT_R 1 |
23 | set UNSELECT_G 1 |
24 | set UNSELECT_B 0 |
25 | |
26 | set MOVESELECT_R 0 |
27 | set MOVESELECT_G 1 |
28 | set MOVESELECT_B 1 |
29 | |
30 | |
31 | vmoveto ${x1} ${y1} |
32 | checkcolor ${x1} ${y1} 0 1 1 |
33 | |
34 | vselect ${x1} ${y1} |
35 | checkcolor ${x1} ${y1} 0.8 0.8 0.8 |
36 | |
37 | vselect ${x2} ${y2} |
38 | checkcolor ${x1} ${y1} 1 1 0 |
39 | |
40 | set only_screen 1 |
41 | |