fpc/rtl/inc/matrix.pp

unit matrix;
{
    $Id$
    This file is part of the Free Pascal run time library.
    Copyright (c) 2004 by Daniel Mantione

    See the file COPYING.FPC, included in this distribution,
    for details about the copyright.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

 **********************************************************************}

{*****************************************************************************}

interface

{*****************************************************************************}

{$MACRO on}

type    Tvector2_single_data=array[0..1] of single;
        Tvector2_double_data=array[0..1] of double;
        Tvector2_extended_data=array[0..1] of extended;

        Tvector3_single_data=array[0..2] of single;
        Tvector3_double_data=array[0..2] of double;
        Tvector3_extended_data=array[0..2] of extended;

        Tvector4_single_data=array[0..3] of single;
        Tvector4_double_data=array[0..3] of double;
        Tvector4_extended_data=array[0..3] of extended;

        Tmatrix2_single_data=array[0..1,0..1] of single;
        Tmatrix2_double_data=array[0..1,0..1] of double;
        Tmatrix2_extended_data=array[0..1,0..1] of extended;

        Tmatrix3_single_data=array[0..2,0..2] of single;
        Tmatrix3_double_data=array[0..2,0..2] of double;
        Tmatrix3_extended_data=array[0..2,0..2] of extended;

        Tmatrix4_single_data=array[0..3,0..3] of single;
        Tmatrix4_double_data=array[0..3,0..3] of double;
        Tmatrix4_extended_data=array[0..3,0..3] of extended;

        Tvector2_single=object
            data:Tvector2_single_data;
            constructor init_zero;
            constructor init_one;
            constructor init(a,b:single);
            function length:single;
            function squared_length:single;
        end;

        Tvector2_double=object
            data:Tvector2_double_data;
            constructor init_zero;
            constructor init_one;
            constructor init(a,b:double);
            function length:double;
            function squared_length:double;
        end;

        Tvector2_extended=object
            data:Tvector2_extended_data;
            constructor init_zero;
            constructor init_one;
            constructor init(a,b:extended);
            function length:extended;
            function squared_length:extended;
        end;

        Tvector3_single=object
            data:Tvector3_single_data;
            constructor init_zero;
            constructor init_one;
            constructor init(a,b,c:single);
            function length:single;
            function squared_length:single;
        end;

        Tvector3_double=object
            data:Tvector3_double_data;
            constructor init_zero;
            constructor init_one;
            constructor init(a,b,c:double);
            function length:double;
            function squared_length:double;
        end;

        Tvector3_extended=object
            data:Tvector3_extended_data;
            constructor init_zero;
            constructor init_one;
            constructor init(a,b,c:extended);
            function length:extended;
            function squared_length:extended;
        end;

        Tvector4_single=object
            data:Tvector4_single_data;
            constructor init_zero;
            constructor init_one;
            constructor init(a,b,c,d:single);
            function length:single;
            function squared_length:single;
        end;

        Tvector4_double=object
            data:Tvector4_double_data;
            constructor init_zero;
            constructor init_one;
            constructor init(a,b,c,d:double);
            function length:double;
            function squared_length:double;
        end;

        Tvector4_extended=object
            data:Tvector4_extended_data;
            constructor init_zero;
            constructor init_one;
            constructor init(a,b,c,d:extended);
            function length:extended;
            function squared_length:extended;
        end;

        Tmatrix2_single=object
            data:Tmatrix2_single_data;
            constructor init_zero;
            constructor init_identity;
            constructor init(aa,ab,ba,bb:single);
            function get_column(c:byte):Tvector2_single;
            function get_row(r:byte):Tvector2_single;
            procedure set_column(c:byte;const v:Tvector2_single);
            procedure set_row(r:byte;const v:Tvector2_single);
            function determinant:single;
            function inverse(Adeterminant:single):Tmatrix2_single;
            function transpose:Tmatrix2_single;
        end;

        Tmatrix2_double=object
            data:Tmatrix2_double_data;
            constructor init_zero;
            constructor init_identity;
            constructor init(aa,ab,ba,bb:double);
            function get_column(c:byte):Tvector2_double;
            function get_row(r:byte):Tvector2_double;
            procedure set_column(c:byte;const v:Tvector2_double);
            procedure set_row(r:byte;const v:Tvector2_double);
            function determinant:double;
            function inverse(Adeterminant:double):Tmatrix2_double;
            function transpose:Tmatrix2_double;
        end;

        Tmatrix2_extended=object
            data:Tmatrix2_extended_data;
            constructor init_zero;
            constructor init_identity;
            constructor init(aa,ab,ba,bb:extended);
            function get_column(c:byte):Tvector2_extended;
            function get_row(r:byte):Tvector2_extended;
            procedure set_column(c:byte;const v:Tvector2_extended);
            procedure set_row(r:byte;const v:Tvector2_extended);
            function determinant:extended;
            function inverse(Adeterminant:extended):Tmatrix2_extended;
            function transpose:Tmatrix2_extended;
        end;

        Tmatrix3_single=object
            data:Tmatrix3_single_data;
            constructor init_zero;
            constructor init_identity;
            constructor init(aa,ab,ac,ba,bb,bc,ca,cb,cc:single);
            function get_column(c:byte):Tvector3_single;
            function get_row(r:byte):Tvector3_single;
            procedure set_column(c:byte;const v:Tvector3_single);
            procedure set_row(r:byte;const v:Tvector3_single);
            function determinant:single;
            function inverse(Adeterminant:single):Tmatrix3_single;
            function transpose:Tmatrix3_single;
        end;

        Tmatrix3_double=object
            data:Tmatrix3_double_data;
            constructor init_zero;
            constructor init_identity;
            constructor init(aa,ab,ac,ba,bb,bc,ca,cb,cc:double);
            function get_column(c:byte):Tvector3_double;
            function get_row(r:byte):Tvector3_double;
            procedure set_column(c:byte;const v:Tvector3_double);
            procedure set_row(r:byte;const v:Tvector3_double);
            function determinant:double;
            function inverse(Adeterminant:double):Tmatrix3_double;
            function transpose:Tmatrix3_double;
        end;

        Tmatrix3_extended=object
            data:Tmatrix3_extended_data;
            constructor init_zero;
            constructor init_identity;
            constructor init(aa,ab,ac,ba,bb,bc,ca,cb,cc:extended);
            function get_column(c:byte):Tvector3_extended;
            function get_row(r:byte):Tvector3_extended;
            procedure set_column(c:byte;const v:Tvector3_extended);
            procedure set_row(r:byte;const v:Tvector3_extended);
            function determinant:extended;
            function inverse(Adeterminant:extended):Tmatrix3_extended;
            function transpose:Tmatrix3_extended;
        end;

        Tmatrix4_single=object
            data:Tmatrix4_single_data;
            constructor init_zero;
            constructor init_identity;
            constructor init(aa,ab,ac,ad,ba,bb,bc,bd,ca,cb,cc,cd,da,db,dc,dd:single);
            function get_column(c:byte):Tvector4_single;
            function get_row(r:byte):Tvector4_single;
            procedure set_column(c:byte;const v:Tvector4_single);
            procedure set_row(r:byte;const v:Tvector4_single);
            function determinant:single;
            function inverse(Adeterminant:single):Tmatrix4_single;
            function transpose:Tmatrix4_single;
        end;

        Tmatrix4_double=object
            data:Tmatrix4_double_data;
            constructor init_zero;
            constructor init_identity;
            constructor init(aa,ab,ac,ad,ba,bb,bc,bd,ca,cb,cc,cd,da,db,dc,dd:double);
            function get_column(c:byte):Tvector4_double;
            function get_row(r:byte):Tvector4_double;
            procedure set_column(c:byte;const v:Tvector4_double);
            procedure set_row(r:byte;const v:Tvector4_double);
            function determinant:double;
            function inverse(Adeterminant:double):Tmatrix4_double;
            function transpose:Tmatrix4_double;
        end;

        Tmatrix4_extended=object
            data:Tmatrix4_extended_data;
            constructor init_zero;
            constructor init_identity;
            constructor init(aa,ab,ac,ad,ba,bb,bc,bd,ca,cb,cc,cd,da,db,dc,dd:extended);
            function get_column(c:byte):Tvector4_extended;
            function get_row(r:byte):Tvector4_extended;
            procedure set_column(c:byte;const v:Tvector4_extended);
            procedure set_row(r:byte;const v:Tvector4_extended);
            function determinant:extended;
            function inverse(Adeterminant:extended):Tmatrix4_extended;
            function transpose:Tmatrix4_extended;
        end;


{Operators to make different vectors assignable to each other}
operator := (const v:Tvector2_single) result:Tvector2_double;
operator := (const v:Tvector2_single) result:Tvector2_extended;
operator := (const v:Tvector2_double) result:Tvector2_single;
operator := (const v:Tvector2_double) result:Tvector2_extended;
operator := (const v:Tvector2_extended) result:Tvector2_single;
operator := (const v:Tvector2_extended) result:Tvector2_double;

operator := (const v:Tvector2_single) result:Tvector3_single;
operator := (const v:Tvector2_single) result:Tvector3_double;
operator := (const v:Tvector2_single) result:Tvector3_extended;
operator := (const v:Tvector2_double) result:Tvector3_single;
operator := (const v:Tvector2_double) result:Tvector3_double;
operator := (const v:Tvector2_double) result:Tvector3_extended;
operator := (const v:Tvector2_extended) result:Tvector3_single;
operator := (const v:Tvector2_extended) result:Tvector3_double;
operator := (const v:Tvector2_extended) result:Tvector3_extended;

operator := (const v:Tvector2_single) result:Tvector4_single;
operator := (const v:Tvector2_single) result:Tvector4_double;
operator := (const v:Tvector2_single) result:Tvector4_extended;
operator := (const v:Tvector2_double) result:Tvector4_single;
operator := (const v:Tvector2_double) result:Tvector4_double;
operator := (const v:Tvector2_double) result:Tvector4_extended;
operator := (const v:Tvector2_extended) result:Tvector4_single;
operator := (const v:Tvector2_extended) result:Tvector4_double;
operator := (const v:Tvector2_extended) result:Tvector4_extended;

operator := (const v:Tvector3_single) result:Tvector2_single;
operator := (const v:Tvector3_single) result:Tvector2_double;
operator := (const v:Tvector3_single) result:Tvector2_extended;
operator := (const v:Tvector3_double) result:Tvector2_single;
operator := (const v:Tvector3_double) result:Tvector2_double;
operator := (const v:Tvector3_double) result:Tvector2_extended;
operator := (const v:Tvector3_extended) result:Tvector2_single;
operator := (const v:Tvector3_extended) result:Tvector2_double;
operator := (const v:Tvector3_extended) result:Tvector2_extended;

operator := (const v:Tvector3_single) result:Tvector3_double;
operator := (const v:Tvector3_single) result:Tvector3_extended;
operator := (const v:Tvector3_double) result:Tvector3_single;
operator := (const v:Tvector3_double) result:Tvector3_extended;
operator := (const v:Tvector3_extended) result:Tvector3_single;
operator := (const v:Tvector3_extended) result:Tvector3_double;

operator := (const v:Tvector3_single) result:Tvector4_single;
operator := (const v:Tvector3_single) result:Tvector4_double;
operator := (const v:Tvector3_single) result:Tvector4_extended;
operator := (const v:Tvector3_double) result:Tvector4_single;
operator := (const v:Tvector3_double) result:Tvector4_double;
operator := (const v:Tvector3_double) result:Tvector4_extended;
operator := (const v:Tvector3_extended) result:Tvector4_single;
operator := (const v:Tvector3_extended) result:Tvector4_double;
operator := (const v:Tvector3_extended) result:Tvector4_extended;

operator := (const v:Tvector4_single) result:Tvector2_single;
operator := (const v:Tvector4_single) result:Tvector2_double;
operator := (const v:Tvector4_single) result:Tvector2_extended;
operator := (const v:Tvector4_double) result:Tvector2_single;
operator := (const v:Tvector4_double) result:Tvector2_double;
operator := (const v:Tvector4_double) result:Tvector2_extended;
operator := (const v:Tvector4_extended) result:Tvector2_single;
operator := (const v:Tvector4_extended) result:Tvector2_double;
operator := (const v:Tvector4_extended) result:Tvector2_extended;

operator := (const v:Tvector4_single) result:Tvector3_single;
operator := (const v:Tvector4_single) result:Tvector3_double;
operator := (const v:Tvector4_single) result:Tvector3_extended;
operator := (const v:Tvector4_double) result:Tvector3_single;
operator := (const v:Tvector4_double) result:Tvector3_double;
operator := (const v:Tvector4_double) result:Tvector3_extended;
operator := (const v:Tvector4_extended) result:Tvector3_single;
operator := (const v:Tvector4_extended) result:Tvector3_double;
operator := (const v:Tvector4_extended) result:Tvector3_extended;

operator := (const v:Tvector4_single) result:Tvector4_double;
operator := (const v:Tvector4_single) result:Tvector4_extended;
operator := (const v:Tvector4_double) result:Tvector4_single;
operator := (const v:Tvector4_double) result:Tvector4_extended;
operator := (const v:Tvector4_extended) result:Tvector4_single;
operator := (const v:Tvector4_extended) result:Tvector4_double;

{Vector to vector operations.}
operator + (const x,y:Tvector2_single) result:Tvector2_single;
operator + (const x,y:Tvector2_double) result:Tvector2_double;
operator + (const x,y:Tvector2_extended) result:Tvector2_extended;
operator + (const x,y:Tvector3_single) result:Tvector3_single;
operator + (const x,y:Tvector3_double) result:Tvector3_double;
operator + (const x,y:Tvector3_extended) result:Tvector3_extended;
operator + (const x,y:Tvector4_single) result:Tvector4_single;
operator + (const x,y:Tvector4_double) result:Tvector4_double;
operator + (const x,y:Tvector4_extended) result:Tvector4_extended;

operator - (const x,y:Tvector2_single) result:Tvector2_single;
operator - (const x,y:Tvector2_double) result:Tvector2_double;
operator - (const x,y:Tvector2_extended) result:Tvector2_extended;
operator - (const x,y:Tvector3_single) result:Tvector3_single;
operator - (const x,y:Tvector3_double) result:Tvector3_double;
operator - (const x,y:Tvector3_extended) result:Tvector3_extended;
operator - (const x,y:Tvector4_single) result:Tvector4_single;
operator - (const x,y:Tvector4_double) result:Tvector4_double;
operator - (const x,y:Tvector4_extended) result:Tvector4_extended;

operator - (const x:Tvector2_single) result:Tvector2_single;
operator - (const x:Tvector2_double) result:Tvector2_double;
operator - (const x:Tvector2_extended) result:Tvector2_extended;
operator - (const x:Tvector3_single) result:Tvector3_single;
operator - (const x:Tvector3_double) result:Tvector3_double;
operator - (const x:Tvector3_extended) result:Tvector3_extended;
operator - (const x:Tvector4_single) result:Tvector4_single;
operator - (const x:Tvector4_double) result:Tvector4_double;
operator - (const x:Tvector4_extended) result:Tvector4_extended;

operator * (const x,y:Tvector2_single) result:Tvector2_single;
operator * (const x,y:Tvector2_double) result:Tvector2_double;
operator * (const x,y:Tvector2_extended) result:Tvector2_extended;
operator * (const x,y:Tvector3_single) result:Tvector3_single;
operator * (const x,y:Tvector3_double) result:Tvector3_double;
operator * (const x,y:Tvector3_extended) result:Tvector3_extended;
operator * (const x,y:Tvector4_single) result:Tvector4_single;
operator * (const x,y:Tvector4_double) result:Tvector4_double;
operator * (const x,y:Tvector4_extended) result:Tvector4_extended;

operator ** (const x,y:Tvector2_single) result:single;
operator ** (const x,y:Tvector2_double) result:double;
operator ** (const x,y:Tvector2_extended) result:extended;
operator ** (const x,y:Tvector3_single) result:single;
operator ** (const x,y:Tvector3_double) result:double;
operator ** (const x,y:Tvector3_extended) result:extended;
operator ** (const x,y:Tvector4_single) result:single;
operator ** (const x,y:Tvector4_double) result:double;
operator ** (const x,y:Tvector4_extended) result:extended;

operator >< (const x,y:Tvector3_single) result:Tvector3_single;
operator >< (const x,y:Tvector3_double) result:Tvector3_double;
operator >< (const x,y:Tvector3_extended) result:Tvector3_extended;

{Vector/scalar operations.}
operator + (const x:Tvector2_single;y:single) result:Tvector2_single;
operator + (const x:Tvector2_double;y:double) result:Tvector2_double;
operator + (const x:Tvector2_extended;y:extended) result:Tvector2_extended;
operator + (const x:Tvector3_single;y:single) result:Tvector3_single;
operator + (const x:Tvector3_double;y:double) result:Tvector3_double;
operator + (const x:Tvector3_extended;y:extended) result:Tvector3_extended;
operator + (const x:Tvector4_single;y:single) result:Tvector4_single;
operator + (const x:Tvector4_double;y:double) result:Tvector4_double;
operator + (const x:Tvector4_extended;y:extended) result:Tvector4_extended;

operator - (const x:Tvector2_single;y:single) result:Tvector2_single;
operator - (const x:Tvector2_double;y:double) result:Tvector2_double;
operator - (const x:Tvector2_extended;y:extended) result:Tvector2_extended;
operator - (const x:Tvector3_single;y:single) result:Tvector3_single;
operator - (const x:Tvector3_double;y:double) result:Tvector3_double;
operator - (const x:Tvector3_extended;y:extended) result:Tvector3_extended;
operator - (const x:Tvector4_single;y:single) result:Tvector4_single;
operator - (const x:Tvector4_double;y:double) result:Tvector4_double;
operator - (const x:Tvector4_extended;y:extended) result:Tvector4_extended;

operator * (const x:Tvector2_single;y:single) result:Tvector2_single;
operator * (const x:Tvector2_double;y:double) result:Tvector2_double;
operator * (const x:Tvector2_extended;y:extended) result:Tvector2_extended;
operator * (const x:Tvector3_single;y:single) result:Tvector3_single;
operator * (const x:Tvector3_double;y:double) result:Tvector3_double;
operator * (const x:Tvector3_extended;y:extended) result:Tvector3_extended;
operator * (const x:Tvector4_single;y:single) result:Tvector4_single;
operator * (const x:Tvector4_double;y:double) result:Tvector4_double;
operator * (const x:Tvector4_extended;y:extended) result:Tvector4_extended;

operator / (const x:Tvector2_single;y:single) result:Tvector2_single;
operator / (const x:Tvector2_double;y:double) result:Tvector2_double;
operator / (const x:Tvector2_extended;y:extended) result:Tvector2_extended;
operator / (const x:Tvector3_single;y:single) result:Tvector3_single;
operator / (const x:Tvector3_double;y:double) result:Tvector3_double;
operator / (const x:Tvector3_extended;y:extended) result:Tvector3_extended;
operator / (const x:Tvector4_single;y:single) result:Tvector4_single;
operator / (const x:Tvector4_double;y:double) result:Tvector4_double;
operator / (const x:Tvector4_extended;y:extended) result:Tvector4_extended;

{Operators to make different matrixes assignable to each other}
operator := (const v:Tmatrix2_single) result:Tmatrix2_double;
operator := (const v:Tmatrix2_single) result:Tmatrix2_extended;
operator := (const v:Tmatrix2_double) result:Tmatrix2_single;
operator := (const v:Tmatrix2_double) result:Tmatrix2_extended;
operator := (const v:Tmatrix2_extended) result:Tmatrix2_single;
operator := (const v:Tmatrix2_extended) result:Tmatrix2_double;

operator := (const v:Tmatrix2_single) result:Tmatrix3_single;
operator := (const v:Tmatrix2_single) result:Tmatrix3_double;
operator := (const v:Tmatrix2_single) result:Tmatrix3_extended;
operator := (const v:Tmatrix2_double) result:Tmatrix3_single;
operator := (const v:Tmatrix2_double) result:Tmatrix3_double;
operator := (const v:Tmatrix2_double) result:Tmatrix3_extended;
operator := (const v:Tmatrix2_extended) result:Tmatrix3_single;
operator := (const v:Tmatrix2_extended) result:Tmatrix3_double;
operator := (const v:Tmatrix2_extended) result:Tmatrix3_extended;

operator := (const v:Tmatrix2_single) result:Tmatrix4_single;
operator := (const v:Tmatrix2_single) result:Tmatrix4_double;
operator := (const v:Tmatrix2_single) result:Tmatrix4_extended;
operator := (const v:Tmatrix2_double) result:Tmatrix4_single;
operator := (const v:Tmatrix2_double) result:Tmatrix4_double;
operator := (const v:Tmatrix2_double) result:Tmatrix4_extended;
operator := (const v:Tmatrix2_extended) result:Tmatrix4_single;
operator := (const v:Tmatrix2_extended) result:Tmatrix4_double;
operator := (const v:Tmatrix2_extended) result:Tmatrix4_extended;

operator := (const v:Tmatrix3_single) result:Tmatrix2_single;
operator := (const v:Tmatrix3_single) result:Tmatrix2_double;
operator := (const v:Tmatrix3_single) result:Tmatrix2_extended;
operator := (const v:Tmatrix3_double) result:Tmatrix2_single;
operator := (const v:Tmatrix3_double) result:Tmatrix2_double;
operator := (const v:Tmatrix3_double) result:Tmatrix2_extended;
operator := (const v:Tmatrix3_extended) result:Tmatrix2_single;
operator := (const v:Tmatrix3_extended) result:Tmatrix2_double;
operator := (const v:Tmatrix3_extended) result:Tmatrix2_extended;

operator := (const v:Tmatrix3_single) result:Tmatrix3_double;
operator := (const v:Tmatrix3_single) result:Tmatrix3_extended;
operator := (const v:Tmatrix3_double) result:Tmatrix3_single;
operator := (const v:Tmatrix3_double) result:Tmatrix3_extended;
operator := (const v:Tmatrix3_extended) result:Tmatrix3_single;
operator := (const v:Tmatrix3_extended) result:Tmatrix3_double;

operator := (const v:Tmatrix3_single) result:Tmatrix4_single;
operator := (const v:Tmatrix3_single) result:Tmatrix4_double;
operator := (const v:Tmatrix3_single) result:Tmatrix4_extended;
operator := (const v:Tmatrix3_double) result:Tmatrix4_single;
operator := (const v:Tmatrix3_double) result:Tmatrix4_double;
operator := (const v:Tmatrix3_double) result:Tmatrix4_extended;
operator := (const v:Tmatrix3_extended) result:Tmatrix4_single;
operator := (const v:Tmatrix3_extended) result:Tmatrix4_double;
operator := (const v:Tmatrix3_extended) result:Tmatrix4_extended;

operator := (const v:Tmatrix4_single) result:Tmatrix2_single;
operator := (const v:Tmatrix4_single) result:Tmatrix2_double;
operator := (const v:Tmatrix4_single) result:Tmatrix2_extended;
operator := (const v:Tmatrix4_double) result:Tmatrix2_single;
operator := (const v:Tmatrix4_double) result:Tmatrix2_double;
operator := (const v:Tmatrix4_double) result:Tmatrix2_extended;
operator := (const v:Tmatrix4_extended) result:Tmatrix2_single;
operator := (const v:Tmatrix4_extended) result:Tmatrix2_double;
operator := (const v:Tmatrix4_extended) result:Tmatrix2_extended;

operator := (const v:Tmatrix4_single) result:Tmatrix3_single;
operator := (const v:Tmatrix4_single) result:Tmatrix3_double;
operator := (const v:Tmatrix4_single) result:Tmatrix3_extended;
operator := (const v:Tmatrix4_double) result:Tmatrix3_single;
operator := (const v:Tmatrix4_double) result:Tmatrix3_double;
operator := (const v:Tmatrix4_double) result:Tmatrix3_extended;
operator := (const v:Tmatrix4_extended) result:Tmatrix3_single;
operator := (const v:Tmatrix4_extended) result:Tmatrix3_double;
operator := (const v:Tmatrix4_extended) result:Tmatrix3_extended;

operator := (const v:Tmatrix4_single) result:Tmatrix4_double;
operator := (const v:Tmatrix4_single) result:Tmatrix4_extended;
operator := (const v:Tmatrix4_double) result:Tmatrix4_single;
operator := (const v:Tmatrix4_double) result:Tmatrix4_extended;
operator := (const v:Tmatrix4_extended) result:Tmatrix4_single;
operator := (const v:Tmatrix4_extended) result:Tmatrix4_double;

{Matrix to matrix operatons.}
operator + (const m1,m2:Tmatrix2_single) result:Tmatrix2_single;
operator + (const m1,m2:Tmatrix2_double) result:Tmatrix2_double;
operator + (const m1,m2:Tmatrix2_extended) result:Tmatrix2_extended;
operator + (const m1,m2:Tmatrix3_single) result:Tmatrix3_single;
operator + (const m1,m2:Tmatrix3_double) result:Tmatrix3_double;
operator + (const m1,m2:Tmatrix3_extended) result:Tmatrix3_extended;
operator + (const m1,m2:Tmatrix4_single) result:Tmatrix4_single;
operator + (const m1,m2:Tmatrix4_double) result:Tmatrix4_double;
operator + (const m1,m2:Tmatrix4_extended) result:Tmatrix4_extended;

operator - (const m1,m2:Tmatrix2_single) result:Tmatrix2_single;
operator - (const m1,m2:Tmatrix2_double) result:Tmatrix2_double;
operator - (const m1,m2:Tmatrix2_extended) result:Tmatrix2_extended;
operator - (const m1,m2:Tmatrix3_single) result:Tmatrix3_single;
operator - (const m1,m2:Tmatrix3_double) result:Tmatrix3_double;
operator - (const m1,m2:Tmatrix3_extended) result:Tmatrix3_extended;
operator - (const m1,m2:Tmatrix4_single) result:Tmatrix4_single;
operator - (const m1,m2:Tmatrix4_double) result:Tmatrix4_double;
operator - (const m1,m2:Tmatrix4_extended) result:Tmatrix4_extended;

operator - (const m1:Tmatrix2_single) result:Tmatrix2_single;
operator - (const m1:Tmatrix2_double) result:Tmatrix2_double;
operator - (const m1:Tmatrix2_extended) result:Tmatrix2_extended;
operator - (const m1:Tmatrix3_single) result:Tmatrix3_single;
operator - (const m1:Tmatrix3_double) result:Tmatrix3_double;
operator - (const m1:Tmatrix3_extended) result:Tmatrix3_extended;
operator - (const m1:Tmatrix4_single) result:Tmatrix4_single;
operator - (const m1:Tmatrix4_double) result:Tmatrix4_double;
operator - (const m1:Tmatrix4_extended) result:Tmatrix4_extended;

operator * (const m1,m2:Tmatrix2_single) result:Tmatrix2_single;
operator * (const m1,m2:Tmatrix2_double) result:Tmatrix2_double;
operator * (const m1,m2:Tmatrix2_extended) result:Tmatrix2_extended;
operator * (const m1,m2:Tmatrix3_single) result:Tmatrix3_single;
operator * (const m1,m2:Tmatrix3_double) result:Tmatrix3_double;
operator * (const m1,m2:Tmatrix3_extended) result:Tmatrix3_extended;
operator * (const m1,m2:Tmatrix4_single) result:Tmatrix4_single;
operator * (const m1,m2:Tmatrix4_double) result:Tmatrix4_double;
operator * (const m1,m2:Tmatrix4_extended) result:Tmatrix4_extended;

{Matrix/vector operations}
operator * (const m:Tmatrix2_single;const v:Tvector2_single) result:Tvector2_single;
operator * (const m:Tmatrix2_double;const v:Tvector2_double) result:Tvector2_double;
operator * (const m:Tmatrix2_extended;const v:Tvector2_extended) result:Tvector2_extended;
operator * (const m:Tmatrix3_single;const v:Tvector3_single) result:Tvector3_single;
operator * (const m:Tmatrix3_double;const v:Tvector3_double) result:Tvector3_double;
operator * (const m:Tmatrix3_extended;const v:Tvector3_extended) result:Tvector3_extended;
operator * (const m:Tmatrix4_single;const v:Tvector4_single) result:Tvector4_single;
operator * (const m:Tmatrix4_double;const v:Tvector4_double) result:Tvector4_double;
operator * (const m:Tmatrix4_extended;const v:Tvector4_extended) result:Tvector4_extended;

{Matrix/scalar operations}
operator + (const m:Tmatrix2_single;const x:single) result:Tmatrix2_single;
operator + (const m:Tmatrix2_double;const x:double) result:Tmatrix2_double;
operator + (const m:Tmatrix2_extended;const x:extended) result:Tmatrix2_extended;
operator + (const m:Tmatrix3_single;const x:single) result:Tmatrix3_single;
operator + (const m:Tmatrix3_double;const x:double) result:Tmatrix3_double;
operator + (const m:Tmatrix3_extended;const x:extended) result:Tmatrix3_extended;
operator + (const m:Tmatrix4_single;const x:single) result:Tmatrix4_single;
operator + (const m:Tmatrix4_double;const x:double) result:Tmatrix4_double;
operator + (const m:Tmatrix4_extended;const x:extended) result:Tmatrix4_extended;

operator - (const m:Tmatrix2_single;const x:single) result:Tmatrix2_single;
operator - (const m:Tmatrix2_double;const x:double) result:Tmatrix2_double;
operator - (const m:Tmatrix2_extended;const x:extended) result:Tmatrix2_extended;
operator - (const m:Tmatrix3_single;const x:single) result:Tmatrix3_single;
operator - (const m:Tmatrix3_double;const x:double) result:Tmatrix3_double;
operator - (const m:Tmatrix3_extended;const x:extended) result:Tmatrix3_extended;
operator - (const m:Tmatrix4_single;const x:single) result:Tmatrix4_single;
operator - (const m:Tmatrix4_double;const x:double) result:Tmatrix4_double;
operator - (const m:Tmatrix4_extended;const x:extended) result:Tmatrix4_extended;

operator * (const m:Tmatrix2_single;const x:single) result:Tmatrix2_single;
operator * (const m:Tmatrix2_double;const x:double) result:Tmatrix2_double;
operator * (const m:Tmatrix2_extended;const x:extended) result:Tmatrix2_extended;
operator * (const m:Tmatrix3_single;const x:single) result:Tmatrix3_single;
operator * (const m:Tmatrix3_double;const x:double) result:Tmatrix3_double;
operator * (const m:Tmatrix3_extended;const x:extended) result:Tmatrix3_extended;
operator * (const m:Tmatrix4_single;const x:single) result:Tmatrix4_single;
operator * (const m:Tmatrix4_double;const x:double) result:Tmatrix4_double;
operator * (const m:Tmatrix4_extended;const x:extended) result:Tmatrix4_extended;

operator / (const m:Tmatrix2_single;const x:single) result:Tmatrix2_single;
operator / (const m:Tmatrix2_double;const x:double) result:Tmatrix2_double;
operator / (const m:Tmatrix2_extended;const x:extended) result:Tmatrix2_extended;
operator / (const m:Tmatrix3_single;const x:single) result:Tmatrix3_single;
operator / (const m:Tmatrix3_double;const x:double) result:Tmatrix3_double;
operator / (const m:Tmatrix3_extended;const x:extended) result:Tmatrix3_extended;
operator / (const m:Tmatrix4_single;const x:single) result:Tmatrix4_single;
operator / (const m:Tmatrix4_double;const x:double) result:Tmatrix4_double;
operator / (const m:Tmatrix4_extended;const x:extended) result:Tmatrix4_extended;

{*****************************************************************************}

implementation

{*****************************************************************************}

{******************************************************************************
                                Tvector2_single
******************************************************************************}

{Need to use capitals due to bug in FPC. Bug was fixed in FPC 1.9.3 on
 10 Feb. 2004}
{$DEFINE datatype:=SINGLE}
{$DEFINE objectname:=Tvector2_single}
{$DEFINE vecsize:=2}
{$INFO Compile mvecimp.inc for Tvector2_single}
{$i mvecimp.inc}

{******************************************************************************
                                Tvector2_double
******************************************************************************}

{$DEFINE datatype:=DOUBLE}
{$DEFINE objectname:=Tvector2_double}
{$DEFINE vecsize:=2}
{$INFO Compile mvecimp.inc for Tvector2_double}
{$i mvecimp.inc}

{******************************************************************************
                               Tvector2_extended
******************************************************************************}

{$DEFINE datatype:=EXTENDED}
{$DEFINE objectname:=Tvector2_extended}
{$DEFINE vecsize:=2}
{$INFO Compile mvecimp.inc for Tvector2_extended}
{$i mvecimp.inc}

{******************************************************************************
                                Tvector3_single
******************************************************************************}

{Need to use capitals due to bug in FPC. Bug was fixed in FPC 1.9.3 on
 10 Feb. 2004}
{$DEFINE datatype:=SINGLE}
{$DEFINE objectname:=Tvector3_single}
{$DEFINE vecsize:=3}
{$INFO Compile mvecimp.inc for Tvector3_single}
{$i mvecimp.inc}

{******************************************************************************
                                Tvector3_double
******************************************************************************}

{$DEFINE datatype:=DOUBLE}
{$DEFINE objectname:=Tvector3_double}
{$DEFINE vecsize:=3}
{$INFO Compile mvecimp.inc for Tvector3_double}
{$i mvecimp.inc}

{******************************************************************************
                               Tvector3_extended
******************************************************************************}

{$DEFINE datatype:=EXTENDED}
{$DEFINE objectname:=Tvector3_extended}
{$DEFINE vecsize:=3}
{$INFO Compile mvecimp.inc for Tvector3_extended}
{$i mvecimp.inc}


{******************************************************************************
                                Tvector4_single
******************************************************************************}

{Need to use capitals due to bug in FPC. Bug was fixed in FPC 1.9.3 on
 10 Feb. 2004}
{$DEFINE datatype:=SINGLE}
{$DEFINE objectname:=Tvector4_single}
{$DEFINE vecsize:=4}
{$INFO Compile mvecimp.inc for Tvector4_single}
{$i mvecimp.inc}

{******************************************************************************
                                Tvector4_double
******************************************************************************}

{$DEFINE datatype:=DOUBLE}
{$DEFINE objectname:=Tvector4_double}
{$DEFINE vecsize:=4}
{$INFO Compile mvecimp.inc for Tvector4_double}
{$i mvecimp.inc}

{******************************************************************************
                               Tvector4_extended
******************************************************************************}

{$DEFINE datatype:=EXTENDED}
{$DEFINE objectname:=Tvector4_extended}
{$DEFINE vecsize:=4}
{$INFO Compile mvecimp.inc for Tvector4_extended}
{$i mvecimp.inc}

{******************************************************************************
                                Tmatrix2_single
******************************************************************************}

{$DEFINE datatype:=SINGLE}
{$DEFINE objectname:=Tmatrix2_single}
{$DEFINE vectorcompanion:=Tvector2_single}
{$DEFINE matsize:=2}
{$INFO Compile mmatimp.inc for Tmatrix2_single}
{$i mmatimp.inc}

{******************************************************************************
                                Tmatrix2_double
******************************************************************************}

{$DEFINE datatype:=DOUBLE}
{$DEFINE objectname:=Tmatrix2_double}
{$DEFINE vectorcompanion:=Tvector2_double}
{$DEFINE matsize:=2}
{$INFO Compile mmatimp.inc for Tmatrix2_double}
{$i mmatimp.inc}

{******************************************************************************
                               Tmatrix2_extended
******************************************************************************}

{$DEFINE datatype:=EXTENDED}
{$DEFINE objectname:=Tmatrix2_extended}
{$DEFINE vectorcompanion:=Tvector2_extended}
{$DEFINE matsize:=2}
{$INFO Compile mmatimp.inc for Tmatrix2_extended}
{$i mmatimp.inc}

{******************************************************************************
                                Tmatrix3_single
******************************************************************************}

{$DEFINE datatype:=SINGLE}
{$DEFINE objectname:=Tmatrix3_single}
{$DEFINE vectorcompanion:=Tvector3_single}
{$DEFINE matsize:=3}
{$INFO Compile mmatimp.inc for Tmatrix3_single}
{$i mmatimp.inc}

{******************************************************************************
                                Tmatrix3_double
******************************************************************************}

{$DEFINE datatype:=DOUBLE}
{$DEFINE objectname:=Tmatrix3_double}
{$DEFINE vectorcompanion:=Tvector3_double}
{$DEFINE matsize:=3}
{$INFO Compile mmatimp.inc for Tmatrix3_double}
{$i mmatimp.inc}

{******************************************************************************
                                Tmatrix3_extended
******************************************************************************}

{$DEFINE datatype:=EXTENDED}
{$DEFINE objectname:=Tmatrix3_extended}
{$DEFINE vectorcompanion:=Tvector3_extended}
{$DEFINE matsize:=3}
{$INFO Compile mmatimp.inc for Tmatrix3_extended}
{$i mmatimp.inc}

{******************************************************************************
                                Tmatrix4_single
******************************************************************************}

{$DEFINE datatype:=SINGLE}
{$DEFINE objectname:=Tmatrix4_single}
{$DEFINE vectorcompanion:=Tvector4_single}
{$DEFINE matsize:=4}
{$INFO Compile mmatimp.inc for Tmatrix4_single}
{$i mmatimp.inc}

{******************************************************************************
                                Tmatrix4_double
******************************************************************************}

{$DEFINE datatype:=DOUBLE}
{$DEFINE objectname:=Tmatrix4_double}
{$DEFINE vectorcompanion:=Tvector4_double}
{$DEFINE matsize:=4}
{$INFO Compile mmatimp.inc for Tmatrix4_double}
{$i mmatimp.inc}

{******************************************************************************
                               Tmatrix4_extended
******************************************************************************}

{$DEFINE datatype:=EXTENDED}
{$DEFINE objectname:=Tmatrix4_extended}
{$DEFINE vectorcompanion:=Tvector4_extended}
{$DEFINE matsize:=4}
{$INFO Compile mmatimp.inc for Tmatrix4_extended}
{$i mmatimp.inc}

end.