Forum: Multimedia
by timog,
30. Mai 2019
:oops: Danke :-)
Bist Du bei der Recherche auch über James Kirby's Seite gestolpert?
Dort wird das Voronoi Diagramm und die Delaunay-Triangulierung dargestellt. Das Voronoi ist offen, von Linien begrenzt und kein geschlossenes Polygon, aber die Eckpunkte sollten vorhanden sein - vielleicht hilft das weiter?
Ansonsten: Der Quellcode ist Delphi 2.0 (Filedatum von 2000), verwendet...
Forum: Multimedia
by timog,
29. Mai 2019
Dieser Ansatz dürfte langsamer als die Polygon Methode von RosettaCode.org sein, aber sie tut's - glaube ich :-D
procedure TformMain.DrawVoronoi(AImage: TImage; const AP, ACells: Integer; ADistanceType: TDistanceType);
var
px, py: array of Integer;
LColor: array of TColor;
LImg: TBitmap;
n, i, x, y, j: Integer;
d1, d2: Double;