tests/bugs/modalg/bug292

   1
   2 puts "========================"
   3 puts " OCC292 "
   4 puts "========================"
   5 puts ""
   6 #################################################################
   7 ## Attached face looks as unclosed but command "checkshape" concludes that it is valid. Inspite of that,
   8 ##  mesh for shading is not creating on this face.
   9 #################################################################
  10
  11 restore [locate_data_file OCC292.brep] result
  12 checkshape result
  13
  14 tclean result
  15 vinit
  16 vdisplay result
  17 vsetdispmode result 1
  18
  19 isos result 0
  20 triangles result
  21
  22       set tri 0
  23       set nod 0
  24 set tri_info [trinfo result]
  25 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
  26 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
  27 if { $tri ==6 && $nod == 8} {
  28     puts " Warning:  OCC292  looks like OK, but visual checking is required !!!!"
  29 } else {
  30     puts " OCC292 : Faulty"
  31 }
  32
  33 set square 1.3135
  34 set 3dviewer 1
  35
  36