werteunit.inc: Radon-Lineouts zentrieren

2 files changed, 52 insertions, 52 deletions

diff --git a/epost.lps b/epost.lps
index 2f747fc..d9188d7 100644
--- a/epost.lps
+++ b/epost.lps
@@ -23,8 +23,8 @@
         <Filename Value="epostunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="5461"/>
-        <CursorPos Y="5483"/>
+        <TopLine Value="6139"/>
+        <CursorPos X="47" Y="6129"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -33,8 +33,8 @@
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="5"/>
-        <TopLine Value="2579"/>
-        <CursorPos X="19" Y="2597"/>
+        <TopLine Value="2244"/>
+        <CursorPos X="8" Y="2271"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit3>
@@ -42,8 +42,8 @@
         <Filename Value="typenunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="10"/>
-        <TopLine Value="498"/>
-        <CursorPos X="4" Y="516"/>
+        <TopLine Value="2506"/>
+        <CursorPos X="23" Y="2524"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit4>
@@ -76,7 +76,7 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="6"/>
         <TopLine Value="173"/>
-        <CursorPos X="15" Y="202"/>
+        <CursorPos X="54" Y="202"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit8>
@@ -86,7 +86,7 @@
         <EditorIndex Value="7"/>
         <TopLine Value="86"/>
         <CursorPos X="26" Y="115"/>
-        <UsageCount Value="74"/>
+        <UsageCount Value="75"/>
         <Loaded Value="True"/>
       </Unit9>
       <Unit10>
@@ -94,7 +94,7 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="8"/>
         <CursorPos X="3" Y="2"/>
-        <UsageCount Value="70"/>
+        <UsageCount Value="71"/>
         <Loaded Value="True"/>
       </Unit10>
       <Unit11>
@@ -210,122 +210,122 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="761" Column="79" TopLine="734"/>
+        <Caret Line="6080" Column="39" TopLine="6070"/>
       </Position1>
       <Position2>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="757" Column="78" TopLine="740"/>
+        <Caret Line="6130" Column="71" TopLine="6112"/>
       </Position2>
       <Position3>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="36" Column="17" TopLine="19"/>
+        <Filename Value="epostunit.pas"/>
       </Position3>
       <Position4>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="788" TopLine="768"/>
+        <Caret Line="6078" Column="110" TopLine="6069"/>
       </Position4>
       <Position5>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="792" Column="2" TopLine="730"/>
+        <Caret Line="187" Column="123" TopLine="171"/>
       </Position5>
       <Position6>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6136" Column="29" TopLine="6118"/>
+        <Caret Line="6149" Column="20" TopLine="6133"/>
       </Position6>
       <Position7>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6128" TopLine="6119"/>
+        <Caret Line="6126" TopLine="6112"/>
       </Position7>
       <Position8>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6130" Column="58" TopLine="6112"/>
+        <Caret Line="6129" Column="24" TopLine="6112"/>
       </Position8>
       <Position9>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6080" Column="39" TopLine="6070"/>
+        <Caret Line="181" Column="29" TopLine="165"/>
       </Position9>
       <Position10>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6130" Column="71" TopLine="6112"/>
+        <Caret Line="5414" Column="32" TopLine="5394"/>
       </Position10>
       <Position11>
         <Filename Value="epostunit.pas"/>
+        <Caret Line="5470" TopLine="5451"/>
       </Position11>
       <Position12>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6078" Column="110" TopLine="6069"/>
+        <Caret Line="5466" TopLine="5451"/>
       </Position12>
       <Position13>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="187" Column="123" TopLine="171"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="516" Column="4" TopLine="498"/>
       </Position13>
       <Position14>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6149" Column="20" TopLine="6133"/>
+        <Caret Line="5465" Column="22" TopLine="5448"/>
       </Position14>
       <Position15>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6126" TopLine="6112"/>
+        <Caret Line="6131" Column="37" TopLine="6111"/>
       </Position15>
       <Position16>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6129" Column="24" TopLine="6112"/>
+        <Caret Line="181" Column="29" TopLine="165"/>
       </Position16>
       <Position17>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="181" Column="29" TopLine="165"/>
+        <Caret Line="5414" Column="32" TopLine="5385"/>
       </Position17>
       <Position18>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5414" Column="32" TopLine="5394"/>
+        <Caret Line="5479" Column="29" TopLine="5451"/>
       </Position18>
       <Position19>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5470" TopLine="5451"/>
+        <Caret Line="6131" Column="52" TopLine="6114"/>
       </Position19>
       <Position20>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="5466" TopLine="5451"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="2601" Column="77" TopLine="2570"/>
       </Position20>
       <Position21>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="516" Column="4" TopLine="498"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="6129" Column="50" TopLine="6102"/>
       </Position21>
       <Position22>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="5465" Column="22" TopLine="5448"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="729" TopLine="713"/>
       </Position22>
       <Position23>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6131" Column="37" TopLine="6111"/>
+        <Caret Line="5483" TopLine="5461"/>
       </Position23>
       <Position24>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="181" Column="29" TopLine="165"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="450" Column="7" TopLine="436"/>
       </Position24>
       <Position25>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="5414" Column="32" TopLine="5385"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="2524" Column="71" TopLine="2502"/>
       </Position25>
       <Position26>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="5479" Column="29" TopLine="5451"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="2597" Column="19" TopLine="2579"/>
       </Position26>
       <Position27>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="6131" Column="52" TopLine="6114"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="60" Column="38" TopLine="36"/>
       </Position27>
       <Position28>
         <Filename Value="werteunit.pas"/>
-        <Caret Line="2601" Column="77" TopLine="2570"/>
+        <Caret Line="61" Column="42" TopLine="36"/>
       </Position28>
       <Position29>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="6129" Column="50" TopLine="6102"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="202" Column="54" TopLine="173"/>
       </Position29>
       <Position30>
         <Filename Value="werteunit.pas"/>
-        <Caret Line="729" TopLine="713"/>
+        <Caret Line="28" Column="29" TopLine="8"/>
       </Position30>
     </JumpHistory>
     <RunParams>
diff --git a/werteunit.inc b/werteunit.inc
index 884edbc..3d998a9 100644
--- a/werteunit.inc
+++ b/werteunit.inc
@@ -189,17 +189,17 @@ begin
       iXF:=iX-iXG;
       iYG:=floor(iY);
       iYF:=iY-iYG;
-      werte[oX+oY*params.xSteps]:=
+      werte[oX+oY*params.xSteps]:=(1-2*byte(odd(oY))) * (
           qu^.reBei2DDoResSmi(iXG,iYG)*(1-iXF)*(1-iYF)
         + qu^.reBei2DDoResSmi(iXG+1,iYG)*iXF*(1-iYF)
         + qu^.reBei2DDoResSmi(iXG,iYG+1)*(1-iXF)*iYF
-        + qu^.reBei2DDoResSmi(iXG+1,iYG+1)*iXF*iYF;
+        + qu^.reBei2DDoResSmi(iXG+1,iYG+1)*iXF*iYF);
       if (oY>0) and (2*oY<params.tSiz) then
-        werte[oX+(params.tSiz-oY)*params.xSteps]:=
+        werte[oX+(params.tSiz-oY)*params.xSteps]:=(1-2*byte(odd(oY))) * (
             qu^.imBei2DDoResSmi(iXG,iYG)*(1-iXF)*(1-iYF)
           + qu^.imBei2DDoResSmi(iXG+1,iYG)*iXF*(1-iYF)
           + qu^.imBei2DDoResSmi(iXG,iYG+1)*(1-iXF)*iYF
-          + qu^.imBei2DDoResSmi(iXG+1,iYG+1)*iXF*iYF;
+          + qu^.imBei2DDoResSmi(iXG+1,iYG+1)*iXF*iYF);
     end;
   end;
 end;