5 #######################################################
6 # Problem cutting a plate with several holes (670)
7 #######################################################
9 restore [locate_data_file bug28102_plate.brep] pl0
10 restore [locate_data_file bug28102_holes.brep] hl
13 bsection result pl0 hl
15 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
16 if { $nbv != 0 } { puts "Error : Section is incorrect" }
18 checknbshapes result -vertex 268 -edge 268
20 checkprops result -l 11.5694
22 regexp {Tolerance MAX=([-0-9.+eE]+)} [tolerance result] full toler
24 if {$toler > 1.0e-5} {
25 puts "Error: Tolerance of section is too large"
28 checkview -display result -2d -path ${imagedir}/${test_image}.png