[OS] Metaballs-About Preview

[himitsu]

Über die Variablen d und m in TMetaballs.Calc werden die Pixel um die Metabals berechnet und zusammen mit den m-Vergleichen in den nachfolgenden IFs wird die Größe (der sichtbare Bereich) vorgegeben ... gößere Zahlen = kleinere Bälle.

Und vergiß nicht die Berechnung für die Randkollision anzupasen.

[turboPASCAL]

Zitat:

... kann ich die metaballs ...

Lesen und richtig lesen ...

Zitat von himitsu:

Über die Variablen d und m in TMetaballs.Calc werden die Pixel um die Metabals berechnet und zusammen mit den m-Vergleich in den nachfolgenden IFs

Genau.

Delphi-Quellcode:

// ...

  MetaBalls := TMetaballs.Create(Self.Handle, PaintBox1.BoundsRect, 5); // <-<< geändert, 5 = Anzahl der MetaBälle
  try
    MetaBalls.SrinkX := 20;                // <-<< Abstand zum BoundsRect ("Bande")
    MetaBalls.SrinkY := 20;

    MetaBalls.BorderColor := clRed;        // <-<< neu
    MetaBalls.InnerColor := clRed;         // <-<< wird nicht genutzt !

    MetaBalls.MBallsSize := 0.0025;        // <-<< neu 
    MetaBalls.MBallsBorderSize := 0.0005;  // <-<< neu

    //...