Simple pipeline tool in openscad

pipeline.scad

pipeCoords = [
[0,0,0],
[0,2,9],
[0,4,15],
[0,6,21],
[0,15,35],
[0,26,50],
[0,32,59],
[0,41,74],
[0,44,82],
[0,45,87],
[0,45.00001,99]];

module pipeline(coordinates, diameter) {
    N = len(coordinates);
    assert(N>1);
    for (i=[0:N-2]) {
        origin = coordinates[i];
        delta = coordinates[i+1] - origin;
        length = sqrt(delta.x*delta.x + delta.y*delta.y + delta.z*delta.z);
        inclination = atan2(delta.y,delta.x);
        azimuth = acos(delta.z/length);
        translate(origin) {
            sphere(d=diameter);
            rotate([0,0,inclination])
                rotate([0,azimuth,0])
                    cylinder(d=diameter, h=length);
        }
        translate(coordinates[N-1])
            sphere(d=diameter);
    }
}