%!

(ps3d.inc) run

/A 0 def
/dA 10 def

[0 0 6 1] set-eye

0 0 4 translate3d

40 {

gsave

/S 72 def
S dup scale
1 S div setlinewidth

4 5 translate

newpath
0 0 0 moveto3d
1 0 0 lineto3d
1 1 0 lineto3d
0 1 0 lineto3d
closepath3d
stroke

grestore

[0 1 0] dA rotate3d

showpage

} repeat