Commit | Line | Data |
---|---|---|
ecf4f17c | 1 | restore [locate_data_file bug26917_rm-095_input_trim1.brep] s |
2 | ||
3 | offsetparameter 1e-7 c i | |
4 | offsetload s 5 | |
5 | ||
6 | set faces [explode s f] | |
7 | foreach f $faces { | |
8 | mksurface surf $f | |
9 | set found [regexp {Axis :([-0-9.+eE]*), ([-0-9.+eE]*), ([-0-9.+eE]*)} [dump surf] full x y z] | |
10 | if {$found && abs(abs($z) - 1) < 1.e-7} { | |
11 | offsetonface $f 0 | |
12 | } | |
13 | } | |
14 | offsetperform result | |
15 | ||
16 | checkprops result -v 6.74813e+006 -s 751157 | |
17 | ||
18 | checknbshapes result -shell 1 |