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

restore [locate_data_file bug26917_dom-8092_simple.brep] s

offsetparameter 1e-7 $calcul $type
offsetload s 1
foreach f [explode s f] {
  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 64.4702
checkprops result -s 104.508

unifysamedom result_unif result
checknbshapes result_unif -face 8 -shell 1

checkview -display result_unif -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
ecf4f17c	1	restore [locate_data_file bug26917_dom-8092_simple.brep] s
	2
	3	offsetparameter 1e-7 $calcul $type
	4	offsetload s 1
	5	foreach f [explode s f] {
	6	mksurface surf $f
	7	set found [regexp {Axis :([-0-9.+eE]), ([-0-9.+eE]), ([-0-9.+eE]*)} [dump surf] full x y z]
	8	if {$found && abs(abs($z) - 1) < 1.e-7} {
	9	offsetonface $f 0
	10	}
	11	}
	12	offsetperform result
	13
	14	checkprops result -v 64.4702
	15	checkprops result -s 104.508
	16
	17	unifysamedom result_unif result
	18	checknbshapes result_unif -face 8 -shell 1
	19
	20	checkview -display result_unif -2d -path ${imagedir}/${test_image}.png