From e69943a75d807bc3e811add31396f57211afb5a0 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 14 Sep 2013 16:53:23 +0100
Subject: [PATCH] keyring-kay: wip

---
 keyring-kay.scad | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 keyring-kay.scad

diff --git a/keyring-kay.scad b/keyring-kay.scad
new file mode 100644
index 0000000..c12b891
--- /dev/null
+++ b/keyring-kay.scad
@@ -0,0 +1,25 @@
+// -*- C -*-
+
+letterheight = 25;
+linewidth = 3.5;
+letterthick = 2.5;
+
+kdiag = 1;
+
+module kay () {
+  translate([0.1,0,0])
+    cube([linewidth, letterheight, letterthick]);
+  translate([0,letterheight/2,0])
+    for (mir=[0,1]) {
+      mirror([0,mir,0])
+	translate([0,-0.1,0])
+	multmatrix([[1,kdiag,0,0],
+		    [0,1,0,0],
+		    [0,0,1,0],
+		    [0,0,0,1]])
+	cube([linewidth * sqrt(1 + kdiag*kdiag),
+	      letterheight/2 + 0.1, letterthick]);
+    }
+}
+
+kay();
-- 
2.30.2