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

---
 keyring-kay.scad | 30 +++++++++++++++++++++++++-----
 1 file changed, 25 insertions(+), 5 deletions(-)

diff --git a/keyring-kay.scad b/keyring-kay.scad
index f5b4e77..9ebb34a 100644
--- a/keyring-kay.scad
+++ b/keyring-kay.scad
@@ -14,6 +14,9 @@ kprop = 0.50;
 
 diaglinewidth = linewidth * sqrt(1 + kdiag*kdiag);
 
+ringholerad = 2.5;
+ringedgewidth = 3;
+
 module kay_leg (transamount, llen, mir) {
   translate([0,transamount,0])
     mirror([0,mir,0])
@@ -32,8 +35,25 @@ module kay () {
   kay_leg(letterheight*kprop, letterheight*kprop, 1);
 }
 
-kay();
-translate([-xborder, -yborder, -(basethick-0.1)])
-  cube([letterheight*kprop + diaglinewidth + xborder*2,
-	letterheight + yborder*2,
-	basethick]);
+totalw = letterheight*kprop + diaglinewidth + xborder*2;
+totalh = letterheight + yborder*2;
+basez = -(basethick-0.1);
+
+module main () {
+  kay();
+  translate([-xborder, -yborder, basez])
+    cube([totalw, totalh, basethick]);
+}
+
+module ring (rad, extra) {
+  translate([totalw/2 - xborder, totalh - yborder, basez-extra])
+    cylinder(r=rad, h=basethick + extra*2, $fn=30);
+}
+
+difference(){
+  union() {
+    main();
+    ring(ringholerad + ringedgewidth/2, 0);
+  }
+  ring(ringholerad, 1);
+}
-- 
2.30.2