tests/bugs/modalg_6/bug26241

   1 puts "========"
   2 puts "OCC26241"
   3 puts "========"
   4 puts ""
   5 ###########################################################
   6 # Sewing algorithm computes tolerance of joint vertex too rough
   7 ###########################################################
   8
   9 plane p 0 0 0 0 0 1 1 0 0
  10 mkface f1 p 0 10 0 10
  11 mkface f2 p 0 10 11 21
  12 settolerance f1 2
  13 settolerance f2 3
  14 sewing res 3 f1 f2
  15
  16 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance res] full MaxTolerance
  17 puts "MaxTolerance=$MaxTolerance"
  18
  19 set expected_MaxTolerance 3.0
  20 set tol_abs_MaxTolerance 0.1
  21 set tol_rel_MaxTolerance 0.1
  22 checkreal "MaxTolerance" ${MaxTolerance} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}