tests/bugs/vis/bug22304

   1 puts "==========="
   2 puts "OCC22304"
   3 puts "==========="
   4 puts ""
   5 #######################################################################
   6 # Incorrect triangulation on face of the attached file
   7 #######################################################################
   8
   9 set BugNumber OCC22304
  10
  11 restore [locate_data_file OCC22304-face_976_badvisu.brep] result
  12
  13 tclean result
  14 vinit
  15 vdisplay result
  16 vfit
  17
  18 vsetdispmode 1
  19
  20 set tri_info [trinfo result]
  21 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
  22 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
  23
  24 set status 0
  25
  26 if { ${tri} > 0 } {
  27    puts "triangles: OK ${BugNumber}"
  28 } else {
  29    puts "triangles: Faulty ${BugNumber}"
  30    set status 1
  31 }
  32
  33 if { ${nod} > 0 } {
  34    puts "nodes: OK ${BugNumber}"
  35 } else {
  36    puts "nodes: Faulty ${BugNumber}"
  37    set status 1
  38 }
  39
  40 # Resume
  41 puts ""
  42 if { ${status} != 0 } {
  43    puts "Faulty ${BugNumber}"
  44 } else {
  45    puts "OK ${BugNumber}"
  46 }
  47
  48 set only_screen 1