ericmoderbacher

// Credenza
// Eric Moderbacher
// A Danish-style teak sideboard: a low panel body on four splayed round legs, fronted by
// a mitred face frame whose beveled openings hold a bank of drawers on the left and a pair of
// sliding doors on the right, under a flat top. X = width, Y = depth (front at Y = 0), Z = up.
// Dimensions in millimeters.
//
// Overall dimensions are estimates from the reference photos (see reference/measurements/)
// and are flagged below — swap in real measurements as they come.

use <units.scad>;
use <legs.scad>;
use <drawers.scad>;
use <doors.scad>;

$fn = 80;

// ---- overall dimensions ----
bodyWidth  = inchesToMM(72);       // ESTIMATE — overall width (left<->right)
bodyDepth  = inchesToMM(18);       // ESTIMATE — overall depth (front<->back)
bodyHeight = inchesToMM(20);       // ESTIMATE — the box only, without legs or top
panel = inchesToMM(0.75);          // body panel thickness

topThickness = inchesToMM(0.9);      // flat top slab
topOverhang  = inchesToMM(0);        // flush with the case (no lip); side profiles show from above

legHeight = inchesToMM(12);          // read ~12" off the tape (IMG_5263)
legInset  = inchesToMM(4);           // leg centre in from each corner

// ---- front layout ----
drawerCount    = 4;                  // stacked drawers in the left bank
drawerFraction = 0.30;               // share of the interior width taken by the drawer bank

// ---- face frame (mitred front frame with beveled openings for the drawers & doors) ----
faceThickness   = inchesToMM(0.7);
frameW          = inchesToMM(0.55);  // frame member width around/between the openings
frameBevel      = inchesToMM(0.35);  // chamfer width around each opening
frameBevelDepth = inchesToMM(0.28);  // how far the chamfer runs back before the opening

doorOverlap = inchesToMM(1.5);       // how far the two sliding doors overlap in the middle
doorSetback = inchesToMM(0.2);       // depth offset so the rear door clears the front one

// ---- derived geometry ----
interiorWidth   = bodyWidth - 2 * panel;
drawerBankWidth = (interiorWidth - panel) * drawerFraction;
doorBankWidth   = (interiorWidth - panel) * (1 - drawerFraction);
bayZ0      = panel;                          // bottom of the opening region
bayH       = bodyHeight - panel;          // height of the opening region
drawerBayX = panel;                          // left edge of the drawer bay
doorBayX   = panel + drawerBankWidth + panel;// left edge of the door bay (past the divider)

// opening rectangles on the front face: [x, z, w, h]
function drawerOpening(i) =
    let (cellH = bayH / drawerCount)
    [ drawerBayX + frameW, bayZ0 + i * cellH + frameW,
      drawerBankWidth - 2 * frameW, cellH - 2 * frameW ];
doorOpening = [ doorBayX + frameW, bayZ0 + frameW,
                doorBankWidth - 2 * frameW, bayH - 2 * frameW ];

module body()
{
    cube([bodyWidth, bodyDepth, panel]);                                        // bottom
    cube([panel, bodyDepth, bodyHeight]);                                       // left side
    translate([bodyWidth - panel, 0, 0]) cube([panel, bodyDepth, bodyHeight]);  // right side
    translate([0, bodyDepth - panel, 0]) cube([bodyWidth, panel, bodyHeight]);  // back
    translate([panel + drawerBankWidth, 0, 0])
        cube([panel, bodyDepth - panel, bodyHeight]);                           // divider
}

module top()
{
    // flat slab; overhangs the front and both sides slightly, flush at the back
    o = topOverhang;
    translate([-o, -o, bodyHeight])
        cube([bodyWidth + 2 * o, bodyDepth + o, topThickness]);
}

module beveledOpening(rect)
{
    x = rect[0]; z = rect[1]; w = rect[2]; h = rect[3];
    c = frameBevel; d = frameBevelDepth;
    // through opening
    translate([x, -0.05, z]) cube([w, faceThickness + 0.1, h]);
    // beveled front lip: wide at the face, narrowing to the opening at depth d (mitred corners)
    hull()
    {
        translate([x - c, 0, z - c]) cube([w + 2 * c, 0.02, h + 2 * c]);
        translate([x, d, z])         cube([w, 0.02, h]);
    }
}

module faceFrame()
{
    difference()
    {
        cube([bodyWidth, faceThickness, bodyHeight]);
        for (i = [0 : drawerCount - 1]) beveledOpening(drawerOpening(i));
        beveledOpening(doorOpening);
    }
}

frontLap    = inchesToMM(0.12);      // how far the fronts tuck behind the frame all round
frontRecess = frameBevelDepth + 1;   // how far the fronts sit back from the bevel

module drawerFronts()
{
    for (i = [0 : drawerCount - 1])
    {
        r = drawerOpening(i);
        translate([r[0] - frontLap, frontRecess, r[1] - frontLap])
            drawer(width  = r[2] + 2 * frontLap,
                   height = r[3] + 2 * frontLap,
                   depth  = bodyDepth - panel - frontRecess);
    }
}

module doorFronts()
{
    r = doorOpening;
    x = r[0]; z = r[1]; w = r[2]; h = r[3];
    doorWidth = (w + doorOverlap) / 2;
    // left door in front, right door set back so it can slide past
    translate([x - frontLap, frontRecess, z - frontLap])
        slidingDoor(doorWidth + frontLap, h + 2 * frontLap);
    translate([x + w - doorWidth, frontRecess + doorSetback, z - frontLap])
        slidingDoor(doorWidth + frontLap, h + 2 * frontLap);
}

module legPlacement()
{
    // vertical round tapered legs, inset from each corner
    for (x = [legInset, bodyWidth - legInset],
         y = [legInset, bodyDepth - legInset])
        translate([x, y, 0]) leg(height = legHeight);
}

module credenza()
{
    legPlacement();
    translate([0, 0, legHeight])
    {
        body();
        top();
        faceFrame();
        drawerFronts();
        doorFronts();
    }
}

credenza();

// Credenza Leg
// Eric Moderbacher
// A single tapered (conical) leg. Four of these carry the body. Dimensions in millimeters.

use <units.scad>;

$fn = 64;

legHeight = inchesToMM(12);             // read ~12" off the tape (IMG_5263)
legTopDiameter = inchesToMM(2.5);       // meets the underside of the body
legBottomDiameter = inchesToMM(1.125);  // tapers down to the floor

module leg(height = legHeight, topDiameter = legTopDiameter, bottomDiameter = legBottomDiameter)
{
    cylinder(h = height, d1 = bottomDiameter, d2 = topDiameter);
}

function legDefaultHeight() = legHeight;

leg();

// Credenza Drawer
// Eric Moderbacher
// One drawer: a flat teak front over a hollow box. It sits behind the body face frame,
// so the front is a plain panel. Front faces -Y. Local origin is the front-bottom-left
// corner. Dimensions in millimeters.

use <units.scad>;

$fn = 64;

drawerWidth  = inchesToMM(20);    // front panel width  (X)
drawerHeight = inchesToMM(5);     // front panel height (Z)
drawerDepth  = inchesToMM(16);    // total depth including the front (Y)

frontThickness = inchesToMM(0.65);
boxWall  = 12;
boxFloor = 10;
boxInset = 14;         // how far the box sits inside the front on each side

// raised wedge-strip pull that projects out from the front, near the top
pullWidth     = inchesToMM(6);     // length of the strip across the front
pullHeight    = inchesToMM(0.7);   // height band of the wedge
pullProject   = inchesToMM(0.35);  // how far the ridge juts out from the face
pullTopMargin = inchesToMM(0.5);   // strip below the drawer's top edge
pullXFraction = 0.5;               // horizontal placement across the front (0 = left, 1 = right)

module drawerBox(width, depth, height)
{
    difference()
    {
        cube([width, depth, height]);
        translate([boxWall, boxWall, boxFloor])
            cube([width - 2 * boxWall, depth - 2 * boxWall, height]);   // hollow, open at the top
    }
}

module wedgePull(w = pullWidth, h = pullHeight, project = pullProject)
{
    // horizontal wedge: a flat base on the face (-Y) tapering to a ridge that juts out
    hull()
    {
        translate([-w / 2, 0, -h / 2]) cube([w, 0.01, h]);       // base on the face
        translate([-w / 2, -project, 0]) cube([w, 0.01, 0.01]);  // projecting ridge
    }
}

module drawer(width = drawerWidth, height = drawerHeight, depth = drawerDepth)
{
    // flat front panel with the raised wedge pull
    cube([width, frontThickness, height]);
    translate([width * pullXFraction, 0, height - pullTopMargin - pullHeight / 2])
        wedgePull();

    // hollow box behind it, inset from the front on the sides
    translate([boxInset, frontThickness, boxInset])
        drawerBox(width - 2 * boxInset, depth - frontThickness, height - 2 * boxInset);
}

function drawerDefaultWidth() = drawerWidth;
function drawerDefaultHeight() = drawerHeight;

drawer();

// Credenza Sliding Door
// Eric Moderbacher
// One flat teak sliding door. It sits behind the body face frame, so the front is a
// plain panel. Front faces -Y. Local origin is the front-bottom-left corner. Millimeters.

use <units.scad>;

$fn = 48;

doorThickness = inchesToMM(0.625);

module slidingDoor(width, height, thickness = doorThickness)
{
    cube([width, thickness, height]);
}

slidingDoor(width = inchesToMM(24), height = inchesToMM(18));

// Unit helpers
// Eric Moderbacher
// The model is authored in millimeters; measurements taken in inches go through inchesToMM().

function inchesToMM(inches) = inches * 25.4;