keyring-kay.scad

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