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
|
puts "============"
puts "CR24374"
puts "============"
puts ""
#######################################################################
# Flipping affects highlight presentation of dimension
#######################################################################
box b 100 100 100
explode b e
vdisplay b
vdisplay b_9
vdimension dim1 -length -shapes b_9 -text 3d -plane zox
vselmode b 2 1
vselmode dim1 2 1
vfit
vmoveto 130 352
set x_coord 130
set y_coord 352
checkcolor $x_coord $y_coord 0 1 1
if { $stat != 1 } {
puts "Error : Highlighting of dimension with flipping in local context failed."
}
set only_screen 1
|
