tests/bugs/modalg_2/bug22884

   1 pload QAcommands
   2
   3 puts "============"
   4 puts "OCC22884"
   5 puts "============"
   6 puts ""
   7 #############################################################################
   8 # The attached face cannot be displayed in shading mode
   9 #############################################################################
  10
  11 set BugNumber OCC22884
  12
  13 set x1 136
  14 set y1 176
  15
  16 restore [locate_data_file bug22884_Face_1.brep] result
  17 vinit
  18 vdisplay result
  19 vfit
  20 vsetdispmode 1
  21
  22 set square 697.812
  23
  24 set nb_v_good 46
  25 set nb_e_good 46
  26 set nb_w_good 3
  27 set nb_f_good 1
  28 set nb_sh_good 0
  29 set nb_sol_good 0
  30 set nb_compsol_good 0
  31 set nb_compound_good 0
  32 set nb_shape_good 96
  33
  34 set Color [QAGetPixelColor $x1 $y1]
  35 set R [lindex ${Color} 2]
  36 set G [lindex ${Color} 5]
  37 set B [lindex ${Color} 8]
  38 set color_status 0
  39 if { $R == 0 && $G == 0 && $B == 0 } {
  40     set color_status 1
  41 } else {
  42     set color_status 0
  43 }
  44
  45
  46 if { ${color_status} == 0} {
  47    puts "OK ${BugNumber}"
  48 } else {
  49    puts "Faulty ${BugNumber}"
  50 }
  51
  52 set 3dviewer 0
  53