Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_1 / buc60942
CommitLineData
0e94a94e 1
2puts "============"
3puts "BUC60942"
4puts "============"
5###############################################################
6## SplitShape algorithm modifies original shape (increases vertex tolerance of a plitting edge).
7###############################################################
8
9restore [locate_data_file BUC60942_splitshape.brep] c
10explode c
352ffd73 11checkshape c_1
12checkshape c_2
0e94a94e 13
14renamevar c_1 f
15renamevar c_2 w
16
17set tol1 [maxtolerance w]
18regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxEdgeTol1
19regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxVertexTol1
20
21splitshape result f f w
22
23set tol2 [maxtolerance w]
24regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxEdgeTol2
25regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxVertexTol2
26
27
28if { $MaxEdgeTol1 < $MaxEdgeTol2 || $MaxVertexTol1 < $MaxVertexTol1 } {
29 puts "Faulty BUC60942: max tolerance of the input wire has been increased by about 10 times."
30} else {
31 puts "BUC60942 OK: Tolerance of shape is correct"
32}
33
34set square 37.7032
35set 2dviewer 0