"erzeuge Dummy-Werte" kann jetzt auch befüllen

2 files changed, 31 insertions, 0 deletions

diff --git a/epost.lpr b/epost.lpr
index 79eb06f..cd940cf 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -151,6 +151,7 @@ begin
         continue;
       end;
       if istDasBefehl('erzeuge Dummy-Werte',s,bekannteBefehle,true) then begin
+        b:=startetMit('gefüllt',s);
         i:=findeWerte(s,inf,@wertes,@konturen,true);
         if i<0 then begin
           aufraeumen;
@@ -159,6 +160,8 @@ begin
         wertes[i].free;
         wertes[i]:=tWerte.create(@konturen,@wertes);
         wertes[i].bezeichner:=s;
+        if b then
+          wertes[i].fuelleMitDummys(syntaxtest);
         continue;
       end;
       if istDasBefehl('Daten einlesen',s,bekannteBefehle,true) then begin
diff --git a/epostunit.pas b/epostunit.pas
index be7a678..d19c466 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -168,6 +168,7 @@ type
     function erzeugeBinning(sT: boolean; params: string): boolean;
     procedure spiegle(threads: longint); overload;
     procedure spiegle(threads,tMin,tMax: longint); overload;
+    procedure fuelleMitDummys(sT: boolean);
     procedure fft2dNachbearbeitung(threads: longint; nB: tFFTDatenordnung);
     procedure schreibeWert(var f: textfile; x,y: longint);
     function exprToFloat(sT: boolean; s: string): extended;
@@ -4979,6 +4980,33 @@ begin
   gibAus('Alle Spiegelthreads fertig!',1);
 end;
 
+procedure tWerte.fuelleMitDummys(sT: boolean);
+var
+  i,j,ts2: int64;
+begin
+  genauigkeit:=gExtended;
+  transformationen:=tKeineTransformation.create;
+  transformationen.xStart:=-1;
+  transformationen.xStop:=1;
+  transformationen.tStart:=-1;
+  transformationen.tStop:=1;
+  _xSteps:=1024;
+  ts2:=512;
+  _tSiz:=2*ts2;
+  transformationen.xSteps:=_xSteps;
+  transformationen.tSiz:=_tSiz div 2;
+  if sT then
+    exit;
+  holeRAM(3);
+  for j:=0 to ts2-1 do
+    for i:=0 to _xSteps-1 do begin
+      eWerte.werte[i+j*_xSteps]:=
+        2*i/(_xSteps-1)-1;
+      eWerte.werte[i+(j+ts2)*_xSteps]:=
+        2*j/(_tSiz-1)-1;
+    end;
+end;
+
 procedure tWerte.fft2dNachbearbeitung(threads: longint; nB: tFFTDatenordnung);
 var
   i:      longint;