//
// Mendel90
//
// GNU GPL v2
// nop.head@gmail.com
// hydraraptor.blogspot.com
//
// Crude representation of a bulldog clip
//
small_bulldog = [19, 12, 8, 0.25, 2.67, 1, 16];

function bulldog_length(type)    = type[0];
function bulldog_depth(type)     = type[1];
function bulldog_height(type)    = type[2];
function bulldog_thickness(type) = type[3];
function bulldog_tube(type)      = type[4] / 2;
function bulldog_radius(type)    = type[5];
function bulldog_handle_length(type) = type[6];

module bulldog_shape(depth, height, radius, open) {
    hull() {
        translate([-depth / 2 + radius,  height / 2 - radius]) circle(radius);
        translate([-depth / 2 + radius, -height / 2 + radius]) circle(radius);
        translate([ depth / 2, 0]) square([0.1, open], center = true);
    }
}

module shell(length, width, height, wall) {
    linear_extrude(height = height, center = true, convexity = 5)
        difference() {
            children();
            offset(-wall)
                children();
        }
}

module bulldog(type, open = 4) {
    tube = bulldog_tube(type);
    thickness = bulldog_thickness(type);
    depth = bulldog_depth(type);
    gap = open + thickness * 2;

    vitamin(str("BD00", bulldog_length(type), ": ", bulldog_length(type), "mm bulldog clip"));

    color(bulldog_color)
    render() translate([depth / 2 - thickness - eta, 0, 0])
        union() {
            difference() {
                rotate([90, 0, 0])
                    shell(depth, bulldog_height(type), bulldog_length(type), thickness)
                        bulldog_shape(depth, bulldog_height(type), bulldog_radius(type), gap);

                translate([depth - tube - eta, 0, 0])
                    cube([depth, bulldog_length(type) + 1, 100], center = true);
            }
            for(side = [-1,1])
                translate([bulldog_depth(type) / 2 - tube, 0, side * (gap / 2 + tube)])
                    rotate([90,0,0])
                        tube(or = tube, ir = tube - thickness, h = bulldog_length(type));
        }
}