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