+puts "TODO OCC25735 ALL: Faulty shapes in variables faulty_1 to"
+
puts "========="
puts " OCC497 "
puts "(case 3)"
bcut result a_1 a_2
-set square 2471.48
-set 2dviewer 0
+checkprops result -s 1773.6
+checkshape result
+checkview -display result -2d -path ${imagedir}/${test_image}.png