+puts "TODO OCC30320 ALL: Faulty shapes in variables faulty_"
+
puts "============"
puts "OCC27894"
puts "============"
renamevar a_1 a
unifysamedom result a
-checknbshapes result -m UnifySameDomain -face 18 -edge 45
+checknbshapes result -m UnifySameDomain -face 9 -edge 21
+
+checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png