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 #######################################################################\r
   8 box b 100 100 100\r
   9 vinit\r
  10 vsetdispmode 1\r
  11 vdisplay b\r
  12 vclipplane create pln1\r
  13 vclipplane change pln1 equation 0 0 -1 20\r
  14 vclipplane set pln1 object b\r
  15 vclipplane change pln1 capping on\r
  16 vclipplane change pln1 capping color 1.0 1.0 1.0\r
  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