tests/bugs/modalg/bug264_1

   1 puts "TODO OCC12345 ALL: Faulty OCC264_1: 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 1)"
   7 puts "========"
   8
   9 restore [locate_data_file OCC264_01.brep] result
  10 puts [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 != 26 && $nod != 28 }  {
  25     puts "Faulty OCC264_1: here is shading problem"
  26 } else {
  27     puts "Shading of OCC264_1 is OK"
  28 }
  29
  30 set square 0
  31 set 2dviewer 0