openscad-parts/Werkbank-balken/top.scad

include <dimensions.scad>

module beam(){
	cube(size=[topbeamthickness, toplength - 2 * topsidewidth,  topheight], center=false);
	translate([0, - topslitdepth, topheight/2 - topslitheight/2])
		cube([topbeamthickness, topslitdepth, topslitheight]);
	translate([0, toplength - 2 * topsidewidth, topheight/2 - topslitheight/2])
		cube([topbeamthickness, topslitdepth, topslitheight]);
	echo("#### Top beam: length = ", toplength - 2*topsidewidth + 2*topslitdepth, " height = ", topheight, "width = ", topbeamthickness);
}

module topside(){
	color("red")
	difference(){
		cube(size=[topdepth, topsidewidth, topsideheight], center=false);
		translate([-20, topsidewidth-topslitdepth, topsideheight - topheight/2 - topslitheight/2]){
			cube([topdepth+40, topslitdepth, topslitheight]);
		}
	}
	echo("#### Top side beam: length = ", topdepth, " height = ", topsideheight, "width = ", topsidewidth);
}


beam();
topside();