tests/bugs/vis/bug173_3

   1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
   2 puts "========"
   3 puts "OCC173"
   4 puts "(case 3)"
   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
  13 checkshape result
  14
  15 vinit
  16 tclean result
  17 vdisplay result
  18 vfit
  19 vsetdispmode result 1
  20
  21 set color1 [QAGetPixelColor 175 195]
  22 regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1
  23 regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1
  24 regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1
  25
  26 ########################################################
  27 vsettransparency result 0.5
  28
  29 set color2 [QAGetPixelColor 175 195]
  30 regexp {RED +: +([-0-9.+eE]+)} $color2 full rd2
  31 regexp {GREEN +: +([-0-9.+eE]+)} $color2 full gr2
  32 regexp {BLUE +: +([-0-9.+eE]+)} $color2 full bl2
  33
  34 if { ${rd2} == ${rd1} || ${gr2} == ${gr1} || ${bl2} == ${bl1} } {
  35     puts "Error : vsettransparency of shape was NOT made"
  36 }
  37
  38 set only_screen 1
  39