Thema: Delphi stream korrekt?

Einzelnen Beitrag anzeigen

venice2
(Gast)

n/a Beiträge
 
#12

AW: stream korrekt?

  Alt 1. Sep 2020, 05:01
Iiiiich? nööööö.


Du könntest noch einen Multiplikator anbieten,
dann kann der Nutzer zu kleine Ausschläge vergrößern oder zu Große kleiner darstellen.
Tue ich auch schon.
Delphi-Quellcode:
          for I := 0 to 255 do
          begin
            VisData.Spectrum[0, I] := Max
              (0, Min(255, (Trunc(Power(Data32Pos^, FFTSAmplification * IfThen
                        (VisInfo^.UltraPlayerVis, 0.5, 1)) * 255))));
            inc(Data32Pos, FFT_SkipCount);

            VisData.Spectrum[1, I] := Max
              (0, Min(255, (Trunc(Power(Data32Pos^, FFTSAmplification * IfThen
                        (VisInfo^.UltraPlayerVis, 0.5, 1)) * 255))));
            inc(Data32Pos);
          end;
  Mit Zitat antworten Zitat