keyring-kay: wip

[reprap-play.git] / keyring-kay.scad

diff --git a/keyring-kay.scad b/keyring-kay.scad
index 0fb83abcb8379ae8cfb12cebde2cfeab65f43962..f5b4e771849777e8c685f695af731f064f2e66fd 100644 (file)
--- 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]);