Merge branch 'master' of /home/kas/html/git/heater
[heater.git] / case.scad
index 43583c4..14efba2 100644 (file)
--- a/case.scad
+++ b/case.scad
@@ -202,6 +202,16 @@ module case() {
                for (x=[-1, 1]) scale([x, 1, 1])
                translate([sw_xoff + sw_diam/2 + wall, batt_diam/2-pcb_width/2-wall/2, -batt_diam/2-pcb_thick-pcb_comp_h-pcb_comp_h2-wall-eps])
                        cube([plus_width, wall, wall/2]);
+               // rounded top
+               for (x=[-1, 1]) scale([x, 1, 1])
+               translate([batt_len/2 + wall + cable_sep, -infty/2, body_top_h - 2*wall])
+               rotate([-90, 0, 0])
+                       scale([1, -2, 1])
+                       difference() {
+                               cube([wall+eps, wall+eps, infty]);
+                               translate([0, 0, -eps])
+                               cylinder(r=wall, h=infty+2*eps);
+                       }
        };
 };