puts "============"
puts "OCC27386"
puts "============"
puts ""
#####################################################################
# BRepOffsetAPI_MakePipeShell does not provide history of generations
#####################################################################


circle cc 0 0 0 100
circle c1 0 100 0  1 0 0  10
polyline pr2 0 -90 0  0 -100 10  0 -110 0  0 -100 -10  0 -90 0
mkedge sp cc
wire sp sp
mkedge pr1 c1
wire pr1 pr1
explode sp v
donly sp pr1 pr2 sp_1

mksweep sp
addsweep sp_1
addsweep pr1
addsweep pr2
buildsweep q

explode pr1
explode pr2

savehistory sweep_hist

generated r1_1 sweep_hist pr1_1

checknbshapes r1_1 -face 4
checkprops r1_1 -s 35117.3

generated r2_1 sweep_hist pr2_1
generated r2_2 sweep_hist pr2_2
generated r2_3 sweep_hist pr2_3
generated r2_4 sweep_hist pr2_4

checkprops r2_1 -s 8183.89
checkprops r2_2 -s 9374.75
checkprops r2_3 -s 9374.75
checkprops r2_4 -s 8183.89

explode pr1 v
explode pr2 v

generated r1_1 sweep_hist pr1_1

checkprops r1_1 -l 628.319

generated r2_1 sweep_hist pr2_1
generated r2_2 sweep_hist pr2_2
generated r2_3 sweep_hist pr2_3
generated r2_4 sweep_hist pr2_4

checkprops r2_1 -l 573.265
checkprops r2_2 -l 629.072
checkprops r2_3 -l 684.885
checkprops r2_4 -l 629.072

generated r3 sweep_hist sp_1

checknbshapes r3 -vertex 1 -edge 4 -face 0

regexp {Mass : *([0-9\-+.eE]+)} [lprops r3] dummy len3

if {$len3 > 1.e-12} {
   puts "Error: the length of punctual section is not null"
}