[OS] Metaballs-About Preview

[turboPASCAL]

Aus diesem Thread: Metaballs (opengl) !? entstand ein kleines Projekt.

[Valle]

Hi!

Coole Animation, sehr interessant was man so aus Canvas rausholen kann. (Zumindest wenn du noch Canvas verwendest, wie du es im verlinkten Thread getan hast) Sieht wirklich klasse aus! Btw: "Autor" schreibt man "author" im Englischen - und klein in dem Kontext.

Liebe Grüße,
Valle *gäähhn*

[lbccaleb]

Zitat von Valle:

Btw: "Autor" schreibt man "author" im Englischen - und klein in dem Kontext.

Wenn wir schon bei Rechtchreibfehler sind, dann solltest vllt. "witeout" in "without" umändern


Aber schicker About dialog....

[TUX_der_Pinguin]

Hi,

ich wollte mir gerade mal dein Projekt ansehen und dazu wollte ich die Anhänge herunterladen, bei der Datei
"MetaballsDemo nonVCL.exe" hat mein Viren Scanner angeschlagen folgendes wurde gemeldet.

http://www2.spackenz.de/~schwabbel/download/GDATA.JPG

www.virustotal.com Ergebnis

Ich vermute mal es liegt eine Falschmeldung vor, aber sicher ist sicher. Bei der 2. Datei wird nichts gemeldet.

mfg

TUX

[Matze]

Irgendwie fasziniert mich das Dingens.

Edit: Hier gibt's das ganze übrigens auch in einer 3D-Version (Delphi + OpenGL)

[turboPASCAL]

@Valle, lbccaleb
ja, alles Schlechtschreibungsfehler...

@TUX_der_Pinguin,
GData meldet einen Verdacht der aber nicht Wahr ist.
Das liegt am Aufbau der nonVCL-Exe.

Die "Animation" läuft über Bitmaps und Canvas, bzw. direktem Zugriff auf den Pointer der
Bitmappixel.

Per Opengl wollt ich es nicht machen. Wo wäre denn dann der Spass geblieben...

@DP,

Zitat:

Allgemeiner Fehler
Ran into problems sending Mail. Response: 535 5.7.0 Error: authentication failed

Huch, authentication failed ?

[lbccaleb]

Ahh, das ja alles Nebensache, Hauptsache ist doch, dass die Metaballs gut aussehen, und das tun Sie. Für mich könnten Sie nur noch nen bissel schneller sein.

[Dracoon]

Danke dir " turboPASCAL " =)

@lbccaleb kannst du bei zeile 89 anpassen.

Delphi-Quellcode:

{Richtung * Geschwindigkeit}
FMetaball[i].vx := (Random(2) * 2 - 1) + (Random * 0.5 + 0.5);
FMetaball[i].vy := (Random(2) * 2 - 1) + (Random * 0.5 + 0.5);

und bei zeile 196, kannst du einstellen wie nah die metaballs an den rand des fensters kommen.

Delphi-Quellcode:

procedure TForm1.TimerMetaballTimer(Sender: TObject);
const
  bx = 80;
  by = 40;
var
  i: Integer;

gibts da die möglichkeit die metaballs auch in größe und farbe anzupassen? für ein about window sind die 3 doch recht groß
farbe z.b über einen timer der alle paar sekunden selbst wechselt.

[blackfin]

Das ist ja mal der Hammer!

Echt cooles Teil! Und die Musik ist auch toll!

Hut ab!

[Dracoon]

ein prob hab ich damit aber noch.
da ich das als aboutwindow mit einbinden möchte,
sollte der text und die animation auch erst dann starten wenn das about fenster aufgerufen wird.

aber der text und die animation laufen im hintergrund mit sobald du das programm startest.