paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 12:37:13 +01:00
Code Issues Packages Projects Releases Wiki Activity
487f7bf4ab
fpc/packages/rtl-objpas/tests/utcmatrix3d.pp
Michaël Van Canneyt 74c995c06b * Add system.math.vectors for Delphi compatibility.
2023-10-22 17:08:20 +02:00

637 lines
22 KiB
ObjectPascal
Raw Blame History

{
This file is part of the Free Pascal run time library.
Copyright (c) 2023 by Michael Van Canneyt
member of the Free Pascal development team
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.
**********************************************************************}
unit utcmatrix3d;
{$mode ObjFPC}{$H+}
interface
uses
Classes, SysUtils, fpcunit, testregistry, utmathvectorbase, types, system.math.vectors;
Type
{ TTestMatrix3D }
TTestMatrix3D = class(TCMathVectorsBase)
Private
FM : Array[1..3] of TMatrix3D;
procedure ClearMatrices;
function GetM(AIndex: Integer): TMatrix3D;
procedure SetM(AIndex: Integer; AValue: TMatrix3D);
Protected
procedure SetUp; override;
procedure TearDown; override;
Property M1 : TMatrix3D Index 1 Read GetM Write SetM;
Property M2 : TMatrix3D Index 2 Read GetM Write SetM;
Property M3 : TMatrix3D Index 3 Read GetM Write SetM;
Published
procedure TestHookUp;
constructor TestCreate;
constructor TestCreateArray;
Procedure TestZero;
Procedure TestCreateLookAtDirLH;
Procedure TestCreateLookAtDirRH;
Procedure TestCreateLookAtLH;
Procedure TestCreateLookAtRH;
Procedure TestCreateOrthoLH;
Procedure TestCreateOrthoOffCenterLH;
Procedure TestCreateOrthoOffCenterRH;
Procedure TestCreateOrthoRH;
Procedure TestCreatePerspectiveFovLH;
Procedure TestCreatePerspectiveFovRH;
Procedure TestCreateRotation;
Procedure TestCreateRotationX;
Procedure TestCreateRotationY;
Procedure TestCreateRotationZ;
Procedure TestCreateRotationHeadingPitchBank;
Procedure TestCreateRotationYawPitchRoll;
Procedure TestCreateScaling;
Procedure TestCreateTranslation;
Procedure TestMultiplyPoint;
Procedure TestMultiplyMatrix;
Procedure TestMultiplyVector3D;
Procedure TestMultiplyFactor;
Procedure TestMultiplyFactor2;
Procedure TestDiv;
Procedure TestAdjoint;
Procedure TestDeterminant;
Procedure TestEyePosition;
Procedure TestInverse;
Procedure TestScale;
Procedure TestToMatrix;
Procedure TestTranspose;
end;
implementation
procedure TTestMatrix3D.ClearMatrices;
var
I : integer;
begin
For I:=1 to 3 do
FM[I]:=Default(TMatrix3D);
end;
Function TTestMatrix3D.GetM(AIndex: Integer): TMatrix3D;
begin
Result:=FM[aIndex];
end;
procedure TTestMatrix3D.SetM(AIndex: Integer; AValue: TMatrix3D);
begin
FM[aIndex]:=aValue;
end;
procedure TTestMatrix3D.SetUp;
begin
inherited SetUp;
ClearMatrices;
end;
procedure TTestMatrix3D.TearDown;
begin
inherited TearDown;
ClearMatrices;
end;
procedure TTestMatrix3D.TestHookUp;
var
I,C,R : Integer;
begin
For I:=1 to 3 do
For R:=0 to 3 do
For C:=0 to 3 do
AssertEquals(Format('M%d[%d,%d]',[I,C,R]),0.0,FM[I].M[R].V[C]);
end;
constructor TTestMatrix3D.TestCreate;
begin
M1:=TMatrix3D.Create(1,2,3,4,
5,6,7,8,
9,10,11,12,
13,14,15,16);
// actual test
AssertMatrix3D('Create',1,2,3,4,
5,6,7,8,
9,10,11,12,
13,14,15,16,M1);
// Test assert using array
AssertMatrix3D('Create',[1,2,3,4,
5,6,7,8,
9,10,11,12,
13,14,15,16],M1);
// Test assert using second matrix
M2:=M1;
AssertMatrix3D('Create',M2,M1);
end;
constructor TTestMatrix3D.TestCreateArray;
begin
M1:=TMatrix3D.Create([ 1, 2, 3, 4,
5, 6, 7, 8,
9, 10, 11, 12,
13, 14, 15, 16]);
AssertMatrix3D('Create',1, 5, 9, 13,
2, 6, 10, 14,
3, 7, 11, 15,
4, 8, 12, 16, M1);
end;
procedure TTestMatrix3D.TestZero;
begin
M1:=TMatrix3D.Zero;
AssertMatrix3D('Create',0,0,0,0,
0,0,0,0,
0,0,0,0,
0,0,0,0, M1);
end;
procedure TTestMatrix3D.TestCreateLookAtDirLH;
begin
M1:=TMatrix3D.CreateLookAtDirLH(Point3D(0,0,0),Point3D(0,0,1),Point3D(0,0,1));
// test 46
AssertMatrix3D('Create 1',[ 0.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000,-1.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
// test 47
M1:=TMatrix3D.CreateLookAtDirLH(Point3D(0,0,0),Point3D(0,1,0),Point3D(0,0,1));
AssertMatrix3D('Create 2',[ 1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000,-1.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
// test 48
M1:=TMatrix3D.CreateLookAtDirLH(Point3D(0,0,0),Point3D(1,0,0),Point3D(0,0,1));
AssertMatrix3D('Create 3',[ 0.0000, 0.0000,-1.0000, 0.0000,
-1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
end;
procedure TTestMatrix3D.TestCreateLookAtDirRH;
begin
// test 49
M1:=TMatrix3D.CreateLookAtDirRH(Point3D(0,0,0),Point3D(0,0,1),Point3D(0,0,1));
AssertMatrix3D('Create 1',[ 0.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
// test 50
M1:=TMatrix3D.CreateLookAtDirRH(Point3D(0,0,0),Point3D(0,1,0),Point3D(0,0,1));
AssertMatrix3D('Create 2',[ -1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
// test 51
M1:=TMatrix3D.CreateLookAtDirRH(Point3D(0,0,0),Point3D(1,0,0),Point3D(0,0,1));
AssertMatrix3D('Create 3',[ 0.0000, 0.0000, 1.0000, 0.0000,
1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
end;
procedure TTestMatrix3D.TestCreateLookAtLH;
begin
M1:=TMatrix3D.CreateLookAtLH(Point3D(0,0,0),Point3D(0,0,1),Point3D(0,0,1));
// test 52
AssertMatrix3D('Create 1',[ 0.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
// test 53
M1:=TMatrix3D.CreateLookAtLH(Point3D(0,0,0),Point3D(0,1,0),Point3D(0,0,1));
AssertMatrix3D('Create 2',[ -1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
// test 54
M1:=TMatrix3D.CreateLookAtLH(Point3D(0,0,0),Point3D(1,0,0),Point3D(0,0,1));
AssertMatrix3D('Create 3',[ 0.0000, 0.0000, 1.0000, 0.0000,
1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
end;
procedure TTestMatrix3D.TestCreateLookAtRH;
begin
M1:=TMatrix3D.CreateLookAtRH(Point3D(0,0,0),Point3D(0,0,1),Point3D(0,0,1));
// test 55
AssertMatrix3D('Create 1',[ 0.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000,-1.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
// test 56
M1:=TMatrix3D.CreateLookAtRH(Point3D(0,0,0),Point3D(0,1,0),Point3D(0,0,1));
AssertMatrix3D('Create 2',[ 1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000,-1.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
// test 57
M1:=TMatrix3D.CreateLookAtRH(Point3D(0,0,0),Point3D(1,0,0),Point3D(0,0,1));
AssertMatrix3D('Create 3',[ 0.0000, 0.0000,-1.0000, 0.0000,
-1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
end;
procedure TTestMatrix3D.TestCreateOrthoLH;
begin
// test 58
M1:=TMatrix3D.CreateOrthoLH(1,1,0,1);
AssertMatrix3D('Create 1',[ 2.0000, 0.0000, 0.0000, 0.0000,
0.0000, 2.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
// test 59
M1:=TMatrix3D.CreateOrthoLH(1,1,0,2);
AssertMatrix3D('Create 2',[2.0000, 0.0000, 0.0000, 0.0000,
0.0000, 2.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.5000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
end;
procedure TTestMatrix3D.TestCreateOrthoRH;
begin
// test 60
M1:=TMatrix3D.CreateOrthoRH(1,1,0,1);
AssertMatrix3D('Create 1',[ 2.0000, 0.0000, 0.0000, 0.0000,
0.0000, 2.0000, 0.0000, 0.0000,
0.0000, 0.0000,-1.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
// test 61
M1:=TMatrix3D.CreateOrthoRH(1,1,0,2);
AssertMatrix3D('Create 2',[ 2.0000, 0.0000, 0.0000, 0.0000,
0.0000, 2.0000, 0.0000, 0.0000,
0.0000, 0.0000,-0.5000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
end;
procedure TTestMatrix3D.TestCreateOrthoOffCenterLH;
begin
// test 62
M1:=TMatrix3D.CreateOrthoOffCenterLH(0,0,1,1,0,1);
AssertMatrix3D('Create 1',[2.0000, 0.0000, 0.0000, 0.0000,
0.0000,-2.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 0.0000,
-1.0000, 1.0000, 0.0000, 1.0000],M1);
// test 63
M1:=TMatrix3D.CreateOrthoOffCenterLH(0,0,1,1,0,2);
AssertMatrix3D('Create 2',[2.0000, 0.0000, 0.0000, 0.0000,
0.0000,-2.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.5000, 0.0000,
-1.0000, 1.0000, 0.0000, 1.0000],M1);
end;
procedure TTestMatrix3D.TestCreateOrthoOffCenterRH;
begin
// test 64
M1:=TMatrix3D.CreateOrthoOffCenterRH(0,0,1,1,0,1);
AssertMatrix3D('Create 1',[2.0000, 0.0000, 0.0000, 0.0000,
0.0000,-2.0000, 0.0000, 0.0000,
0.0000, 0.0000,-1.0000, 0.0000,
-1.0000, 1.0000, 0.0000, 1.0000],M1);
// test 65
M1:=TMatrix3D.CreateOrthoOffCenterRH(0,0,1,1,0,2);
AssertMatrix3D('Create 2',[ 2.0000, 0.0000, 0.0000, 0.0000,
0.0000,-2.0000, 0.0000, 0.0000,
0.0000, 0.0000,-0.5000, 0.0000,
-1.0000, 1.0000, 0.0000, 1.0000],M1);
end;
procedure TTestMatrix3D.TestCreatePerspectiveFovLH;
begin
// Test 66
M1:=TMatrix3D.CreatePerspectiveFovLH(pi/2,1,0,1);
AssertMatrix3D('Create 1',[ 1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 1.0000,
0.0000, 0.0000, 0.0000, 0.0000],M1);
// Test 67
M1:=TMatrix3D.CreatePerspectiveFovLH(pi/2,1,0,1,True);
AssertMatrix3D('Create 2',[ 1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 1.0000,
0.0000, 0.0000,-0.0000, 0.0000], M1);
end;
procedure TTestMatrix3D.TestCreatePerspectiveFovRH;
begin
// Test 68
M1:=TMatrix3D.CreatePerspectiveFovRH(pi/2,1,0,1);
AssertMatrix3D('Create 1',[ 1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
0.0000, 0.0000,-1.0000,-1.0000,
0.0000, 0.0000, 0.0000, 0.0000],M1);
// Test 69
M1:=TMatrix3D.CreatePerspectiveFovRH(pi/2,1,0,1,True);
AssertMatrix3D('Create 2',[ 1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
0.0000, 0.0000,-1.0000,-1.0000,
0.0000, 0.0000, 0.0000, 0.0000 ],M1);
end;
procedure TTestMatrix3D.TestCreateRotation;
begin
// test 32
M1:=TMatrix3D.CreateRotation(Point3D(1,0,0),Pi/2);
AssertMatrix3D('Create 1',[ 1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 0.0000,
0.0000,-1.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
// test 33
M1:=TMatrix3D.CreateRotation(Point3D(0,1,0),Pi/2);
AssertMatrix3D('Create 2',[ 0.0000, 0.0000,-1.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
// test 34
M1:=TMatrix3D.CreateRotation(Point3D(0,0,1),pi/2);
AssertMatrix3D('Create 3',[ -0.0000, 1.0000, 0.0000, 0.0000,
-1.0000,-0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
end;
procedure TTestMatrix3D.TestCreateRotationX;
begin
// test 40
M1:=TMatrix3D.CreateRotationX(Pi/2);
AssertMatrix3D('Create 1',[ 1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 0.0000,
0.0000,-1.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
end;
procedure TTestMatrix3D.TestCreateRotationY;
begin
// test 41
M1:=TMatrix3D.CreateRotationY(Pi/2);
AssertMatrix3D('Create 1',[ 0.0000, 0.0000,-1.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
end;
procedure TTestMatrix3D.TestCreateRotationZ;
begin
// test 42
M1:=TMatrix3D.CreateRotationZ(Pi/2);
AssertMatrix3D('Create 1',[ -0.0000, 1.0000, 0.0000, 0.0000,
-1.0000,-0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
end;
procedure TTestMatrix3D.TestCreateRotationHeadingPitchBank;
begin
// Test 37
M1:=TMatrix3D.CreateRotationHeadingPitchBank(Pi/2,0,0);
AssertMatrix3D('Create 1',[ 0.0000, 0.0000, 1.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
-1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
// Test 38
M1:=TMatrix3D.CreateRotationHeadingPitchBank(0,Pi/2,0);
AssertMatrix3D('Create 2',[ 1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000,-1.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
// Test 39
M1:=TMatrix3D.CreateRotationHeadingPitchBank(0,0,Pi/2);
AssertMatrix3D('Create 3',[ 0.0000,-1.0000, 0.0000, 0.0000,
1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000 ],M1);
end;
procedure TTestMatrix3D.TestCreateRotationYawPitchRoll;
begin
// test 43
M1:=TMatrix3D.CreateRotationYawPitchRoll(Pi/2,0,0);
AssertMatrix3D('Create 1',[ 0.0000,-1.0000, 0.0000, 0.0000,
1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000 ],M1);
// test 44
M1:=TMatrix3D.CreateRotationYawPitchRoll(0,Pi/2,0);
AssertMatrix3D('Create 2',[ 1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 0.0000,
0.0000,-1.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
// test 45
M1:=TMatrix3D.CreateRotationYawPitchRoll(0,0,Pi/2);
AssertMatrix3D('Create 3',[ 0.0000, 0.0000,-1.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M1);
end;
procedure TTestMatrix3D.TestCreateScaling;
begin
// test 71
M1:=TMatrix3D.CreateScaling(Point3D(1,2,3));
AssertMatrix3D('Create 1',[ 1, 0, 0, 0,
0, 2, 0, 0,
0, 0, 3, 0,
0, 0, 0, 1],M1);
end;
procedure TTestMatrix3D.TestCreateTranslation;
begin
// test 72
M1:=TMatrix3D.CreateTranslation(Point3D(1,2,3));
AssertMatrix3D('Create 1',[ 1.0000, 0.0000, 0.0000, 0.0000,
0.0000, 1.0000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 0.0000,
1.0000, 2.0000, 3.0000, 1.0000 ],M1);
end;
procedure TTestMatrix3D.TestMultiplyPoint;
var
P1,P2 : TPoint3D;
begin
P1:=Point3D(1,0,0);
M1:=TMatrix3D.CreateRotationZ(pi/2);
P2:=P1*M1;
AssertPoint3D('Multiply 1',0,1,0,P2);
M1:=TMatrix3D.CreateRotationY(pi/2);
P2:=P1*M1;
AssertPoint3D('Multiply 2',0,0,-1,P2);
P1:=Point3D(0,1,0);
M1:=TMatrix3D.CreateRotationX(pi/2);
P2:=P1*M1;
AssertPoint3D('Multiply 3',0,0,1,P2);
end;
procedure TTestMatrix3D.TestMultiplyMatrix;
begin
// Test 73
M1:=TMatrix3D.Create( [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16]);
M2:=TMatrix3D.Create([16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1]);
M3:=M1*M2;
AssertMatrix3D('Multiplied',[ 386.0000,274.0000,162.0000,50.0000,
444.0000,316.0000,188.0000,60.0000,
502.0000,358.0000,214.0000,70.0000,
560.0000,400.0000,240.0000,80.0000],m3);
end;
procedure TTestMatrix3D.TestMultiplyVector3D;
var
P1,P2 : TVector3D;
begin
P1:=Vector3D(1,0,0);
M1:=TMatrix3D.CreateRotationZ(pi/2);
P2:=P1*M1;
AssertVector3D('Multiply 1',0,1,0,1,P2);
M1:=TMatrix3D.CreateRotationY(pi/2);
P2:=P1*M1;
AssertVector3D('Multiply 2',0,0,-1,1,P2);
P1:=Point3D(0,1,0);
M1:=TMatrix3D.CreateRotationX(pi/2);
P2:=P1*M1;
AssertVector3D('Multiply 3',0,0,1,1,P2);
end;
procedure TTestMatrix3D.TestMultiplyFactor;
begin
M1:=TMatrix3D.Create( 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
M2:=2*M1;
AssertMatrix3D('Multiplied',[ 2, 4, 6, 8,
10, 12, 14, 16,
18, 20, 22, 24,
26, 28, 30, 32],M2);
end;
procedure TTestMatrix3D.TestMultiplyFactor2;
begin
M1:=TMatrix3D.Create( 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
M3:=M1*2;
AssertMatrix3D('Multiplied',[ 2, 4, 6, 8,
10, 12, 14, 16,
18, 20, 22, 24,
26, 28, 30, 32],M3);
end;
procedure TTestMatrix3D.TestDiv;
begin
M1:=TMatrix3D.Create( 2, 4, 6, 8,
10, 12, 14, 16,
18, 20, 22, 24,
26, 28, 30, 32);
M3:=M1/2;
AssertMatrix3D('Divided',[ 1 , 2, 3, 4,
5 , 6, 7, 8,
9 , 10, 11, 12,
13, 14, 15, 16 ],M3);
end;
procedure TTestMatrix3D.TestAdjoint;
begin
// Test 74
M1:=TMatrix3D.CreateRotationZ(Pi/3);
M2:=M1.Adjoint;
AssertMatrix3D('Adjoint',[0.5000,-0.8660, 0.0000, 0.0000,
0.8660, 0.5000, 0.0000, 0.0000,
0.0000, 0.0000, 1.0000, 0.0000,
0.0000, 0.0000, 0.0000, 1.0000],M2);
end;
procedure TTestMatrix3D.TestDeterminant;
begin
// Test 75
M1:=TMatrix3D.CreateRotationZ(Pi/3);
AssertEquals('Determinant',1.0,M1.Determinant);
// Test 76
M1:=TMatrix3D.Create(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
AssertEquals('Determinant',0,M1.Determinant);
M1:=TMatrix3D.Create(1,0,0,0, 0,1,0,0, 0,0,1,0, 0,0,0,1);
AssertEquals('Determinant',1,M1.Determinant);
end;
procedure TTestMatrix3D.TestEyePosition;
begin
// Test 77
M1:=TMatrix3D.CreateRotationZ(Pi/3);
AssertPoint3D('EyePosition 1',0,0,0,M1.EyePosition);
// Test 78
M1:=TMatrix3D.CreateRotationZ(Pi/3)*TMatrix3D.CreateTranslation(Point3D(1,0,0));
AssertPoint3D('EyePosition 2',-0.50, 0.8660, 0,M1.EyePosition);
end;
procedure TTestMatrix3D.TestInverse;
begin
// Test 77
M1:=TMatrix3D.CreateRotationZ(Pi/3);
M2:=TMatrix3D.CreateRotationZ(-Pi/3);
AssertMatrix3D('Inverse 1',M2,M1.Inverse);
AssertMatrix3D('Inverse 2',TMatrix3D.Identity,M1*M1.Inverse);
end;
procedure TTestMatrix3D.TestScale;
begin
M1:=TMatrix3D.Create( 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
M3:=M1.Scale(2);
AssertMatrix3D('Multiplied',[ 2, 4, 6, 8,
10, 12, 14, 16,
18, 20, 22, 24,
26, 28, 30, 32],M3);
end;
procedure TTestMatrix3D.TestToMatrix;
Var
M : TMatrix;
begin
M1:=TMatrix3D.CreateRotationZ(Pi/3);
M:=M1.ToMatrix;
AssertMatrix('To Matrix',TMatrix.CreateRotation(Pi/3),M);
end;
procedure TTestMatrix3D.TestTranspose;
begin
M1:=TMatrix3D.Create( 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
M2:=TMatrix3D.Create( [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16]);
M3:=M1.Transpose;
AssertMatrix3D('Transposed',M2,M3);
end;
initialization
RegisterTest(TTestMatrix3D);
end.
Reference in New Issue View Git Blame Copy Permalink