Mathematica generated crystal lattice created using Spheres created by Jeff Bryant (jeffb@wolfram.com)