/* EINA - EFL data type library
* Copyright (C) 2015 Cedric Bail
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library 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. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library;
* if not, see .
*/
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
#define DBL_EPSILON 0.0000001
#include
#include
#include
#include "eina_suite.h"
START_TEST(eina_matrix2)
{
Eina_Matrix2 m;
Eina_Matrix2 n;
double xx, xy, yx, yy;
eina_init();
eina_matrix2_values_set(&m,
1, 0,
0, 1);
fail_if(eina_matrix2_type_get(&m) != EINA_MATRIX_TYPE_IDENTITY);
eina_matrix2_inverse(&n, &m);
fail_if(eina_matrix2_type_get(&n) != EINA_MATRIX_TYPE_IDENTITY);
eina_matrix2_values_get(&m,
&xx, &xy,
&yx, &yy);
fail_if(xx != yy ||
yy != 1);
fail_if(xy != yx ||
xy != 0);
eina_shutdown();
}
END_TEST
START_TEST(eina_matrix2_operation)
{
Eina_Matrix2 m1, m2, m3;
double xx, xy, yx, yy;
double arr[] = {1, 1, 1, 1};
eina_matrix2_values_set(&m2,
2, 3,
3, 2);
eina_matrix2_inverse(&m1, &m2);
eina_matrix2_values_get(&m1,
&xx, &xy,
&yx, &yy);
fail_if((xx - (-0.4) > DBL_EPSILON) || (xy - 0.6 > DBL_EPSILON) ||
(yx - 0.6 > DBL_EPSILON) || (yy - (-0.4) > DBL_EPSILON));
eina_matrix2_identity(&m1);
eina_matrix2_values_get(&m1,
&xx, &xy,
&yx, &yy);
fail_if(xx != yy ||
yy != 1 ||
xy != yx ||
xy != 0);
eina_matrix2_array_set(&m1, &arr);
eina_matrix2_values_get(&m1,
&xx, &xy,
&yx, &yy);
fail_if(xx != yy ||
yx != xy ||
xy != 1);
eina_matrix2_copy(&m2, &m1);
eina_matrix2_values_get(&m2,
&xx, &xy,
&yx, &yy);
fail_if(xx != yy ||
yx != xy ||
xy != 1);
eina_matrix2_values_set(&m1,
2, 3,
3, 2);
eina_matrix2_multiply_copy(&m3, &m1, &m2);
eina_matrix2_values_get(&m3,
&xx, &xy,
&yx, &yy);
fail_if(xx != yy ||
yx != xy ||
xy != 5);
eina_matrix2_multiply(&m3, &m1, &m2);
eina_matrix2_values_get(&m3,
&xx, &xy,
&yx, &yy);
fail_if(xx != yy ||
yx != xy ||
xy != 5);
}
END_TEST
START_TEST(eina_matrix4)
{
Eina_Matrix4 m;
Eina_Matrix4 n;
double xx, xy, xz, xw,
yx, yy, yz, yw,
zx, zy, zz, zw,
wx, wy, wz, ww;
eina_init();
eina_matrix4_values_set(&m,
1, 0, 0, 0,
0, 1, 0, 0,
0, 0, 1, 0,
0, 0, 0, 1);
fail_if(eina_matrix4_type_get(&m) != EINA_MATRIX_TYPE_IDENTITY);
fail_if(!eina_matrix4_normalized(&n, &m));
fail_if(eina_matrix4_type_get(&n) != EINA_MATRIX_TYPE_IDENTITY);
fail_if(!eina_matrix4_inverse(&n, &m));
fail_if(eina_matrix4_type_get(&n) != EINA_MATRIX_TYPE_IDENTITY);
eina_matrix4_values_get(&m,
&xx, &xy, &xz, &xw,
&yx, &yy, &yz, &yw,
&zx, &zy, &zz, &zw,
&wx, &wy, &wz, &ww);
fail_if(xx != yy ||
yy != zz ||
zz != ww ||
ww != 1);
fail_if(xy != xz ||
xz != xw ||
xw != yx ||
yx != yz ||
yz != yw ||
yw != zx ||
zx != zy ||
zy != zw ||
zw != wx ||
wx != wy ||
wy != wz ||
wz != 0);
eina_matrix4_values_set(&m,
1, 2, 3, 4,
5, 6, 7, 8,
9, 10, 11, 12,
13, 14, 15, 16);
eina_matrix4_transpose(&n, &m);
fail_if(n.xx != 1 || n.xy != 5 || n.xz != 9 || n.xw != 13 ||
n.yx != 2 || n.yy != 6 || n.yz != 10 || n.yw != 14 ||
n.zx != 3 || n.zy != 7 || n.zz != 11 || n.zw != 15 ||
n.wx != 4 || n.wy != 8 || n.wz != 12 || n.ww != 16);
eina_shutdown();
}
END_TEST
START_TEST(eina_matrix4_operation)
{
double det;
double l=5, r=4, b=4, t=3, dn=3, df=2;
Eina_Matrix4 m, m1, m2;
double xx, xy, xz, xw,
yx, yy, yz, yw,
zx, zy, zz, zw,
wx, wy, wz, ww;
const double arr[] = {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1};
eina_matrix4_values_set(&m,
0, 0, 2, 0,
2, 0, 0, 0,
0, 0, 0, 2,
0, 2, 0, 0);
det = eina_matrix4_determinant(&m);
fail_if(det != -16);
eina_matrix4_inverse(&m1, &m);
eina_matrix4_values_get(&m1,
&xx, &xy, &xz, &xw,
&yx, &yy, &yz, &yw,
&zx, &zy, &zz, &zw,
&wx, &wy, &wz, &ww);
fail_if (xy != 0.5 ||
yw != xy ||
zx != yw ||
wz != zx);
eina_matrix4_identity(&m1);
eina_matrix4_values_get(&m1,
&xx, &xy, &xz, &xw,
&yx, &yy, &yz, &yw,
&zx, &zy, &zz, &zw,
&wx, &wy, &wz, &ww);
fail_if (xx != 1 ||
yy != xx ||
zz != yy ||
ww != zz);
eina_matrix4_values_set(&m1,
0, 2, 2, 0,
2, 0, 0, 2,
2, 0, 0, 2,
0, 2, 2, 0);
eina_matrix4_multiply_copy(&m2, &m1, &m);
eina_matrix4_values_get(&m2,
&xx, &xy, &xz, &xw,
&yx, &yy, &yz, &yw,
&zx, &zy, &zz, &zw,
&wx, &wy, &wz, &ww);
fail_if (xx != 4 ||
xw != xx ||
yy != xw ||
yz != yy ||
zy != yz ||
zz != yy ||
wx != xx ||
ww != zy);
eina_matrix4_multiply(&m2, &m1, &m);
eina_matrix4_values_get(&m2,
&xx, &xy, &xz, &xw,
&yx, &yy, &yz, &yw,
&zx, &zy, &zz, &zw,
&wx, &wy, &wz, &ww);
fail_if (xx != 4 ||
xw != xx ||
yy != xw ||
yz != yy ||
zy != yz ||
zz != yy ||
wx != xx ||
ww != zy);
eina_matrix4_array_set(&m1, &arr);
eina_matrix4_values_get(&m1,
&xx, &xy, &xz, &xw,
&yx, &yy, &yz, &yw,
&zx, &zy, &zz, &zw,
&wx, &wy, &wz, &ww);
fail_if (xx != 1 ||
xw != xx ||
yy != xw ||
yz != yy ||
zy != yz ||
zz != yy ||
wx != xx ||
ww != zy);
eina_matrix4_copy(&m, &m1);
eina_matrix4_values_get(&m1,
&xx, &xy, &xz, &xw,
&yx, &yy, &yz, &yw,
&zx, &zy, &zz, &zw,
&wx, &wy, &wz, &ww);
fail_if (xx != 1 ||
xw != xx ||
yy != xw ||
yz != yy ||
zy != yz ||
zz != yy ||
wx != xx ||
ww != zy);
eina_matrix4_ortho_set(&m, l, r, b, t, dn, df);
eina_matrix4_values_get(&m,
&xx, &xy, &xz, &xw,
&yx, &yy, &yz, &yw,
&zx, &zy, &zz, &zw,
&wx, &wy, &wz, &ww);
fail_if (xx != -2 ||
yy != -2 ||
zz != 2 ||
wx != 9 ||
wy != 7 ||
wz != 5 ||
ww != 1);
}
END_TEST
START_TEST(eina_matrix4_2_3)
{
Eina_Matrix4 m4;
Eina_Matrix3 m3, m3b;
eina_init();
eina_matrix3_values_set(&m3,
1, 3, 2,
3, 1, 4,
2, 4, 1);
eina_matrix3_matrix4_to(&m4, &m3);
eina_matrix4_matrix3_to(&m3b, &m4);
fail_if(memcmp(&m3, &m3b, sizeof (Eina_Matrix3)) != 0);
eina_shutdown();
}
END_TEST
START_TEST(eina_matrix3)
{
Eina_Bool ret;
Eina_Matrix3 m, m1, m2;
double xx, xy, xz,
yx, yy, yz,
zx, zy, zz;
eina_init();
eina_matrix3_values_set(&m,
1, 0, 0,
0, 1, 0,
0, 0, 1);
eina_matrix3_values_set(&m1,
1, 0, 0,
0, 1, 0,
0, 0, 1);
eina_matrix3_values_set(&m2,
1, 1, 1,
0, 1, 0,
0, 0, 1);
fail_if(eina_matrix3_type_get(&m) != EINA_MATRIX_TYPE_IDENTITY);
eina_matrix3_values_get(&m,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if(xx != yy ||
yy != zz ||
zz != 1);
fail_if(xy != xz ||
yx != yz ||
zx != zy ||
zy != 0);
ret = eina_matrix3_equal(&m, &m1);
fail_if(ret != EINA_TRUE);
ret = eina_matrix3_equal(&m1, &m2);
fail_if(ret != EINA_FALSE);
eina_shutdown();
}
END_TEST
START_TEST(eina_matrix3_operations)
{
Eina_Matrix3 m1, m2, m3;
double xx, xy, xz,
yx, yy, yz,
zx, zy, zz;
double tx = 20, ty = 30, ret;
const double arr[] = {1, 1, 1, 1, 1, 1, 1, 1, 1};
eina_matrix3_values_set(&m1,
1, 0, 0,
0, 1, 0,
0, 0, 1);
eina_matrix3_values_set(&m2,
1, 1, 1,
1, 1, 1,
1, 1, 1);
eina_matrix3_compose(&m1, &m2, &m3);
eina_matrix3_values_get(&m3,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if (xx != xy ||
xy != xz ||
yx != yy ||
yy != yz ||
zx != zy ||
zy != zz ||
zz != 1);
eina_matrix3_translate(&m1, tx, ty);
eina_matrix3_values_get(&m1,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if (xx != 1 || xy != 0 || xz != tx ||
yx != 0 || yy != 1 || yz != ty ||
zx != 0 || zy != 0 || zz != 1);
eina_matrix3_values_set(&m1,
1, 0, 0,
0, 1, 0,
0, 0, 1);
eina_matrix3_scale(&m1, tx, ty);
eina_matrix3_values_get(&m1,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if (xx != tx || xy != 0 || xz != 0 ||
yx != 0 || yy != ty || yz != 0 ||
zx != 0 || zy != 0 || zz != 1);
eina_matrix3_values_set(&m1,
1, 0, 0,
0, 1, 0,
0, 0, 1);
eina_matrix3_rotate(&m1, M_PI/2);
fail_if (round(m1.xx) != 0 || round(m1.xy) != -1 ||
round(m1.xz) != 0 || round(m1.yx) != 1 ||
round(m1.yy) != 0 || round(m1.yz) !=0 ||
round(m1.zx) != 0 || round(m1.zy) != 0||
round(m1.zz) != 1);
eina_matrix3_values_set(&m1,
1, 1, 1,
1, 1, 1,
1, 1, 1);
eina_matrix3_identity(&m1);
eina_matrix3_values_get(&m1,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if(xx != yy ||
yy != zz ||
zz != 1);
fail_if(xy != xz ||
yx != yz ||
zx != zy ||
zy != 0);
eina_matrix3_values_set(&m1,
1, 2, 1,
2, 1, 1,
1, 2, 2);
ret = eina_matrix3_determinant(&m1);
fail_if(ret != -3);
eina_matrix3_values_set(&m1,
3, 3, 3,
3, 3, 3,
3, 3, 3);
eina_matrix3_divide(&m1, 2);
eina_matrix3_values_get(&m1,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if (xx != xy ||
xy != xz ||
yx != yy ||
yy != yz ||
zx != zy ||
zy != zz ||
zz != 1.5);
eina_matrix3_values_set(&m1,
0, 2, 0,
2, 2, 0,
2, 1, 2);
eina_matrix3_inverse(&m1, &m2);
eina_matrix3_values_get(&m2,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if (xx != -0.5 || xy != 0.5 || xz != 0 ||
yx != 0.5 || yy != 0 || yz != 0 ||
zx != 0.25 || zy != -0.5 || zz != 0.5);
eina_matrix3_values_set(&m1,
1, 2, 3,
4, 5, 6,
7, 8, 9);
eina_matrix3_transpose(&m1, &m2);
eina_matrix3_values_get(&m2,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if (xx != 1 || xy != 4 || xz != 7 ||
yx != 2 || yy != 5 || yz != 8 ||
zx != 3 || zy != 6 || zz != 9);
eina_matrix3_values_set(&m1,
1, 2, 3,
0, 4, 5,
1, 0, 6);
eina_matrix3_cofactor(&m1, &m2);
eina_matrix3_values_get(&m2,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if (xx != 24 || xy != 5 || xz != -4 ||
yx != -12 || yy != 3 || yz != 2 ||
zx != -2 || zy != -5 || zz != 4);
eina_matrix3_adjoint(&m1, &m2);
eina_matrix3_values_get(&m2,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if (xx != 24 || xy != -12 || xz != -2 ||
yx != 5 || yy != 3 || yz != -5 ||
zx != -4 || zy != 2 || zz != 4);
eina_matrix3_values_set(&m2,
2, 2, 2,
1, 1, 1,
3, 3, 3);
eina_matrix3_values_set(&m3,
3, 3, 3,
2, 2, 2,
1, 1, 1);
eina_matrix3_multiply_copy(&m1, &m2, &m3);
eina_matrix3_values_get(&m1,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if (xx != 12 || xy != 12 || xz != 12 ||
yx != 6 || yy != 6 || yz != 6 ||
zx != 18 || zy != 18 || zz != 18);
eina_matrix3_values_set(&m2,
2, 2, 2,
1, 1, 1,
0, 0, 0);
eina_matrix3_multiply(&m1, &m2, &m3);
eina_matrix3_values_get(&m1,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if (xx != 12 || xy != 12 || xz != 12 ||
yx != 6 || yy != 6 || yz != 6 ||
zx != 0 || zy != 0 || zz != 0);
eina_matrix3_copy(&m1, &m2);
eina_matrix3_values_get(&m1,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if (xx != 2 || xy != 2 || xz != 2 ||
yx != 1 || yy != 1 || yz != 1 ||
zx != 0 || zy != 0 || zz != 0);
eina_matrix3_array_set(&m1, &arr);
eina_matrix3_values_get(&m1,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if (xx != 1 || xy != 1 || xz != 1 ||
yx != 1 || yy != 1 || yz != 1 ||
zx != 1 || zy != 1 || zz != 1);
eina_matrix3_position_transform_set(&m3, 5, 3);
eina_matrix3_values_get(&m3,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if (xz != 5 || yz != 3);
eina_matrix3_scale_transform_set(&m2, 6, 7);
eina_matrix3_values_get(&m2,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if (xx != 6 || yy != 7);
}
END_TEST
START_TEST(eina_matrix3_f16p16)
{
Eina_Matrix3_F16p16 m1;
Eina_Matrix3 m2;
Eina_F16p16 xx, xy, xz,
yx, yy, yz,
zx, zy, zz;
Eina_Matrix3_F16p16 m3;
eina_init();
eina_matrix3_values_set(&m2,
1, 0, 0,
0, 1, 0,
0, 0, 1);
eina_matrix3_matrix3_f16p16_to(&m2, &m1);
fail_if (eina_matrix3_f16p16_type_get(&m1) != EINA_MATRIX_TYPE_IDENTITY);
eina_matrix3_fixed_values_get(&m2,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz);
fail_if(xx != yy ||
yy != zz ||
zz != 65536);
fail_if(xy != xz ||
yx != yz ||
zx != zy ||
zy != 0);
eina_matrix3_values_set(&m2,
1, 2, 3,
4, 5, 6,
7, 8, 9);
eina_matrix3_matrix3_f16p16_to(&m2, &m1);
eina_matrix3_f16p16_identity(&m1);
fail_if(m1.xx != m1.yy ||
m1.yy != m1.zz ||
m1.zz != 65536);
fail_if(m1.xy != m1.xz ||
m1.yx != m1.yz ||
m1.zx != m1.zy ||
m1.zy != 0);
eina_matrix3_values_set(&m2,
1, 1, 1,
1, 1, 1,
1, 1, 1);
eina_matrix3_matrix3_f16p16_to(&m2, &m1);
eina_matrix3_f16p16_compose(&m1, &m1, &m3);
fail_if (m3.xx != m3.xy ||
m3.xy != m3.xz ||
m3.yx != m3.yy ||
m3.yy != m3.yz ||
m3.zx != m3.zy ||
m3.zy != m3.zz ||
m3.zz != 196608);
eina_shutdown();
}
END_TEST
START_TEST(eina_matrix3_map_transform)
{
double x = 2, y = 3, x1, y1;
Eina_Matrix3 m;
Eina_Rectangle r;
Eina_Quad q;
Eina_Bool ret;
eina_init();
eina_matrix3_values_set(&m,
0, 1, 0,
1, 0, 0,
0, 0, 1);
eina_matrix3_point_transform(&m,
x, y,
&x1, &y1);
fail_if(x1 != 3 || y1 != 2);
EINA_RECTANGLE_SET(&r, 0, 0, 3, 4);
eina_matrix3_rectangle_transform(&m, &r, &q);
fail_if(q.x0 != 0 || q.y0 != 0 ||
q.x1 != 0 || q.y1 != 3 ||
q.x2 != 4 || q.y2 != 3 ||
q.x3 != 4 || q.y3 != 0);
eina_quad_coords_set(&q,
0.0, 0.0,
3.0, 0.0,
3.0, 3.0,
0.0, 3.0);
ret = eina_matrix3_square_quad_map(&m, &q);
fail_if(ret != EINA_TRUE);
fail_if(m.xx != 3 || m.xy != 0 || m.xz != 0 ||
m.yx != 0 || m.yy != 3 || m.yz != 0 ||
m.zx != 0 || m.zy != 0 || m.zz != 1);
ret = eina_matrix3_quad_square_map(&m, &q);
fail_if(ret != EINA_TRUE);
fail_if(q.x0 != 0 || q.y0 != 0 ||
q.x1 != 3 || q.y1 != 0 ||
q.x2 != 3 || q.y2 != 3 ||
q.x3 != 0 || q.y3 != 3);
eina_shutdown();
}
END_TEST
START_TEST(eina_normal3_test)
{
Eina_Matrix3 out;
Eina_Matrix4 m;
double xx, xy, xz,
yx, yy, yz,
zx, zy, zz;
eina_init();
eina_matrix4_values_set(&m,
1, 0, 0, 0,
0, 1, 0, 0,
0, 0, 1, 0,
0, 0, 0, 1);
eina_normal3_matrix_get(&out, &m);
eina_matrix3_values_get(&out,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz
);
fail_if((fabs(xy) - 1.0) > DBL_EPSILON ||
(fabs(yx) - 1.0) > DBL_EPSILON ||
(fabs(yz) - 1.0) > DBL_EPSILON ||
(fabs(zy) - 1.0) > DBL_EPSILON
);
eina_matrix4_values_set(&m,
0, 0, 0, 0,
0, 1, 0, 0,
0, 0, 0, 0,
0, 0, 0, 1);
eina_normal3_matrix_get(&out, &m);
eina_matrix3_values_get(&out,
&xx, &xy, &xz,
&yx, &yy, &yz,
&zx, &zy, &zz
);
fail_if((fabs(xy)) > DBL_EPSILON ||
(fabs(yx)) > DBL_EPSILON ||
(fabs(yz)) > DBL_EPSILON ||
(fabs(zy)) > DBL_EPSILON
);
eina_shutdown();
}
END_TEST
void
eina_test_matrix(TCase *tc)
{
tcase_add_test(tc, eina_matrix2);
tcase_add_test(tc, eina_matrix2_operation);
tcase_add_test(tc, eina_matrix4);
tcase_add_test(tc, eina_matrix4_operation);
tcase_add_test(tc, eina_matrix4_2_3);
tcase_add_test(tc, eina_matrix3);
tcase_add_test(tc, eina_matrix3_operations);
tcase_add_test(tc, eina_matrix3_f16p16);
tcase_add_test(tc, eina_matrix3_map_transform);
tcase_add_test(tc, eina_normal3_test);
}