puts "================"
puts "OCC22587"
puts "================"
puts ""
######################################################################################
# Problem with missing seam fixer
######################################################################################

set BugNumber OCC22587

catch {pload XDE}

restore [locate_data_file OCC22587-face.brep] f 
fixshape result f -l -o -h +m -d -s -i -n
set info [checkshape result]

# Resume
puts ""
if { [regexp {This shape seems to be valid} $info] } {
   puts "OK ${BugNumber}"
} else {
   puts "Faulty ${BugNumber}"
}
set square 290.283
set 2dviewer 0