sealing-box: reorg LidProfile for adding more near top left (nfc)

[reprap-play.git] / bike-lipo-box.scad

diff --git a/bike-lipo-box.scad b/bike-lipo-box.scad
index 51e5639cd1ca1152875c72bb8a14c96bd8d3365e..69bfe56431fa2c73ac42fe203d0b53aa91031673 100644 (file)
--- a/bike-lipo-box.scad
+++ b/bike-lipo-box.scad
@@ -32,6 +32,7 @@ strap_pillard = 5;
 strap_over = 2;
 
 straps_at_box = [45, 95, 125, 160];
+straps_every = 30;
 
 // calculated
 
@@ -166,17 +167,22 @@ module StrapKeepers(at){
   }
 }
 
+chargingconn_x = pxp6012_rad_outer + 1 + $sealingbox_cnrrad;
+switch_x = chargingconn_x + pxp6012_rad_outer
+  + s1930_y_outer/2 + s1930_around;
+
+module AtSealingBox(){
+  rotate([90,0,0])
+    translate([-wallthick,-wallthick, -toty_inner])
+    children();
+}
+
 module Box(){ ////toplevel
   $sealingbox_sz = sb_box_sz;
 
-  chargingconn_x = pxp6012_rad_outer + 1 + $sealingbox_cnrrad;
-  switch_x = chargingconn_x + pxp6012_rad_outer
-    + s1930_y_outer/2 + s1930_around;
-
   difference(){
     union(){
-      rotate([90,0,0])
-       translate([-wallthick,-wallthick, -toty_inner])
+      AtSealingBox()
        SealingBox_RectBox();
 
       translate([switch_x, toty_inner, totz_inner/2])
@@ -217,10 +223,38 @@ module Box(){ ////toplevel
 }
 
 module BoxPrint(){ ////toplevel
-  rotate([-90,0,0])
+  rotate([-90,0,-90])
     Box();
 }
 
+module Lid(){ ////toplevel
+  $sealingbox_sz = sb_box_sz;
+  difference(){
+    union(){
+      AtSealingBox()
+       SealingBox_RectLid();
+      translate([0, -wallthick, -SealingBox_lidbigger()])
+       mirror([0,0,1])
+       StrapKeepers([ straps_every : straps_every
+                      : totx_inner-straps_every ]);
+    }
+
+    translate($sealingbox_cnrrad * [1,0,1])
+      rotate([90,0,0])
+      Commitid_Full16_M();
+  }
+}
+
+module LidPrint(){ ////toplevel
+  rotate([90,0,-90])
+    Lid();
+}
+
+module Demo(){ ////toplevel
+  color("blue") Box();
+  color("red") Lid();
+}
+
 //TestWall();
 //ProfileDemos();
 //TestSealBox();