Gibt mir auch keine Daten zurück
Ich denke das es auch das gleiche wie die Daten in Spectrum selber sind.
Delphi-Quellcode:
// Spektrum Analyser Daten glaetten
for c := 0 to 1 do
begin
for i := 0 to 72 do
begin
h := 0.0;
for j := 0 to 8 do
begin
//h := (h + specdata[i * 8 + j + c * 576]);
h := (h + ord(this_mod^.spectrumData[0][i * 8]) +
ord(this_mod^.spectrumData[0][j]) +
ord(this_mod^.spectrumData[0][c * 576]));
h := h / (1.0 * 255.0);
h := Ln(h + 1.0) * 10.0;
delta := (currenttime - lastcurrenttime) * 10.0;
delta2 := (currenttime - lastcurrenttime) * 2.0;
if (h > heights[c][i] - delta) then
h := heights[c][i]
else
heights[c][i] := heights[c][i] - delta;
if (h > heights2[c][i] - delta2) then
h := heights2[c][i]
else
heights2[c][i] := heights2[c][i] - delta2;
end;
end;
end;
Die beiden zeilen verglichen müßte eigentlich den gleichen wert ergeben!
Delphi-Quellcode:
//h := (h + specdata[i * 8 + j + c * 576]);
h := (h + ord(this_mod^.spectrumData[0][i * 8]) +
ord(this_mod^.spectrumData[0][j]) +
ord(this_mod^.spectrumData[0][c * 576]));
heights[c][i] := heights[c][i] - delta;
Ist aber immer 0
Hänge mal ein Bild an wie specdata in C# ausschaut.
Anfangen kann ich damit nix aber es funktioniert... wie auch immer.
gruss Emil