[occt.git] / tests / bugs / modalg_7 / bug29400

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