tests/bugs/modalg_2/bug264_4

   1 puts "TODO OCC12345 ALL: Faulty OCC264_4: 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 4)"
   7 puts "========"
   8
   9 restore [locate_data_file OCC264_04.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 #smallview
  21 #fit
  22
  23 set tri_info [trinfo result]
  24 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
  25 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
  26
  27 if { $tri != 13 && $nod != 15 }  {
  28     puts "Faulty OCC264_4: here is shading problem"
  29 } else {
  30     puts "Shading of OCC264_4 is OK"
  31 }
  32
  33 set square 0
  34 set 3dviewer 0
  35