Fichier 2714.jps — Modifié le 26 Avril 2008 à 19 h 19
-10 8 setyrange
-10 10 setxrange
-5 7 2 SetCamPos
0 0 0 SetCamView
60 setxunit
GetCamPos setlightsrc
2 setlightintensity
2 setlinejoin
-3 2.5 2 [10 18] newcone
[0 0 1 .5] solideqplansepare
dup videsolid
dup (jaune) (rouge) inoutputcolors
dup drawsolid**
pop
dup videsolid
dup (jaune) (rouge) inoutputcolors
{0 45 0 rotateOpoint3d} solidtransform
{0 3 0 translatepoint3d} solidtransform
dup drawsolid**