d9a321c611560cf0b40e12fb7cc80ca242a15d1d
[occt.git] / tests / bugs / vis / bug24133_2
1 puts "============"
2 puts "CR24133"
3 puts "============"
4 puts ""
5 #######################################################################
6 #  Development of improvement of dimensions implementation
7 #  Angle dimension
8 #######################################################################
9 pload VISUALIZATION
10
11 vinit
12 vpoint angleP1 0 0 0
13 vpoint angleP2 50 50 50
14 vpoint angleP3 50 50 100
15 vdimension angle name=dim1 angleP1 angleP2 angleP3
16 vdisplay dim1
17 vfit
18 vmoveto 249 206
19
20 set x_coord 249
21 set y_coord 200
22
23 checkcolor $x_coord $y_coord 0 1 1
24
25 if { $stat != 1 } {
26    puts "Error : Highlighting of angle dimension with 2d text is wrong."
27 }
28 vinit Viewer2/View2
29 vdisplay angleP1 angleP2 angleP3
30 vdimension angle name=dim2 text=3d angleP1 angleP2 angleP3
31 vdisplay dim2
32 vfit
33 vmoveto 263 251
34
35 set x_coord 335
36 set y_coord 319
37
38 checkcolor $x_coord $y_coord 0 1 1
39
40 if { $stat != 1 } {
41    puts "Error : Highlighting of angle dimension with 3d text is wrong."
42 }
43
44 set only_screen 1