puts "================"
puts "OCC22770"
puts "================"
puts ""
#######################################################################################
# Improve command sewing in DRAW
######################################################################################

set BugNumber OCC22770

box a 1 1 1
box b 1 0 0 1 2 1
explode a f
explode b f

sewing result a_2 a_3 b_3 +n

checkprops result -s 3 
checkshape result

checknbshapes result -vertex 8 -edge 10 -wire 3 -face 3 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 25
checkmaxtol result -ref 9.9999999999999995e-008
checknbshapes result -shell 1
checkfreebounds result 6
checkview -display result -3d -path ${imagedir}/${test_image}.png
