
<<IPTransform.mesa>>
<<Last edited by:>>
<<Doug Wyatt, April 6, 1983 9:30 pm>>

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.