tests/bugs/vis/bug19_2

   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 vinit
  11 vdisplay result
  12 vsetdispmode result 1
  13 isos result 0
  14 triangles result
  15
  16 set info [trinfo result]
  17 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  18 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  19
  20 #$tri/$nod:122/124aki251103
  21
  22 if { $tri != 83 && $nod !=  85 }  {
  23   puts "Shady OCC19: shading problem may be, nb tri & nod were changed"
  24 }
  25
  26 set 3dviewer 0
  27
  28