########################################################
restore [locate_data_file OCC497a.brep] a_1
-puts [checkshape a_1]
+checkshape a_1
restore [locate_data_file OCC497b.brep] a_2
-puts [checkshape a_2]
+checkshape a_2
if [catch {bcut result a_1 a_2 } catch_result] {
puts "Faulty OCC497:function CUT works wrongly "