16,501 reputation
23695
bio website
location somewhere in England
age
visits member for 3 years, 2 months
seen Nov 7 '14 at 8:15

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]

383
× 59
40
× 11
20
× 8
15
× 2
233
× 48
34
× 13
20
× 4
15
212
× 55
33
× 18
20
× 2
15
118
× 7
33
× 4
18
× 7
15
107
× 21
32
× 5
18
× 2
15
83
× 16
31
× 11
18
15
56
× 5
31
× 5
18
14
× 2
54
× 18
31
18
14
× 2
50
× 12
30
× 6
17
× 4
13
× 4
49
× 3
26
× 6
16
× 4
13
× 3
46
× 12
25
× 10
16
12
× 2
46
× 7
24
× 7
15
× 6
11
× 4
43
× 7
22
× 4
15
× 5
10
× 5