Pensieve header: Random sections of the elephant from http://www.blendswap.com/blends/view/18009.

SetDirectory["C:\\drorbn\\AcademicPensieve\\2013-04\\Elephant"];
vs=Get["ElephentVertices.m"];

Graphics3D[{Pink, Sphere[#, 0.1]& /@  vs}, Boxed -> False, ViewPoint->{9.04268,-0.78336,-8.22291},ViewVertical->{-1.83879,0.0322299,-0.62669}] // Rasterize

MakeImage["RandomSections",
GraphicsGrid[Table[
v=RandomPoint[Sphere[]];
{a,b}=MinMax[vs.v];
zz=RandomReal[{2a+b,a+2b}/3];
vs1=vs.RotationMatrix[{{0,0,1},v}];
Graphics[{RandomColor[],
Select[vs1, Abs[#[[3]]-zz]<0.1&] /. {x_,y_,z_} :> Disk[{x,y}, (Sqrt[(0.1^2)-(((z-zz))^2)])]
}] // ImageCrop,
{3},{4}]]
]