0024224: Suspicious logics in changing clipping planes at OpenGl_Structure

[occt.git] / tests / bugs / vis / bug137_5

puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"

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 bottom face should be highlighted."

OCC137 1
OCC137_z

vselmode 4 1

set x_coord 105
set y_coord 350

vmoveto $x_coord $y_coord

set x_coord 105
set y_coord 340

checkcolor $x_coord $y_coord 0 1 1

vviewparams 60.6309 7.07107 4.08248 0.592163 -0.60038 -0.537482 0.369921 -0.390032 0.843228 -3.28175 3.38875 3.0464
set x_coord 105
set y_coord 340

checkcolor $x_coord $y_coord 0.78 0.54 0.09

set only_screen 1