tests/bugs/vis/bug19_1

   1 puts "================"
   2 puts "OCC19"
   3 puts "================"
   4 puts ""
   5
   6 restore [locate_data_file OCC19.brep] result
   7 checkshape result
   8
   9 tclean result
  10 incmesh result .9
  11 triangles result
  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 != 88 && $nod != 90 }  {
  18   puts "Faulty OCC19: here is shading problem"
  19 }
  20
  21 set 3dviewer 0
  22