From e8da24242a908f43681f5110b0955e63f555187f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 12 Feb 2016 01:06:12 +0000
Subject: [PATCH] bike-lipo-box: nearly ready

---
 Makefile              |  2 ++
 bike-lipo-box.scad.m4 | 22 +++++++++++++++++++---
 2 files changed, 21 insertions(+), 3 deletions(-)

diff --git a/Makefile b/Makefile
index 4ad0929..28d308c 100644
--- a/Makefile
+++ b/Makefile
@@ -48,6 +48,8 @@ stls:		$(addsuffix .auto.stl, $(AUTO_TOPLEVELS))
 %.auto.stls:
 	$(MAKE) $(addsuffix .auto.stl, $(shell $(PLAY)/toplevel-find $*))
 
+bike-lipo-box.scad:
+
 -include .*.d
 
 %.stl:		%.scad $(AUTO_INCS)
diff --git a/bike-lipo-box.scad.m4 b/bike-lipo-box.scad.m4
index 60c1165..da97cd4 100644
--- a/bike-lipo-box.scad.m4
+++ b/bike-lipo-box.scad.m4
@@ -66,7 +66,7 @@ tubesealrad = 2.0;
 ts_xbox = 30;
 ts_ybox = 25;
 ts_cnrrad = 10;
-ts_zbox = 15;
+ts_zbox = 8;
 
 m4_dnl Box_Part($1=transl_x,$2=transl_y, $3=rot_z,$4=mirror_xy)
 m4_dnl          $5=kind, $6=kindargs, $7=profile(profileargsargs))
@@ -163,11 +163,26 @@ module CeilProfile(){
     square([wallthick*2, ceilth]);
 }
 
-module TestSealBox(){
+module TestSealBox(){ ////toplevel
   TestSealDoBoxShape(WallProfile(););
   hull(){ TestSealDoBoxShape(FloorProfile();); }
 }
 
+module TestSealLid(){ ////toplevel
+  difference(){
+    union(){
+      TestSealDoBoxShape(LidProfile(););
+      hull(){ TestSealDoBoxShape(CeilProfile();); }
+    }
+    translate([ts_xbox/2, ts_ybox/2, 0])
+      cylinder(h=100, r=5);
+  }
+}
+
+module TestSealLidPrint(){ ////toplevel
+  rotate([180,0,0]) TestSealLid();
+}
+
 module ProfileDemos(){
   WallProfile();
   color("blue") FloorProfile();
@@ -176,6 +191,7 @@ module ProfileDemos(){
 }
 			  
 //TestWall();
+//ProfileDemos();
 //TestSealBox();
-ProfileDemos();
+//TestSealLid();
 //FArcSegment_mask(350);
-- 
2.30.2