dotSCAD/examples/soccer_polyhedron.scad

module soccer_polyhedron(circumradius, spacing) {
    tau = 1.618034;
    a = -37.377368;
    scale_f = 0.201774;
    
    s = scale_f * spacing / 2;
    
    module pentagonal_pyramid() {
        pentagon_r = 1.701302;
        pentagon_h = 4.654877;

        color("black")
        translate([0, 0, -pentagon_h])
        linear_extrude(pentagon_h, scale = 0.001) 
        rotate(-36)
            circle(pentagon_r - s / cos(36) , $fn = 5);    
    }
    
    module hexagonal_pyramid() {
        hexagon_r = 2;
        hexagon_h = 4.534568;

        color("white")
        translate([0, 0, -hexagon_h])
        linear_extrude(hexagon_h, scale = 0.001) 
        rotate(-30)
            circle(hexagon_r - s / cos(30), $fn = 6);  
    }

    module one_component_around_pentagonal_pyramid() {
        mirror([1, 0, 0]) 
        rotate([0, -a, 60]) {
            pentagonal_pyramid();
            for(i = [0:1]) {
                rotate([0, a, 72 * i])
                    hexagonal_pyramid(); 
            }    
        }    
    }
    
    module half_soccer_polyhedron() {
        pentagonal_pyramid();
        for(i = [0:4]) {
            rotate([0, a, 72 * i])
                one_component_around_pentagonal_pyramid(); 
        }       
    }

    scale(scale_f * circumradius) {
        half_soccer_polyhedron();
        rotate(36)
        mirror([0, 0, 1])
            half_soccer_polyhedron();    
    }
}

soccer_polyhedron(30, 1);
%sphere(10, $fn = 48);