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