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
  17 set tri 0
  18 set nod 0
  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 == 71 && $nod == 73} {
  24         puts " OCC347  case 2: OK"
  25 } else {
  26         puts " OCC347  case 2: Faulty"
  27 }
  28
  29 checkprops result -s 100.531
  30 checkview -display result -2d -path ${imagedir}/${test_image}.png
  31