1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
puts "============"
puts "OCC23933"
puts "============"
puts ""
######################################################
# Self intersection reported after Fuse operation
######################################################
restore [locate_data_file bug23933_a.brep] a
restore [locate_data_file bug23933_b.brep] b
checkshape a
checkshape b
bopargcheck a b -F
if { [catch {bfuse result a b} catch_result] } {
puts "Faulty OCC697"
}
checkshape result
bopargcheck result
set square 246487
set 3dviewer 1
|
