...Signed Volume in 2D?

function Signed(x1, y1, x2, y2, Px, Py: Double): Double;
begin
  Result := (x2 - x1) * (py - y1) - (px - x1) * (y2 - y1);
end;
(* End Of Signed *)

printed from
www.swissdelphicenter.ch
developers knowledge base