0025235: Draw Harness - improve commands vdimension and vdimparam
[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 dim1 -radius -shapes circle
18 vfit
19 vmoveto 123 158
20
21 set x_coord 112
22 set y_coord 151
23
24 checkcolor $x_coord $y_coord 0 1 1
25
26 if { $stat != 1 } {
27    puts "Error : Highlighting of radius dimension with 2d text is wrong."
28 }
29
30 vinit Viewer2/View2
31 vdisplay circle
32 vdimension dim2 -radius -text 3d -shapes circle
33 vfit
34 vmoveto 191 196
35
36 set x_coord 129
37 set y_coord 172
38
39 checkcolor $x_coord $y_coord 0 1 1
40
41 if { $stat != 1 } {
42    puts "Error : Highlighting of radius dimension with 3d text is wrong."
43 }
44
45 set only_screen 1