bike-lipo-box: provide tubesealrad and set to bigger value

diff --git a/bike-lipo-box.scad.m4 b/bike-lipo-box.scad.m4
index ba4e387ec3ad19c86789746498b48b2c96d5ec99..9dc67fbab52f570ec010e9ca3cdaf975fc36a4c3 100644 (file)
--- 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);
        }
     }
   }