-8 8 setxrange
-2 3 setyrange
25 setxunit

0 10 6 SetCamPos
0 0 1 SetCamUp
0 0 0 SetCamView

-7 7 setxrange3d
-3 3 setyrange3d

qplanxy
2 setlinejoin 

/fillstyle {blanc fill} def
-2 1 0 newconecreux
{180 0 0 rotateOpoint3d} solidtransform
{-1 0 0 translatepoint3d} solidtransform
drawsolid**

0 1.5 2 1 newtroncconecreux
{-4.5 0 0 translatepoint3d} solidtransform
drawsolid**

0 1 3 newcylindrecreux
{2 0 0 translatepoint3d} solidtransform
drawsolid**

.3 1 newtore
{5 0 .5 translatepoint3d} solidtransform
drawsolid**