xs
Guillaume Seguin 2013-06-30 23:54:13 +02:00
parent e92fefb6ff
commit 1f229f3233
1 changed files with 1 additions and 1 deletions

View File

@ -121,7 +121,7 @@ sub trackball {
sub quat_to_rotmatrix {
my ($q) = @_;
my (@m);
my @m;
$m[0] = 1.0 - 2.0 * (@$q[1] * @$q[1] + @$q[2] * @$q[2]);
$m[1] = 2.0 * (@$q[0] * @$q[1] - @$q[2] * @$q[3]);
$m[2] = 2.0 * (@$q[2] * @$q[0] + @$q[1] * @$q[3]);