Add maride's bed construction
This commit is contained in:
parent
008556a92e
commit
6fa0a729cd
39
Bett.scad
Normal file
39
Bett.scad
Normal file
@ -0,0 +1,39 @@
|
||||
TIMBER_WIDTH=74;
|
||||
TIMBER_HEIGHT=74;
|
||||
|
||||
__timber(TIMBER_WIDTH, TIMBER_HEIGHT, 2000, false);
|
||||
translate([0, TIMBER_HEIGHT * 2])
|
||||
__timber(TIMBER_WIDTH, TIMBER_HEIGHT, 2000, false);
|
||||
translate([0, TIMBER_HEIGHT * 4])
|
||||
__timber(TIMBER_WIDTH, TIMBER_HEIGHT, 2000, false);
|
||||
translate([0, TIMBER_HEIGHT * 6])
|
||||
__timber(TIMBER_WIDTH, TIMBER_HEIGHT, 1600, true);
|
||||
translate([0, TIMBER_HEIGHT * 8])
|
||||
__timber(TIMBER_WIDTH, TIMBER_HEIGHT, 1600, true);
|
||||
|
||||
|
||||
module __timber(width, height, length, middle_cutin) {
|
||||
mirror()
|
||||
__timber_half(width, height, length, middle_cutin);
|
||||
__timber_half(width, height, length, middle_cutin);
|
||||
}
|
||||
|
||||
module __timber_half(width, height, length, middle_cutin) {
|
||||
difference() {
|
||||
cube([length/2, width, height]);
|
||||
|
||||
// bearing cutout
|
||||
translate([length/2-height/2, height/2])
|
||||
cylinder(h=height, d=height/4);
|
||||
|
||||
// square cutout (side)
|
||||
translate([length/2-height, 0, height/2])
|
||||
cube([width, width, height/2]);
|
||||
|
||||
// square cutout (middle)
|
||||
if(middle_cutin) {
|
||||
translate([-width/2, 0])
|
||||
cube([width, width, height/2]);
|
||||
}
|
||||
}
|
||||
}
|
Loading…
Reference in New Issue
Block a user