Cemetery Fence Model - OpenSCAD

$fn=72;
circDiv=4;
numSections=5;

union() {

    for (ii=[0:numSections-1])
        translate([ii*3000,0,0]){
            fencePost();
            fenceSection();
        }

    translate([numSections*3000,0,0])
        fencePost();
}

// ----- Modules ------------------------------------

module fencePost(){

    union() {

        cylinder(r=75,h=6000,$fn=circDiv);
        translate([0,0,5999])
            cylinder(r1=125,r2=0,h=750,$fn=circDiv);

    }

}

module fenceSection(){

    rotate([90,0,0])
    translate([0,3750,0])
    difference() {
        translate([1500,0,0])
        rotate([0,0,41.5])
            rotate_extrude(angle=97, convexity=40)
            translate([2000, 0]) circle(50,$fn=circDiv);

    }

    rotate([90,0,90])
    translate([0,5000,0])
    cylinder(r=50,h=3000,$fn=circDiv);
    rotate([90,0,90])
    translate([0,1000,0])
    cylinder(r=50,h=3000,$fn=circDiv);

    for (ii =[-500:-500:-2500])
        rotate([0,0,90])
            translate([0,ii,1000])
                cylinder(r=50,h=4000,$fn=circDiv);
}