tests/bugs/modalg/bug263

   1 puts "TODO OCC11111 ALL: Faulty OCC263: here is shading problem"
   2 puts "TODO OCC11111 ALL: Error : The square of result shape is"
   3
   4 puts "========"
   5 puts "OCC263"
   6 puts "========"
   7
   8 restore [locate_data_file OCC263.brep] result
   9
  10 isos result 0
  11 tclean result
  12
  13 #Creating mesh
  14 incmesh result 0.01
  15
  16 #View the result of mesh
  17 triangles result
  18
  19 set tri_info [trinfo result]
  20 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
  21 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
  22
  23 if { $tri != 989 && $nod != 535 }  {
  24     puts "Faulty OCC263: here is shading problem"
  25 } else {
  26     puts "Shading of OCC263  is OK"
  27 }
  28
  29 set square 0
  30 set 3dviewer 0