Drehsinn von Ebenen

[Bjoerk]

Für D2 hab ich's doch direkt über deinem Post gepostet?

Delphi-Quellcode:

function TD2Points.ClockwiseOrder(const J: integer): boolean;
var
  I, K: integer;
  D: double;
begin
  I := Prev(J);
  K := Next(J);
  D := FItems[I].X * FItems[J].Y + FItems[J].X * FItems[K].Y + FItems[K].X * FItems[I].Y
    - FItems[J].Y * FItems[K].X - FItems[K].Y * FItems[I].X - FItems[I].Y * FItems[J].X;
  Result := D > 0;
end;

So gehts für D3 schon mal nicht.

Code:

     xA, yA, zA, 1
     xB, yB, zB, 1
Det   xC, yC, zC, 1  > 0
      0,  0,  0, 1