-- transformation package --M. Stone October 23, 1979 4:04 PM -- Last Edited by: Stone, September 19, 1985 12:18:56 pm PDT DIRECTORY Rope USING [ROPE], PointDefs: FROM "PointDefs"; XFormDefs: CEDAR DEFINITIONS = BEGIN OPEN PointDefs; Axis: TYPE = {x,y,z}; XFormMatrix: TYPE = ARRAY [1..3] OF ObjPt; XFMDescriptor: TYPE = REF XFormMatrix; ProblemWithXForms: SIGNAL[string: Rope.ROPE]; --Exported by TransformFns InitXForms: PROCEDURE[matrix: XFMDescriptor]; Rotate: PROCEDURE[ theta: REAL, axis: XFormDefs.Axis,matrix: XFMDescriptor]; Scale: PROCEDURE[ scale: ARRAY[X..Y] OF REAL,matrix: XFMDescriptor]; Translate: PROCEDURE[ dist: ARRAY[X..Y] OF REAL,matrix: XFMDescriptor]; XFormPt: PROCEDURE [pt: ObjPt,matrix: XFMDescriptor] RETURNS[ObjPt]; XForm4Pts: PROCEDURE[ pts: PointDefs.ObjPtSequence,matrix: XFMDescriptor]; XForm6Pts: PUBLIC PROCEDURE[ pts: PointDefs.ObjPtSequence,matrix: XFMDescriptor]; GetInverseXForm: PROCEDURE RETURNS[matrix: XFMDescriptor]; END. Ęâ˜Jš`Īc}œĪk œžœžœžœžœžœžœžœžœžœžœžœžœ!žœžœœĪn œž œŸœž œ žœ/Ÿœž œ žœžœžœžœžœŸ œž œžœžœžœžœžœŸœž œ#žœ Ÿ œž œ7Ÿ œžœž œ7Ÿœž œžœžœ˜Ī—…—Ōē