diff options
| -rw-r--r-- | epostunit.pas | 19 |
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; |