--- /dev/null
+// -*- C -*-
+
+letterheight = 25;
+linewidth = 3.5;
+letterthick = 2.5;
+
+kdiag = 1;
+
+module kay () {
+ translate([0.1,0,0])
+ cube([linewidth, letterheight, letterthick]);
+ translate([0,letterheight/2,0])
+ for (mir=[0,1]) {
+ mirror([0,mir,0])
+ translate([0,-0.1,0])
+ multmatrix([[1,kdiag,0,0],
+ [0,1,0,0],
+ [0,0,1,0],
+ [0,0,0,1]])
+ cube([linewidth * sqrt(1 + kdiag*kdiag),
+ letterheight/2 + 0.1, letterthick]);
+ }
+}
+
+kay();