epostunit.pas: tKontur.erzeugeAlsGerade(): Werte anfügen, alte Werte nicht überschreiben

1 files changed, 10 insertions, 9 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 8789aa0..545c4a8 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -8995,23 +8995,24 @@ end;
 
 procedure tKontur.erzeugeAlsGerade(sT: boolean; von,bis: tExtPoint; dX,dT: extended);
 var
-  i: longestOrdinal;
-  r: tExtPoint;
+  i,anz: longestOrdinal;
+  r:     tExtPoint;
 begin
   if sT then begin
     setLength(orte,1);
     orte[0]:=0.5*(von+bis);
     exit;
   end;
-  r:=bis-von;
+  r:=von-bis;
   if abs(r['x']*dT) > abs(r['y']*dX) then // mehr Schritte in x-Richtung
-    setLength(orte,abs(round(r['x']/dX))+1)
+    anz:=abs(round(r['x']/dX))+1
   else
-    setLength(orte,abs(round(r['y']/dT))+1);
-  for i:=0 to length(orte)-1 do
-    orte[i]:=
-      von +
-      i/(length(orte)-1) * r;
+    anz:=abs(round(r['y']/dT))+1;
+  setLength(orte,length(orte)+anz);
+  for i:=0 to anz-1 do
+    orte[length(orte)-1-i]:=
+      bis +
+      i/(anz-1) * r;
 end;
 
 function tKontur.sortiereNachY(mT: longint): boolean;