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

diff --git a/Makefile b/Makefile
index 7ec60a7e5392f8171af77c554e90eba1a1abd716..16ee6c89265d556e847979a6d843f34f0b6812d6 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -34,7 +34,8 @@ USING_AUTOS ?= $(FILAMENTSPOOL_AUTOS) xeno-drivebay-bracket dungeonquest-cone an
 
 AUTO_TOPLEVELS := $(foreach m,$(USING_AUTOS),$(shell $(PLAY)/toplevel-find $m))
 
-AUTO_INCS += funcs.scad sealing-box.scad sewing-table.scad
+AUTO_INCS += funcs.scad sealing-box.scad sewing-table.scad \
+            poster-tube-lid-parametric.scad
 
 default:       autoincs scads
 

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();

diff --git a/poster-tube-lid.scad b/poster-tube-lid.scad
index 67874167d93483c7cb92a69218fdb9678ce73c08..c3a3a05aa18aa8e4bb1f5575558b8cda14875e8e 100644 (file)
--- a/poster-tube-lid.scad
+++ b/poster-tube-lid.scad
@@ -128,6 +128,8 @@ smc_cnr_c_x = sm_bolt_shaft/2 - sm_closure_cnr
 $fs= coarse ? 2.5 : 0.5;
 $fa= coarse ? 5 : 1;
 
+include <poster-tube-lid-parametric.scad>
+
 // bayonet definition
 
 bayo_a = [ bayo_entry_x, 0 ];