(******************************************************************************
*                                MRTX3D1 .DEF                                 *
*                              ABO Software Dep.                              *
*                                                                             *
* Purpose : To provide a 3D transformation matrix.                            *
*                                                                             *
*   Notes : Also included is a routine to write the matrix to the standard    *
*         io device and a imatrix constant.                                   *
*                                                                             *
*         Version Date : 12/6/91                                              *
******************************************************************************)
DEFINITION MODULE MTRX3D1;

TYPE
  Array3D   = ARRAY[1..4] OF REAL;
  Matrix3D  = ARRAY[1..4] OF Array3D;

CONST
  imatrix   = Matrix3D(Array3D(1.0, 0.0, 0.0, 0.0),
                       Array3D(0.0, 1.0, 0.0, 0.0),
                       Array3D(0.0, 0.0, 1.0, 0.0),
                       Array3D(0.0, 0.0, 0.0, 1.0));

PROCEDURE debugm(m1     :Matrix3D);

PROCEDURE mult (m1,m2  : Matrix3D):Matrix3D;

END MTRX3D1.
