typenunit.pas: tRTVorbereitungsTransformation macht nun die Achsen bei rechteckigen Eingangsdaten auch korrekt

2 files changed, 48 insertions, 45 deletions

diff --git a/epost.lps b/epost.lps
index e9f2b89..f02dd6f 100644
--- a/epost.lps
+++ b/epost.lps
@@ -23,8 +23,8 @@
         <Filename Value="epostunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="4955"/>
-        <CursorPos Y="4989"/>
+        <TopLine Value="6206"/>
+        <CursorPos X="44" Y="6169"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -42,8 +42,8 @@
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="10"/>
-        <TopLine Value="1379"/>
-        <CursorPos X="30" Y="1391"/>
+        <TopLine Value="2536"/>
+        <CursorPos X="99" Y="2557"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit4>
@@ -212,123 +212,126 @@
         <UsageCount Value="10"/>
       </Unit27>
     </Units>
-    <JumpHistory Count="29" HistoryIndex="28">
+    <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="7836" TopLine="7819"/>
+        <Caret Line="4744" Column="55" TopLine="4715"/>
       </Position1>
       <Position2>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="127" Column="11" TopLine="109"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="4896" Column="23" TopLine="4868"/>
       </Position2>
       <Position3>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="7827" Column="70" TopLine="7819"/>
+        <Caret Line="4935" Column="43" TopLine="4924"/>
       </Position3>
       <Position4>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="437" Column="17" TopLine="419"/>
+        <Caret Line="5016" Column="23" TopLine="5006"/>
       </Position4>
       <Position5>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="4744" Column="55" TopLine="4715"/>
+        <Caret Line="5027" Column="23" TopLine="5006"/>
       </Position5>
       <Position6>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="4896" Column="23" TopLine="4868"/>
+        <Caret Line="9657" Column="42" TopLine="9637"/>
       </Position6>
       <Position7>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="4935" Column="43" TopLine="4924"/>
+        <Caret Line="7836" Column="80" TopLine="7818"/>
       </Position7>
       <Position8>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5016" Column="23" TopLine="5006"/>
+        <Caret Line="9668" Column="48" TopLine="9642"/>
       </Position8>
       <Position9>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5027" Column="23" TopLine="5006"/>
+        <Caret Line="5030" Column="19" TopLine="5010"/>
       </Position9>
       <Position10>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="9657" Column="42" TopLine="9637"/>
+        <Caret Line="2073" Column="77" TopLine="2057"/>
       </Position10>
       <Position11>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="7836" Column="80" TopLine="7818"/>
+        <Caret Line="437" Column="17" TopLine="419"/>
       </Position11>
       <Position12>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="9668" Column="48" TopLine="9642"/>
+        <Caret Line="4744" Column="55" TopLine="4715"/>
       </Position12>
       <Position13>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5030" Column="19" TopLine="5010"/>
+        <Caret Line="4896" Column="23" TopLine="4868"/>
       </Position13>
       <Position14>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2073" Column="77" TopLine="2057"/>
+        <Caret Line="4938" Column="43" TopLine="4909"/>
       </Position14>
       <Position15>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="437" Column="17" TopLine="419"/>
+        <Caret Line="5019" Column="23" TopLine="4991"/>
       </Position15>
       <Position16>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="4744" Column="55" TopLine="4715"/>
+        <Caret Line="5030" Column="23" TopLine="5002"/>
       </Position16>
       <Position17>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="4896" Column="23" TopLine="4868"/>
+        <Caret Line="9658" Column="16" TopLine="9650"/>
       </Position17>
       <Position18>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="4938" Column="43" TopLine="4909"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="98" Column="28" TopLine="83"/>
       </Position18>
       <Position19>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5019" Column="23" TopLine="4991"/>
+        <Caret Line="9692" Column="35" TopLine="9664"/>
       </Position19>
       <Position20>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5030" Column="23" TopLine="5002"/>
+        <Caret Line="4500" TopLine="4483"/>
       </Position20>
       <Position21>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="9658" Column="16" TopLine="9650"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="231" Column="19" TopLine="219"/>
       </Position21>
       <Position22>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="98" Column="28" TopLine="83"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="227" Column="11" TopLine="219"/>
       </Position22>
       <Position23>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="9692" Column="35" TopLine="9664"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="237" Column="32" TopLine="219"/>
       </Position23>
       <Position24>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="4500" TopLine="4483"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="243" Column="33" TopLine="219"/>
       </Position24>
       <Position25>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="231" Column="19" TopLine="219"/>
+        <Caret Line="249" Column="39" TopLine="220"/>
       </Position25>
       <Position26>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="227" Column="11" TopLine="219"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="4970" Column="83" TopLine="4955"/>
       </Position26>
       <Position27>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="237" Column="32" TopLine="219"/>
+        <Filename Value="epostunit.pas"/>
       </Position27>
       <Position28>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="243" Column="33" TopLine="219"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="189" Column="41" TopLine="161"/>
       </Position28>
       <Position29>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="249" Column="39" TopLine="220"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="6169" Column="44" TopLine="6206"/>
       </Position29>
+      <Position30>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="450" Column="33" TopLine="432"/>
+      </Position30>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>
diff --git a/typenunit.pas b/typenunit.pas
index 7c7ac05..d73f9a8 100644
--- a/typenunit.pas
+++ b/typenunit.pas
@@ -2554,7 +2554,7 @@ var
 begin
   for c:='x' to 'y' do begin
     outAchsen[c,'x']:=inAchsen[c,'x']; // TODO: vllt. zentrieren?
-    outAchsen[c,'y']:=outAchsen[c,'x'] + (inAchsen[c,'y'] - inAchsen[c,'x']) * outXSTS['x']/inXSTS['x'];
+    outAchsen[c,'y']:=outAchsen[c,'x'] + (inAchsen[c,'y'] - inAchsen[c,'x']) * outXSTS[c]/inXSTS[c];
   end;
 end;