From bfe485ff99b7430ceb074c89e2aa2f5bfd256b2a Mon Sep 17 00:00:00 2001
Message-Id: <bfe485ff99b7430ceb074c89e2aa2f5bfd256b2a.1718347201.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Fri, 30 Sep 2022 21:44:46 +0100
Subject: [PATCH] discpick-collar.scad: Successful print.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

---
 discpick-collar.scad | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 discpick-collar.scad

diff --git a/discpick-collar.scad b/discpick-collar.scad
new file mode 100644
index 0000000..87d3c46
--- /dev/null
+++ b/discpick-collar.scad
@@ -0,0 +1,31 @@
+MM = 1;
+
+CUT_WD = 10*MM;
+BORE_DIAM = 6*MM;
+SPACER_HT = 7.25*MM;
+HEIGHT = SPACER_HT + 3*MM;
+THICK = 16*MM;
+WIDTH = 18*MM;
+
+BIG = 20*MM;
+
+$fa = 0.1;
+$fs = 0.2*MM;
+
+
+difference() {
+  intersection() {
+    translate([-WIDTH/2, -THICK/2, 0])
+      cube([WIDTH, THICK, HEIGHT]);
+    cylinder(h = HEIGHT, r = norm([CUT_WD/2, WIDTH/2]));
+    rotate([0, 90, 0])
+      translate([0, 0, -BIG/2])
+      cylinder(h = BIG, r = norm([HEIGHT, CUT_WD/2]));
+  }
+  union() {
+    translate([-BIG/2, -CUT_WD/2, SPACER_HT])
+      cube([BIG, CUT_WD, BIG]);
+    translate([0, 0, -BIG/3])
+      cylinder(h = BIG, r = BORE_DIAM/2);
+  }
+}
-- 
[mdw]