Added test cases to folders /bugs/modalg and /bugs/moddata from chl grid.

[occt.git] / tests / bugs / modalg / bug23162_3

diff --git a/tests/bugs/modalg/bug23162_3 b/tests/bugs/modalg/bug23162_3
new file mode 100755 (executable)
index 0000000..d658253
--- /dev/null
+++ b/tests/bugs/modalg/bug23162_3
@@ -0,0 +1,47 @@
+puts "================"
+puts "OCC23162"
+puts "================"
+puts ""
+##############################################################################
+# BRepOffsetAPI_MakePipeShell works wrong
+##############################################################################
+
+set BugNumber OCC23162
+
+catch {pload XDE}
+
+set status 0
+
+set radius 1.
+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 1.45725
+set 3dviewer 0