DGL • Thema anzeigen - Rechenintensive Farben

Rechenintensive Farben

Moderator: DGL-Team

Seite 1 von 1

[ 2 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Shaddow

Betreff des Beitrags: Rechenintensive Farben

Verfasst: So Okt 29, 2006 11:29

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

Hi. Bei meiner Particleengine habe ich eine funktionierende Farbinterpolation durch dynamische Arrays erstellt:

Code:

procedure TContainer.Advance(aTime : Integer);
var i : Integer;
    Farbe: TColorInterpolArray;
 
    function CalculateColor: TVector3f;
    var j, Count, CurrField: Integer;
        ColorDiff:TVector3f;
    begin
      Count := Length(Farbe);
      if Count-1 = 0 then
      begin
        Result[0]:=1;
        Result[1]:=1;
        Result[2]:=1;
      end
      else
      begin 
        Result[0]:=Farbe[0].Color[0];
        Result[1]:=Farbe[0].Color[1];
        Result[2]:=Farbe[0].Color[2];
 
        if Count>1 then
        begin
          for j:=Count-1 downto 0 do
          begin
            if (LiveSpan <= StartLiveSpan/Count*(j+1)) then CurrField:=j;
          end;
          for j:=0 to 2 do
          begin
            if CurrField = 0 then ColorDiff[j] := Farbe[CurrField].Color[j]
            else ColorDiff[j] := Farbe[CurrField].Color[j] - Farbe[CurrField-1].Color[j];
            Result[j]    := ColorDiff[j]/(StartLiveSpan/aTime);
          end;
        end;
      end;
    end;
begin
  LiveSpan := LiveSpan - aTime;
  if (LiveSpan <= 0) then LiveSpan := StartLiveSpan;
          // 30fps verlust!!!
  Farbe := Colors;
  for i:=0 to FNumParticles-1 do
  begin
    with Particles[i] do
    begin
      Color := AddVector(Color, CalculateColor);
 
      Speed       := Speed    + (Acceleration*aTime/1000);
 
      Position[0] := Position[0] + Direction[0] * Speed * aTime/1000;
      Position[1] := Position[1] + Direction[1] * Speed * aTime/1000;
      Position[2] := Position[2] + Direction[2] * Speed * aTime/1000;
      LiveSpan    := LiveSpan - aTime;
      Age         := Age      + aTime;
    end;
  end;
end;

Farbe := Colors greift auf ein property der Klasse zu und bekommt ein Dynamisches Array zurueck.
Es könnten also 3 aber auch 30 sein, obwohl das nicht viel sinn haette mit 30.
Auf jeden Fall ist mein problem: ohne Farbinterpolation habe ich bei etwa 5000 Particle 100 FPS und mit habe ich gleich nur noch 60. Das sollte ja nicht sein. Kann man die Rechnung vereinfachen?

Nach oben

Delphic

Betreff des Beitrags:

Verfasst: So Okt 29, 2006 12:23

DGL Member

Registriert: Do Mai 30, 2002 18:48
Beiträge: 1617

wahrscheinlich nicht, aber du kannst es dem compiler ermöglichen, divisionen herauszuwerfen und ihn stattdessen multiplikationen rechnen lassen und ergebnisse die du mehrmals braucht in variablen ablegen, damit der Compiler es nicht mehrfach berechnet und so Ergebnisse auch in registern halten kann. z.B.:

Code:

 
Color := AddVector(Color, CalculateColor);
 
atd1000 = (1.0/1.000)*aTime; 
//So zwingst du den Compiler zur multiplikation und division zur Compilezeit. 
//Hinten dividieren nötigte Delphi zu meiner Zeit immer zu echten Divisionen
//Nachzuprüfen im CPU-Fenster <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->
 
Speed := Speed + (Acceleration*atd1000);
SpdTime = Speed*atd1000; //brauchen wir ja häufiger
 
Position[0] := Position[0] + Direction[0] * SpdTime;
Position[1] := Position[1] + Direction[1] * SpdTime;
Position[2] := Position[2] + Direction[2] * SpdTime;
LiveSpan := LiveSpan - aTime;
Age := Age + aTime;
 

Den gleichen Spaß kannst du in CalculateColor auch machen. EIn bsichen Tempo kannst du so herausholen. Leider gibt es die Seite Optimalcode nicht mehr, da standen viele solcher Tipps für Delphi drinne. Ansonsten musst du halt mal mit Stift und papier deine Rechnungen durchklopfen und sehen, ob sich was vereinfachen lässt - manchmal merkt man dann, daß man noch viel Scheiß rauswerfen kann.

Nach oben

Seite 1 von 1

[ 2 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 9 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.