Generate support fins in OpenSCAD

support-fin.scad

include <BOSL2/std.scad>;

module support_fin(raft_diameter, raft_thickness, fin_thickness) {
    other = raft_diameter / sqrt(2);
    
    translate([0, 0, other - raft_thickness])
    union() {
        // raft
        translate([0, 0, -other + raft_thickness])
        linear_extrude(raft_thickness)
        circle(other + 1);  // raft is slightly outset
        
        // fin
        xrot(-90)
        translate([0, 0.2, -raft_thickness])
        linear_extrude(fin_thickness)
        polygon([
            [0, 0],
            [other - raft_thickness * 1.5, other - raft_thickness * 1.5],
            [-other + raft_thickness * 1.5, other - raft_thickness * 1.5]
        ]);
        
        // sprues
        for (i = [1 : 5 : other]) {
            xrot(180)
            translate([i, -0.1, i])
            linear_extrude(0.2)
            polygon([
                [-1, -0.1],
                [1, -0.1],
                [1, 0.1],
                [-1, 0.1]
            ]);
        }
    }
}

support_fin(50, 0.6, 1.2);