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

puts "============"
puts "CR25060"
puts "============"
puts ""
#######################################################################
#  Capping breaks highlighting of shaded AIS_Shape with displayed edges.
#######################################################################
vinit View1
box b 10 10 10
vdisplay b
vshowfaceboundary b 1
vclipplane create pln1
vclipplane set pln1 object b
vclipplane change pln1 equation 0 1 0 -5
vclipplane change pln1 capping on
vsetdispmode 1
vfit
vmoveto 304 146

set x_coord 304
set y_coord 146
checkcolor $x_coord $y_coord 0 1 1
if { $stat != 1 } {
   puts "Error : Highlighting is broken."
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
347423b2	1	puts "============"
	2	puts "CR25060"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Capping breaks highlighting of shaded AIS_Shape with displayed edges.
	7	#######################################################################
	8	vinit View1
	9	box b 10 10 10
	10	vdisplay b
	11	vshowfaceboundary b 1
	12	vclipplane create pln1
	13	vclipplane set pln1 object b
	14	vclipplane change pln1 equation 0 1 0 -5
	15	vclipplane change pln1 capping on
	16	vsetdispmode 1
	17	vfit
	18	vmoveto 304 146
	19
	20	set x_coord 304
	21	set y_coord 146
	22	checkcolor $x_coord $y_coord 0 1 1
	23	if { $stat != 1 } {
	24	puts "Error : Highlighting is broken."
	25	}
	26
5747059b	27	checkview -screenshot -3d -path ${imagedir}/${test_image}.png