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

puts "============"
puts "CR25229"
puts "============"
puts ""
#######################################################################
#  Cappings have gray tint if setting color with vclipplane command.
#######################################################################
box b 100 100 100
vinit
vsetdispmode 1
vdisplay b
vclipplane create pln1
vclipplane change pln1 equation 0 0 -1 20
vclipplane set pln1 object b
vclipplane change pln1 capping on
vclipplane change pln1 capping color 1.0 1.0 1.0
vtop
vfit

set x_coord 100
set y_coord 100
checkcolor $x_coord $y_coord 1 1 1
if { $stat != 1 } {
   puts "Error : Capping color is broken."
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
8aeeca44	1	puts "============"
	2	puts "CR25229"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Cappings have gray tint if setting color with vclipplane command.
63c629aa	7	#######################################################################
	8	box b 100 100 100
	9	vinit
	10	vsetdispmode 1
	11	vdisplay b
	12	vclipplane create pln1
	13	vclipplane change pln1 equation 0 0 -1 20
	14	vclipplane set pln1 object b
	15	vclipplane change pln1 capping on
	16	vclipplane change pln1 capping color 1.0 1.0 1.0
8aeeca44	17	vtop
	18	vfit
	19
	20	set x_coord 100
	21	set y_coord 100
	22	checkcolor $x_coord $y_coord 1 1 1
	23	if { $stat != 1 } {
	24	puts "Error : Capping color is broken."
	25	}
	26
5747059b	27	checkview -screenshot -3d -path ${imagedir}/${test_image}.png