b9e829e4a0e5ed5558fcda4f4202a813f7cb1f5c
[occt.git] / tests / bugs / vis / bug24293
1 puts "============"
2 puts "CR24293"
3 puts "============"
4 puts ""
5 #######################################################################
6 #  Dimension flyout lines don't belong to the dimension sensitive entity.
7 #######################################################################
8 pload VISUALIZATION
9
10 vinit
11 vpoint lengthP1 0 0 0
12 vpoint lengthP2 10 10 10
13 vdim -length -name=dim1 -plane=xoy lengthP1 lengthP2
14 vdisplay dim1
15 vfit
16 vmoveto 202 191
17
18 set x_coord 272
19 set y_coord 198
20 checkcolor $x_coord $y_coord 0 1 1
21 if { $stat != 1 } {
22    puts "Error : Highlighting of length dimension is wrong."
23 }
24
25 set only_screen 1