DIRECTORYImagerTransformation,GGModelTypes,GGTransform;GGTransformImpl: CEDAR PROGRAMIMPORTS ImagerTransformationEXPORTS GGTransform =BEGINPoint: TYPE = GGModelTypes.Point;Transform: PUBLIC PROC [m: ImagerTransformation.Transformation, p: Point] RETURNS [newP: Point] =  {result: ImagerTransformation.VEC;result _ ImagerTransformation.Transform[m, [p[1], p[2]] ];newP _ [result.x, result.y];};RotateAboutPoint: PUBLIC PROC [origin: Point, degrees: REAL] RETURNS [m: ImagerTransformation.Transformation] = {m _ ImagerTransformation.Translate[ [-origin[1], -origin[2]] ];m _ ImagerTransformation.PostRotate[m, degrees];m _ ImagerTransformation.PostTranslate[m, [origin[1], origin[2]]];};ScaleAboutPoint: PUBLIC PROC [origin: Point, scalar: REAL] RETURNS [m: ImagerTransformation.Transformation] = {m _ ImagerTransformation.Translate[ [-origin[1], -origin[2]] ];m _ ImagerTransformation.PostScale[m, scalar];m _ ImagerTransformation.PostTranslate[m, [origin[1], origin[2]]];};ScaleUnevenAboutPoint: PUBLIC PROC [origin: Point, scalarX: REAL, scalarY: REAL] RETURNS [m: ImagerTransformation.Transformation] = {m _ ImagerTransformation.Translate[ [-origin[1], -origin[2]] ];m _ ImagerTransformation.PostScale2[m, [scalarX, scalarY]];m _ ImagerTransformation.PostTranslate[m, [origin[1], origin[2]]];};END.    Ö  GGTransformImpl.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Last edited by Bier on August 19, 1985 2:38:35 pm PDTContents:  A layer on top of ImagerTransformation for use in Gargoyle.Êu  ˜ head1™Icodešœ
Ïmœ1™<J™5J™F—J™ šÏk	˜	Jšœ˜Jšœ˜Jšœ˜J˜ —šœžœž˜Jšœ˜Jšœ˜—Jšž˜J˜ Jšœžœ˜!J˜ šÏn	œžœ4žœ˜dJšœžœ˜!Jšœ:˜:Jšœžœ˜J˜—J˜ šŸœžœžœžœ-˜qJšœ?˜?Jšœ0˜0JšœB˜BJ˜—J˜ š
Ÿœžœžœžœžœ-˜oJšœ?˜?Jšœ.˜.JšœB˜BJ˜—J˜ š
Ïbœžœžœžœžœ-˜…Jšœ?˜?Jšœ7žœ˜;JšœB˜BJ˜—J˜ Jšžœ˜J˜ — …—    <  ‡  