5 ####################################################
6 ## Sewing in DRAW on attached the shape with tolerance 1000 adds duplicated faces
7 ####################################################
11 restore [locate_data_file OCC6491.brep] a
15 sewing result ${tolerance} a
16 regexp {FACE +: +([-0-9.+eE]+)} [nbshapes result] full res_faces
20 if { ${res_faces} != ${good_faces} } {
21 puts "Faulty ${BugNumber}"
24 checkmaxtol result 105.192615242296
25 checknbshapes result -shell 1
26 checkfreebounds result 73