
puts "================"
puts "OCC16"
puts "================"
puts ""

torus a 10 10
mkface result a
vinit
vdisplay result
vsetdispmode result 1

set info [trinfo result]
regexp { +([-0-9.+eE]+) +triangles} $info full tri
regexp { +([-0-9.+eE]+) +nodes} $info full nod

if { $tri != 2592 || $nod != 1369 }  {
   puts "Faulty OCC16: here can be shading problem"
}

puts "If here is bug - face is displaied in wireframe mode"

set 2dviewer 0

