D2Orient.mesa. Provides basic types for use in Planar CAD Tools.
Copyright © 1986 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, October 27, 1986 10:20:14 am PST
Last edited by: Christian Jacobi, October 27, 1986 10:20:17 am PST
DIRECTORY
D2Basic USING [Vector];
D2Orient: CEDAR DEFINITIONS =
BEGIN
Defines orientations and transformations for two dimensional CAD tools..
Orientation:
TYPE =
MACHINE
DEPENDENT {original(0), mirrorX(1), rotate90(2), rotate90X(3), rotate180(4), rotate180X(5), rotate270(6), rotate270X(7)};
An orientation represents an anticlockwise rotation maybe followed by a reflection in x.
[Reflection in x means: modify x coordinates, leave y coordinates]
Transformation:
TYPE =
RECORD [
off: D2Basic.Vector ← [0, 0],
orient: Orientation ← original
];
A transformation represents an orientation followed by a translation.
END.