DIRECTORY IPImagerBasic USING [Pair, Transformation]; IPTransform: CEDAR DEFINITIONS = BEGIN OPEN IPImagerBasic; DRound: PROC[p: Pair] RETURNS[Pair]; MakeT: PROC[a, b, c, d, e, f: REAL] RETURNS[Transformation]; Translate: PROC[x, y: REAL] RETURNS[Transformation]; Rotate: PROC[a: REAL] RETURNS[Transformation]; Scale: PROC[s: REAL] RETURNS[Transformation]; Scale2: PROC[sx, sy: REAL] RETURNS[Transformation]; Concat: PROC[m, n: Transformation] RETURNS[Transformation]; Invert: PROC[m: Transformation] RETURNS[Transformation]; Transform, Tp: PROC[m: Transformation, p: Pair] RETURNS[Pair]; TransformVec, Tv: PROC[m: Transformation, v: Pair] RETURNS[Pair]; InverseTransform, ITp: PROC[m: Transformation, p: Pair] RETURNS[Pair]; InverseTransformVec, ITv: PROC[m: Transformation, v: Pair] RETURNS[Pair]; RoundXY: PROC[m: Transformation, p: Pair] RETURNS[Pair]; RoundXYVec: PROC[m: Transformation, v: Pair] RETURNS[Pair]; CopyTransformation: PROC[m: Transformation] RETURNS[Transformation]; END. JIPTransform.mesa Last edited by: Doug Wyatt, April 6, 1983 9:30 pm ΚΙ˜headšœ™šœ™Jšœ!™!—J˜šΟk ˜ Jšœœ˜+—J˜—šœ œ ˜Jšœœœ˜J˜JšΟnœœ œ˜$J˜Jšžœœœœ˜J˜Jšž œžœœœ˜AJ˜Jšžœžœœœ˜FJ˜Jšžœžœœœ˜IJ˜Jšžœœœ˜8J˜Jšž œœœ˜;J˜Jšžœœœ˜DJ˜Jšœ˜——…—ς