5 #######################################################################
6 # Development of improvement of dimensions implementation
8 #######################################################################
11 vfont add [locate_data_file DejaVuSans.ttf] SansFont
17 vcircle circle radP1 radP2 radP3 0
18 verase radP1 radP2 radP3
19 vdimension dim1 -radius -shapes circle -font SansFont
26 checkcolor $x_coord $y_coord 0 1 1
29 puts "Error : Highlighting of radius dimension with 2d text is wrong."
34 vdimension dim2 -radius -text 3d -shapes circle -font SansFont
41 checkcolor $x_coord $y_coord 0 1 1
44 puts "Error : Highlighting of radius dimension with 3d text is wrong."
47 checkview -screenshot -3d -path ${imagedir}/${test_image}.png