%!

(ps3d.inc) run

72 dup scale
1 72 div setlinewidth
4 5 translate

[0 0 1 1] set-eye

[0 1 0] 45 rotate3d

newpath
0 0 0 moveto3d
1 0 0 lineto3d
1 1 0 lineto3d
0 1 0 lineto3d
0 0 0 lineto3d
closepath
stroke