case.scad: round top corners

[heater.git] / case.scad

diff --git a/case.scad b/case.scad
index 596b0daf59fbb3639c767c6f5155f57166471686..bc4fd31a0335666a8fe934d3db7b8020e80be946 100644 (file)
--- a/case.scad
+++ b/case.scad
@@ -230,6 +230,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);
+                       }
        };
        // clip barrier
        for (x = [-1, 1]) scale([x, 1, 1]) hull () {