Fill in color for transparent area in 3D plot

Question

I have a lattice of large spheres:

vecs = Entity["Lattice", "BodyCenteredCubic"]["MinimalVectors"];
bcc = Append[vecs, {0, 0, 0}];
Graphics3D[{Opacity[.6], Ball[#, Sqrt[3]/2] & /@ bcc}]

I would like to fill in the transparent space between the spheres with some semi-transparent color instead of it simply being empty space between the spheres. Is this possible?

Maybe https://mathematica.stackexchange.com/questions/268421/how-can-i-generate-a-swiss-cheese-type-region-and-render-it-transparent/268423#268423 — cvgmt, Sep 28 '22 at 12:53

score 5 · Accepted Answer · answered Sep 28 '22 at 08:15

You may choose a transparent background color with a low opacity like:

vecs = Entity["Lattice", "BodyCenteredCubic"]["MinimalVectors"];
bcc = Append[vecs, {0, 0, 0}];
Graphics3D[{{Green, Opacity[0.1], Cube[3.8]}, {Opacity[.6], 
   Ball[#, Sqrt[3]/2] & /@ bcc}}, Boxed -> False]

Fill in color for transparent area in 3D plot

1 Answers1