-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
|