Pensieve header: A cubical elephant. Coordinates from http://www.blendswap.com/blends/view/18009.

SetDirectory["C:\\drorbn\\AcademicPensieve/Classes/1617-257b-AnalysisII"];
vs=Get["../../2013-04/Elephant/ElephentVertices.m"];
{{x0,y0,z0},{x1,y1,z1}}={Min /@ Transpose[vs],Max /@ Transpose[vs]}

Q[x_,x0_,dx_] := x0+dx/2+Round[(x-x0-dx/2)/dx]dx;

img=ImageAssemble[Partition[
imgs=Table[
{dx,dy,dz}=(({x1,y1,z1}-{x0,y0,z0})/n);
Rasterize[
Graphics3D[
Union@Table[
P[Q[v[[1]],x0,dx], Q[v[[2]],y0,dy], Q[v[[3]],z0,dz]],
{v,vs}
] /. P[x_,y_,z_] :> Cuboid[{x,y,z}-{dx,dy,dz}/2,{x,y,z}+{dx,dy,dz}/2],
ViewPoint->{2.82914,-1.44279,1.16804},ViewVertical->{0.491534,-0.092102,1.53794}, ImageSize -> {800,640}
]
],
{n, {5,8,13,21}}
],
2]]

Export["CubicalElephants.png", img]