0f1aeedf5466417d7ed76ac3688bdc3f1e25bb96
[occt.git] / tests / bugs / vis / bug24133_3
1 puts "============"
2 puts "CR24133"
3 puts "============"
4 puts ""
5 #######################################################################
6 #  Development of improvement of dimensions implementation
7 #  Radius dimension
8 #######################################################################
9 pload VISUALIZATION
10
11 vinit
12 vpoint radP1 0 0 0
13 vpoint radP2 50 50 0
14 vpoint radP3 100 0 0
15 vcircle circle radP1 radP2 radP3 0
16 verase radP1 radP2 radP3
17 vdimension radius name=dim1 circle
18 vdisplay dim1
19 vfit
20 vmoveto 123 158
21
22 set x_coord 112
23 set y_coord 151
24
25 checkcolor $x_coord $y_coord 0 1 1
26
27 if { $stat != 1 } {
28    puts "Error : Highlighting of radius dimension with 2d text is wrong."
29 }
30
31 vinit Viewer2/View2
32 vdisplay circle
33 vdimension radius name=dim2 text=3d circle
34 vdisplay dim2
35 vfit
36 vmoveto 191 196
37
38 set x_coord 129
39 set y_coord 172
40
41 checkcolor $x_coord $y_coord 0 1 1
42
43 if { $stat != 1 } {
44    puts "Error : Highlighting of radius dimension with 3d text is wrong."
45 }
46
47 set only_screen 1