tests/bugs/modalg_6/bug27856_2

   1 puts "========"
   2 puts "OCC27856"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Regression vs 6.7.1: General Fuse operation fails to fuse the solids
   7 #################################################
   8
   9 # Before the fix, EMPTY result (no points, no curves)
  10 # was returned in every considered case.
  11
  12 restore [locate_data_file bug27856_int_solids.brep] b
  13
  14 explode b so
  15
  16 # first pair of solids
  17 explode b_1 f
  18 explode b_2 f
  19
  20 # ----
  21
  22 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_1_2 b_2_2 -2d] full Toler NbCurv
  23 if {${NbCurv} != 1} {
  24   puts "Error: Number of curves is bad!"
  25 }
  26 checkreal TolReached $Toler 0.00026207823091004516 0.0 1.0e-3
  27
  28 # ----
  29
  30 set Toler 0.0
  31 set NbCurv 0
  32 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_1_4 b_2_4 -2d] full Toler NbCurv
  33 if {${NbCurv} != 1} {
  34   puts "Error: Number of curves is bad!"
  35 }
  36 checkreal TolReached $Toler 6.5053102894636701e-005 0.0 1.0e-2
  37
  38 # ----
  39
  40 # second pair of solids
  41
  42 explode b_3 f
  43 explode b_4 f
  44
  45 # ----
  46
  47 set Toler 0.0
  48 set NbCurv 0
  49 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_3_2 b_4_2 -2d] full Toler NbCurv
  50 if {${NbCurv} != 1} {
  51   puts "Error: Number of curves is bad!"
  52 }
  53 checkreal TolReached $Toler 0.00029706239430643614 0.0 1.0e-3
  54
  55 # ----
  56
  57 set Toler 0.0
  58 set NbCurv 0
  59 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_3_4 b_4_4 -2d] full Toler NbCurv
  60 if {${NbCurv} != 1} {
  61   puts "Error: Number of curves is bad!"
  62 }
  63 checkreal TolReached $Toler 0.00029242389138280588 0.0 1.0e-3
  64
  65 # ----
  66
  67 # third pair of solids
  68
  69 explode b_5 f
  70 explode b_6 f
  71
  72 # ----
  73
  74 set Toler 0.0
  75 set NbCurv 0
  76 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_5_2 b_6_2 -2d] full Toler NbCurv
  77 if {${NbCurv} != 1} {
  78   puts "Error: Number of curves is bad!"
  79 }
  80 checkreal TolReached $Toler 1.4980089259007279e-005 0.0 1.0e-2
  81
  82 # ----
  83
  84 set Toler 0.0
  85 set NbCurv 0
  86 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_5_4 b_6_4 -2d] full Toler NbCurv
  87 if {${NbCurv} != 1} {
  88   puts "Error: Number of curves is bad!"
  89 }
  90 checkreal TolReached $Toler 0.00023417493528435788 0.0 1.0e-3
  91
  92 # ----
  93
  94 # fourth pair of solids
  95
  96 explode b_7 f
  97 explode b_8 f
  98
  99 # ----
 100
 101 set Toler 0.0
 102 set NbCurv 0
 103 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_7_2 b_8_2 -2d] full Toler NbCurv
 104 if {${NbCurv} != 1} {
 105   puts "Error: Number of curves is bad!"
 106 }
 107 checkreal TolReached $Toler 0.00027445924390073518 0.0 1.0e-3
 108
 109 # ----
 110
 111 set Toler 0.0
 112 set NbCurv 0
 113 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_7_4 b_8_4 -2d] full Toler NbCurv
 114 if {${NbCurv} != 1} {
 115   puts "Error: Number of curves is bad!"
 116 }
 117 checkreal TolReached $Toler 1.867918118939262e-005 0.0 1.0e-2
 118