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 | trimv ct c -1e+9 1e+9 |
13 | mkface ft ct |
14 | |
15 | vinit |
16 | vdisplay ft |
17 | |
18 | set x1 207 |
19 | set y1 184 |
20 | set x2 222 |
21 | set y2 175 |
22 | |
23 | vmoveto ${x1} ${y1} |
24 | checkcolor ${x1} ${y1} 0 1 1 |
25 | |
26 | vselect ${x1} ${y1} |
27 | checkcolor ${x1} ${y1} 0.8 0.8 0.8 |
28 | |
29 | vselect ${x2} ${y2} |
30 | checkcolor ${x1} ${y1} 1 1 0 |
31 | |
32 | set only_screen 0 |