Fichier platon_15.jps — Modifié le 10 Mai 2008 à 11 h 25
%autocrop
-2 2 setxrange
-1.5 1.5 setyrange
100 setxunit
5 -5 4 SetCamPos
0 0 0 SetCamView
-10 10 setxrange3d
-3 3 setyrange3d
5 -3 10 setlightsrc
1.5 setlightintensity
2 setlinejoin
20 setfontsize
setTimes
%/aretescachees false def
1 newicosaedre
dup .5 solidaffine
dup .8 solidaffine
dup videsolid
dup [.5 .6] solidputhuecolors
dup (.8 setgray) inputcolors
dup drawsolid**
setTimesItalic
(Icosaèdre)
xmin xmax add 2 div ymin uctext