0d828ac8 |
1 | puts "============" |
2 | puts "CR24133: Development of improvement of dimensions implementation - Radius dimension" |
3 | puts "============" |
4 | puts "" |
5 | |
6 | pload VISUALIZATION |
7 | vfont add [locate_data_file DejaVuSans.ttf] SansFont |
8 | |
9 | vinit View1 |
10 | vpoint radP1 0 0 0 |
11 | vpoint radP2 50 50 0 |
12 | vpoint radP3 100 0 0 |
13 | vcircle circle1 radP1 radP2 radP3 0 |
14 | verase radP1 radP2 radP3 |
15 | vdimension dim1 -radius -shapes circle1 -font SansFont |
16 | vfit |
17 | vmoveto 123 158 |
18 | checkcolor 112 151 0 1 1 |
19 | if { $stat != 1 } { puts "Error : Highlighting of radius dimension with 2d text is wrong." } |
20 | |
21 | vinit Viewer2/View2 |
22 | vcircle circle2 radP1 radP2 radP3 0 |
23 | vdimension dim2 -radius -text 3d -shapes circle2 -font SansFont |
24 | vfit |
25 | vmoveto 191 196 |
26 | checkcolor 112 151 0 1 1 |
27 | if { $stat != 1 } { puts "Error : Highlighting of radius dimension with 3d text is wrong." } |
28 | |
29 | vdump $imagedir/${casename}.png |