diff options
| author | Erich Eckner <git@eckner.net> | 2017-09-26 11:30:12 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2017-09-26 11:30:12 +0200 |
| commit | 9997fe40e2ba62d236a304696d58f39ada8a908c (patch) | |
| tree | 78162f0e230833ab88573c66a46073002b83b6a9 | |
| parent | 11bb1fe3eb656c616bdd189984bbd6ecb3eeacc2 (diff) | |
| download | epost-9997fe40e2ba62d236a304696d58f39ada8a908c.tar.xz | |
epostunit.pas: varschiebe akzeptiert nun auch zu große oder zu kleine Verschiebungsvektoren
| -rw-r--r-- | epostunit.pas | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/epostunit.pas b/epostunit.pas index 3009bfc..33cd61a 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -5234,6 +5234,14 @@ var i: longint; fertig: boolean; begin + while richtung['x']<0 do + richtung['x']:=richtung['x'] + _xSteps; + while richtung['x']>=_xSteps do + richtung['x']:=richtung['x'] - _xSteps; + while richtung['y']<0 do + richtung['y']:=richtung['y'] + (_tSiz div (1+byte(istKomplex))); + while richtung['y']>=(_tSiz div (1+byte(istKomplex))) do + richtung['y']:=richtung['y'] - (_tSiz div (1+byte(istKomplex))); einheitsZelle:=berechneEinheitsZelle(richtung,int64Point(_xSteps,_tSiz div (1+byte(istKomplex)))); teilRichtung:=char(ord('x')+byte(einheitsZelle['y']>einheitsZelle['x'])); |