tests/bugs/vis/bug4894

   1 puts "============"
   2 puts "OCC4894"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Problems with sharding in vdisplay
   7 #######################################################################
   8
   9 restore [locate_data_file bug4894_face_cyl] result
  10
  11 vinit
  12 vdisplay result
  13 tclean result
  14 trinfo result
  15 vsetdispmode 1
  16 set info [trinfo result]
  17 regexp { +([-0-9.+eE]+) +triangles} $info full tr
  18 regexp { +([-0-9.+eE]+) +nodes} $info full nd
  19
  20 if { $tr <= 0 || $nd <= 0 } {
  21     puts "Error : Problems with shading"
  22 }
  23
  24 set 3dviewer 2