Anonymous user
Determine if two triangles overlap: Difference between revisions
→{{header|Ada}}
No edit summary |
|||
Line 29:
FUNCTION Same_Side (A, B, M, N : Point) RETURN Boolean IS
FUNCTION Aff (
((B (1) - A (1)) * (U (0) - A (0)) + (A (0) - B (0)) * (U (1) - A (1)));
BEGIN
RETURN Aff (
END Same_Side;
|