tests/bugs/mesh/bug24127

   1 puts "================"
   2 puts "CR24127"
   3 puts "================"
   4 puts ""
   5 ###############################################
   6 ## Mesh generated with BRepMesh_FastDiscret does not reflect a deflection setting
   7 ###############################################
   8
   9 bsplinesurf s 2 4 0.0 3 0.34 1 0.67 1 1.0 3 1 2 0.0 2 1.0 2 10 0 0 1 6 0 0 1 4 0 0 1 2 0 0 1 0 0 0 1 10 5 0 1 6 5 0 1 4 5 0 1 1.5 9 0 1 0 5 0 1
  10
  11 mkface f s
  12
  13 incmesh f 1
  14
  15 trinfo f
  16
  17 set trinfo_s [trinfo f]
  18 regexp {([0-9]+) triangles} ${trinfo_s} str nbtri_s
  19 regexp {([0-9]+) nodes} ${trinfo_s} str nbnod_s
  20 regexp {deflection ([0-9.+e-]+)} ${trinfo_s} str defl_s
  21
  22 if { ${nbtri_s} != 99 } {
  23    puts "Error: triangle number is bad"
  24 }
  25
  26 if { ${nbnod_s} != 59 } {
  27    puts "Error: node number is bad"
  28 }
  29
  30 set expected_defl_s 0.59663444648536146
  31 set tol_abs_defl_s 1.e-3
  32 set tol_rel_defl_s 0.01
  33 checkreal "Deflection" ${defl_s} ${expected_defl_s} ${tol_abs_defl_s} ${tol_rel_defl_s}
  34
  35 vinit
  36 vdisplay f
  37 vfit
  38
  39 set only_screen 1