1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
puts "========"
puts "OCC29400"
puts "========"
puts ""
#################################################
# Fuse of two edges creates self-interfered shape
#################################################
restore [locate_data_file bug29400_edges.brep] le
bclearobjects
bcleartools
baddcompound le
bfillds
bbuild result
checkshape result
checknbshapes result -vertex 3 -edge 2
checkprops result -l 1.78839
if {![regexp "OK" [bopcheck result]]} {
puts "Error: the result is self-interfered"
}
|
