tests/bugs/vis/bug591

   1 puts "========"
   2 puts "OCC591"
   3 puts "========"
   4 puts ""
   5
   6 restore [locate_data_file OCC591.brep] result
   7 tclean result
   8 vinit
   9 vdisplay result
  10 vfit
  11 vsetdispmode result 1
  12 vsettransparency result .5
  13
  14
  15 set x_coord 250
  16 set y_coord 115
  17
  18 checkcolor $x_coord $y_coord 0.58 0.41 0.07
  19
  20 if {$stat != 1} {
  21    puts "Error : Function VSETTRANSPARENCY works wrongly."
  22 }
  23
  24 set only_screen 1