autocrop
-7 7 setxrange
-2.5 3 setyrange
20 setxunit
0 10 6 SetCamPos
0 0 0 SetCamView
2 setlinejoin 

2 [4 6] newsphere
drawsolid

3 [3] newcube
{5 0 0 translatepoint3d} solidtransform
drawsolid