Copyright © 1985 by Xerox Corporation. All rights reserved.

Created by: Maureen Stone, October 23, 1979 4:04 PM

Last Edited by: Ken Pier, November 13, 1985 4:17:14 pm PST

GriffinPoint USING [ObjPt, ObjPtSequence, X, Y],

Rope USING [ROPE];

ProblemWithXForms: SIGNAL[string: Rope.ROPE];

Axis: TYPE = {x, y, z};

XFMDescriptor: TYPE = REF XFormMatrix;

XFormMatrix: TYPE = ARRAY [1..3] OF GriffinPoint.ObjPt;

GetInverseXForm: PROC RETURNS [XFMDescriptor];

InitXForms: PROC [matrix: XFMDescriptor];

Rotate: PROC [theta: REAL, axis: Axis, matrix: XFMDescriptor];

Scale: PROC [scale: ARRAY[GriffinPoint.X..GriffinPoint.Y] OF REAL, matrix: XFMDescriptor];

Translate: PROC [dist: ARRAY[GriffinPoint.X..GriffinPoint.Y] OF REAL, matrix: XFMDescriptor];

XForm4Pts: PROC [pts: GriffinPoint.ObjPtSequence, matrix: XFMDescriptor];

XForm6Pts: PROC [pts: GriffinPoint.ObjPtSequence, matrix: XFMDescriptor];

XFormPt: PROC [pt: GriffinPoint.ObjPt, matrix: XFMDescriptor] RETURNS [GriffinPoint.ObjPt];