[occt.git] / tests / offset / shape_type_i_c / XG7

restore [locate_data_file bug26917_rm-095_input_trim1.brep] s

offsetparameter 1e-7 c i
offsetload s 5

set faces [explode s f]
foreach f $faces {
  mksurface surf $f
  set found [regexp {Axis   :([-0-9.+eE]*), ([-0-9.+eE]*), ([-0-9.+eE]*)} [dump surf] full x y z]
  if {$found && abs(abs($z) - 1) < 1.e-7} {
    offsetonface $f 0
  }
}
offsetperform result

checkprops result -v 6.74813e+006 -s 751157

checknbshapes result -shell 1
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