autocrop
-4.5 5 setxrange
-3 3 setyrange
20 setxunit
6 6 3 SetCamPos
0 0 0 SetCamView
2 setlinejoin 

setCourierBold 
([.5 .6]) -1.2 -3 uctext

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