puts "============" puts "CR24396" puts "============" puts "" ####################################################################### # "vselmode" - disable auto loading of objects into Local Context ####################################################################### set trihedron_axis_pick_x 29 set trihedron_axis_pick_y 56 set trihedron_axis_check_x 29 set trihedron_axis_check_y 79 set trihedron_point_pick_x 29 set trihedron_point_pick_y 305 set trihedron_point_check_x 24 set trihedron_point_check_y 305 vinit View1 vclear vaxo vtrihedron tri box b 10 10 10 vdisplay b vselmode b 1 1 vfit # --------------------------------------------------- # # check that there is no selection of trihedron axis # # --------------------------------------------------- # vmoveto $trihedron_axis_pick_x $trihedron_axis_pick_y checkcolor $trihedron_axis_pick_x $trihedron_axis_pick_y 0 0 0 if { $stat != 1 } { puts "Error : The trihedron should not be highlighted." } vselmode b 0 0 vselmode 0 0 verase b vselmode 1 1 # ----------------------------------------------- # # check that selection of trihedron point is ok # # ----------------------------------------------- # vmoveto $trihedron_point_pick_x $trihedron_point_pick_y checkcolor $trihedron_point_check_x $trihedron_point_check_y 0 1 1 if { $stat != 1 } { puts "Error : The trihedron point highlight is incorrect." } # --------------------------------------------------------- # # check that there is still no selection of trihedron axis # # --------------------------------------------------------- # vmoveto $trihedron_axis_pick_x $trihedron_axis_pick_y checkcolor $trihedron_axis_pick_x $trihedron_axis_pick_y 0 0 0 if { $stat != 1 } { puts "Error : The trihedron should not be highlighted." } checkview -screenshot -3d -path ${imagedir}/${test_image}.png