a6eb515f |
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 |
1d7ca641 |
15 | vdimension angle name=dim1 angleP1 angleP2 angleP3 |
a6eb515f |
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 | } |
d7bffd44 |
28 | vinit Viewer2/View2 |
29 | vdisplay angleP1 angleP2 angleP3 |
1d7ca641 |
30 | vdimension angle name=dim2 text=3d angleP1 angleP2 angleP3 |
a6eb515f |
31 | vdisplay dim2 |
32 | vfit |
33 | vmoveto 263 251 |
34 | |
d7bffd44 |
35 | set x_coord 335 |
36 | set y_coord 319 |
a6eb515f |
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 |