0025235: Draw Harness - improve commands vdimension and vdimparam
[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 dim1 -angle -shapes angleP1 angleP2 angleP3
16 vfit
17 vmoveto 249 206
18
19 set x_coord 249
20 set y_coord 200
21
22 checkcolor $x_coord $y_coord 0 1 1
23
24 if { $stat != 1 } {
25    puts "Error : Highlighting of angle dimension with 2d text is wrong."
26 }
27 vinit Viewer2/View2
28 vdisplay angleP1 angleP2 angleP3
29 vdimension dim2 -angle -text 3d -shapes angleP1 angleP2 angleP3
30 vfit
31 vmoveto 263 251
32
33 set x_coord 335
34 set y_coord 319
35
36 checkcolor $x_coord $y_coord 0 1 1
37
38 if { $stat != 1 } {
39    puts "Error : Highlighting of angle dimension with 3d text is wrong."
40 }
41
42 set only_screen 1