0024417: BRepAlgoAPI_Section fails on attached shapes
[occt.git] / tests / bugs / modalg_1 / buc60555_2
CommitLineData
a87752f3 1puts "============="
2puts "BUC60555"
3puts "CUT Case2"
4puts "============="
5cpulimit 1400
6restore [locate_data_file buc60555a.brep] part
352ffd73 7checkshape part
a87752f3 8restore [locate_data_file buc60555b.brep] trTool1
352ffd73 9checkshape trTool1
a87752f3 10
11halfspace hs1 trTool1 20000 10000 0
12bcut cut1 part hs1
352ffd73 13checkshape cut1
a87752f3 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
352ffd73 43checkshape cut2
a87752f3 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}
4e14c88f 53set square 3.71909e+007
a87752f3 54set 2dviewer 0