%autocrop
-4.5 5 setxrange
-3 3 setyrange
20 setxunit
6 6 7 SetCamPos
0 0 1 SetCamUp
0 0 0 SetCamView
%qplanxy
2 setlinejoin 

.1 setlinewidth
.6 setgray

3 -90 0 [4 18] newcalottespherecreuse
dup [.3 .5] solidputhuecolors
drawsolid**