mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
352ffd7358
Test case tests/bugs/modalg/dxf906 was renamed to bug889 Adding test cases to tests/bugs/moddata Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx Modified test case bugs vis buc60738 Added test cases to modalg and moddata Added test cases to caf and fclasses Added test cases to group heal
36 lines
1.1 KiB
Plaintext
Executable File
36 lines
1.1 KiB
Plaintext
Executable File
|
|
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
|