puts "============"
puts "OCC23029"
puts "============"
puts ""
#######################################################################
# split shape algorithm works incorrectly in some cases
#######################################################################

set BugNumber OCC23029

catch { pload XDE }

testreadstep [locate_data_file OCC23029-ProblemF.stp] a
restore [locate_data_file OCC23029-TempW.brep] t 

checkshape a
explode a f
splitshape result a a_1 t

checkprops result -s 215.198 
checkshape result

checknbshapes result -vertex 19 -edge 21 -wire 2 -face 2 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 45
set CheckShape_status 0

set ll [ llength [explode result f2 ] ]

if { $ll != 2 } {
    set CheckShape_status 1
}

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

vinit
vsetdispmode 1
vdisplay result
vfit

vmoveto 252 289

checkview -screenshot -3d -path ${imagedir}/${test_image}.png

