puts "=========================================================================================="
puts "OCC30958: BRepOffsetAPI_ThruSections operation raises an except-ion while building history"
puts "=========================================================================================="
puts ""

restore [locate_data_file bug30958_CompWires.brep] ww
explode ww

thrusections res 0 1 ww_1 ww_2

savehistory hist

explode ww_1

generated r1 hist ww_1_1
generated r2 hist ww_1_2

checkprops r1 -s 22.4404
checkprops r2 -s 81.2396

explode ww_1 v

generated rr1 hist ww_1_1
generated rr2 hist ww_1_2
generated rr3 hist ww_1_3

distmini dd ww_1_1 rr1
regexp {([-0-9.+eE]+)} [dump dd_val] full dist
if { $dist > 1.e-7} {
   puts "Error: wrong generated list of edges"
}

distmini dd ww_1_2 rr2
regexp {([-0-9.+eE]+)} [dump dd_val] full dist
if { $dist > 1.e-7} {
   puts "Error: wrong generated list of edges"
}

distmini dd ww_1_3 rr3
regexp {([-0-9.+eE]+)} [dump dd_val] full dist
if { $dist > 1.e-7} {
   puts "Error: wrong generated list of edges"
}
