OpenSCAD Spherical Translate

spherical_translate.scad

/* http://en.wikipedia.org/wiki/Spherical_coordinate_system */

module spherical_translate(value)
{
    radius = value[0];
    inclination = value[1];
    azimuth = value[2];

    x = radius * sin(inclination) * cos(azimuth);
    y = radius * sin(inclination) * sin(azimuth);
    z = radius * cos(inclination);

    for (i = [0 : $children - 1]) {
        translate([x, y, z])
        child(i);
    }
}


for (b = [0 : 90 : 360]) {
    for (a = [0: 30: 360]) {
        spherical_translate([50, a, b])
        cube(10, center = true);
    }
}