scaffold-clamp: wip straphook

[reprap-play.git] / nook-case.scad

diff --git a/nook-case.scad b/nook-case.scad
index eb15b63066a9cf1d416fbb5d718be29ee499f3e3..ecbbbc22fd95bb31a86b9d391392bd3ef472142d 100644 (file)
--- a/nook-case.scad
+++ b/nook-case.scad
@@ -1,10 +1,17 @@
 // -*- C -*-
 
+// Infill density: 20%
+
+include <funcs.scad>
 include <utils.scad>
 
-nook_th = 12.41 + 0.50 - 1.50;
-nook_w = 127.12 + 0.75 - .95;
-nook_h = 123.44 + 21.88 + 21.05 + 0.75 - 1.90;
+nook_th = 12.41 + 0.50 - 1.50 + 1.35 - .25;
+nook_w = 127.12 + 0.75 - .95 - .50;
+nook_h = 123.44 + 21.88 + 21.05 + 0.75 - 1.90 - 0.50 - 0.50;
+
+edge_ledge_w = 9.60;
+edge_ledge_h = 2.44 - .25;
+edge_ledge_inc_ang = 10; // degrees
 
 usb_w = 14.5;
 usb_below = 1.5;
@@ -12,6 +19,9 @@ usb_below = 1.5;
 open_recess_w = 12.5;
 open_recess_h = 2.5;
 
+open_recess_2_len = 15;
+open_recess_2_d_tooth = 30;
+
 nook_cnr_rad = 10;
 
 case_th = 2.5;
@@ -29,10 +39,11 @@ engage_l0 = 10;
 engage_l1 = 10;
 engage_l2 = 3;
 
-tooth_inward = gap[0] * 1.0;
-tooth_x = nook_w * 1/6;
+tooth_inward = gap[0] * 1.0 + 0.25 + 0.25;
 tooth_w = 15;
 
+diag_near_hinge_slope = 0.5;
+
 $test = false;
 
 $fa = $test ? 10 : 3;
@@ -76,6 +87,8 @@ spp30 = [ spp8[0], spp31[1] ];
 
 nom_cnr = 0.5 * [nook_w, nook_h, 0] - nook_cnr_rad * [1,1,0];
 
+tooth_y = nom_cnr[1] - tooth_w/2;
+
 etxa = nom_cnr[0] - engage_l2;
 etxb = etxa - engage_l1;
 etxc = -(nom_cnr[0] - engage_l2);
@@ -86,20 +99,44 @@ tapb = tapa - tape_w;
 opra = nom_cnr[1] - engage_l2;
 oprb = opra - open_recess_w;
 
+opqa = tooth_y - open_recess_2_d_tooth + open_recess_2_len/2;
+opqb = opqa - open_recess_2_len;
+
 tppS = tppB + [-gap[0], 0];
 tppP = [ tppS[0] - tooth_th, tppC[1] ];
 tppQ = tppP + tooth_height * [0,-1] + tooth_inward * [1,0];
 tppR = [ tppS[0] + tooth_inward, tppQ[1] ];
 tppM = (tppQ + tppR) * 0.5 + tooth_th * 0.5 * [0,1];
 
+edge_ledge_rad = edge_ledge_h;
+
 module RightSideMainProfile() {
   rectfromto(spp7, spp0);
   rectfromto(spp7, spp20);
+  EdgeLedgeProfile();
 }
 
 module LeftSideMainProfile() {
   rectfromto(spp7, spp30);
   rectfromto(spp7, spp20);
+  EdgeLedgeProfile();
+}
+
+module EdgeLedgeProfile() {
+  intersection(){
+    hull(){
+      for (t=[[0,0], [-20,0], [0,-10]]) {
+       translate(spp8
+                 + [edge_ledge_w, edge_ledge_h]
+                 + edge_ledge_rad * [ -sin(edge_ledge_inc_ang),
+                                      -cos(edge_ledge_inc_ang) ]
+                 + t)
+         circle(edge_ledge_rad);
+      }
+    }
+    translate(spp7)
+      square(30);
+  }
 }
 
 module TopTapeCutout() {
@@ -156,6 +193,12 @@ module Demo(){ ////toplevel
       LeftSideMainProfile();
       SideTapeCutout();
     }
+    translate([0,0,-4]) color("brown") EdgeLedgeProfile();
+    translate(concat(spp8 + [edge_ledge_w, edge_ledge_h], [2]))
+      rotate(-edge_ledge_inc_ang) {
+      color("blue") square(3);
+      color("lightblue") mirror([1,0]) square(3);
+    }
   }
   translate([0,0,0]) color("purple") difference(){
     LeftTopMainProfile();
@@ -174,9 +217,13 @@ module FaceCore(z0,z1, extra_left, extra_right){
     for (mx=[0,1]) mirror([mx,0,0]) {
        for (my=[0,1]) mirror([0,my,0]) {
            translate(-nom_cnr) {
-             rotate_extrude(angle=90, convexity=10)
-               translate(-[1,0,0] * nook_cnr_rad)
-               children(mx);
+             rotate_extrude(angle=90, convexity=10) {
+               intersection(){
+                 translate(-[1,0,0] * nook_cnr_rad)
+                   children(mx);
+                 rectfromto([-100,-100], [0,100]);
+               }
+             }
            }
          }
        translate([nook_w/2, 0,0])
@@ -204,6 +251,22 @@ module FaceCore(z0,z1, extra_left, extra_right){
   }
 }
 
+module DiagonaliseNearHinge(wider){
+  sz = spp0[1] - spp30[1] + gap[1];
+
+  for (my=[0,1]) mirror([0,my,0]) {
+      translate([-etxa, -nook_h/2, 0])
+       mirror([1,0,0])
+       linextr_y_xz(spp31[0] - wider, spp30[0] + gap[0] + 0.1)
+       translate([ 0, spp30[1] ])
+       polygon([[  -1, 0 ],
+                [   0, 0 ],
+                [  sz/diag_near_hinge_slope, sz ],
+                [  sz/diag_near_hinge_slope, sz + 0.1 ],
+                [  -1, sz + 0.1 ]]);
+    }
+}    
+
 module Base(){ ////toplevel
   difference(){
     FaceCore(spp7[1],spp8[1], 0.3, 0) {
@@ -215,6 +278,8 @@ module Base(){ ////toplevel
       mirror([0,1,0])
       linextr_x_yz(-usb_w/2, usb_w/2)
       rectfromto(spp8 + [-40, usb_below], [40, 40]);
+    translate([ gap[0], 0,0 ])
+      DiagonaliseNearHinge(10);
 /*
     translate([nook_w/2, 0, 0])
       linextr_y_xz(oprb, opra)
@@ -222,17 +287,33 @@ module Base(){ ////toplevel
       rectfromto([-40, -open_recess_h], [40, 1]);
 */
   }
+  if ($test) {
+    linextr(spp7[1], spp8[1]) {
+      hull(){
+       for (r=[0,180])
+         rotate([0,0,r])
+           translate(nom_cnr + -1 * nook_cnr_rad*[1,1])
+           square(12);
+      }
+    }
+  }
 }
 
 module Top(){ ////toplevel
-  FaceCore(tppE[1],tppD[1], -gap[0], gap[0] + 0.3) {
-    LeftTopMainProfile();
-    RightTopMainProfile();
-    TopTapeCutout();
+  difference(){
+    FaceCore(tppE[1],tppD[1], -gap[0], gap[0] + 0.3) {
+      LeftTopMainProfile();
+      RightTopMainProfile();
+      TopTapeCutout();
+    }
+    translate([nook_w/2, 0,0])
+      linextr_y_xz(opqb, opqa)
+      rectfromto(spp8, tppC + [-1,1]);
   }
-  translate([tooth_x, nook_h/2, 0])
-    linextr_x_yz(-tooth_w/2, +tooth_w/2)
-    mirror([1,0])
+  translate([0,0, gap[1]])
+    DiagonaliseNearHinge(0);
+  translate([nook_w/2, tooth_y, 0])
+    linextr_y_xz(-tooth_w/2, +tooth_w/2)
     ToothProfile();
 }
 module TopPrint(){ ////toplevel