5 #######################################################################
6 # Development of improvement of dimensions implementation
8 #######################################################################
15 vcircle circle diamP1 diamP2 diamP3 0
16 verase diamP1 diamP2 diamP3
17 vdimension diameter name=dim1 circle
25 checkcolor $x_coord $y_coord 0 1 1
28 puts "Error : Highlighting of diameter dimension with 2d text is wrong."
33 vdimension diameter name=dim2 text=3d circle
41 checkcolor $x_coord $y_coord 0 1 1
44 puts "Error : Highlighting of diameter dimension with 3d text is wrong."