2 puts "CR24133: Development of improvement of dimensions implementation - Angle dimension"
7 vfont add [locate_data_file DejaVuSans.ttf] SansFont
11 vpoint angle1P2 50 50 50
12 vpoint angle1P3 50 50 100
13 vdimension dim1 -angle -shapes angle1P1 angle1P2 angle1P3 -font SansFont
16 checkcolor 249 200 0 1 1
17 if { $stat != 1 } { puts "Error : Highlighting of angle dimension with 2d text is wrong." }
21 vpoint angle2P2 50 50 50
22 vpoint angle2P3 50 50 100
23 vdimension dim2 -angle -text 3d -shapes angle2P1 angle2P2 angle2P3 -font SansFont
26 checkcolor 335 319 0 1 1
27 if { $stat != 1 } { puts "Error : Highlighting of angle dimension with 3d text is wrong." }
29 vdump $imagedir/${casename}.png