tests/bugs/vis/bug173_1

   1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
   2 puts "========"
   3 puts "OCC173"
   4 puts "(case 1)"
   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 puts [checkshape result]
  13
  14 vinit result
  15 tclean
  16 vdisplay result
  17 vfit
  18 vsetdispmode result 1
  19
  20 set x_coord 175
  21 set y_coord 195
  22
  23 QAUpdateLights
  24
  25 checkcolor $x_coord $y_coord 1 0.75 0.15
  26
  27 if { $stat != 1 } {
  28     puts "Error : Shading is missing in 3D Viewer"
  29 }
  30
  31 ########################################################
  32 vsetmaterial result COPPER
  33
  34 QAUpdateLights
  35
  36 checkcolor $x_coord $y_coord 0.77 0.32 0.23
  37
  38 if { $stat != 1 } {
  39     puts "Error : material of shape is not COPPER"
  40 }
  41
  42 set only_screen 1