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