-puts "TODO OCC12345 ALL: Faulty OCC264_4: here is shading problem"
+puts "TODO OCC12345 ALL: Error: Number of triangles"
+puts "TODO OCC12345 ALL: Error: Number of nodes"
puts "TODO OCC12345 ALL: Error : The area of result shape is"
puts "========"
isos result 0
triangles result
-#smallview
-#fit
-
-set tri_info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
-regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
-
-if { $tri != 13 && $nod != 15 } {
- puts "Faulty OCC264_4: here is shading problem"
-} else {
- puts "Shading of OCC264_4 is OK"
-}
-
+checktrinfo result -tri 13 -nod 15
checkprops result -s 0
checkview -display result -3d -path ${imagedir}/${test_image}.png