Graphics Experiments

(*Create a scene *)
blocks=Table[{Red,Cuboid[{i,j,0}]},{i,1,8,2},{j,1,8,2}];
balls=Table[{Green,Sphere[{i+0.5,j+0.5,3},0.6]},{i,2,6,2},{j,2,6,2}];

l={{"Point",White,{20,30,30}}};

Graphics3D[{blocks,balls},Lighting-> l]

(*1. Add a cylinder over top of the center sphere. *)

(*2. Then make colors transition from red to gold in the z-direction. (You'll have to figure out "gold".) *)

(*3. Change the light position (defined by l) so that all objects get illuminated from inside the cube containing them. You might want to check out "Lighting" in Mathematica Help. *)