diff options
-rw-r--r-- | epost.lps | 126 | ||||
-rw-r--r-- | werteunit.inc | 24 |
2 files changed, 75 insertions, 75 deletions
@@ -23,8 +23,8 @@ <Filename Value="epostunit.pas"/> <IsPartOfProject Value="True"/> <EditorIndex Value="1"/> - <TopLine Value="8101"/> - <CursorPos X="29" Y="8112"/> + <TopLine Value="4153"/> + <CursorPos X="19" Y="4168"/> <UsageCount Value="201"/> <Loaded Value="True"/> </Unit2> @@ -32,8 +32,8 @@ <Filename Value="werteunit.pas"/> <IsPartOfProject Value="True"/> <EditorIndex Value="9"/> - <TopLine Value="303"/> - <CursorPos X="37" Y="331"/> + <TopLine Value="2002"/> + <CursorPos X="43" Y="1990"/> <UsageCount Value="200"/> <Loaded Value="True"/> </Unit3> @@ -77,9 +77,9 @@ <IsPartOfProject Value="True"/> <IsVisibleTab Value="True"/> <EditorIndex Value="10"/> - <TopLine Value="130"/> - <CursorPos X="43" Y="155"/> - <UsageCount Value="140"/> + <TopLine Value="142"/> + <CursorPos X="17" Y="170"/> + <UsageCount Value="144"/> <Loaded Value="True"/> </Unit8> <Unit9> @@ -93,7 +93,7 @@ <EditorIndex Value="8"/> <TopLine Value="498"/> <CursorPos X="85" Y="515"/> - <UsageCount Value="70"/> + <UsageCount Value="72"/> <Loaded Value="True"/> </Unit10> <Unit11> @@ -117,7 +117,7 @@ <EditorIndex Value="2"/> <TopLine Value="126"/> <CursorPos X="7" Y="147"/> - <UsageCount Value="84"/> + <UsageCount Value="86"/> <Loaded Value="True"/> </Unit13> <Unit14> @@ -188,128 +188,128 @@ <EditorIndex Value="6"/> <TopLine Value="87"/> <CursorPos X="3" Y="18"/> - <UsageCount Value="19"/> + <UsageCount Value="21"/> <Loaded Value="True"/> </Unit23> </Units> <JumpHistory Count="30" HistoryIndex="29"> <Position1> - <Filename Value="werteunit.pas"/> - <Caret Line="27" Column="67" TopLine="9"/> + <Filename Value="typenunit.pas"/> + <Caret Line="3412" Column="56" TopLine="3395"/> </Position1> <Position2> - <Filename Value="werteunit.pas"/> - <Caret Line="1779" Column="19" TopLine="1759"/> + <Filename Value="typenunit.pas"/> + <Caret Line="491" Column="31" TopLine="473"/> </Position2> <Position3> - <Filename Value="werteunit.pas"/> - <Caret Line="27" Column="34" TopLine="10"/> + <Filename Value="epostunit.pas"/> + <Caret Line="2285" Column="38" TopLine="2267"/> </Position3> <Position4> - <Filename Value="werteunit.pas"/> - <Caret Line="1792" Column="63" TopLine="1759"/> + <Filename Value="epostunit.pas"/> + <Caret Line="4052" Column="13" TopLine="4039"/> </Position4> <Position5> - <Filename Value="werteunit.pas"/> - <Caret Line="1728" Column="92" TopLine="1717"/> + <Filename Value="epostunit.pas"/> + <Caret Line="8088" Column="20" TopLine="8080"/> </Position5> <Position6> - <Filename Value="werteunit.pas"/> - <Caret Line="1782" Column="80" TopLine="1766"/> + <Filename Value="epostunit.pas"/> </Position6> <Position7> - <Filename Value="werteunit.pas"/> - <Caret Line="27" Column="100" TopLine="8"/> + <Filename Value="epostunit.pas"/> + <Caret Line="399" Column="19" TopLine="370"/> </Position7> <Position8> - <Filename Value="werteunit.pas"/> - <Caret Line="1745" Column="19" TopLine="1724"/> + <Filename Value="epostunit.pas"/> + <Caret Line="3992" Column="53" TopLine="3987"/> </Position8> <Position9> - <Filename Value="werteunit.pas"/> - <Caret Line="1761" Column="34" TopLine="1736"/> + <Filename Value="epostunit.pas"/> + <Caret Line="4052" Column="25" TopLine="4039"/> </Position9> <Position10> - <Filename Value="epost.lpr"/> - <Caret Line="126" Column="98" TopLine="113"/> + <Filename Value="epostunit.pas"/> + <Caret Line="8112" Column="29" TopLine="8101"/> </Position10> <Position11> - <Filename Value="epostunit.pas"/> - <Caret Line="8365" TopLine="8347"/> + <Filename Value="werteunit.pas"/> + <Caret Line="50" Column="32" TopLine="34"/> </Position11> <Position12> - <Filename Value="epostunit.pas"/> - <Caret Line="2290" Column="37" TopLine="2267"/> + <Filename Value="werteunit.pas"/> + <Caret Line="51" Column="32" TopLine="34"/> </Position12> <Position13> <Filename Value="werteunit.pas"/> - <Caret Line="54" Column="25" TopLine="39"/> + <Caret Line="52" Column="32" TopLine="34"/> </Position13> <Position14> - <Filename Value="typenunit.pas"/> - <Caret Line="3412" Column="56" TopLine="3395"/> + <Filename Value="werteunit.pas"/> + <Caret Line="327" Column="37" TopLine="299"/> </Position14> <Position15> - <Filename Value="typenunit.pas"/> - <Caret Line="491" Column="31" TopLine="473"/> + <Filename Value="werteunit.pas"/> + <Caret Line="329" Column="37" TopLine="301"/> </Position15> <Position16> - <Filename Value="epostunit.pas"/> - <Caret Line="2285" Column="38" TopLine="2267"/> + <Filename Value="werteunit.inc"/> + <Caret Line="32" Column="41" TopLine="14"/> </Position16> <Position17> - <Filename Value="epostunit.pas"/> - <Caret Line="4052" Column="13" TopLine="4039"/> + <Filename Value="werteunit.inc"/> </Position17> <Position18> - <Filename Value="epostunit.pas"/> - <Caret Line="8088" Column="20" TopLine="8080"/> + <Filename Value="werteunit.inc"/> + <Caret Line="155" Column="43" TopLine="130"/> </Position18> <Position19> - <Filename Value="epostunit.pas"/> + <Filename Value="werteunit.inc"/> + <Caret Line="147" Column="36" TopLine="121"/> </Position19> <Position20> - <Filename Value="epostunit.pas"/> - <Caret Line="399" Column="19" TopLine="370"/> + <Filename Value="werteunit.pas"/> + <Caret Line="324" Column="56" TopLine="303"/> </Position20> <Position21> <Filename Value="epostunit.pas"/> - <Caret Line="3992" Column="53" TopLine="3987"/> + <Caret Line="8112" Column="29" TopLine="8101"/> </Position21> <Position22> - <Filename Value="epostunit.pas"/> - <Caret Line="4052" Column="25" TopLine="4039"/> + <Filename Value="werteunit.pas"/> + <Caret Line="50" Column="32" TopLine="34"/> </Position22> <Position23> - <Filename Value="epostunit.pas"/> - <Caret Line="8112" Column="29" TopLine="8101"/> + <Filename Value="werteunit.pas"/> + <Caret Line="51" Column="32" TopLine="34"/> </Position23> <Position24> <Filename Value="werteunit.pas"/> - <Caret Line="50" Column="32" TopLine="34"/> + <Caret Line="52" Column="32" TopLine="34"/> </Position24> <Position25> <Filename Value="werteunit.pas"/> - <Caret Line="51" Column="32" TopLine="34"/> + <Caret Line="327" Column="37" TopLine="317"/> </Position25> <Position26> <Filename Value="werteunit.pas"/> - <Caret Line="52" Column="32" TopLine="34"/> + <Caret Line="24" Column="94" TopLine="9"/> </Position26> <Position27> - <Filename Value="werteunit.pas"/> - <Caret Line="327" Column="37" TopLine="299"/> + <Filename Value="epostunit.pas"/> + <Caret Line="8112" Column="29" TopLine="8101"/> </Position27> <Position28> - <Filename Value="werteunit.pas"/> - <Caret Line="329" Column="37" TopLine="301"/> + <Filename Value="epostunit.pas"/> + <Caret Line="170" Column="31" TopLine="154"/> </Position28> <Position29> - <Filename Value="werteunit.inc"/> - <Caret Line="32" Column="41" TopLine="14"/> + <Filename Value="epostunit.pas"/> + <Caret Line="4168" Column="19" TopLine="4221"/> </Position29> <Position30> - <Filename Value="werteunit.inc"/> + <Filename Value="werteunit.pas"/> + <Caret Line="88" Column="34" TopLine="72"/> </Position30> </JumpHistory> </ProjectSession> diff --git a/werteunit.inc b/werteunit.inc index 30efbc0..c7182a9 100644 --- a/werteunit.inc +++ b/werteunit.inc @@ -111,14 +111,14 @@ begin vV:= max( 0, - (params.tSiz-1-(i+1))/ - (1 + (i+1)/verhVe/(params.tSiz-1)) + (params.tSiz-1-(i+0.5))/ + (1 + (i+0.5)/verhVe/(params.tSiz-1))+0.5 ); vB:= min( params.tSiz, - (params.tSiz-1-i)/ - (1 + i/verhVe/(params.tSiz-1)) + (params.tSiz-1-(i-0.5))/ + (1 + (i-0.5)/verhVe/(params.tSiz-1))+0.5 ); end else begin @@ -130,14 +130,14 @@ begin hV:= max( 0, - (params.xSteps-1-(j+1))/ - (1 + (j+1)/verhHo/(params.xSteps-1)) + (params.xSteps-1-(j+0.5))/ + (1 + (j+0.5)/verhHo/(params.xSteps-1))+0.5 ); hB:= min( params.xSteps, - (params.xSteps-1-j)/ - (1 + j/verhHo/(params.xSteps-1)) + (params.xSteps-1-(j-0.5))/ + (1 + (j-0.5)/verhHo/(params.xSteps-1))+0.5 ); end else begin @@ -145,17 +145,17 @@ begin hB:=j+1; end; werte[j+i*params.xSteps]:=0; - for h:=max(0,floor(hV)) to min(params.xSteps-1,ceil(hB)) do begin + for h:=max(0,floor(hV)) to min(params.xSteps,ceil(hB))-1 do begin xAnteil:=1; if h=floor(hV) then // linker Rand xAnteil:=xAnteil-(hV-h); // hV-h fehlt am ganzen Pixel - if h=ceil(hB) then // rechter Rand + if h=ceil(hB)-1 then // rechter Rand xAnteil:=xAnteil-(1+h-hB); // 1+h-hB fehlt am ganzen Pixel (1+h ist der rechte Rand des Pixels!) - for v:=max(0,floor(vV)) to min(params.tSiz-1,ceil(vB)) do begin + for v:=max(0,floor(vV)) to min(params.tSiz,ceil(vB))-1 do begin yAnteil:=1; // s.o. if v=floor(vV) then yAnteil:=yAnteil-(vV-v); - if v=ceil(vB) then + if v=ceil(vB)-1 then yAnteil:=yAnteil-(1+v-vB); werte[j+i*params.xSteps]:= werte[j+i*params.xSteps]+ |