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

set BugNumber OCC22770

restore [locate_data_file 22770-tramp.brep] a 
restore [locate_data_file 22770-trans.brep] b 
sewing result +t 0.01 a b +mint 0.01 -a

set nbshapes_expected "
Number of shapes in shape
 VERTEX    : 479
 EDGE      : 748
 WIRE      : 273
 FACE      : 259
 SHELL     : 2
 SOLID     : 0
 COMPSOLID : 0
 COMPOUND  : 1
 SHAPE     : 1762
"
checknbshapes result -ref ${nbshapes_expected} -t -m "sewing result"
checkmaxtol result -ref 0.066338232054955981
checkfreebounds result 12

checkprops result -s 1.8847e+07 -eps 0.1
checkshape result
checkview -display result -3d -path ${imagedir}/${test_image}.png
