X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=bike-lipo-box.scad;h=6056d61304db0732715ff7caf9d77d3a4c11a640;hp=ec0b43b398b5dc052a688b2b17fe1a40e5a209c1;hb=2cbfe8e17ae89257bce84a58c340fa90bca555d9;hpb=84d30106b39f3e7cf80d95ad48146f40da7106d1

diff --git a/bike-lipo-box.scad b/bike-lipo-box.scad
index ec0b43b..6056d61 100644
--- a/bike-lipo-box.scad
+++ b/bike-lipo-box.scad
@@ -68,38 +68,42 @@ module TestWall(){ ////toplevel
   }    
 }
 
-floorth = 2.5;
-ceilth = 2.5;
+totx_outer = 30;
+toty_outer = 25;
+totz_inner = 8;
+
+$sealingbox_wallth = wallthick;
+$sealingbox_floorth = 2.5;
+$sealingbox_ceilth = 2.5;
+$sealingbox_xbox = totx_outer;
+$sealingbox_ybox = toty_outer;
+$sealingbox_zbox = totz_inner;
+
 innertube = 1.0 + 0.2;
 lidoverlap = 1.5;
 lidoverhang = 6;
 tubesealrad = 2.0;
 
-ts_xbox = 30;
-ts_ybox = 25;
-ts_cnrrad = 10;
-ts_zbox = 8;
-
 include <sealing-box.scad>
 
 module TestSealBox(){ ////toplevel
   TestSealBoxBox();
   translate(ts_cidoff)
-    Commitid_BestCount([ts_xbox,ts_ybox] - 2*ts_cidoff);
+    Commitid_BestCount([totx_outer,toty_outer] - 2*ts_cidoff);
 }
 
 module TestSealLid(){ ////toplevel
   difference(){
     TestSealBoxLid();
 
-    translate([ts_xbox * .75, ts_ybox/2, 0])
+    translate([totx_outer * .75, toty_outer/2, 0])
       cylinder(h=100, r=5);
     
-    translate([-wallthick + ts_cnrrad*.5,
-	       ts_cnrrad*.5 - wallthick,
-	       ts_zbox + ceilth])
-      Commitid_BestCount([ts_xbox * .75 - 2.5 - (ts_cnrrad*.5),
-			  ts_ybox - (ts_cnrrad*.5 - wallthick)*2]);
+    translate([-wallthick + $sealingbox_cnrrad*.5,
+	       $sealingbox_cnrrad*.5 - wallthick,
+	       totz_inner + $sealingbox_ceilth])
+      Commitid_BestCount([totx_outer * .75 - 2.5 - ($sealingbox_cnrrad*.5),
+			  toty_outer - ($sealingbox_cnrrad*.5 - wallthick)*2]);
   }
 }
 
@@ -107,11 +111,12 @@ module TestSealLidPrint(){ ////toplevel
   rotate([180,0,0]) TestSealLid();
 }
 
-module ProfileDemos(){
-  WallProfile();
-  color("blue") FloorProfile();
-  LidProfile();
-  color("blue") CeilProfile();
+module ProfileDemos(){ ////toplevel
+  SealingBox_WallProfile();
+  color("blue") SealingBox_FloorProfile();
+  SealingBox_LidProfile();
+  color("blue") SealingBox_CeilProfile();
+  color("red") translate([-5,0]) square([1,totz_inner]);
 }
 			  
 //TestWall();