tests/bugs/moddata/bug256

   1
   2 puts "========"
   3 puts "OCC256"
   4 puts "========"
   5
   6 restore [locate_data_file OCC256.brep] result
   7 puts [checkshape result]
   8
   9 tclean result
  10 vinit
  11 vdisplay result
  12 vsetdispmode result 1
  13 vfit
  14
  15 set info [trinfo result]
  16 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  17 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  18
  19 if { $tri != 66 && $nod != 66 }  {
  20   puts "Error : here is shading problem"
  21 }
  22
  23 set 3dviewer 0