From f70c7876829d5382f9fd81e332c8dfa00485c140 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 17 Nov 2019 22:02:06 +0000
Subject: [PATCH] hole-repair-20191117: wip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 hole-repair-20191117.scad | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 hole-repair-20191117.scad

diff --git a/hole-repair-20191117.scad b/hole-repair-20191117.scad
new file mode 100644
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);
-- 
2.30.2