wieder lauffähig

1 files changed, 8 insertions, 8 deletions

diff --git a/werteunit.pas b/werteunit.pas
index c790c19..b6ea916 100644
--- a/werteunit.pas
+++ b/werteunit.pas
@@ -30,8 +30,8 @@ type
     procedure kopiereVon(st: boolean; original: pTLLWerteDouble; xmin,xmax: longint); overload;
     procedure kopiereVon(st: boolean; original: pTLLWerteSingle; xmin,xmax,tmin,tmax: longint); overload;
     procedure kopiereVon(st: boolean; original: pTLLWerteDouble; xmin,xmax,tmin,tmax: longint); overload;
-    procedure kopiereVerzerrt(original: pTLLWerteSingle; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tBearbeitungen); overload;
-    procedure kopiereVerzerrt(original: pTLLWerteDouble; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tBearbeitungen); overload;
+    procedure kopiereVerzerrt(original: pTLLWerteSingle; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tTransformationen); overload;
+    procedure kopiereVerzerrt(original: pTLLWerteDouble; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tTransformationen); overload;
     destructor destroy; override;
     function liesDateien(dateien: tGenerischeInputDateiInfoArray): boolean;
     function fft(senkrecht,invers: boolean; const vor,nach: tFFTDatenordnung; const fen: tFenster; out pvFehler: extended): boolean; overload;
@@ -161,7 +161,7 @@ begin
  end;
 end;
 
-procedure tLLWerte.kopiereVerzerrt(original: pTLLWerteSingle; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tBearbeitungen);
+procedure tLLWerte.kopiereVerzerrt(original: pTLLWerteSingle; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tTransformationen);
 var i,j,k,l: longint;
     tmp:     extended;
 begin
@@ -177,7 +177,7 @@ begin
           if (vb.count>0) or (nb.count>0) then
             tmp:=(tmp-original^.params^.minW)/(original^.params^.maxW-original^.params^.minW);
           for l:=0 to vb.count-1 do
-            vb[l].anwenden(tmp);
+            vb[l].transformiereWert(tmp);
           tmp:=tmp * (ZGs[i].x * (2*j-1) + 1-j) * (ZGs[i].y * (2*k-1) + 1-k);
           werte[ZPs[i].x+j + (ZPs[i].y+k)*params^.xsteps]:=
             werte[ZPs[i].x+j + (ZPs[i].y+k)*params^.xsteps] +
@@ -187,12 +187,12 @@ begin
     for j:=xmin to xmax do begin
       tmp:=werte[j + i*params^.xsteps] / ZAs[j + i*params^.xsteps];
       for k:=0 to nb.count-1 do
-        nb[k].anwenden(tmp);
+        nb[k].transformiereWert(tmp);
       werte[j + i*params^.xsteps]:=tmp;
     end;
 end;
 
-procedure tLLWerte.kopiereVerzerrt(original: pTLLWerteDouble; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tBearbeitungen);
+procedure tLLWerte.kopiereVerzerrt(original: pTLLWerteDouble; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tTransformationen);
 var i,j,k,l: longint;
     tmp:     extended;
 begin
@@ -208,7 +208,7 @@ begin
          if (vb.count>0) or (nb.count>0) then
            tmp:=(tmp-original^.params^.minW)/(original^.params^.maxW-original^.params^.minW);
          for l:=0 to vb.count-1 do
-           vb[l].anwenden(tmp);
+           vb[l].transformiereWert(tmp);
          tmp:=tmp * (ZGs[i].x * (2*j-1) + 1-j) * (ZGs[i].y * (2*k-1) + 1-k);
          werte[ZPs[i].x+j + (ZPs[i].y+k)*params^.xsteps]:=
            werte[ZPs[i].x+j + (ZPs[i].y+k)*params^.xsteps] +
@@ -218,7 +218,7 @@ begin
    for j:=xmin to xmax do begin
      tmp:=werte[j + i*params^.xsteps] / ZAs[j + i*params^.xsteps];
      for k:=0 to nb.count-1 do
-       nb[k].anwenden(tmp);
+       nb[k].transformiereWert(tmp);
      werte[j + i*params^.xsteps]:=tmp;
    end;
 end;