39df654572d850e7c7e9c83439d257808bfe68d0
[occt.git] / tests / bugs / vis / bug24133_1
1 puts "============"
2 puts "CR24133"
3 puts "============"
4 puts ""
5 #######################################################################
6 #  Development of improvement of dimensions implementation
7 #  Length dimension
8 #######################################################################
9 pload VISUALIZATION
10
11 vinit
12 vpoint lengthP1 0 0 0
13 vpoint lengthP2 50 50 50
14 vdimension length name=dim1 plane=xoy lengthP1 lengthP2
15 vdisplay dim1
16 vfit
17 vmoveto 82 254
18
19 set x_coord 362
20 set y_coord 102
21 checkcolor $x_coord $y_coord 0 1 1
22 if { $stat != 1 } {
23    puts "Error : Highlighting of length dimension is wrong."
24 }
25
26 set only_screen 1