Drehsinn von Ebenen

[Jens01]

Meinst Clockwise sowas?

Such mal nach "clockwise" auf der Seite.

So sieht die Funktion bei mir aus:

Delphi-Quellcode:

function TPolygon.IsClockwiseXY: Boolean;
// Paul Bourk - A = Area des Polygons
var
  A: Double;
  i: Integer;
begin
  A      := 0;
  for i  := 0 to Count - 2 do
    A    := A + (Self[i].X * Self[i + 1].Y - Self[i + 1].X * Self[i].Y);
  A      := A / 2;
  Result := A < 0;
end;

Bin mir aber nicht ganz sicher, ob es das ist, was Du suchst.