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]

360
× 59
38
× 10
19
× 2
14
× 2
209
× 47
33
× 18
18
× 4
13
× 6
199
× 55
31
× 12
18
13
× 4
101
× 6
31
× 5
18
13
× 3
99
× 22
30
× 11
17
× 8
13
× 2
80
× 16
30
× 5
17
× 7
12
× 2
56
× 5
28
× 4
17
× 3
11
× 4
51
× 18
27
× 6
16
× 2
11
× 4
49
× 12
27
16
11
49
× 3
26
× 6
16
11
43
× 12
24
× 7
15
× 5
11
42
× 6
22
× 10
15
× 4
11
40
× 7
22
× 4
14
× 2
10
× 5