From f5f13f6ad455e51eb90146109db931f4e66c42b7 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 12 Feb 2016 00:54:25 +0000
Subject: [PATCH] bike-lipo-box: provide tubesealrad and set to bigger value

---
 bike-lipo-box.scad.m4 | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/bike-lipo-box.scad.m4 b/bike-lipo-box.scad.m4
index ba4e387..9dc67fb 100644
--- a/bike-lipo-box.scad.m4
+++ b/bike-lipo-box.scad.m4
@@ -61,6 +61,7 @@ ceilth = 2.5;
 innertube = 1.0 + 0.2;
 lidoverlap = 1.5;
 lidoverhang = 4;
+tubesealrad = 2.0;
 
 ts_xbox = 30;
 ts_ybox = 25;
@@ -126,9 +127,9 @@ m4_define(`TestSealDoBoxShape',`
 m4_dnl '
 
 module WallProfile(){
-  z = ts_zbox - innertube - wallthick/2;
+  z = ts_zbox - innertube - tubesealrad;
   translate([0, -0.1]) square([wallthick, z]);
-  translate([wallthick/2, z]) circle(r = wallthick/2, $fn=20);
+  translate([tubesealrad, z]) circle(r=tubesealrad, $fn=20);
 }
 
 module FloorProfile(){
@@ -136,21 +137,22 @@ module FloorProfile(){
 }
 
 module LidProfile(){
-  rad = wallthick/2 + innertube;
+  rad = tubesealrad + innertube;
   morex = wallthick;
   difference(){
     translate([-lidoverlap - innertube,
 	       ts_zbox - lidoverhang - innertube])
-      square([lidoverlap + innertube + wallthick + morex,
+      square([lidoverlap + innertube + wallthick,
 	      lidoverhang + innertube + ceilth]);
     hull(){
-      translate([wallthick/2, ts_zbox - innertube - wallthick/2])
+      translate([tubesealrad,
+		 ts_zbox - innertube - tubesealrad])
 	for (t=[ [0,0],
 		 [morex*2, 0],
 		 [0, -ts_zbox]
 		 ]) {
 	  translate(t)
-	    circle(r= wallthick/2 + innertube, $fn=20);
+	    circle(r= tubesealrad + innertube, $fn=20);
 	}
     }
   }
-- 
2.30.2