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."
}

set only_screen 1
