1puts "============"
2puts "OCC27386"
3puts "============"
4puts ""
5#####################################################################
6# BRepOffsetAPI_MakePipeShell does not provide history of generations
7#####################################################################
8
9
10restore [locate_data_file bug27386_sp.brep] sp
11restore [locate_data_file bug27386_pr2.brep] pr2
12explode sp v
13donly sp sp_1 pr2 sp_2
14
15mksweep sp
16addsweep sp_1
17addsweep pr2
18addsweep sp_2
19buildsweep q
20
21explode pr2
22
23savehistory sweep_hist
24
25generated r1 sweep_hist pr2_1
26generated r2 sweep_hist pr2_2
27generated r3 sweep_hist pr2_3
28
29checkprops r1 -s 1171.18
30checkprops r2 -s 1171.18
31checkprops r3 -s 965.22
32
33explode pr2 v
34
35generated r1 sweep_hist pr2_1
36generated r2 sweep_hist pr2_2
37generated r3 sweep_hist pr2_3
38
39checkprops r1 -l 147.049
40checkprops r2 -l 167.959
41checkprops r3 -l 147.049
42
43generated r4 sweep_hist sp_1
44generated r5 sweep_hist sp_2
45
46checknbshapes r4 -vertex 1 -edge 3 -face 0
47
48regexp {Mass : *([0-9\-+.eE]+)} [lprops r4] dummy len4
49
50if {$len4 > 1.e-12} {
51   puts "Error: the length of punctual section is not null"
52}
53
54checknbshapes r5 -vertex 1 -edge 3 -face 0
55
56regexp {Mass : *([0-9\-+.eE]+)} [lprops r5] dummy len5
57
58if {$len5 > 1.e-12} {
59   puts "Error: the length of punctual section is not null"
60}
61