tests/bugs/vis/bug173_2

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