569
reputation
2
3
cormullion
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]
1
answer
0
questions
0
people reached
-
somewhere in England
-
Member for 6 years, 6 months
-
2 profile views
-
Last seen Feb 23 '14 at 12:06
