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
