0025235: Draw Harness - improve commands vdimension and vdimparam
[occt.git] / tests / bugs / vis / bug24374
1 puts "============"
2 puts "CR24374"
3 puts "============"
4 puts ""
5 #######################################################################
6 #  Flipping affects highlight presentation of dimension
7 #######################################################################
8 box b 100 100 100
9 explode b e
10 vdisplay b
11 vdisplay b_9
12 vdimension dim1 -length -shapes b_9 -text 3d -plane zox
13 vselmode b 2 1
14 vselmode dim1 2 1
15 vfit
16 vmoveto 140 370
17
18 set x_coord 140
19 set y_coord 370
20 checkcolor $x_coord $y_coord 0 1 1
21
22 if { $stat != 1 } {
23   puts "Error : Highlighting of dimension with flipping in local context failed."
24 }
25
26 set only_screen 1