tests/offset/shape_type_i_c/XW7

   1 puts "========"
   2 puts "0031542: Modeling Algorithms - Offset algorithm produces incomplete result in mode Complete join type Intersection"
   3 puts "========"
   4 puts ""
   5
   6 set X1 10;  # positive x-axis
   7 set X2 5;   # negative x-axis
   8 set Y1 10;  # positive y-axis
   9 set Y2 5;   # negative y-axis
  10 set TOP 10; # positive z-axis
  11
  12 set eps 1.e-5
  13
  14 restore [locate_data_file bug31542_dom-18777.input.brep] s
  15
  16 offsetparameter 1e-7 c i r
  17 offsetload s 0
  18 foreach f [explode s f] {
  19   mksurface surf $f;
  20   regexp {Axis   :([-0-9.+eE]*), ([-0-9.+eE]*), ([-0-9.+eE]*)} [dump surf] full x y z
  21   if {[regexp "REVERSED" [whatis $f]]} {
  22     set x [dval -1*$x];
  23     set y [dval -1*$y];
  24     set z [dval -1*$z];
  25   }
  26   if {$y < -1*$eps} {
  27     offsetonface $f $Y2
  28   } elseif {$y > $eps} {
  29     offsetonface $f $Y1
  30   } elseif {$x < -1*$eps} {
  31     offsetonface $f $X2
  32   } elseif {$x > $eps} {
  33     offsetonface $f $X1
  34   } elseif {$z > $eps} {
  35     offsetonface $f $TOP
  36   }
  37 }
  38 offsetperform result
  39
  40 checkprops result -s 709138 -v 2.35754e+07
  41
  42 unifysamedom result_unif result
  43 checknbshapes result_unif -wire 31 -face 31 -shell 1 -solid 1
  44
  45 checkview -display result_unif -2d -path ${imagedir}/${test_image}.png