puts "========"
puts "OCC23631"
puts "========"
puts ""
###########################################
## Infinite memory consumption in BRepMesh
###########################################

set BugNumber 23631

restore [locate_data_file OCC396_f2903.brep] result

incmesh result 0.01
triangles result 

set tri 0
set nod 0

set good_tri 38
set good_nod 40

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

if { ${tri} == ${good_tri} && ${nod} == ${good_nod} } {
    puts "Bug ${BugNumber} shading: OK"
} else {
    puts "Bug ${BugNumber} shading: Faulty"
}

vinit
vdisplay result
vfit
vsetdispmode 1
set only_screen 1