Mathematica apprentice
My gravatar was made with the following Mathematica code:
Graphics3D[{
GrayLevel[.3], Specularity[White, 15],
Lighting -> {{"Directional",
RGBColor[.3, .3, .4], {{5, 5, 10}, {5, 5, 0}}},
{"Point", Black, {12, 3, 15}},
{"Point", White, {12, 3, 4}}},
KnotData[{"TorusKnot", {2, 5}}, "ImageData"]},
ViewVector -> {{0, 0, 5}, {0, 0, 0}}, Boxed -> False,
Background -> None, Axes -> False, ImageSize -> 1000]