16,145 reputation
23193
bio website
location somewhere in England
age
visits member for 2 years, 8 months
seen Sep 27 at 10:39

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]

370
× 59
83
× 16
226
× 48
56
× 5
208
× 55
54
× 18
106
× 21
50
× 12
104
× 6
49
× 3

3,774 Votes Cast

all time   by type  
3,714 up 986 question
60 down 2,788 answer