From d0f56b6bfed5877a3852394ac160dd36d4c9e5d5 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Mon, 5 Oct 2015 14:26:06 +0200
Subject: kleinen Legendenbug entfernt, sowie geringfügige typographische
 Veränderungen
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 epostunit.pas | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

(limited to 'epostunit.pas')

diff --git a/epostunit.pas b/epostunit.pas
index c040e51..2df49bc 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -5276,26 +5276,23 @@ begin
  i:=0;
  wert:=minDichte;
  schritt:=-1;
- while wert<maxDichte do
-  begin
+ while wert<maxDichte do begin
    if i>0 then gibAus(inttostr(i)+' '+floattostr(wert)+' '+floattostr(schritt)+' '+floattostr(beschriftungsschritte[i].bis),1);
-   if ((i<length(beschriftungsschritte)-1) and (wert>beschriftungsschritte[i].bis)) or (i=0) then
-    begin
+   if ((i<length(beschriftungsschritte)-1) and (wert>beschriftungsschritte[i].bis)) or (i=0) then begin
      repeat
-      inc(i);
+       inc(i);
      until (i>=length(beschriftungsschritte)-1) or (beschriftungsschritte[i].bis>=wert);
-     if beschriftungsschritte[i].linear then
-      begin
+     if beschriftungsschritte[i].linear then begin
        schritt:=(beschriftungsschritte[i].bis-beschriftungsschritte[i-1].bis)/beschriftungsschritte[i].schritte;
        schritt:=power(10,round(ln(schritt)/ln(10)))*beschriftungsschritte[i].faktor;
-      end
+     end
      else
-      schritt:=power(10,floor(ln(wert)/ln(10)-beschriftungsschritte[i].schritte))*beschriftungsschritte[i].faktor;
+       schritt:=power(10,floor(ln(wert)/ln(10)-beschriftungsschritte[i].schritte))*beschriftungsschritte[i].faktor;
      tmp:=round(beschriftungsschritte[i-1].bis/schritt)*schritt;
-     while tmp+schritt/2<=wert do tmp:=(round(tmp/schritt)+1)*schritt;
+     while tmp<wert do tmp:=(round(tmp/schritt)+1)*schritt;
      wert:=tmp;
      gibAus(inttostr(i)+' '+floattostr(wert)+' '+floattostr(schritt)+' '+floattostr(beschriftungsschritte[i].bis),1);
-    end;
+   end;
    setlength(beschriftungen,length(beschriftungen)+1);
    beschriftungen[length(beschriftungen)-1]:=tBeschriftung.create;
    beschriftungen[length(beschriftungen)-1].bBreite:=breite;
-- 
cgit v1.2.3-70-g09d2