keygen/scad/medeco_classic.scad

use <keygen.scad>
include <medeco.gen.scad>


module medeco_classic(bitting="",
                      outline_name="1515",
                      warding_name="1515") {

    name = "Medeco Classic";

    /*
        "A" variants of key outlines indicates 6-pin version.

        Bitting is specified from bow to tip, 1-6, with 1 being the shallowest cut and 6 being the deepest.

        After each number, a letter L, C, or R is specified for the cut angle: left, center or right.

        Example: 2L5C3C6R3R
    */

    outlines_k = ["A1515",
                  "1515",
                  "A1517",
                  "1517",
                  "1518",
                  "1542",
                  "1543",
                  "A1638",
                  "1638",
                  "1644",
                  "1655"];
    outlines_v = [[outline_a1515_points, outline_a1515_paths,
                   [-outline_a1515_points[52][0], -outline_a1515_points[52][1]],
                   engrave_a1515_points,
                   engrave_a1515_paths],
                  [outline_1515_points, outline_1515_paths,
                   [-outline_1515_points[25][0], -outline_1515_points[25][1]],
                   engrave_1515_points,
                   engrave_1515_paths],
                  [outline_a1517_points, outline_a1517_paths,
                   [-outline_a1517_points[47][0], -outline_a1517_points[48][1]],
                   engrave_a1517_points,
                   engrave_a1517_paths],
                  [outline_1517_points, outline_1517_paths,
                   [-outline_1517_points[47][0], -outline_1517_points[48][1]],
                   engrave_1517_points,
                   engrave_1517_paths],
                  [outline_1518_points, outline_1518_paths,
                   [-outline_1518_points[40][0], -outline_1518_points[28][1]],
                   engrave_1518_points,
                   engrave_1518_paths],
                  [outline_1542_points, outline_1542_paths,
                   [-outline_1542_points[92][0], -outline_1542_points[98][1]],
                   engrave_1542_points,
                   engrave_1542_paths],
                  [outline_1543_points, outline_1543_paths,
                   [-outline_1543_points[48][0], -outline_1543_points[48][1]],
                   engrave_1543_points,
                   engrave_1543_paths],
                  [outline_a1638_points, outline_a1638_paths,
                   [-outline_a1638_points[64][0], -outline_a1638_points[68][1]],
                   engrave_a1638_points,
                   engrave_a1638_paths],
                  [outline_1638_points, outline_1638_paths,
                   [-outline_1638_points[64][0], -outline_1638_points[68][1]],
                   engrave_1638_points,
                   engrave_1638_paths],
                  [outline_1644_points, outline_1644_paths,
                   [-outline_1644_points[47][0], -outline_1644_points[43][1]],
                   engrave_1644_points,
                   engrave_1644_paths],
                  [outline_1655_points, outline_1655_paths,
                   [-outline_1655_points[48][0], -outline_1655_points[52][1]],
                   engrave_1655_points,
                   engrave_1655_paths]];

    wardings_k = ["1515",
                  "1517",
                  "1518",
                  "1542",
                  "1543",
                  "1638",
                  "1644",
                  "1655"];

    wardings_v = [warding_1515_points,
                  warding_1517_points,
                  warding_1518_points,
                  warding_1542_points,
                  warding_1543_points,
                  warding_1638_points,
                  warding_1644_points,
                  warding_1655_points];

    outline_param = key_lkup(outlines_k, outlines_v, outline_name);
    outline_points = outline_param[0];
    outline_paths = outline_param[1];
    offset = outline_param[2];
    engrave_points = outline_param[3];
    engrave_paths = outline_param[4];

    warding_points = key_lkup(wardings_k, wardings_v, warding_name);
    
    cut_locations = [for(i=[0.244, 0.414, 0.584, 0.754, 0.924, 1.094]) i*25.4];
    depth_table = [for(i=[0.266+0.025:-0.025:0.115]) i*25.4];
    angles_k = ["L", "C", "R"];
    angles_v = [-20, 0, 20];

    bitting_depth = [for(i=[0:2:len(bitting)-1]) bitting[i]];
    bitting_angle = [for(i=[1:2:len(bitting)-1]) bitting[i]];
    heights = key_code_to_heights(bitting_depth, depth_table);
    angles = [for(c=bitting_angle) key_lkup(angles_k, angles_v, c)];

    difference() {
        if($children == 0) {
            key_blank(outline_points,
                      warding_points,
                      outline_paths=outline_paths,
                      engrave_right_points=engrave_points,
                      engrave_right_paths=engrave_paths,
                      engrave_left_points=engrave_points,
                      engrave_left_paths=engrave_paths,
                      offset=offset,
                      plug_diameter=12.7);
        } else {
            children(0);
        }
        key_bitting(heights, cut_locations,
                    flat=.381, angle=86, // from CW-1012 cutter specs
                    angles=angles);
    }
}

// Defaults
bitting="";
outline="1638";
warding="1638";
medeco_classic(bitting, outline, warding);