-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 1 1 .5] solideqplansepare
dup videsolid
dup (jaune) (rouge) inoutputcolors
dup drawsolid**
pop
dup videsolid
dup (jaune) (rouge) inoutputcolors
{0 0 -80 rotateOpoint3d} solidtransform
{0 3 0 translatepoint3d} solidtransform
dup drawsolid**