
puts "========================"
puts "OCC137"
puts "========================"                                                                                         
###############################################################
#Patch description:
#
#MIT010717 : 3D selection management
#>>>     MIT010717 : Selection management 
#
#        * Package OpenGl (OpenGl_execstruct.c) 
#
#          @ Avoid drawing quality problem on selected face, 
#            enable/disable Z offset on highlighted faces. 
#
#>>>     MIT010717 : drawing management 
#
#        * Package OpenGl (OpenGl_indexpolygon.c, ...) 
#
#          @ Avoid to undraw faces with confused points 
###############################################################
puts "========================"

vinit
box b 10 10 10
vdisplay b
vfit
vsetdispmode 1

puts "Only top face should be highlighted."

vselmode 4 1

OCC137 1

set x_coord 105
set y_coord 100

vmoveto $x_coord $y_coord

checkcolor $x_coord $y_coord 0 1 1

set x_coord 105
set y_coord 340

checkcolor $x_coord $y_coord 0.78 0.54 0.09

set only_screen 1
