round-edges-demo.scad

$fs = 0.4;
$fa = 1;
epsilon = 0.01;

module bevel_cutout (r)
{
    difference () {
        translate ([1, 1] * -epsilon)
        square (r);

        translate ([r, r])
        circle (r = r);
    }
}

difference () {
    cube (10);

    translate ([0, 0, -epsilon])
    linear_extrude (height = 10 + epsilon * 2)
    bevel_cutout (2);

    translate ([10, 0, -epsilon])
    mirror ([1, 0, 0])
    linear_extrude (height = 10 + epsilon * 2)
    bevel_cutout (4);

    translate ([10, 10, -epsilon])
    mirror ([1, 1, 0])
    linear_extrude (height = 10 + epsilon * 2)
    bevel_cutout (4);

    translate ([0, 10, -epsilon])
    mirror ([0, 1, 0])
    linear_extrude (height = 10 + epsilon * 2)
    bevel_cutout (8);
}