0d828ac8 |
1 | puts "============" |
2 | puts "CR24133: Development of improvement of dimensions implementation - Angle dimension" |
3 | puts "============" |
4 | puts "" |
5 | |
6 | pload VISUALIZATION |
7 | vfont add [locate_data_file DejaVuSans.ttf] SansFont |
8 | |
9 | vinit View1 |
10 | vpoint angle1P1 0 0 0 |
11 | vpoint angle1P2 50 50 50 |
12 | vpoint angle1P3 50 50 100 |
13 | vdimension dim1 -angle -shapes angle1P1 angle1P2 angle1P3 -font SansFont |
14 | vfit |
15 | vmoveto 249 206 |
16 | checkcolor 249 200 0 1 1 |
17 | if { $stat != 1 } { puts "Error : Highlighting of angle dimension with 2d text is wrong." } |
18 | |
19 | vinit Viewer2/View2 |
20 | vpoint angle2P1 0 0 0 |
21 | vpoint angle2P2 50 50 50 |
22 | vpoint angle2P3 50 50 100 |
23 | vdimension dim2 -angle -text 3d -shapes angle2P1 angle2P2 angle2P3 -font SansFont |
24 | vfit |
25 | vmoveto 263 251 |
26 | checkcolor 335 319 0 1 1 |
27 | if { $stat != 1 } { puts "Error : Highlighting of angle dimension with 3d text is wrong." } |
28 | |
29 | vdump $imagedir/${casename}.png |