-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 

setCourierBold
0 1 2 newcone
{-1 0 0 translatepoint3d} solidtransform
drawsolid

0 1.5 2 1 newtronccone
{-4.5 0 0 translatepoint3d} solidtransform
drawsolid

0 1 3 newcylindre
{2 0 0 translatepoint3d} solidtransform
drawsolid

2 newcube
{5 0 1 translatepoint3d} solidtransform
drawsolid