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


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

vselmode 4 1

OCC137 1
OCC137_z

set x_coord 105
set y_coord 348

vmoveto $x_coord $y_coord

set x_coord 105
set y_coord 340

checkcolor $x_coord $y_coord 0 1 1

set x_coord 105
set y_coord 340
vviewparams -scale 60.6309 -proj 0.592163 -0.60038 -0.537482 -up 0.369921 -0.390032 0.843228 -at 3.29057034725635 6.73314999296002 6.55157729015654

checkcolor $x_coord $y_coord 0.78 0.54 0.09
	
set only_screen 1
Commit	Line	Data
63c629aa	1
	2	puts "========================"
	3	puts "OCC137"
	4	puts "========================"
	5	###############################################################
	6	#Patch description:
	7	#
	8	#MIT010717 : 3D selection management
	9	#>>> MIT010717 : Selection management
	10	#
	11	# * Package OpenGl (OpenGl_execstruct.c)
	12	#
	13	# @ Avoid drawing quality problem on selected face,
	14	# enable/disable Z offset on highlighted faces.
	15	#
	16	#>>> MIT010717 : drawing management
	17	#
	18	# * Package OpenGl (OpenGl_indexpolygon.c, ...)
	19	#
	20	# @ Avoid to undraw faces with confused points
	21	###############################################################
	22	puts "========================"
	23
	24	vinit
	25	box b 10 10 10
	26	vdisplay b
	27	vfit
	28	vsetdispmode 1
	29
	30	puts "Only bottom face should be highlighted."
	31
	32	vselmode 4 1
	33
	34	OCC137 1
	35	OCC137_z
	36
	37	set x_coord 105
	38	set y_coord 348
	39
	40	vmoveto $x_coord $y_coord
	41
	42	set x_coord 105
	43	set y_coord 340
	44
	45	checkcolor $x_coord $y_coord 0 1 1
	46
	47	set x_coord 105
	48	set y_coord 340
	49	vviewparams -scale 60.6309 -proj 0.592163 -0.60038 -0.537482 -up 0.369921 -0.390032 0.843228 -at 3.29057034725635 6.73314999296002 6.55157729015654
	50
	51	checkcolor $x_coord $y_coord 0.78 0.54 0.09
	52
	53	set only_screen 1