tests/bugs/modalg_7/bug28406

   1 puts "TODO 0028406 ALL: Error: MaxTolerance"
   2
   3 puts "======="
   4 puts "0028406"
   5 puts "======="
   6 puts ""
   7 #######################################################
   8 # High tolerances after boolean operation on OCCT 6.9.1
   9 #######################################################
  10
  11 restore [locate_data_file bug28406_ar_shape_to_cuts.brep]  b1
  12 restore [locate_data_file bug28406_ar_cutting_shapes.brep] b2
  13
  14 explode b2 f
  15
  16 set log_1 [bopcurves b1 b2_1 -2d]
  17 regexp {Tolerance Reached=([-0-9.+eE]+)} $log_1 full tol_reached_1
  18
  19 set log_2 [bopcurves b1 b2_7 -2d]
  20 regexp {Tolerance Reached=([-0-9.+eE]+)} $log_2 full tol_reached_2
  21
  22 set log_3 [maxtolerance b2]
  23 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $log_3 full MaxFaceTolerance
  24
  25
  26 set ToleranceReached-6-9-1_1 0.044936986074371126
  27 set ToleranceReached-6-9-1_2 0.024455156919182791
  28 set tol_rel_MaxTol 0.0001
  29
  30 checkreal "MaxTolerance 2_1 " ${tol_reached_1} ${ToleranceReached-6-9-1_1} ${MaxFaceTolerance} ${tol_rel_MaxTol}
  31 checkreal "MaxTolerance 2_7 " ${tol_reached_2} ${ToleranceReached-6-9-1_2} ${MaxFaceTolerance} ${tol_rel_MaxTol}