0014531: Boolean Operation Algorithm fails
[occt.git] / tests / bugs / modalg_1 / buc60555_2
... / ...
CommitLineData
1puts "============="
2puts "BUC60555"
3puts "CUT Case2"
4puts "============="
5cpulimit 1400
6restore [locate_data_file buc60555a.brep] part
7checkshape part
8restore [locate_data_file buc60555b.brep] trTool1
9checkshape trTool1
10
11halfspace hs1 trTool1 20000 10000 0
12bcut cut1 part hs1
13checkshape cut1
14
15set che [checkshape cut1 r]
16if { [regexp {OK} $che] != 1 } {
17 puts "Faulty : mistakes are found in checked shape by checkshape command"
18} else {
19 puts "Checking by checkshape - OK"
20}
21
22puts [maxtolerance cut1]
23
24restore [locate_data_file buc60555c.brep] trTool2
25halfspace hs2 trTool2 10000 10000 0
26bcut cut2 cut1 hs2
27
28tcopy cut2 result
29
30explode cut2 e
31mkcurve cu1 cut2_1
32mkcurve cu2 cut2_2
33mkcurve cu3 cut2_3
34mkcurve cu4 cut2_4
35
36set che [checkshape cut2 r]
37if { [regexp {OK} $che] != 1 } {
38 puts "Faulty : mistakes are found in checked shape by checkshape command"
39} else {
40 puts "Checking by checkshape - OK"
41}
42
43checkshape cut2
44set tolerance [ maxtolerance cut2 ]
45regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
46regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
47regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
48if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
49 puts "Faulty : Tolerance of shape is more then 1.0"
50} else {
51 puts "Tolerance of shape is less then 1.0"
52}
53
54checkprops result -s 3.66928e+007
55checkshape result
56checkview -display result -2d -path ${imagedir}/${test_image}.png