mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-09 18:50:54 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
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
|