waring-blender-motor-coupler: wip

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

diff --git a/waring-blender-motor-coupler.scad b/waring-blender-motor-coupler.scad
index 5ee60c12b6c3047d2346f53cdaa1397e9392c06a..bb8656c176c6669f5c09019737c0e972877ac9fa 100644 (file)
--- a/waring-blender-motor-coupler.scad
+++ b/waring-blender-motor-coupler.scad
@@ -21,9 +21,12 @@ key_d = 7.50 + slop;
 over_key = 0.5; // guessed
 sq_len = h3; // guessed
 
+$fs = 0.5;
+$fa = 3;
+
 // calculated
 
-h1 = ht - h1 - h2;
+h1 = ht - h2 - h3;
 hkey = h1 - over_key;
 
 module Coupler() {
@@ -33,10 +36,12 @@ module Coupler() {
       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) {
+    linextr(ht - sq_len, ht + 1) square(center=true, sq);
+    linextr(-1, hkey) {
       square(center=true, [ key_l, key_w ]);
       circle(r = key_d/2);
     }
   }
 }
+
+Coupler();