+++ /dev/null
-
-puts "============"
-puts "BUC60942"
-puts "============"
-###############################################################
-## SplitShape algorithm modifies original shape (increases vertex tolerance of a plitting edge).
-###############################################################
-
-restore [locate_data_file BUC60942_splitshape.brep] c
-explode c
-checkshape c_1
-checkshape c_2
-
-renamevar c_1 f
-renamevar c_2 w
-
-set tol1 [maxtolerance w]
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxEdgeTol1
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxVertexTol1
-
-splitshape result f f w
-
-set tol2 [maxtolerance w]
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxEdgeTol2
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxVertexTol2
-
-
-if { $MaxEdgeTol1 < $MaxEdgeTol2 || $MaxVertexTol1 < $MaxVertexTol1 } {
- puts "Faulty BUC60942: max tolerance of the input wire has been increased by about 10 times."
-} else {
- puts "BUC60942 OK: Tolerance of shape is correct"
-}
-
-set square 37.7032
-set 2dviewer 0