tests/bugs/modalg_2/bug291

   1
   2 puts "================= OCC291 ==================="
   3
   4 #################################################################
   5 ## Some triangles of shading mesh are outside of shape boundaries. (See attached shape).
   6 #################################################################
   7
   8 restore [locate_data_file shading_171.brep] result
   9 checkshape result
  10
  11 tclean result
  12 vinit
  13 vdisplay result
  14 vsetdispmode result 1
  15 vfit
  16
  17 isos result 0
  18 triangles result
  19
  20       set tri 0
  21       set nod 0
  22 set tri_info [trinfo result]
  23 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
  24 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
  25
  26 #$tri == 395 && $nod == 350,aki251103.
  27 if { $tri == 382 && $nod == 343 } {
  28         puts " Warning:  OCC291  looks like OK, but visual checking is required !"
  29 } else {
  30         puts " Shady OCC291 : nb tri & nod changed"
  31 }
  32
  33 set square 376.873
  34 set only_screen 1
  35