puts "==========="
puts "OCC22304"
puts "==========="
puts ""
#######################################################################
# Incorrect triangulation on face of the attached file
#######################################################################

set BugNumber OCC22304

restore [locate_data_file OCC22304-face_976_badvisu.brep] result

tclean result
vinit
vdisplay result
vfit

vsetdispmode 1

set tri_info [trinfo result]
regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod

set status 0

if { ${tri} > 0 } {
   puts "triangles: OK ${BugNumber}"
} else {
   puts "triangles: Faulty ${BugNumber}"
   set status 1
}

if { ${nod} > 0 } {
   puts "nodes: OK ${BugNumber}"
} else {
   puts "nodes: Faulty ${BugNumber}"
   set status 1
}

# Resume
puts ""
if { ${status} != 0 } {
   puts "Faulty ${BugNumber}"
} else {
   puts "OK ${BugNumber}"
}

set only_screen 1
