puts "================"
puts "OCC22968"
puts "================"
puts ""
######################################################################################
# RebuildShape exchanges 2d-curves
######################################################################################

set BugNumber OCC22968

pload XDE

restore [locate_data_file OCC22968-cylface.brep] a 
checkshape a f
removeloc result a
set info [ checkshape result f ]

if { [regexp {The Shape result looks OK} $info] } {
   puts "OK ${BugNumber}"
} else {
   puts "Faulty ${BugNumber}"
}

set square 3141.59
set 2dviewer 0