0023087: Upgrade of the OCCT test system

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

diff --git a/tests/feat/featprism/L1 b/tests/feat/featprism/L1
new file mode 100644 (file)
index 0000000..84c7ac9
--- /dev/null
+++ b/tests/feat/featprism/L1
@@ -0,0 +1,19 @@
+# Original bug : fra60618
+# Date : 23 Mar 98
+
+restore fra60618-part.rle base
+restore fra60618-tool.rle wire
+
+mkplane cont wire
+
+nexplode base face
+copy base_15 funtil
+
+## creation de face infinie support
+mksurface p15 base_15
+mkface f15 p15
+
+featprism base cont cont 0 0 -1 0 1
+featperform prism result f15
+
+set square 16398.2