Pensieve header: Projecting the elephant from http://www.blendswap.com/blends/view/18009.

SetDirectory["C:\\drorbn\\AcademicPensieve\\2013-04\\Elephant"];
vs=Get["ElephentVertices.m"];
{{x0,y0,z0},{x1,y1,z1}}={Min /@ Transpose[vs]-0.1,Max /@ Transpose[vs]+0.1};
vs1=vs;
Do[
j=RandomInteger[{1,k}];
If[j≠k, vs1[[{k,j}]]=vs1[[{j,k}]]],
{k,Length[vs],2,-1}
];
Graphics3D[Sphere[#, 0.1]& /@  vs, Axes -> True, AxesLabel->{x,y,z}] // Rasterize

Graphics3D[Sphere[#, 0.1]& /@  vs, ViewPoint -> {0, -∞,0}] // Rasterize

ColorData /@ {"VisibleSpectrum", "BlackbodySpectrum", "Rainbow"}

c=ColorData["Rainbow"]

c[0.3]

MakeImage["BlackElephant-X",
Graphics[vs /. {x_,y_,z_} :> Disk[{-y,z}, 0.1]],
ImageSize -> {512}
]

MakeImage["BlackElephant-Z",
Graphics[vs /. {x_,y_,z_} :> Disk[{-y,x}, 0.1]],
ImageSize -> {512}
]

MakeImage["BlackElephant-Y",
Graphics[vs /. {x_,y_,z_} :> Disk[{x,z}, 0.1]],
ImageSize -> {512}
]

Graphics[vs /. {x_,y_,z_} :> Disk[{-y,z}, 0.01]] // Rasterize

MakeImage["ColourDotElephant-X",Graphics[vs1 /. {x_,y_,z_} :> {Hue[((2(x1-x))/(3(x1-x0)))],Disk[{-y,z}+0.03RandomReal[{-1,1},2], 0.03]}],
ImageSize -> {512}
]

(c=ColorData[#];Graphics[vs1 /. {x_,y_,z_} :> {c[(((x1-x))/((x1-x0)))],Disk[{-y,z}+0.03RandomReal[{-1,1},2], 0.03]}] // Rasterize)& /@ {"Rainbow", "Pastel"}

MakeImage["ColourDotElephant-Z",
Graphics[vs1 /. {x_,y_,z_} :> {Hue[(2/3)(((z1-z))/((z1-z0)))],Disk[{-y,x}+0.03RandomReal[{-1,1},2], 0.03]}],
ImageSize -> {512}
]

MakeImage["ColourDotElephant-Y",
Graphics[vs1 /. {x_,y_,z_} :> {Hue[(2/3)(((y1-y))/((y1-y0)))],Disk[{x,z}+0.03RandomReal[{-1,1},2], 0.03]}],
ImageSize -> {512}
]

Graphics[vs1 /. {x_,y_,z_} :> {Hue[(2/3)(((y-y0))/((y1-y0)))],Disk[{x,z}+0.03RandomReal[{-1,1},2], 0.03]}] // Rasterize