[occt.git] / tests / bugs / moddata_2 / bug3721_2

puts "TODO OCC11111 ALL: Error : The area of result shape is"

puts "============"
puts "OCC3721"
puts "============"
puts ""
######################################################
# When using Boolean Operations exception is raised for some tolerance vals.
######################################################
## (new topology)
## (bfuse)
######################################################

restore [locate_data_file OCC3721-1.brep] b1 
restore [locate_data_file OCC3721-2.brep] b2 

checkshape b1
checkshape b2

if { [catch {bfuse result b2 b1} catch_result] } {
   puts "Faulty OCC3721"
} 

checkshape result

checkprops result -s 71185
checkview -display result -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
58cf74e0	1	puts "TODO OCC11111 ALL: Error : The area of result shape is"
61c421bf	2
	3	puts "============"
	4	puts "OCC3721"
	5	puts "============"
	6	puts ""
	7	######################################################
	8	# When using Boolean Operations exception is raised for some tolerance vals.
	9	######################################################
	10	## (new topology)
	11	## (bfuse)
	12	######################################################
	13
	14	restore [locate_data_file OCC3721-1.brep] b1
	15	restore [locate_data_file OCC3721-2.brep] b2
	16
	17	checkshape b1
	18	checkshape b2
	19
	20	if { [catch {bfuse result b2 b1} catch_result] } {
	21	puts "Faulty OCC3721"
	22	}
	23
	24	checkshape result
	25
58cf74e0	26	checkprops result -s 71185
5747059b	27	checkview -display result -3d -path ${imagedir}/${test_image}.png