puts "TODO OCC11111 ALL: OCC358 : Faulty"
puts "TODO OCC11111 ALL: Error : The square of result shape is"

puts "========================"
puts " OCC400 "
puts "========================"

restore [locate_data_file OCC400.brep] result

tclean result
isos result 0

vinit
vdisplay result
vfit
vsetdispmode result 1

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 == 66 && $nod ==70} {
    puts " Warning:  OCC358  looks like OK, but visual checking is required !!!!"
} else {
    puts "OCC358 : Faulty , but visual checking is required !!!!"
}

set square 0
set 3dviewer 1