Correction of testing case for issue 24374
[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 pload ALL
9 pload QAcommands
10 box b 100 100 100
11 explode b e
12 vdisplay b
13 vdisplay b_9
14 vdimension length name=dim1 b_9 text=3d plane=zox
15 vdisplay dim1
16 vselmode b 2 1
17 vfit
18 vmoveto 110 352
19
20 set x_coord 161
21 set y_coord 372
22 checkcolor $x_coord $y_coord 0 1 1
23
24 if { $stat != 1 } {
25   puts "Error : Highlighting of dimension with flipping in local context failed."
26 }
27
28 set only_screen 1