%!

%%BoundingBox: 0 0 468 300

/RUN{} def
RUN (eigs.inc) run

/pagesetup {
72 72 scale
4.25 5 translate
0.025 setlinewidth
} def

% A h

/animate {
8 dict begin
/h exch def
/A exch def
/inc A h scalarmul matrix-exponential def
/M 
[
[1 0]
[0 1]
]
def 
{ gsave
pagesetup
[ 
M 0 get 0 get 
M 1 get 0 get 
M 0 get 1 get 
M 1 get 1 get 
0 0 
] 
concat
newpath
0 0 moveto
1 0 lineto
1 1 lineto
0 1 lineto
closepath
stroke
/M M inc matrixmul def
M ==
grestore
showpage
} loop

end
} def

% ---------------------------------------------

/A [
[1 2]
[2 -1]
] def

/Delta 0.02 def

A Delta animate