1puts "========"
2puts "OCC28373"
3puts "========"
4puts ""
5#################################################
6# Incomplete section between cylinder and plane
7#################################################
8
9restore [locate_data_file bug28373_face.brep] f
10restore [locate_data_file bug28373_hole.brep] h
11
12bclearobjects
13bcleartools
14baddobjects f
15baddtools h
16bfillds
17bbop rs 4
18
19regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection rs] full nbv
20if { $nbv != 0 } { puts "Error : Section is incorrect" }
21
22bbop result 2
23
24checkshape result
25checkprops result -s 5.47202
26
27smallview
28don h
29fit
30don result
31
32checkview -screenshot -2d -path ${imagedir}/${test_image}.png
33