chiark / gitweb /
keyring-kay: wip
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 14 Sep 2013 16:00:10 +0000 (17:00 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 14 Sep 2013 16:00:10 +0000 (17:00 +0100)
keyring-kay.scad

index 0fb83abcb8379ae8cfb12cebde2cfeab65f43962..f5b4e771849777e8c685f695af731f064f2e66fd 100644 (file)
@@ -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]);