Copyright (C) 1994, Digital Equipment Corp. INTERFACEAxis ; 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.