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 b1 b2} catch_result] } { puts "Faulty OCC3721" } checkshape result checkprops result -s 71185 checkview -display result -3d -path ${imagedir}/${test_image}.png