1 restore [locate_data_file bug28501_input.r2_trim.brep] s
3 offsetparameter 1e-7 c i r
6 foreach f [explode s f] {
8 set found [regexp {Axis :([-0-9.+eE]*), ([-0-9.+eE]*), ([-0-9.+eE]*)} [dump surf] full x y z]
9 if {$found && abs($z + 1) > 1.e-7} {
15 checkprops result -v 5.96198e+006 -s 395753
17 unifysamedom result_unif result
18 checknbshapes result_unif -face 93 -shell 1
20 checkview -display result_unif -2d -path ${imagedir}/${test_image}.png