0023087: Upgrade of the OCCT test system

[occt.git] / tests / feat / featprism / C2

diff --git a/tests/feat/featprism/C2 b/tests/feat/featprism/C2
new file mode 100644 (file)
index 0000000..428d510
--- /dev/null
+++ b/tests/feat/featprism/C2
@@ -0,0 +1,15 @@
+restore cylindre.rle cyl
+restore contour.rle cont
+mkplane cont cont
+nexplode cyl F
+
+ttranslate cont 0 0 -100
+#
+# flo : 25/06/1998 : Argument 4 featperformval -> face et non surface
+#
+mksurface surf cyl_3
+mkface face surf
+featprism cyl cont cont 0 1 0 0 1
+featperformval prism result 100 face
+
+set square 82461.3