-puts "TODO OCC12345 ALL: Error : here is shading problem"
+puts "TODO OCC12345 ALL: Error: Number of triangles"
+puts "TODO OCC12345 ALL: Error: Number of nodes"
puts "============"
puts "FRA62476"
incmesh result .1
triangles result
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri != 93 && $nod != 56 } {
- puts "Error : here is shading problem"
-}
-
+checktrinfo result -tri 93 -nod 56
checkview -display result -3d -path ${imagedir}/${test_image}.png