125 lines
3.4 KiB
OpenSCAD
125 lines
3.4 KiB
OpenSCAD
// Copyright 2022 Thorsten Brehm
|
|
// brehmt (at) gmail dot com
|
|
|
|
module torus(r1, r2)
|
|
{
|
|
rotate_extrude(convexity = 10)
|
|
translate([r2 + r1, 0, 0])
|
|
circle(r=r2);
|
|
}
|
|
|
|
module round_cylinder(fillet, r, h)
|
|
{
|
|
for(z=[fillet, h-fillet])
|
|
torus(r-2*fillet, fillet, center=[0,0,z]);
|
|
cylinder(r=r-fillet, h);
|
|
translate([0,0,fillet]) cylinder(r=r, h=h-2*fillet);
|
|
}
|
|
|
|
// Make a rectangle with rounded corners of given radius.
|
|
// The maximum outer dimensions exactly match the given width/height.
|
|
module roundedCube(Width, Height, Depth, CornerRadius)
|
|
{
|
|
$fn=36;
|
|
union()
|
|
{
|
|
for (x=[0,Width-CornerRadius*2])
|
|
for (y=[0,Height-CornerRadius*2])
|
|
translate([x+CornerRadius, y+CornerRadius, 0]) cylinder(r=CornerRadius, h=Depth);
|
|
translate([CornerRadius,0,0]) cube([Width - 2*CornerRadius, Height, Depth]);
|
|
translate([0,CornerRadius,0]) cube([Width, Height - 2*CornerRadius, Depth]);
|
|
}
|
|
}
|
|
|
|
module cylinderLedge(r, length)
|
|
{
|
|
$fn=36;
|
|
translate([0, 0, -length/2])
|
|
intersection()
|
|
{
|
|
cylinder(r=r, length);
|
|
cube([r, r, length]);
|
|
}
|
|
}
|
|
|
|
module rcube(size=[30, 20, 10], radius=[3, 2, 1], center=true)
|
|
{
|
|
hull() {
|
|
translate( center ? [0,0,0] : size/2 ) {
|
|
cube(size-2*radius+[2*radius[0],0,0],center=true);
|
|
cube(size-2*radius+[0,2*radius[1],0],center=true);
|
|
cube(size-2*radius+[0,0,2*radius[2]],center=true);
|
|
|
|
for(x = [-0.5,0.5], y = [-0.5,0.5], z = [-0.5,0.5])
|
|
translate([x * ( size[0] - 2*radius[0]),
|
|
y * ( size[1] - 2*radius[1]),
|
|
z * ( size[2] - 2*radius[2])])
|
|
scale([radius[0], radius[1], radius[2]])
|
|
if (QUALITY == "high") sphere(1.0,$fn=4*4*2); else sphere(1.0,$fn=4);
|
|
}
|
|
}
|
|
}
|
|
|
|
module hole(diameter, depth)
|
|
{
|
|
$fn = 36;
|
|
cylinder(r=diameter/2, h=depth);
|
|
}
|
|
|
|
module wall(width, height, WallThickness)
|
|
{
|
|
translate([-width/2,-WallThickness/2,-height]) cube([width, WallThickness, height]);
|
|
}
|
|
|
|
module prism(l, w, h)
|
|
{
|
|
polyhedron(
|
|
points=[[0,0,0], [l,0,0], [l,w,0], [0,w,0], [0,w,h], [l,w,h]],
|
|
faces=[[0,1,2,3],[5,4,3,2],[0,4,5,1],[0,3,4],[5,2,1]]
|
|
);
|
|
}
|
|
|
|
module post(height, diameter, post_fillet_r, screw_hole_diameter, screw_hole_depth)
|
|
{
|
|
$fn = 36;
|
|
difference() {
|
|
union() {
|
|
cylinder(r=diameter/2, h=height);
|
|
difference() {
|
|
cylinder(r=diameter/2 + post_fillet_r, h=post_fillet_r);
|
|
translate([0,0,post_fillet_r]) torus(diameter/2, post_fillet_r*1.1);
|
|
}
|
|
}
|
|
if (screw_hole_diameter>0)
|
|
{
|
|
translate([0,0,height-screw_hole_depth])
|
|
hole(screw_hole_diameter, screw_hole_depth);
|
|
}
|
|
}
|
|
}
|
|
|
|
module screwPost(ZDepth, PostDiameter, ScrewDiameter, ScrewHoleDepth, FilletR)
|
|
{
|
|
if (PostDiameter>0.0)
|
|
post(ZDepth, PostDiameter, FilletR, ScrewDiameter, ScrewHoleDepth);
|
|
}
|
|
|
|
|
|
module outerBox(SkinWidth, XWidth, YHeight, ZDepth, CornerRadius)
|
|
{
|
|
translate([-SkinWidth, -SkinWidth, 0]) roundedCube(XWidth+SkinWidth*2, YHeight+SkinWidth*2, ZDepth, CornerRadius);
|
|
}
|
|
|
|
module box(SkinWidth, XWidth, YHeight, ZDepth, CornerRadius)
|
|
{
|
|
// main shell
|
|
difference() {
|
|
outerBox(SkinWidth, XWidth, YHeight, ZDepth, CornerRadius);
|
|
//rcube(size=[XWidth+SkinWidth*2, YHeight+SkinWidth*2, ZDepth+SkinWidth*2], radius=[2, 2, 2], center=false);
|
|
if (SkinWidth>0)
|
|
roundedCube(XWidth, YHeight, ZDepth, CornerRadius);
|
|
//rcube(size=[XWidth, YHeight, ZDepth], radius=[2, 2, 2], center=false);
|
|
}
|
|
}
|
|
|