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 vfit
  17 set info [trinfo result]
  18 regexp { +([-0-9.+eE]+) +triangles} $info full tr
  19 regexp { +([-0-9.+eE]+) +nodes} $info full nd
  20
  21 if { $tr <= 0 || $nd <= 0 } {
  22     puts "Error : Problems with shading"
  23 }
  24
  25 set only_screen 1