projected-cylinder.scad

$fn = 1000;
translate([1,0,0]) rotate([0,-90,0]) {
    translate([0,-.5/$fn,0]) cube([1,1/$fn,1]);
    intersection() {
        union() {
            for (i = [0:2/$fn:0.5])
                translate([i,0,0])
                cylinder(1, i, 0);
            for (i = [0:2/$fn:.5])
                translate([.5 + i,0,0])
                cylinder(1, .5 - i, 0);
        }
        translate([0,0,1]) rotate([0,90]) cylinder(2, 1);
    }
}