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

puts "TODO OCC28802 Linux: Error : The area of result shape is"
puts "TODO OCC24694 Windows: Error : The result of cut operation is self-interfered shape"

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

restore [locate_data_file bug26938.brep] a
explode a

bcut result a_1 a_2

# Check shape validity
checkshape result

# Check area
checkprops result -s 8.7408e+006

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

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