[occt.git] / tests / bugs / modalg_5 / bug23933

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