-7 7 setxrange
-3.5 2.5 setyrange
30 setxunit

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

-10 10 setxrange3d
-3 3 setyrange3d

%-1 2 1 axesRVB
qplanxy
2 setlinejoin 

solidgridOff
{orange} setlight
0 6 6 setlightsrc
2 setlightintensity
/aretescachees false def

.5 setlinewidth
1 {5} newsphere
{0 0 1 translatepoint3d} solidtransform
{3 1.5 1 scaleOpoint3d} solidtransform
{0 0 60 rotateOpoint3d} solidtransform
drawsolid*