4b59685a |
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 |
7b5e532f |
7 | set X2 5; # negative x-axis |
4b59685a |
8 | set Y1 10; # positive y-axis |
9 | set Y2 5; # negative y-axis |
10 | set TOP 5; # 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 705116 -v 2.26365e+07 |
41 | |
42 | unifysamedom result_unif result |
43 | checknbshapes result_unif -wire 32 -face 32 -shell 1 -solid 1 |
44 | |
45 | checkview -display result_unif -2d -path ${imagedir}/${test_image}.png |