5 #######################################################################
6 # Development of improvement of dimensions implementation
8 #######################################################################
13 vpoint lengthP2 50 50 50
14 vdimension dim1 -length -plane xoy -shapes lengthP1 lengthP2
20 checkcolor $x_coord $y_coord 0 1 1
22 puts "Error : Highlighting of length dimension is wrong."