0da0275c |
1 | restore [locate_data_file bug28442_simple4.brep] s |
2 | |
3 | offsetparameter 1e-7 c i r |
4 | offsetload s 0 |
5 | |
6 | foreach f [explode s f] { |
7 | mksurface surf $f |
8 | set found [regexp {Axis :([-0-9.+eE]*), ([-0-9.+eE]*), ([-0-9.+eE]*)} [dump surf] full x y z] |
9 | if {$found == 0} { |
10 | continue |
11 | } |
12 | # reverse normal direction for faces with orientation REVERSED |
13 | if {[regexp {REVERSED} [whatis $f]]} { |
14 | set z [expr -1*$z] |
15 | } |
16 | # set offset value for top faces only |
17 | if {abs($z - 1) < 1.e-7 } { |
18 | offsetonface $f 3.5 |
19 | } |
20 | } |
21 | offsetperform result |
22 | |
23 | checkprops result -v 914.348 -s 717.153 |
24 | |
25 | unifysamedom result_unif result |
26 | checknbshapes result_unif -face 14 -shell 1 |
27 | |
28 | checkview -display result_unif -2d -path ${imagedir}/${test_image}.png |