/newdodecaedre {
3 dict begin
/a exch def
/S [
0 0.607062 0.7946545
-0.5773503 0.1875925 0.7946545
-0.3568221 -0.4911235 0.7946545
0.3568221 -0.4911235 0.7946545
0.5773503 0.1875925 0.7946545
0 0.982247 0.1875925
-0.9341724 0.303531 0.1875925
-0.5773503 -0.7946645 0.1875925
0.5773503 -0.7946645 0.1875925
0.9341724 0.303531 0.1875925
0 -0.982247 -0.1875925
0.9341724 -0.303531 -0.1875925
0.5773503 0.7946545 -0.1875925
-0.5773503 0.7946545 -0.1875925
-0.9341724 -0.303531 -0.1875925
-0.5773503 -0.1875925 -0.7946545
-0.3568221 0.4911235 -0.7946545
0.3568221 0.4911235 -0.7946545
0.5773503 -0.1875925 -0.7946545
0 -0.607062 -0.7946545
] {a mulv3d} papply3d def
/F [
[0 1 2 3 4]
[4 3 8 11 9]
[4 9 12 5 0]
[0 5 13 6 1]
[1 6 14 7 2]
[2 7 10 8 3]
[10 19 18 11 8]
[11 18 17 12 9]
[12 17 16 13 5]
[13 16 15 14 6]
[14 15 19 10 7]
[15 16 17 18 19]
] def
S F generesolid
end
} def
|