GitHub-Proxy/Slic3r
1
0
Fork 0
mirror of https://git.mirrors.martin98.com/https://github.com/slic3r/Slic3r.git synced 2025-08-05 15:10:42 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

add some checking functions

Browse Source
This commit is contained in:
Michael Kirsch 2019-07-04 19:08:30 +02:00 committed by Joseph Lenox
parent 196c20a55f
commit 3c757c27e3
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
xs/t/25_transformationmatrix.t
View File

@ -19,4 +19,31 @@ is(1, 1, 'Dummy test');
done_testing();
sub check_elements {
my $cmp_trafo = Slic3r::TransformationMatrix->new;
$cmp_trafo->set_elements($_[1],$_[2],$_[3],$_[4],$_[5],$_[6],$_[7],$_[8],$_[9],$_[10],$_[11],$_[12]);
return $_[0]->equal($cmp_trafo);
}
sub multiply_point {
my $trafo = $_[0];
my $x = $_[1];
my $y = $_[1];
my $z = $_[1];
my $ret = Slic3r::Pointf3->new;
$ret->set_x($trafo->m11()*$x + $trafo->m12()*$y + $trafo->m13()*$z + $trafo->m14());
$ret->set_y($trafo->m21()*$x + $trafo->m22()*$y + $trafo->m23()*$z + $trafo->m24());
$ret->set_z($trafo->m31()*$x + $trafo->m32()*$y + $trafo->m33()*$z + $trafo->m34());
return $ret
}
sub check_point {
my $eps = 0.0001;
my $equal = 1;
$equal = $equal & (abs($_[0]->x() - $_[1]) < $eps);
$equal = $equal & (abs($_[0]->y() - $_[2]) < $eps);
$equal = $equal & (abs($_[0]->z() - $_[3]) < $eps);
return $equal;
}
__END__