X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=bike-lipo-box.scad.m4;fp=bike-lipo-box.scad.m4;h=9dc67fbab52f570ec010e9ca3cdaf975fc36a4c3;hb=f5f13f6ad455e51eb90146109db931f4e66c42b7;hp=ba4e387ec3ad19c86789746498b48b2c96d5ec99;hpb=de40ffb095f2b14fa34b1437da92a4adf87e375f;p=reprap-play.git

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