809eca9d |
1 | puts "================" |
2 | puts "OCC23162" |
3 | puts "================" |
4 | puts "" |
5 | ############################################################################## |
6 | # BRepOffsetAPI_MakePipeShell works wrong |
7 | ############################################################################## |
8 | |
9 | set BugNumber OCC23162 |
10 | |
11 | catch {pload XDE} |
12 | |
13 | set status 0 |
14 | |
15 | set radius 0.1 |
16 | puts "------------- Radius $radius" |
17 | # make a ring quarter |
18 | vertex v1 [expr $radius / 2] 0 0 |
19 | vertex v2 $radius 0 0 |
20 | edge e v1 v2 |
21 | revol rq e 0 0 0 0 0 1 45 |
22 | |
23 | # make rq scaled and translated |
24 | scaleshape rq2 rq 0.2 |
25 | ttranslate rq2 0 0 $radius |
26 | |
27 | # get wires of rq |
28 | explode rq W |
29 | explode rq2 W |
30 | |
31 | # make a spine |
32 | vertex v1 0 0 0 |
33 | vertex v2 0 0 $radius |
34 | edge e v1 v2 |
35 | wire spine e |
36 | |
37 | # make a pipe |
38 | mksweep spine |
39 | addsweep rq_1 v1 |
40 | addsweep rq2_1 v2 |
41 | buildsweep result |
42 | |
43 | # BUG: a pipe is invalid |
44 | checkshape result -short |
45 | |
46 | set square 0.0145725 |
47 | set 3dviewer 0 |