1restore [locate_data_file bug28442_simple.brep] s
2
3offsetparameter 1e-7 c i r
4offsetload s 0
5
6foreach 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 0.5
19  }
20}
21offsetperform result
22
23checkprops result -v 406.625 -s 605.617
24
25unifysamedom result_unif result
26checknbshapes result_unif -face 16 -shell 1
27
28checkview -display result_unif -2d -path ${imagedir}/${test_image}.png
29