+
+module StrapKeepers(at){
+ strap_x_tot = strap_w + strap_pillar*2;
+
+ for (sx= at) {
+ echo("strapkeeper at ",sx);
+ translate([sx - strap_x_tot, 0, 0])
+ difference(){
+ translate([0,0, -0.1])
+ cube([strap_x_tot, strap_pillard, strap_th + strap_over]);
+ translate([strap_pillar, -1, 0])
+ cube([strap_w, strap_pillard+2, strap_th]);
+ }
+ }
+}
+
+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;
+
+ difference(){
+ union(){
+ AtSealingBox()
+ SealingBox_RectBox();
+
+ translate([switch_x, toty_inner, totz_inner/2])
+ rotate([90,0,90])
+ S1930_Positive();
+
+ // keepers for lipo
+ for (keepers= [[ 35, lipokeeper_d_min, lipokeeper_h,
+ [ 40, 80, 120, 150 ] ],
+ [ 10, lipokeeper_end_d_min, lipokeeper_end_h,
+ [ 25 ] ]
+ // each entry: [ y, d_min, h, [ x, ...] ]
+ ])
+ for (kx= keepers[3]) {
+ translate([kx, keepers[0], -1])
+ hull(){
+ cube([lipokeeper_w, keepers[1], keepers[2] +1]);
+ cube([lipokeeper_w,
+ keepers[1] + keepers[2] / lipokeeper_slope,
+ 1]);
+ }
+ }
+
+ AtGlands()
+ GlandPositive(cabledia);
+
+ translate([0, toty_inner+wallthick, -wallthick])
+ rotate([180, 0,0])
+ StrapKeepers(straps_at_box);
+ }
+
+ // charging connector
+ translate([chargingconn_x,
+ toty_inner - (pxp6012_rad_outer + 5),
+ 10])
+ cylinder(r= pxp6012_rad, h= totz_outer);
+
+ // vent connector
+ translate([chargingconn_x,
+ toty_inner - (pxp6012_rad_outer*2 + 5 + 15 +
+ jdae12pa_rad_outer),
+ 10])
+ cylinder(r= jdae12pa_rad, h= totz_outer);
+
+ translate([switch_x, toty_inner, totz_inner/2])
+ rotate([90,0,90])
+ S1930_Negative();
+
+ AtGlands()
+ GlandNegative(cabledia);
+
+ translate(-$sealingbox_cnrrad * [1,1,0] +
+ [totx_inner, toty_inner/2, -wallthick])
+ rotate([0,0,180])
+ scale([2,2,1])
+ Commitid_Full16_M();
+ }
+}
+
+module BoxPrint(){ ////toplevel
+ 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])
+ scale([1.5, 1.5, 1])
+ Commitid_Small16_M();
+ }
+}
+
+module LidPrint(){ ////toplevel
+ rotate([90,0,-90])
+ Lid();
+}
+
+module Demo(){ ////toplevel
+ color("blue") Box();
+ color("red") Lid();
+}
+