keyring-kay.scad

   1 // -*- C -*-
   2
   3 letterheight = 25;
   4 linewidth = 3.5;
   5 letterthick = 2.5;
   6
   7 kdiag = 1;
   8
   9 module kay () {
  10   translate([0.1,0,0])
  11     cube([linewidth, letterheight, letterthick]);
  12   translate([0,letterheight/2,0])
  13     for (mir=[0,1]) {
  14       mirror([0,mir,0])
  15         translate([0,-0.1,0])
  16         multmatrix([[1,kdiag,0,0],
  17                     [0,1,0,0],
  18                     [0,0,1,0],
  19                     [0,0,0,1]])
  20         cube([linewidth * sqrt(1 + kdiag*kdiag),
  21               letterheight/2 + 0.1, letterthick]);
  22     }
  23 }
  24
  25 kay();