--- /dev/null
+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 1 1
+featperformval prism result 55 face
+
+set square 97552.2