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

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

QAMoveTo $x_coord $y_coord
QAMoveTo $x_coord $y_coord

QAUpdateLights

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
Commit	Line	Data
e54706ed	1	puts "========================"
	2	puts "OCC137"
	3	puts "========================"
	4	###############################################################
	5	#Patch description:
	6	#
	7	#MIT010717 : 3D selection management
	8	#>>> MIT010717 : Selection management
	9	#
	10	# * Package OpenGl (OpenGl_execstruct.c)
	11	#
	12	# @ Avoid drawing quality problem on selected face,
	13	# enable/disable Z offset on highlighted faces.
	14	#
	15	#>>> MIT010717 : drawing management
	16	#
	17	# * Package OpenGl (OpenGl_indexpolygon.c, ...)
	18	#
	19	# @ Avoid to undraw faces with confused points
	20	###############################################################
	21	puts "========================"
	22
	23	vinit
	24	box b 10 10 10
	25	vdisplay b
	26	vfit
	27	vsetdispmode 1
	28
	29	puts "Only top face should be highlighted."
	30
	31	vselmode 4 1
	32
	33	OCC137 1
	34
	35	set x_coord 105
	36	set y_coord 100
	37
	38	QAMoveTo $x_coord $y_coord
	39	QAMoveTo $x_coord $y_coord
	40
	41	QAUpdateLights
	42
	43	checkcolor $x_coord $y_coord 0 1 1
	44
	45	set x_coord 105
	46	set y_coord 340
	47
	48	checkcolor $x_coord $y_coord 0.78 0.54 0.09
	49
	50	set only_screen 1