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