0025235: Draw Harness - improve commands vdimension and vdimparam
[occt.git] / tests / bugs / vis / bug24293
CommitLineData
62b6361a 1puts "============"
2puts "CR24293"
3puts "============"
4puts ""
5#######################################################################
6# Dimension flyout lines don't belong to the dimension sensitive entity.
7#######################################################################
9f37b47d 8vinit View1
62b6361a 9vpoint lengthP1 0 0 0
10vpoint lengthP2 10 10 10
0499eb06 11vdimension dim1 -length -plane xoy -shapes lengthP1 lengthP2
62b6361a 12vfit
13vmoveto 202 191
14
15set x_coord 272
16set y_coord 198
17checkcolor $x_coord $y_coord 0 1 1
18if { $stat != 1 } {
19 puts "Error : Highlighting of length dimension is wrong."
20}
21
22set only_screen 1