linearesBild kann nun selbst modulo nehmen

1 files changed, 14 insertions, 8 deletions

diff --git a/epostunit.pas b/epostunit.pas
index bdd6044..2a0af60 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -276,9 +276,9 @@ type
     wertes:                             array of tExtendedArray;
     anzahlens:                          array of tLongintArray;
     pals:                               array of tPalette;
-    rahmen:                             boolean;
+    mo,rahmen:                          boolean;
     beschr:                             pTBeschriftungen;
-    constructor create(i,maxThreads,iBreite,iHoehe,lO,oO,rO,uO: longint; const wes: tWerteArray; xMin,xMax,tMin,tMax: longint; xZoom,yZoom: extended; nachbearbeitungen: tTransformationArray; paletten: tPalettenArray; beschri: pTBeschriftungen; rm: boolean);
+    constructor create(i,maxThreads,iBreite,iHoehe,lO,oO,rO,uO: longint; const wes: tWerteArray; xMin,xMax,tMin,tMax: longint; xZoom,yZoom: extended; modulo: boolean; nachbearbeitungen: tTransformationArray; paletten: tPalettenArray; beschri: pTBeschriftungen; rm: boolean);
     destructor destroy; override;
     procedure stExecute; override;
     procedure initAnzahlensFuerKontur;
@@ -5249,7 +5249,7 @@ var
   nachbearbeitungen:                     tTransformationArray;
   Ausschnitt:                            tTransformation;
   bilderThreads:                         array of tBilderThread;
-  fertig,rahmen:                         boolean;
+  fertig,rahmen,modulo:                  boolean;
   img:                                   file;
   achsen:                                array of tAchse;
   fontRenderer:                          tFontRenderer;
@@ -5294,6 +5294,7 @@ begin
   datei:='';
   xZoom:=1;
   yZoom:=1;
+  modulo:=false;
   xMin:=0;
   xMax:=_xSteps-1;
   tMin:=0;
@@ -5355,6 +5356,10 @@ begin
       tMax:=kont2disk('t',exprToFloat(sT,s));
       continue;
     end;
+    if istDasBefehl('modulo',s,bekannteBefehle,false) then begin
+      modulo:=true;
+      continue;
+    end;
     if istDasBefehl('Palette:',s,bekannteBefehle,true) then begin
       if s[1] in ['0'..'9'] then
         i:=strToInt(erstesArgument(s))
@@ -5605,7 +5610,7 @@ begin
 
   setLength(bilderThreads,threads);
   for i:=0 to length(bilderThreads)-1 do
-    bilderThreads[i]:=tBilderThread.create(i,length(bilderThreads),breite,hoehe,lOf,oOf,rOf,uOf,quellen,xMin,xMax,tMin,tMax,xZoom,yZoom,nachbearbeitungen,paletten,@beschriftungen,rahmen);
+    bilderThreads[i]:=tBilderThread.create(i,length(bilderThreads),breite,hoehe,lOf,oOf,rOf,uOf,quellen,xMin,xMax,tMin,tMax,xZoom,yZoom,modulo,nachbearbeitungen,paletten,@beschriftungen,rahmen);
   for i:=0 to length(bilderThreads)-1 do begin
     gibAus('starte Thread '+intToStr(i)+' ...',1);
     bilderThreads[i].suspended:=false;
@@ -6686,7 +6691,7 @@ end;
 
 // tBilderThread ***************************************************************
 
-constructor tBilderThread.create(i,maxThreads,iBreite,iHoehe,lO,oO,rO,uO: longint; const wes: tWerteArray; xMin,xMax,tMin,tMax: longint; xZoom,yZoom: extended; nachbearbeitungen: tTransformationArray; paletten: tPalettenArray; beschri: pTBeschriftungen; rm: boolean);
+constructor tBilderThread.create(i,maxThreads,iBreite,iHoehe,lO,oO,rO,uO: longint; const wes: tWerteArray; xMin,xMax,tMin,tMax: longint; xZoom,yZoom: extended; modulo: boolean; nachbearbeitungen: tTransformationArray; paletten: tPalettenArray; beschri: pTBeschriftungen; rm: boolean);
 var
   ii,anzKompl: longint;
 begin
@@ -6707,6 +6712,7 @@ begin
   tMa:=tMax;
   xZ:=xZoom;
   yZ:=yZoom;
+  mo:=modulo;
   nbs:=nachbearbeitungen;
   setLength(pals,length(paletten));
   for ii:=0 to length(pals)-1 do
@@ -6763,9 +6769,9 @@ begin
   gibAus('Thread '+intToStr(nummer)+' gestartet!',1);
   for i:=0 to length(ws)-1 do
     case ws[i].genauigkeit of
-      gSingle:   if not ws[i].sWerte.zuPixelWerten(wHoehe,wBreite,xPMi,xMi,tMi,xZ,yZ,@wertes[i],@anzahlens[i]) then exit;
-      gDouble:   if not ws[i].dWerte.zuPixelWerten(wHoehe,wBreite,xPMi,xMi,tMi,xZ,yZ,@wertes[i],@anzahlens[i]) then exit;
-      gExtended: if not ws[i].eWerte.zuPixelWerten(wHoehe,wBreite,xPMi,xMi,tMi,xZ,yZ,@wertes[i],@anzahlens[i]) then exit;
+      gSingle:   if not ws[i].sWerte.zuPixelWerten(wHoehe,wBreite,xPMi,xMi,tMi,xZ,yZ,mo,@wertes[i],@anzahlens[i]) then exit;
+      gDouble:   if not ws[i].dWerte.zuPixelWerten(wHoehe,wBreite,xPMi,xMi,tMi,xZ,yZ,mo,@wertes[i],@anzahlens[i]) then exit;
+      gExtended: if not ws[i].eWerte.zuPixelWerten(wHoehe,wBreite,xPMi,xMi,tMi,xZ,yZ,mo,@wertes[i],@anzahlens[i]) then exit;
     end{of case};
   for i:=0 to length(wertes)-1 do
     for j:=0 to length(anzahlens[i])-1 do