OpenSCAD stuff

gistfile1.txt

module earth() {
    sphere(r=2, $fn=200);
}

module chock() {
    polyhedron(
        points=[[0,0,2], [0,0,-2], [2,0.6,2], [2, 0.6, -2], [2, -0.6, 2],
                [2, -0.6, -2] ],
        triangles=[[0, 1, 2], [1, 3, 2], [0, 4, 1], [1, 4, 5], [2, 3, 5], [2, 5, 4],
                   [0, 2, 4], [1, 5, 3]]
    );
}

color([0.5, 0.5, 1.0, 1.0]) {
    difference() {
        earth();
        chock();
    }
}

color([0.0, 0.0, 1.0, 1.0]) {
    intersection() {
        earth();
        chock();
    }
}