953d87f3 |
1 | puts "============" |
2 | puts "OCC27386" |
3 | puts "============" |
4 | puts "" |
5 | ##################################################################### |
6 | # BRepOffsetAPI_MakePipeShell does not provide history of generations |
7 | ##################################################################### |
8 | |
9 | |
10 | circle cc 0 0 0 100 |
11 | circle c1 0 100 0 1 0 0 10 |
12 | polyline pr2 0 -90 0 0 -100 10 0 -110 0 0 -100 -10 0 -90 0 |
13 | mkedge sp cc |
14 | wire sp sp |
15 | mkedge pr1 c1 |
16 | wire pr1 pr1 |
17 | explode sp v |
18 | donly sp pr1 pr2 sp_1 |
19 | |
20 | mksweep sp |
21 | addsweep sp_1 |
22 | addsweep pr1 |
23 | addsweep pr2 |
24 | buildsweep q |
25 | |
26 | explode pr1 |
27 | explode pr2 |
28 | |
4f7d41ea |
29 | savehistory sweep_hist |
953d87f3 |
30 | |
4f7d41ea |
31 | generated r1_1 sweep_hist pr1_1 |
32 | |
cab49d68 |
33 | checknbshapes r1_1 -face 4 |
34 | checkprops r1_1 -s 35117.3 |
35 | |
4f7d41ea |
36 | generated r2_1 sweep_hist pr2_1 |
37 | generated r2_2 sweep_hist pr2_2 |
38 | generated r2_3 sweep_hist pr2_3 |
39 | generated r2_4 sweep_hist pr2_4 |
953d87f3 |
40 | |
cab49d68 |
41 | checkprops r2_1 -s 8183.89 |
42 | checkprops r2_2 -s 9374.75 |
43 | checkprops r2_3 -s 9374.75 |
44 | checkprops r2_4 -s 8183.89 |
45 | |
953d87f3 |
46 | explode pr1 v |
47 | explode pr2 v |
48 | |
4f7d41ea |
49 | generated r1_1 sweep_hist pr1_1 |
953d87f3 |
50 | |
cab49d68 |
51 | checkprops r1_1 -l 628.319 |
52 | |
4f7d41ea |
53 | generated r2_1 sweep_hist pr2_1 |
54 | generated r2_2 sweep_hist pr2_2 |
55 | generated r2_3 sweep_hist pr2_3 |
56 | generated r2_4 sweep_hist pr2_4 |
953d87f3 |
57 | |
cab49d68 |
58 | checkprops r2_1 -l 573.265 |
59 | checkprops r2_2 -l 629.072 |
60 | checkprops r2_3 -l 684.885 |
61 | checkprops r2_4 -l 629.072 |
62 | |
4f7d41ea |
63 | generated r3 sweep_hist sp_1 |
cab49d68 |
64 | |
65 | checknbshapes r3 -vertex 1 -edge 4 -face 0 |
66 | |
67 | regexp {Mass : *([0-9\-+.eE]+)} [lprops r3] dummy len3 |
68 | |
69 | if {$len3 > 1.e-12} { |
70 | puts "Error: the length of punctual section is not null" |
71 | } |