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 
([.5 .6 .7 .8]) -1.2 -3 uctext

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