hole-repair-20191117: wip

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

diff --git a/hole-repair-20191117.scad b/hole-repair-20191117.scad
new file mode 100644 (file)
index 0000000..90b1369
--- /dev/null
+++ b/hole-repair-20191117.scad
@@ -0,0 +1,28 @@
+// -*- C -*-
+
+post_dia = 23.0;
+
+th = 4;
+
+nom_hole = 22;
+min_r = 15 + nom_hole/2;
+maj_r = 22 + nom_hole/2;
+
+module Profile(r) {
+  prof_r = th/(1-cos(45));
+  prof_R = r - prof_r * cos(45);
+
+  intersection(){
+    hull(){
+      translate([0, th-prof_r]){
+       translate([1,0])
+         square(center=true, 2*[1,prof_r]);
+       translate([prof_R, 0])
+         circle(prof_r, $fa=1,$fs=1);
+      }
+    }
+    square([r, th]);
+  }
+}
+
+Profile(maj_r);