"Making Galaxies" von C++ nach Delphi

[stho]

Ja, da hast du recht.
Das BMP gebe ich nicht frei... Aber für die Auftretenden Probleme oder das Ausbleiben des gewünschten Ergebnisses ist dies in meinen Augen unerheblich.
Doch selbst das Nutzen der Randomize-Funktion bringt keine Veränderung in der Rnd-Darstellung... (Siehe Anhang)

Die Funktion bildet zwar eine schöne Linie, jedoch nicht das Resultat was eigentlich erwartet werden würde.
Außerdem wird immer mit 2 Arm gezeichnet was ein bisschen komisch wirkt.
(Unabhängig davon mit welchem Wert ich diese Funktion "füttere")


EDIT:
Ein bisschen Rechtschreibfehler beseitigt, damit das den Text lesen kann ohne Augenkrebs zu bekommen

[implementation]

Das Problem ist, dass du randomize viel zu oft aufrufst.
Du solltest es nur einmal am Anfang aufrufen und später nicht mehr:

Delphi-Quellcode:

 Procedure Func1;
    function FRandom(fStart, fEnd: Extended): Extended;
    begin
      result := fStart + (fEnd - fStart) * Random;
    end;

  const
    m_nArms = 3;
    nStars = 20000;
    fRadius = 800;
  var
    FArmAngle : Extended;
    FAngularSpread : Extended;
    I: Integer;
    fQ, fK, fR, fA, fX, fY : Extended;
    aBMP : TBitmap;
  begin
    randomize;
    ...
  end;

[stho]

Danke für deine Antwort
Aber genau das habe ich in meinem Code schon versucht. Leider hat dies keinen erfolg