8d3aa19e |
1 | puts "=========" |
2 | puts "CR25768" |
3 | puts "=========" |
4 | puts "" |
5 | ########################################################################################### |
6 | # Visualization, Graphic3d_Structure - do not use invalid bounding boxes of empty groups |
7 | ########################################################################################### |
8 | box b 100 0 0 2 1 1 |
9 | vinit View1 |
10 | vclear |
11 | vaxo |
12 | vsetdispmode 0 |
13 | vdisplay b |
14 | vfit |
15 | vzoom 0.1 |
16 | vbounding b |
17 | |
18 | set x_coord 115 |
19 | set y_coord 153 |
20 | checkcolor $x_coord $y_coord 0 0 0 |
21 | |
22 | if { $stat != 1 } { |
23 | puts "Error: invalid broken bounding boxes" |
24 | } else { |
25 | puts "OK: valid boundong box" |
26 | } |
27 | |
28 | set only_screen 1 |