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

puts "================"
puts "OCC129"
puts "================"
puts ""
#######################################################################################
# Object is not selectable in the Cascade Viewer
######################################################################################

set BugNumber OCC22129

cylinder c 0 0 1 10
trimv ct c -1e+9 1e+9
mkface ft ct

vinit
vdisplay ft

set x1 207
set y1 184
set x2 222
set y2 175

vmoveto ${x1} ${y1}
checkcolor ${x1} ${y1} 0 1 1

vselect ${x1} ${y1}
checkcolor ${x1} ${y1} 0.8 0.8 0.8

vselect ${x2} ${y2}
checkcolor ${x1} ${y1} 1 1 0

set only_screen 0
Commit	Line	Data
3bea4c16	1	puts "================"
	2	puts "OCC129"
	3	puts "================"
	4	puts ""
	5	#######################################################################################
	6	# Object is not selectable in the Cascade Viewer
	7	######################################################################################
	8
	9	set BugNumber OCC22129
	10
	11	cylinder c 0 0 1 10
	12	trimv ct c -1e+9 1e+9
	13	mkface ft ct
	14
	15	vinit
	16	vdisplay ft
	17
	18	set x1 207
	19	set y1 184
	20	set x2 222
	21	set y2 175
	22
	23	vmoveto ${x1} ${y1}
	24	checkcolor ${x1} ${y1} 0 1 1
	25
	26	vselect ${x1} ${y1}
	27	checkcolor ${x1} ${y1} 0.8 0.8 0.8
	28
	29	vselect ${x2} ${y2}
	30	checkcolor ${x1} ${y1} 1 1 0
	31
	32	set only_screen 0