epostunit.pas: tWerte.berechneAutokorrelation2d: Achse bei Verschiebung nicht stauchen

2 files changed, 55 insertions, 56 deletions

diff --git a/epost.lps b/epost.lps
index 0e6627b..1d65b15 100644
--- a/epost.lps
+++ b/epost.lps
@@ -7,8 +7,8 @@
       <Unit0>
         <Filename Value="epost.lpr"/>
         <IsPartOfProject Value="True"/>
-        <TopLine Value="309"/>
-        <CursorPos X="37" Y="216"/>
+        <TopLine Value="144"/>
+        <CursorPos X="67" Y="144"/>
         <UsageCount Value="202"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -24,8 +24,8 @@
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="7184"/>
-        <CursorPos Y="7210"/>
+        <TopLine Value="10002"/>
+        <CursorPos X="105" Y="10031"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -208,125 +208,122 @@
         <DefaultSyntaxHighlighter Value="XML"/>
       </Unit26>
     </Units>
-    <JumpHistory Count="30" HistoryIndex="29">
+    <JumpHistory Count="29" HistoryIndex="28">
       <Position1>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="324" Column="16" TopLine="306"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="159" Column="73" TopLine="139"/>
       </Position1>
       <Position2>
-        <Filename Value="epostunit.pas"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="168" Column="57" TopLine="140"/>
       </Position2>
       <Position3>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="328" Column="24" TopLine="295"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="169" Column="22" TopLine="140"/>
       </Position3>
       <Position4>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="7114" Column="33" TopLine="7085"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="178" Column="73" TopLine="149"/>
       </Position4>
       <Position5>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="7187" Column="17" TopLine="7156"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="188" Column="57" TopLine="159"/>
       </Position5>
       <Position6>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="8197" Column="54" TopLine="8172"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="198" Column="57" TopLine="169"/>
       </Position6>
       <Position7>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="328" Column="44" TopLine="310"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="211" Column="56" TopLine="182"/>
       </Position7>
       <Position8>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="7114" Column="33" TopLine="7085"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="222" Column="57" TopLine="193"/>
       </Position8>
       <Position9>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="7184" Column="28" TopLine="7156"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="234" Column="56" TopLine="205"/>
       </Position9>
       <Position10>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="8210" Column="70" TopLine="8190"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="245" Column="72" TopLine="216"/>
       </Position10>
       <Position11>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="8197" Column="26" TopLine="8186"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="252" Column="56" TopLine="223"/>
       </Position11>
       <Position12>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="5915" TopLine="5904"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="263" Column="56" TopLine="234"/>
       </Position12>
       <Position13>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="7115" TopLine="7085"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="274" Column="73" TopLine="255"/>
       </Position13>
       <Position14>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="5728" Column="102" TopLine="5706"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="284" Column="73" TopLine="255"/>
       </Position14>
       <Position15>
         <Filename Value="epostunit.pas"/>
+        <Caret Line="10031" Column="141" TopLine="10002"/>
       </Position15>
       <Position16>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="246" Column="20" TopLine="217"/>
       </Position16>
       <Position17>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="748" Column="32" TopLine="719"/>
+        <Caret Line="503" Column="105" TopLine="474"/>
       </Position17>
       <Position18>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="752" Column="27" TopLine="723"/>
+        <Caret Line="628" Column="67" TopLine="600"/>
       </Position18>
       <Position19>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2193" Column="56" TopLine="2165"/>
+        <Caret Line="2715" Column="62" TopLine="2687"/>
       </Position19>
       <Position20>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2330" Column="9" TopLine="2301"/>
+        <Caret Line="2868" Column="62" TopLine="2840"/>
       </Position20>
       <Position21>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2400" TopLine="2368"/>
+        <Caret Line="3504" Column="73" TopLine="3475"/>
       </Position21>
       <Position22>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5427" Column="13" TopLine="5415"/>
+        <Caret Line="3694" Column="45" TopLine="3666"/>
       </Position22>
       <Position23>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="36" Column="23" TopLine="18"/>
+        <Caret Line="3705" Column="45" TopLine="3677"/>
       </Position23>
       <Position24>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="37" Column="23" TopLine="18"/>
+        <Caret Line="3716" Column="45" TopLine="3688"/>
       </Position24>
       <Position25>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="61" Column="23" TopLine="32"/>
+        <Caret Line="3727" Column="45" TopLine="3699"/>
       </Position25>
       <Position26>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="324" Column="16" TopLine="295"/>
+        <Caret Line="3738" Column="45" TopLine="3710"/>
       </Position26>
       <Position27>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5868" Column="42" TopLine="5839"/>
+        <Caret Line="6323" Column="48" TopLine="6295"/>
       </Position27>
       <Position28>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5973" Column="32" TopLine="5945"/>
+        <Caret Line="8641" Column="58" TopLine="8613"/>
       </Position28>
       <Position29>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5977" Column="32" TopLine="5949"/>
+        <Caret Line="8727" Column="50" TopLine="8698"/>
       </Position29>
-      <Position30>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="7136" Column="33" TopLine="7110"/>
-      </Position30>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>
diff --git a/epostunit.pas b/epostunit.pas
index 79006d6..c0cdad3 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -5906,13 +5906,15 @@ begin
 
   transformationen:=tLineareAchsenVerzerrTransformation.create(transformationen);
   for c:='x' to 'y' do
-    with transformationen as tLineareAchsenVerzerrTransformation do begin
-      fak[c]:=0.5;
-      if gespiegelt[c<>'x'] then
-        offset[c]:=-achsen[c,'x']
-      else
+    with transformationen as tLineareAchsenVerzerrTransformation do
+      if gespiegelt[c<>'x'] then begin
+        offset[c]:=-achsen[c,'x'];
+        fak[c]:=0.5;
+      end
+      else begin
         offset[c]:=-(achsen[c,'y']+achsen[c,'x'])/2;
-    end;
+        fak[c]:=1;
+      end;
 
   if sT then begin
     result:=true;