<> <> <> <> DIRECTORY D2Basic USING [Vector]; D2Orient: CEDAR DEFINITIONS = BEGIN <> Orientation: TYPE = MACHINE DEPENDENT {original(0), mirrorX(1), rotate90(2), rotate90X(3), rotate180(4), rotate180X(5), rotate270(6), rotate270X(7)}; <> <<[Reflection in x means: modify x coordinates, leave y coordinates]>> Transformation: TYPE = RECORD [ off: D2Basic.Vector _ [0, 0], orient: Orientation _ original ]; <> END.