tests/bugs/moddata/bug1416

   1 puts "============"
   2 puts "OCC1416"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Shading mode doesn't work on a face of the model
   7 ######################################################
   8
   9 restore [locate_data_file OCC1416.brep] result
  10
  11 # Clean mesh
  12 isos result 0
  13 tclean result
  14
  15 #Creating mesh
  16 incmesh result 0.01
  17
  18 #View the result of mesh
  19 triangles result
  20
  21 ##############################################
  22 if { [catch { set tri_info [trinfo result] } catch_result] } {
  23 ##############################################
  24     puts "Faulty OCC1416"
  25 } else {
  26     set ll [ llength ${tri_info} ]
  27     if {${ll} < 6} {
  28         puts "Faulty OCC1416"
  29     } else {
  30         regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
  31         regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
  32         if { $tri == 0 || $nod == 0 }  {
  33             puts "Faulty OCC1416"
  34         } else {
  35             puts "Warning: OCC1416 looks like OK, but visual checking is required !!!!"
  36         }
  37     }
  38 }
  39
  40 set square 863.938
  41 set 3dviewer 1