-10 5 setyrange
-10 20 setxrange

5 0 3 SetCamPos
0 0 0 SetCamView

-2 1 2 [5 12] newcylindre
[1 1 1 0] solideqplansepare

dup videsolid
dup (jaune) (vert) inoutputcolors

exch
{0 0 60 rotateOpoint3d} solidtransform
{0 2 0 translatepoint3d} solidtransform
dup videsolid
dup (jaune) (vert) inoutputcolors

solidfuz 
drawsolid**