puts "============" puts "CR24133" puts "============" puts "" ####################################################################### # Development of improvement of dimensions implementation # Radius dimension ####################################################################### pload VISUALIZATION vinit vpoint radP1 0 0 0 vpoint radP2 50 50 0 vpoint radP3 100 0 0 vcircle circle radP1 radP2 radP3 0 verase radP1 radP2 radP3 vdimension dim1 -radius -shapes circle vfit vmoveto 123 158 set x_coord 112 set y_coord 151 checkcolor $x_coord $y_coord 0 1 1 if { $stat != 1 } { puts "Error : Highlighting of radius dimension with 2d text is wrong." } vinit Viewer2/View2 vdisplay circle vdimension dim2 -radius -text 3d -shapes circle vfit vmoveto 191 196 set x_coord 129 set y_coord 172 checkcolor $x_coord $y_coord 0 1 1 if { $stat != 1 } { puts "Error : Highlighting of radius dimension with 3d text is wrong." } set only_screen 1