Determine if two triangles overlap: Difference between revisions

No edit summary
Line 29:
FUNCTION Same_Side (A, B, M, N : Point) RETURN Boolean IS
FUNCTION Aff (A, B , U : Point) RETURN Float IS
((B (1) - A (1)) * (U (0) - A (0)) + (A (0) - B (0)) * (U (1) - A (1)));
BEGIN
RETURN Aff (A, B, M) * Aff (A, B, N) >= 0.0;
END Same_Side;
Anonymous user