From abebf329a909d08502bda5d664d34403c058c9b9 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Tue, 1 Oct 2019 10:01:35 +0200 Subject: epostunit.pas: tKontur.erzeugeAlsGerade(): Werte anfügen, alte Werte nicht überschreiben MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- epostunit.pas | 19 ++++++++++--------- 1 file 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; -- cgit v1.2.3-70-g09d2