tests/bugs/vis/bug316

   1 puts "================"
   2 puts "OCC316"
   3 puts "================"
   4 puts ""
   5
   6 ########################################################
   7 ## Exception is raised in the application during visualization. (#2054)
   8 ########################################################
   9
  10 restore [locate_data_file OCC316.brep] result
  11
  12 decho off
  13 set che [checkshape result]
  14 decho on
  15
  16 if { [regexp "Faulty" $che] == 1 } {
  17    puts "Warning OCC316: Source shape is NOT correct. It was detected by Checkshape command"
  18 }
  19
  20 tclean result
  21
  22 vinit
  23 vdisplay result
  24 vsetdispmode result 1
  25 vfit
  26
  27 set info [trinfo result]
  28 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  29 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  30
  31 if { $tri == 212909 && $nod == 158362 } {
  32    puts "Warning OCC316: here is shading problem (some faces are lost)"
  33 } else {
  34   if { $tri == 0 || $nod == 0 } {
  35   puts " Warning  OCC316: here is shading problem (shading mesh is NOT created)"
  36   isos result 0
  37   } else {
  38     puts "Warning: Shading of OCC316 looks OK, but visual checking is required"
  39   }
  40 }
  41
  42 set only_screen 1
  43