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 
([1 0 0 0 0 1]) -1.2 -3 uctext

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