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

2 setlinejoin 
qplanxy
-1 2 1 axesRVB

{cyan} setlight
2 4 2 setlightsrc

/aretescachees false def
2 newcube
{-2 0 1 translatepoint3d} solidtransform
drawsolid*