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

---
 keyring-kay.scad | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/keyring-kay.scad b/keyring-kay.scad
index 0fb83ab..f5b4e77 100644
--- a/keyring-kay.scad
+++ b/keyring-kay.scad
@@ -4,9 +4,16 @@ letterheight = 25;
 linewidth = 3.5;
 letterthick = 2.5;
 
+basethick = 2.5;
+
+xborder = 5;
+yborder = 5;
+
 kdiag = 1;
 kprop = 0.50;
 
+diaglinewidth = linewidth * sqrt(1 + kdiag*kdiag);
+
 module kay_leg (transamount, llen, mir) {
   translate([0,transamount,0])
     mirror([0,mir,0])
@@ -15,8 +22,7 @@ module kay_leg (transamount, llen, mir) {
 		[0,1,0,0],
 		[0,0,1,0],
 		[0,0,0,1]])
-    cube([linewidth * sqrt(1 + kdiag*kdiag),
-	  llen + 0.1, letterthick]);
+    cube([diaglinewidth, llen + 0.1, letterthick]);
 }  
 
 module kay () {
@@ -27,3 +33,7 @@ module kay () {
 }
 
 kay();
+translate([-xborder, -yborder, -(basethick-0.1)])
+  cube([letterheight*kprop + diaglinewidth + xborder*2,
+	letterheight + yborder*2,
+	basethick]);
-- 
2.30.2