Einzelnen Beitrag anzeigen

e-gon

Registriert seit: 7. Jul 2003
Ort: Stuttgart
154 Beiträge
 
Delphi 6 Enterprise
 
#7

AW: Polygon - Punkte im Uhrzeigersinn

  Alt 18. Aug 2017, 13:45
Die Lösung war die Gaußsche Trapezformel.

Delphi-Quellcode:
var
  P: Array of TPoint;
  n,i: Word;
  Summe: Extended;

...

Summe:= 0;
n:= Length(P);
for i:= 0 to n-1 do Summe:= Summe+(P[i].Y+P[(i+1) mod n].Y)*(P[i].X+P[(i+1) mod n].X);
Wenn Summe>0 dann Uhrzeigersinn, sonst Gegenuhrzeigersinn.

Gruß und Danke an alle!
e-gon
  Mit Zitat antworten Zitat