Zitat:
... kann ich die metaballs ...
Lesen und richtig lesen ...
Ü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
//...