with(plots):with(plottools):
display(seq(cuboid([-1*i/32,-1*i/32,-1*i/32],[1*i/32,1*i/32,1*i/32],color=blue,axes=boxed),i=0..32),insequence=true,scaling=constrained,axes=boxed);
display(seq(sphere([0,0,0],sqrt(1-((16-i)/16)^2),color=green),i=0..16), seq(sphere([0,0,0],sqrt(1-(i/16)^2),color=green),i=1..16), insequence=true,scaling=constrained,axes=boxed);