%!

(ps3d.inc) run

/page-begin {
gsave
72 dup scale
1 72 div setlinewidth
4 5 translate
} def

/page-end {
grestore
showpage
} def

[0 0 8 1] set-eye

/A 0 def
/dA 10 def

{

page-begin
gsave3d

gsave
1 0 0 setrgbcolor
newpath
0 -1 0 moveto3d
0 2 0 lineto3d
stroke
grestore

0.5 0 0 translate3d
[0 1 0] A rotate3d

gsave
0 1 0 setrgbcolor
newpath
0 -1 0 moveto3d
0 2 0 lineto3d
stroke
grestore



newpath
-0.5 0 0 moveto3d
0.5 0 0 lineto3d
0.5 1 0 lineto3d
-0.5 1 0 lineto3d
-0.5 0 0 lineto3d
closepath
stroke

page-end
grestore3d

/A A dA add def

} loop