translate([-1,0,0]) cube([2, 0.2, 2], center=true);
translate([1,0,1-0.5]) cube([2, 0.2, 1], center=true);
translate([1,0,1-0.5]) {
    cube([1, 5.0, 0.2], center=true);

    for (s=[-1,1]) {
        translate([1,2*s,0]) cube([4,0.5,0.5], center=true);
    }
}

translate([0,0-0.25,0.5]) cube([5, 0.5, 0.3]);
for (n=[0:14]) {
    translate([n*0.5-2,0,0.5]) cube([0.2, 2/(1+log(n/2)), 0.3], center=true);
}
translate([-2,0,0]) sphere(1, $fn=12);