+ translate([0,0,-1]) color("lightblue") SideHalfPlan();
+}
+
+module Base(){ ////toplevel
+ difference(){
+ ExtrudePlan(0,s1) BaseHalfPlan();
+ linextr(-(10+battery_len), battery_len+10, convexity=5) PushHolePlan();
+ }
+ difference(){
+ union(){
+ ExtrudePlan(s0i, s1) SideHalfPlan();
+ ExtrudePlan(s0 - battery_base_indent_fromside_inside,
+ s0 - battery_base_indent_fromside_outside
+ ) BaseHalfPlan(indent = battery_base_indent);
+ }
+ for (m=[0,1])
+ mirror([m,0,0])
+ translate([s0i, 0, bpp7[0] - 0.1])
+ cylinder(r= battery_th/2, h=100, $fs=0.5);
+ }
+}
+
+module BaseHalfTest(){ ////toplevel
+ intersection(){
+ Base();
+ translate([-100,0,-100])
+ cube([200,200,200]);
+ }
+}
+
+module Lid(){ ////toplevel
+ ExtrudePlan(0,s1) LidHalfPlan();
+ ExtrudePlan(l0,l1) HandleHalfPlan();
+}
+
+module Demo(){ ////toplevel
+ %Base();
+ Lid();