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]