werteunit.pas: bugfix Verschiebe

1 files changed, 3 insertions, 3 deletions

diff --git a/werteunit.pas b/werteunit.pas
index 9b0d0ad..745ed68 100644
--- a/werteunit.pas
+++ b/werteunit.pas
@@ -2070,7 +2070,7 @@ begin
   for imPart:=false to komplex do
     for xS:=xV to xB do
       for tS:=tV to tB do begin
-        wert:=werte[xS+tS*xM];
+        wert:=werte[xS+(tS+byte(imPart)*tM)*xM];
         xN:=xS;
         tN:=tS;
         repeat
@@ -2078,9 +2078,9 @@ begin
           t:=tN;
           xN:=(x + richtung['x']) mod xM;
           tN:=(t + richtung['y']) mod tM;
-          werte[x+t*xM]:=werte[xN+tN*xM];
+          werte[x+(t+byte(imPart)*tM)*xM]:=werte[xN+(tN+byte(imPart)*tM)*xM];
         until (xN=xS) and (tN=tS);
-        werte[x+t*xM]:=wert;
+        werte[x+(t+byte(imPart)*tM)*xM]:=wert;
       end;
 end;