15,919 reputation
23089
bio website
location somewhere in England
age
visits member for 2 years, 6 months
seen 14 hours ago

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]

29
Mar 22 '12 at 18:46
28
Feb 27 '12 at 23:07
21
Jul 16 '13 at 7:35
20
Jun 6 '13 at 19:33
19
Feb 19 '13 at 15:11
16
Apr 7 '13 at 9:26
14
Jul 20 '12 at 7:49
13
Oct 16 '12 at 12:58
12
Jan 7 '13 at 20:20
11
Jan 24 '12 at 23:28