tests/v3d/bugs/bug173_2

   1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
   2 puts "========"
   3 puts "OCC173: Impossible to change the material or the transparency of the attached BREP shape."
   4 puts "(case 2)"
   5 puts "========"
   6 puts ""
   7
   8 pload MODELING VISUALIZATION
   9 restore [locate_data_file OCC173.brep] result
  10 checkshape result
  11
  12 vinit View1
  13 tclean result
  14 vdisplay result
  15 vfit
  16 vsetdispmode result 1
  17
  18 set color1 [vreadpixel 175 195 rgb]
  19 set rd1 [lindex $color1 0]
  20 set gr1 [lindex $color1 1]
  21 set bl1 [lindex $color1 2]
  22
  23 vsetmaterial result ALUMINIUM
  24
  25 set color2 [vreadpixel 175 195 rgb]
  26 set rd2 [lindex $color2 0]
  27 set gr2 [lindex $color2 1]
  28 set bl2 [lindex $color2 2]
  29
  30 if { ${rd2} == ${rd1} || ${gr2} == ${gr1} || ${bl2} == ${bl1} } {
  31   puts "Error : material of the shape was NOT changed"
  32 }
  33
  34 vdump $imagedir/${casename}.png