-ts_floorceil = 1.5;
-ts_outer = [20,20,20];
-ts_wall = [wallthick,wallthick,ts_floorceil];
-
-seal_h = 3;
-seal_w = 1;
-
-module TestSealSelector(){
- oz = ts_outer[2];
- muchxy = [30,30,0];
- seal_horiz_spare = wallthick - seal_w;
- seal_horiz_flat_outer = seal_horiz_spare/2;
- seal_horiz_flat_inner = seal_horiz_spare - seal_horiz_flat_outer;
-// translate([0,0, oz/2]){
- %translate(-muchxy/2) mirror([0,0,1]) cube(ts_outer + muchxy + [0,0,10]);
- hull(){
- translate([1,1,0] * seal_horiz_flat_outer)
- mirror([0,0,1])
- cube(ts_outer - 2 * [1,1,0] * seal_horiz_flat_outer);
- translate([1,1,0] * seal_horiz_flat_inner + [0, 0, seal_h])
- mirror([0,0,1])
- cube(ts_outer - 2 * [1,1,0] * seal_horiz_flat_inner);
+ts_totx = 30;
+ts_toty = 25;
+ts_totz_inner = 8;
+
+ts_box_sz = [ts_totx, ts_toty, ts_totz_inner];
+
+$sealingbox_wallth = wallthick;
+$sealingbox_floorth = wallthick;
+$sealingbox_ceilth = wallthick;
+
+module TestSealBox(){ ////toplevel
+ $sealingbox_sz = ts_box_sz;
+
+ SealingBox_RectBox();
+ ts_cidoff = ($sealingbox_cnrrad * (1-.7) + wallthick * .8) * [1,1];
+ translate(ts_cidoff)
+ Commitid_BestCount([ts_totx,ts_toty] - 2*ts_cidoff);
+}
+
+module TestSealLid(){ ////toplevel
+ $sealingbox_sz = ts_box_sz;
+
+ difference(){
+ SealingBox_RectLid();
+
+ translate([ts_totx * .75, ts_toty/2, 0])
+ cylinder(h=100, r=5);
+
+ translate([-wallthick + $sealingbox_cnrrad*.5,
+ $sealingbox_cnrrad*.5 - wallthick,
+ ts_totz_inner + $sealingbox_ceilth])
+ Commitid_BestCount([ts_totx * .75 - 2.5 - ($sealingbox_cnrrad*.5),
+ ts_toty - ($sealingbox_cnrrad*.5 - wallthick)*2]);
+ }
+}
+
+module TestSealLidPrint(){ ////toplevel
+ rotate([180,0,0]) TestSealLid();
+}
+
+module ProfileDemos(){ ////toplevel
+ $sealingbox_sz = ts_box_sz;
+
+ SealingBox_WallProfile();
+ color("blue") SealingBox_FloorProfile();
+ SealingBox_LidProfile();
+ color("blue") SealingBox_CeilProfile();
+ color("red") translate([-5,0]) square([1,ts_totz_inner]);
+}
+
+module AtGlands(){
+ for (dgy=[-15,-45]) {
+ translate([totx_inner + wallthick - $sealingbox_cnrrad * .3,
+ toty_inner + dgy,
+ totz_inner/2])
+ children();
+ }
+}
+
+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);