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