poster-tube-lid-parametric: incorporate, fix Makefiles, etc.

[reprap-play.git] / poster-tube-lid-parametric.scad.pl

diff --git a/poster-tube-lid-parametric.pl b/poster-tube-lid-parametric.scad.pl
similarity index 97%
rename from poster-tube-lid-parametric.pl
rename to poster-tube-lid-parametric.scad.pl
index fc10667b2b4cea563cfc95697cccadfa40f0bb3c..353c7123c6007b0645210c92b1f5d13446046318 100755 (executable)
--- a/poster-tube-lid-parametric.pl
+++ b/poster-tube-lid-parametric.scad.pl
@@ -197,11 +197,11 @@ sub pv ($) {
 }
 
 sub write_out () {
-    print "polyhedron(points=[\n" or die $!;
+    print "module ImplHeadCup(){ polyhedron(points=[\n" or die $!;
     print pv($_),",\n" or die $! foreach @points;
     print "],faces=[\n" or die $!;
     print pv($_),",\n" or die $! foreach @triangles;
-    print "],convexity=10);\n" or die $!;
+    print "],convexity=10); }\n" or die $!;
 }
 
 make_sheet();