housing: Extra length for cord grip

[tattlekey] / housing / tattlekey.scad

diff --git a/housing/tattlekey.scad b/housing/tattlekey.scad
index 015d84724a079a98a803f9afa12470b1f9afa694..1f5ea4c0709e41051971179d6eae28318a52a25c 100644 (file)
--- a/housing/tattlekey.scad
+++ b/housing/tattlekey.scad
@@ -8,6 +8,7 @@ key_interface_thickness = 1.484;
 housing_inner_h = 6;
 housing_inner_w = 21;
 housing_flat = 8;
+housing_extra_l = 10;
 
 thickness = 1.7;
 
@@ -32,9 +33,9 @@ module pico_hole(d, x, y) {
     cylinder(h=slop, d = d);
 }
 
-module pico_board(gap = 0) {
-    translate([-gap, 0, -gap])
-    cube([pico_board_l + 2*gap, pico_board_w, pico_board_h + 2*gap]);
+module pico_board(length = pico_board_l, gap = 0) {
+    translate([-gap - length + pico_board_l, 0, -gap])
+    cube([length + 2*gap, pico_board_w, pico_board_h + 2*gap]);
 }
 
 module pico_w(hole_d = 2.1) {
@@ -124,10 +125,12 @@ module housing_shape(outline = thickness) {
     }
 }
 
-module housing(length = pico_board_l - extra_flare) {
+module housing() {
+    length = pico_board_l - extra_flare;
+    translate([-housing_extra_l, 0, 0])
     rotate([90, 0, 0])
     rotate([0, 90, 0])
-    linear_extrude(length)
+    linear_extrude(length + housing_extra_l)
     difference() {
         housing_shape();
         housing_shape(0);
@@ -169,7 +172,7 @@ module tattlekey_case() {
             flare();
         }
         at_board()
-        pico_board(board_gap);
+        pico_board(slop, board_gap);
     }
 }