-2 2 setxrange
-2 3 setyrange
25 setxunit
3 10 6 SetCamPos
0 0 0 SetCamView

qplanxy
2 setlinejoin 

[-1 -1 1 -1 0 1] 0 2 -.25 -.25 1 newprisme
drawsolid