From c179c59a5bc741936898d3b6d816c941bea8bd15 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Sep 2023 17:57:26 +0100
Subject: [PATCH] makita-drill-handle-blivet: wip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 makita-drill-handle-blivet.scad | 43 +++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 makita-drill-handle-blivet.scad

diff --git a/makita-drill-handle-blivet.scad b/makita-drill-handle-blivet.scad
new file mode 100644
index 0000000..7f747a9
--- /dev/null
+++ b/makita-drill-handle-blivet.scad
@@ -0,0 +1,43 @@
+// -*- C -*-
+
+include <utils.scad>
+
+hex_across = 12.70 - 0.3;
+screw_dia = 8.0 + 0.0;
+
+min_th = 0.425;
+extra_th = 0.5;
+
+// calculated
+
+total_th = min_th + extra_th;
+hex_rad = hex_across / 2 / cos(30);
+
+module Plan(){
+  difference(){
+    circle(r = hex_rad, $fn = 6);
+    circle(r = screw_dia/2);
+  }
+}
+
+module Elevation(){
+  square([ hex_across*2, min_th*2 ], center=true);
+  hull(){
+    rectfromto([ 0, -1],
+	       [ 0.1, min_th]);
+    translate([ hex_rad, 0 ])
+      rectfromto([ 0, -1 ],
+		 [ 1, total_th]);
+  }
+}
+
+module Blivet(){
+  intersection(){
+    linextr(0, total_th + 1)
+      Plan();
+    linextr_y_xz(-hex_across, hex_across)
+      Elevation();
+  }
+}
+
+Blivet();
-- 
2.30.2