Cleanup
This commit is contained in:
parent
e92fefb6ff
commit
1f229f3233
1 changed files with 1 additions and 1 deletions
|
@ -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]);
|
||||
|
|
Loading…
Reference in a new issue