DIRECTORY G2dBasic, Imager;

G2dMatrix: CEDAR DEFINITIONS
~ BEGIN

singular:	ERROR;
Pair:			TYPE ~ G2dBasic.Pair;
Triple:		TYPE ~ G2dBasic.Triple;
Rectangle:	TYPE ~ Imager.Rectangle;

Matrix:		TYPE ~ RECORD [row1, row2, row3: Triple];
Identity: PROC RETURNS [Matrix];

Transpose: PROC [m: Matrix] RETURNS [Matrix];
Determinant: PROC [m: Matrix] RETURNS [REAL];
Adjoint: PROC [m: Matrix] RETURNS [Matrix];

Invert: PROC [m: Matrix] RETURNS [Matrix];
Mul: PROC [left, rite: Matrix] RETURNS [Matrix];
Rotate: PROC [mat: Matrix, radians: REAL] RETURNS [Matrix];
Scale: PROC [mat: Matrix, scale: Pair] RETURNS [Matrix];
Translate: PROC [mat: Matrix, translate: Pair] RETURNS [Matrix];
Transform: PROC [p: Triple, mat: Matrix] RETURNS [Triple];
UnitSquareToQuadrilateral: PROC [p1, p2, p3, p4: Pair] RETURNS [Matrix];
QuadrilateralToRectangle: PROC [p1, p2, p3, p4: Pair, rectangle: Rectangle]
RETURNS [Matrix];

END.
  X  
G2dMatrix.mesa
Copyright Ó 1988, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, July 2, 1992 4:37 pm PDT

Type Declarations
						That is,   [row1.x	row1.y	row1.z]
								  	[row2.x	row2.y	row2.z]
								  	[row3.x	row3.y	row3.z]
Basic 3 by 3 Matrix Operations
Return the identity matrix.
Return the transpose of the matrix.

Return the determinant of the matrix.

Return the adjoint of the matrix.
Invert the matrix.

Post multiply the left by the rite.

Rotate the matrix (right-handed) by the angle in radians.

Scale the matrix by the scale pair.

Translate the matrix by the translate pair.

Post multiply the triple p by the matrix.
Transformation Miscellany
Return 2d perspective transformation of unit square {(0,0), (0,1), (1,1), (1,0)} to quadrilateral.

Return 2d perspective transformation of quadilateral to rectangle.
Ê  –"cedarcode" style•NewlineDelimiter
™ ™Jšœ	Ïeœ6™BJ™%J™ JšÏk	œ˜J˜ —šÐbl	œžœž˜Jšœž˜J˜ Jšœ	žœ˜—headšÏl™Jšœžœ˜Jšœ	žœ˜ šœ
žœ˜#J˜ —šœžœžœ˜2J™'J™!J™!——š ™šÏnœžœžœ
˜ J™J˜ —š¡	œžœžœ
˜-J™#J™ —š¡œžœžœžœ˜-J™%J™ —š¡œžœžœ
˜+J™!J˜ —š¡œžœžœ
˜*J™J™ —š¡œžœžœ
˜0J™#J™ —š¡œžœžœžœ
˜;J™9J™ —š¡œžœžœ
˜8J™#J™ —š¡	œžœ žœ
˜@J™+J™ —š¡	œžœžœ
˜:J™)——š ™š¡œžœžœ
˜HJ™bJ™ —š¡œžœ-˜KJšžœ
˜J™B——J˜ Jšžœ˜— …—      	  