/newicosaedre {
3 dict begin
/a exch def
/S [
0.8944271 0 0.4472137
0.2763932 0.8506507 0.4472137
-0.7236067 0.5257311 0.4472137
-0.7236067 -0.5257311 0.4472137
0.2763932 -0.8506507 0.4472137
0 0 1
0 0 -1
-0.8944271 0 -0.4472137
-0.2763932 -0.8506507 -0.4472137
0.7236067 -0.5257311 -0.4472137
0.7236067 0.5257311 -0.4472137
-0.2763932 0.8506507 -0.4472137
] {a mulv3d} papply3d def
/F [
[0 1 5] %% 1 2 6 ]
[1 2 5] %% 2 3 6 ]
[2 3 5] %% 3 4 6 ]
[3 4 5] %% 4 5 6 ]
[4 0 5] %% 5 1 6 ]
[9 0 4] %% 10 1 5 ]
[0 9 10] %% 1 10 11]
[10 1 0] %% 11 2 1 ]
[1 10 11] %% 2 11 12]
[11 2 1] %% 12 3 2 ]
[2 11 7] %% 3 12 8 ]
[2 7 3] %% 3 8 4 ]
[3 7 8] %% 4 8 9 ]
[3 8 4] %% 4 9 5 ]
[4 8 9] %% 5 9 10 ]
[6 7 11] %% 7 8 12 ]
[6 8 7] %% 7 9 8 ]
[6 9 8] %% 7 10 9 ]
[6 10 9] %% 7 11 10]
[6 11 10] %% 7 12 11]
] def
S F generesolid
end
} def
|