tests/bugs/vis/bug25229

   1 puts "============"
   2 puts "CR25229"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 #  Cappings have gray tint if setting color with vclipplane command.
   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
  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
  27 set only_screen 1