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

restore [locate_data_file bug28442_simple4.brep] s

offsetparameter 1e-7 c i r
offsetload s 0

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 == 0} {
    continue
  }
  # reverse normal direction for faces with orientation REVERSED  
  if {[regexp {REVERSED} [whatis $f]]} {
    set z [expr -1*$z]
  }
  # set offset value for top faces only
  if {abs($z - 1) < 1.e-7 } {
    offsetonface $f 1.4
  }
}
offsetperform result

checkprops result -v 593.919 -s 655.117

unifysamedom result_unif result
checknbshapes result_unif -face 21 -shell 1

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