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

setCourierBold 
([0 .8 1 1 1 .7 (hsb)]) -1.2 -3 uctext

.1 setlinewidth
.6 setgray
0 3 -2 2 [.5 .5] newgrille
dup [0 .8 1 1 1 .7 (hsb)] solidputhuecolors
drawsolid*