| 1 | puts "================" |
| 2 | puts "OCC22770" |
| 3 | puts "================" |
| 4 | puts "" |
| 5 | ####################################################################################### |
| 6 | # Improve comman sewing in DRAW |
| 7 | ###################################################################################### |
| 8 | |
| 9 | set BugNumber OCC22770 |
| 10 | |
| 11 | box a 1 2 3 |
| 12 | box b 2 0 0 1 2 3 |
| 13 | explode a f |
| 14 | explode b f |
| 15 | |
| 16 | sewing result 1.1 a_2 b_1 +f |
| 17 | |
| 18 | checkprops result -s 12 |
| 19 | checkshape result |
| 20 | |
| 21 | checknbshapes result -vertex 4 -edge 4 -wire 2 -face 2 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 13 |
| 22 | checkmaxtol result -ref 1.05 |
| 23 | checknbshapes result -shell 1 |
| 24 | checkfreebounds result 0 |
| 25 | checkview -display result -3d -path ${imagedir}/${test_image}.png |