[occt.git] / tests / bugs / modalg_6 / bug26938_1

puts "=========="
puts "OCC26938  "
puts "=========="
puts ""
#####################################################
# Boolean operations fail between two ellipsoids
#####################################################

restore [locate_data_file bug26938.brep] a
explode a

bfuse result a_1 a_2

# Check shape validity
checkshape result

# Check area
checkprops result -s 1.00773e+007

# Check self-intersection
set info [bopcheck result]
if { [regexp "This shape seems to be OK" ${info}] != 1 } {
    puts "Error : The result of General Fuse operation is self-interfered shape"
}

checknbshapes result -solid 1 -shell 1 -t -m "Result"

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
882e1d11	1	puts "=========="
	2	puts "OCC26938 "
	3	puts "=========="
	4	puts ""
	5	#####################################################
	6	# Boolean operations fail between two ellipsoids
	7	#####################################################
	8
	9	restore [locate_data_file bug26938.brep] a
	10	explode a
	11
	12	bfuse result a_1 a_2
	13
	14	# Check shape validity
	15	checkshape result
	16
	17	# Check area
	18	checkprops result -s 1.00773e+007
	19
	20	# Check self-intersection
	21	set info [bopcheck result]
	22	if { [regexp "This shape seems to be OK" ${info}] != 1 } {
	23	puts "Error : The result of General Fuse operation is self-interfered shape"
	24	}
	25
6f1ea0f4	26	checknbshapes result -solid 1 -shell 1 -t -m "Result"
6f1ea0f4	27
882e1d11	28	checkview -display result -2d -path ${imagedir}/${test_image}.png