0031542: Modeling Algorithms - Offset algorithm produces incomplete result in mode...
[occt.git] / tests / offset / shape_type_i_c / XW5
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 5;  # positive x-axis
7 set X2 10; # nagative x-axis
8 set Y1 5;  # positive y-axis
9 set Y2 10; # negative y-axis
10 set TOP 0; # 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 702224 -v 2.17722e+07
41
42 unifysamedom result_unif result
43 checknbshapes result_unif -wire 28 -face 28 -shell 1 -solid 1
44
45 checkview -display result_unif -2d -path ${imagedir}/${test_image}.png