werteunit.pas: kann jetzt korrekt fft2d mit doAlleResIms und doAlleResSmi

1 files changed, 13 insertions, 13 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 524240d..efdb914 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -277,14 +277,14 @@ type
     procedure stExecute; override;
   end;
   tFFTThread = class(tLogThread)
-    smi,sma:               longint;
+    sMi,sMa:               longint;
     fen:                   tFenster;
     sen,inv:               boolean;
     algo:                  tFFTAlgorithmus;
     pW:                    tWerte;
     pvFehler,hg:           extended;
-    constructor create(werte: tWerte; smin,smax: longint; senkrecht,invers: boolean; const vor,nach: tFFTDatenordnung; fenster: tFenster; hintergrund: extended); overload;
-    constructor create(werte: tWerte; smin,smax: longint; senkrecht,invers: boolean; algorithmus: tFFTAlgorithmus; fenster: tFenster; hintergrund: extended); overload;
+    constructor create(werte: tWerte; sMin,sMax: longint; senkrecht,invers: boolean; const vor,nach: tFFTDatenordnung; fenster: tFenster; hintergrund: extended); overload;
+    constructor create(werte: tWerte; sMin,sMax: longint; senkrecht,invers: boolean; algorithmus: tFFTAlgorithmus; fenster: tFenster; hintergrund: extended); overload;
     procedure stExecute; override;
   end;
   tGauszFitThread = class(tLogThread)
@@ -5760,7 +5760,7 @@ end;
 
 // tFFTThread ******************************************************************
 
-constructor tFFTThread.create(werte: tWerte; smin,smax: longint; senkrecht,invers: boolean; const vor,nach: tFFTDatenordnung; fenster: tFenster; hintergrund: extended);
+constructor tFFTThread.create(werte: tWerte; sMin,sMax: longint; senkrecht,invers: boolean; const vor,nach: tFFTDatenordnung; fenster: tFenster; hintergrund: extended);
 var
   tmpFFTAlgo:  tFFTAlgorithmus;
   halberInput: boolean;
@@ -5772,33 +5772,33 @@ begin
     tmpFFTAlgo:=createFFTAlgorithmus(werte._tSiz div (1+byte(halberInput)),vor,nach)
   else
     tmpFFTAlgo:=createFFTAlgorithmus(werte._xSteps div (1+byte(halberInput)),vor,nach);
-  create(werte,smin,smax,senkrecht,invers,tmpFFTAlgo,fenster,hintergrund);
+  create(werte,sMin,sMax,senkrecht,invers,tmpFFTAlgo,fenster,hintergrund);
   tmpFFTAlgo.free;
 end;
 
-constructor tFFTThread.create(werte: tWerte; smin,smax: longint; senkrecht,invers: boolean; algorithmus: tFFTAlgorithmus; fenster: tFenster; hintergrund: extended);
+constructor tFFTThread.create(werte: tWerte; sMin,sMax: longint; senkrecht,invers: boolean; algorithmus: tFFTAlgorithmus; fenster: tFenster; hintergrund: extended);
 begin
   inherited create;
   pW:=werte;
-  smi:=smin;
-  sma:=smax;
+  sMi:=sMin;
+  sMa:=sMax;
   sen:=senkrecht;
   inv:=invers;
   algo:=createFFTAlgorithmus(algorithmus);
   fen:=fenster;
   hg:=hintergrund;
   erfolg:=false;
-  gibAus('FFTthread kreiert ('+intToStr(pW._xSteps)+' x '+intToStr(pW._tSiz)+': '+intToStr(smi)+' .. '+intToStr(sma)+'): '+algo.className,3);
+  gibAus('FFTthread kreiert ('+intToStr(pW._xSteps)+' x '+intToStr(pW._tSiz)+': '+intToStr(sMi)+' .. '+intToStr(sMa)+'): '+algo.className,3);
   suspended:=false;
 end;
 
 procedure tFFTThread.stExecute;
 begin
-  gibAus('FFTthread gestartet ('+intToStr(pW._xSteps)+' x '+intToStr(pW._tSiz)+': '+intToStr(smi)+' .. '+intToStr(sma)+'): '+algo.className+' ...',1);
+  gibAus('FFTthread gestartet ('+intToStr(pW._xSteps)+' x '+intToStr(pW._tSiz)+': '+intToStr(sMi)+' .. '+intToStr(sMa)+'): '+algo.className+' ...',1);
   case pW.genauigkeit of
-    gSingle:    erfolg:=pW.sWerte.fft(smi,sma,sen,inv,algo,fen,hg,pvFehler);
-    gDouble:    erfolg:=pW.dWerte.fft(smi,sma,sen,inv,algo,fen,hg,pvFehler);
-    gExtended:  erfolg:=pW.eWerte.fft(smi,sma,sen,inv,algo,fen,hg,pvFehler);
+    gSingle:    erfolg:=pW.sWerte.fft(sMi,sMa,sen,inv,algo,fen,hg,pvFehler);
+    gDouble:    erfolg:=pW.dWerte.fft(sMi,sMa,sen,inv,algo,fen,hg,pvFehler);
+    gExtended:  erfolg:=pW.eWerte.fft(sMi,sMa,sen,inv,algo,fen,hg,pvFehler);
   end{of case};
   gibAus('... und fertig! ',1);
 end;