D2Basic.mesa. Provides basic types for use in Planar CAD Tools.
Copyright © 1984, 1986 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, December 18, 1984 9:20:14 am PST
Last edited by: Christian Jacobi, October 27, 1986 10:16:49 am PST
D2Basic: CEDAR DEFINITIONS =
BEGIN
Defines integer based basic distances and areas for two dimensional CAD tools.
Number: TYPE = INT;
Vector: TYPE = RECORD [x, y: Number];
Rect:
TYPE =
RECORD [x1, y1, x2, y2: Number];
A Rect is called normalized if (x1>x2) OR (y1>y2) means that the Rect is empty.
Rects are normalized, except if a special comment denies.
END.