a6eb515f |
1 | puts "============" |
2 | puts "CR24133" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Development of improvement of dimensions implementation |
7 | # Diameter dimension |
8 | ####################################################################### |
9 | pload VISUALIZATION |
10 | |
11 | vinit |
12 | vpoint diamP1 0 0 0 |
13 | vpoint diamP2 50 50 0 |
14 | vpoint diamP3 100 0 0 |
15 | vcircle circle diamP1 diamP2 diamP3 0 |
16 | verase diamP1 diamP2 diamP3 |
1d7ca641 |
17 | vdimension diameter name=dim1 circle |
d7bffd44 |
18 | vdisplay dim1 |
a6eb515f |
19 | vfit |
20 | vmoveto 208 205 |
21 | |
22 | set x_coord 296 |
23 | set y_coord 257 |
24 | |
25 | checkcolor $x_coord $y_coord 0 1 1 |
26 | |
27 | if { $stat != 1 } { |
28 | puts "Error : Highlighting of diameter dimension with 2d text is wrong." |
29 | } |
30 | |
d7bffd44 |
31 | vinit Viewer2/View2 |
32 | vdisplay circle |
1d7ca641 |
33 | vdimension diameter name=dim2 text=3d circle |
d7bffd44 |
34 | vdisplay dim2 |
a6eb515f |
35 | vfit |
36 | vmoveto 208 205 |
37 | |
38 | set x_coord 296 |
39 | set y_coord 257 |
40 | |
41 | checkcolor $x_coord $y_coord 0 1 1 |
42 | |
43 | if { $stat != 1 } { |
44 | puts "Error : Highlighting of diameter dimension with 3d text is wrong." |
45 | } |
46 | |
47 | set only_screen 1 |