X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=poster-tube-lid-parametric.scad.pl;fp=poster-tube-lid-parametric.pl;h=353c7123c6007b0645210c92b1f5d13446046318;hb=b6f9009a57d55343c2a0a3a6884cb7f4304308ac;hp=fc10667b2b4cea563cfc95697cccadfa40f0bb3c;hpb=f1865cfc236ad69366031eda26234341361ed3f8;p=reprap-play.git

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 fc10667..353c712 100755
--- 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();