tests/bugs/moddata_1/bug16

   1
   2 puts "================"
   3 puts "OCC16"
   4 puts "================"
   5 puts ""
   6
   7 torus a 10 10
   8 mkface result a
   9 vinit
  10 vdisplay result
  11 vsetdispmode result 1
  12
  13 set info [trinfo result]
  14 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  15 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  16
  17 if { $tri != 2592 || $nod != 1369 }  {
  18    puts "Faulty OCC16: here can be shading problem"
  19 }
  20
  21 puts "If here is bug - face is displaied in wireframe mode"
  22
  23 set 2dviewer 0
  24