tests/v3d/bugs/bug591

   1 puts "========"
   2 puts "OCC591"
   3 puts "========"
   4 puts ""
   5
   6 pload MODELING VISUALIZATION
   7 restore [locate_data_file OCC591.brep] result
   8 tclean result
   9 vinit View1
  10 vdisplay result
  11 vfit
  12 vsetdispmode result 1
  13 vsettransparency result .5
  14 checkcolor 250 115 0.58 0.41 0.07
  15 if {$stat != 1} { puts "Error : Function VSETTRANSPARENCY works wrongly." }
  16
  17 vdump $imagedir/${casename}.png