tests/bugs/modalg_2/bug347_2

   1
   2 puts "========================"
   3 puts " BUC60959 "
   4 puts " OCC347 "
   5 puts " (case 2) "
   6 puts "========================"
   7
   8 restore [locate_data_file OCC347b.brep] result
   9 checkshape result
  10
  11 tclean result
  12 vinit
  13 vdisplay result
  14 vfit
  15 vsetdispmode result 1
  16 set 3dviewer 1
  17
  18 set tri 0
  19 set nod 0
  20 set tri_info [trinfo result]
  21 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
  22 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
  23
  24 if { $tri == 71 && $nod == 73} {
  25         puts " OCC347  case 2: OK"
  26 } else {
  27         puts " OCC347  case 2: Faulty"
  28 }
  29
  30 set square 100.531
  31 set 2dviewer 0
  32