TMatriz4 = CLASS
PRIVATE
fComponentes: ARRAY [1..4, 1..4] OF REAL;
FUNCTION AsignaComponente (m, n: INTEGER; v: REAL);
PROCEDURE ObtieneComponente (m, n: INTEGER): REAL;
PUBLIC
FUNCTION Determinante: REAL;
FUNCTION MultiplicaMatriz (aMatriz: TMatriz4): TMatriz4;
FUNCTION MultiplicaVector (aVector: TVector3D): TVector3D;
Componente[m, n: INTEGER]: REAL READ ObtieneComponente WRITE AsignaComponente;
END;