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." } set only_screen 1