puts "============" puts "CR24133" puts "============" puts "" ####################################################################### # Development of improvement of dimensions implementation # Angle dimension ####################################################################### pload VISUALIZATION vinit vpoint angleP1 0 0 0 vpoint angleP2 50 50 50 vpoint angleP3 50 50 100 vdimension dim1 -angle -shapes angleP1 angleP2 angleP3 vfit vmoveto 249 206 set x_coord 249 set y_coord 200 checkcolor $x_coord $y_coord 0 1 1 if { $stat != 1 } { puts "Error : Highlighting of angle dimension with 2d text is wrong." } vinit Viewer2/View2 vdisplay angleP1 angleP2 angleP3 vdimension dim2 -angle -text 3d -shapes angleP1 angleP2 angleP3 vfit vmoveto 263 251 set x_coord 335 set y_coord 319 checkcolor $x_coord $y_coord 0 1 1 if { $stat != 1 } { puts "Error : Highlighting of angle dimension with 3d text is wrong." } set only_screen 1