From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 14 Sep 2013 16:00:10 +0000 (+0100)
Subject: keyring-kay: wip
X-Git-Tag: filamentspool-v2-release~453
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=d2099986b25a125b2b13db98c7da5a14f0a980d2;hp=412d9d9ab6bcd96c3525f15de98c54eede169d64;p=reprap-play.git

keyring-kay: wip
---

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]);