Efficiently specify large numbers of spheres

Example 1 step, run in order in one session. Every step was executed against the engine and the output below is what it produced.

Step 1

Graphics3D[Sphere[
	Flatten[Table[{i, j, k}, {i, -2, 2}, {j, -2, 2}, {k, -2, 2}], 2], Flatten[Table[Mod[i + j, 2] * (1 - (k + 2) / 4), {i, -2, 2}, {j, -2, 2}, {k, -2, 2}], 2]]]

Output

-Graphics3D-

Run this on Qurak All recipes

Functions used

Flatten Graphics3D Mod Sphere Table

Related recipes

All recipes · Function reference · Use this from an MCP client