From e08ef76dd5e30d7811b2f8788b8cbedcab376f81 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 14 Nov 2024 21:38:16 +0000
Subject: [PATCH] waring-blender-motor-coupler: wip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 waring-blender-motor-coupler.scad | 42 +++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 waring-blender-motor-coupler.scad

diff --git a/waring-blender-motor-coupler.scad b/waring-blender-motor-coupler.scad
new file mode 100644
index 0000000..5ee60c1
--- /dev/null
+++ b/waring-blender-motor-coupler.scad
@@ -0,0 +1,42 @@
+// -*- C --*-
+
+include <utils.scad>
+
+slop = 0.35;
+
+d1 = 21.40 - slop;
+d2 = 11.90 - slop;
+d3 = 10.90 - slop;
+
+h2 = 6.60;
+h3 = 10.00;
+ht = 22.15;
+
+sq = 5.00 + slop;
+
+key_w = 3.40 + slop;
+key_l = 15.05 + slop;
+key_d = 7.50 + slop;
+
+over_key = 0.5; // guessed
+sq_len = h3; // guessed
+
+// calculated
+
+h1 = ht - h1 - h2;
+hkey = h1 - over_key;
+
+module Coupler() {
+  difference(){
+    union(){
+      linextr(0, h1)      circle(r = d1/2);
+      linextr(0, h1 + h2) circle(r = d2/2);
+      linextr(0, ht)      circle(r = d3/2);
+    }
+    linextr(ht - sq_len, ht) square(center=true, sq);
+    linextr(0, hkey) {
+      square(center=true, [ key_l, key_w ]);
+      circle(r = key_d/2);
+    }
+  }
+}
-- 
2.30.2