a6eb515f |
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 | |
6fb1a930 |
11 | vfont add [locate_data_file DejaVuSans.ttf] SansFont |
12 | |
a6eb515f |
13 | vinit |
14 | vpoint radP1 0 0 0 |
15 | vpoint radP2 50 50 0 |
16 | vpoint radP3 100 0 0 |
2ec85268 |
17 | vcircle circle1 radP1 radP2 radP3 0 |
a6eb515f |
18 | verase radP1 radP2 radP3 |
2ec85268 |
19 | vdimension dim1 -radius -shapes circle1 -font SansFont |
a6eb515f |
20 | vfit |
d7bffd44 |
21 | vmoveto 123 158 |
a6eb515f |
22 | |
d7bffd44 |
23 | set x_coord 112 |
24 | set y_coord 151 |
a6eb515f |
25 | |
26 | checkcolor $x_coord $y_coord 0 1 1 |
27 | |
28 | if { $stat != 1 } { |
29 | puts "Error : Highlighting of radius dimension with 2d text is wrong." |
30 | } |
31 | |
d7bffd44 |
32 | vinit Viewer2/View2 |
2ec85268 |
33 | vcircle circle2 radP1 radP2 radP3 0 |
34 | vdimension dim2 -radius -text 3d -shapes circle2 -font SansFont |
a6eb515f |
35 | vfit |
d7bffd44 |
36 | vmoveto 191 196 |
a6eb515f |
37 | |
6fb1a930 |
38 | set x_coord 112 |
39 | set y_coord 151 |
a6eb515f |
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 | |
5747059b |
47 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |