tests/bugs/vis/buc60740

   1 puts "==========="
   2 puts "BUC60740"
   3 puts "==========="
   4 puts "=================================="
   5 puts "It takes visual check for this BUG"
   6 puts "=================================="
   7
   8 vinit
   9 box b 0 0 0 10 10 10
  10 pcylinder c 10 10
  11 vdisplay b
  12 vsetdispmode b 1
  13 vdisplay c
  14 vsetdispmode c 1
  15 vfit
  16 vsettransparency c 0.5
  17
  18 set x_coord 154
  19 set y_coord 257
  20
  21
  22 checkcolor $x_coord $y_coord 0.6 0.4 0.07
  23
  24 if {$stat != 1} {
  25    puts "Error :function vsettransparency works WRONGLY"
  26 }
  27
  28 set only_screen 1