geometry/src/Axis.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE Axis;

IMPORT Word;
Axis.T.Hor and Axis.T.Ver are Trestle's names for the horizontal and vertical axes. Axis.Other exchanges Hor and Ver.

Index: screen, coordinate system

TYPE T = {Hor, Ver};

CONST Other = ARRAY T OF T {T.Ver, T.Hor};

PROCEDURE Compare (a, b: T): [-1 .. 1];
== RETURN (a - b)

PROCEDURE Equal (a, b: T): BOOLEAN;
== RETURN (a = b)

PROCEDURE Hash (a: T): Word.T;
== RETURN ORD (a)

END Axis.