%!

(ps3d.inc) run

72 dup scale
1 72 div setlinewidth
4 5 translate

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