tests/bugs/modalg_2/bug264_10

   1 puts "TODO OCC12345 ALL: Faulty OCC264_10: here is shading problem"
   2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
   3
   4 puts "========"
   5 puts "OCC264"
   6 puts " (case 10)"
   7 puts "========"
   8
   9 restore [locate_data_file OCC264_10.brep] result
  10 checkshape result
  11
  12 tclean result
  13 vinit
  14 vdisplay result
  15 vclear
  16
  17 isos result 0
  18 triangles result
  19
  20 set tri_info [trinfo result]
  21 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
  22 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
  23
  24 if { $tri != 8 && $nod != 10 }  {
  25     puts "Faulty OCC264_10: here is shading problem"
  26 } else {
  27     puts "Shading of OCC264_10 is OK"
  28 }
  29
  30 set square 0
  31 set 3dviewer 0
  32