nook-case: tooth rounded

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/nook-case.scad b/nook-case.scad
index fc968aac33b33efc47860ed0653402ec77bd68dd..f3382dade1eff072b89a43ead094bb918546c41f 100644 (file)
--- a/nook-case.scad
+++ b/nook-case.scad
@@ -75,6 +75,7 @@ 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];
 
 module RightSideMainProfile() {
   rectfromto(spp7, spp0);
@@ -118,8 +119,18 @@ module SideTapeCutout() {
 }
 
 module ToothProfile(){
-  l = [ tppA, tppB, tppS, tppR, tppQ, tppP, tppC ];
-  polygon(l);
+  polygon([tppA,
+          tppB,
+          tppS + [-0.1,0],
+          tppP,
+          tppC]);
+  hull(){
+    polygon([tppP,
+            tppM,
+            tppS]);
+    translate(tppM)
+      circle(r= tooth_th/2, $fa=3, $fs=0.1);
+  }
 }
 
 module Demo(){ ////toplevel