56736462597f5a9d588e60dde06af1f07186d4a2
[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 vinit View1
9 vpoint lengthP1 0 0 0
10 vpoint lengthP2 10 10 10
11 vdimension length name=dim1 plane=xoy lengthP1 lengthP2
12 vdisplay dim1
13 vfit
14 vmoveto 202 191
15
16 set x_coord 272
17 set y_coord 198
18 checkcolor $x_coord $y_coord 0 1 1
19 if { $stat != 1 } {
20    puts "Error : Highlighting of length dimension is wrong."
21 }
22
23 set only_screen 1