15,463 reputation
22678
bio website
location somewhere in England
age
visits member for 2 years, 3 months
seen Feb 23 at 23:03

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]

Apr
7
awarded  Nice Answer
Mar
26
awarded  Fanatic
Mar
20
awarded  Nice Answer
Mar
13
awarded  Informed
Mar
7
awarded  Nice Answer
Mar
3
awarded  Nice Answer
Feb
19
awarded  Nice Answer
Feb
19
awarded  Custodian
Feb
15
awarded  Nice Answer
Feb
13
awarded  Sportsmanship
Feb
2
awarded  Custodian
Jan
28
awarded  Nice Answer
Jan
22
awarded  Nice Answer
Jan
17
awarded  Yearling
Jan
17
awarded  Nice Answer
Jan
12
awarded  Nice Question
Jan
9
awarded  graphics
Dec
28
awarded  Nice Answer
Dec
27
awarded  Citizen Patrol
Dec
20
awarded  Nice Question