autocrop
-13 10 setxrange
-10 10 setyrange
20 setxunit
6 20 15 SetCamPos
0 0 1 SetCamUp
0 0 0 SetCamView
2 setlinejoin 

{cyan} setlight
5 8 12 setlightsrc
2 setlightintensity

1 [6] newcube
{0 0 -70 rotateOpoint3d} solidtransform
{8 dup dup scaleOpoint3d} solidtransform
drawsolid**