-puts "TODO OCC25583 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO bug30075 ALL: Faulty shapes in variables faulty_1 to faulty_"
puts "========================"
puts " OCC55 "
tpcompound result
checkshape result
-set 2dviewer 0
+checkview -display result -2d -path ${imagedir}/${test_image}.png