0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug28102_1
1 puts "========"
2 puts "OCC28102"
3 puts "========"
4 puts ""
5 #######################################################
6 # Problem cutting a plate with several holes (670)
7 #######################################################
8
9 restore [locate_data_file bug28102_plate.brep] pl0
10 restore [locate_data_file bug28102_holes.brep] hl
11
12 # Incomplete section
13 bsection result pl0 hl
14
15 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
16 if { $nbv != 0 } { puts "Error : Section is incorrect" }
17
18 checknbshapes result -vertex 268 -edge 268
19
20 checkprops result -l 11.5694
21
22 regexp {Tolerance MAX=([-0-9.+eE]+)} [tolerance result] full toler
23
24 if {$toler > 1.0e-5} {
25   puts "Error: Tolerance of section is too large"
26 }
27
28 checkview -display result -2d -path ${imagedir}/${test_image}.png