keyring-kay.scad

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