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

2 setlinejoin 

.1 setlinewidth
.6 setgray

[3 0 2 1 2 -1] 49 newanneau
dup [.3 .5] solidputhuecolors
drawsolid**