INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "Abstract class point"
project: "Visual Eiffel"
revision: "$Revision: 1.1 $"
copyright: "Copyright (C) 1996-2005 Object Tools Group"
license: "http://visual-eiffel.com/license"
cluster: grape
class POINT
inherit

MATH
end
creation

make
feature

x: INTEGER

y: INTEGER

make (xp, yp: INTEGER)

move (xp, yp: INTEGER)

distance (other: POINT): REAL
-- distance between two points
require
other /= void

distance_to_line (a, b: POINT): REAL
-- distance to line ab (piece of line)
-- if a=b then Result = distance(a)
--
require
a /= void and b /= void

nearest_point (pl: ARRAY_MODEL [POINT]): POINT
-- nearest point from pl
end -- class POINT

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES