Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug60942
1
2 puts "============"
3 puts "BUC60942"
4 puts "============"
5 ###############################################################
6 ## SplitShape algorithm modifies original shape (increases vertex tolerance of a plitting edge). 
7 ###############################################################
8
9 restore [locate_data_file BUC60942_splitshape.brep] c 
10 explode c
11 puts [checkshape c_1]
12 puts [checkshape c_2]
13
14 renamevar c_1 f
15 renamevar c_2 w
16
17 set tol1 [maxtolerance w]
18 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxEdgeTol1
19 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxVertexTol1
20
21 splitshape result f f w
22
23 set tol2 [maxtolerance w]
24 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxEdgeTol2
25 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxVertexTol2
26
27
28 if { $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
34 set square 37.7032
35 set 2dviewer 0