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 {
|
sub quat_to_rotmatrix {
|
||||||
my ($q) = @_;
|
my ($q) = @_;
|
||||||
my (@m);
|
my @m;
|
||||||
$m[0] = 1.0 - 2.0 * (@$q[1] * @$q[1] + @$q[2] * @$q[2]);
|
$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[1] = 2.0 * (@$q[0] * @$q[1] - @$q[2] * @$q[3]);
|
||||||
$m[2] = 2.0 * (@$q[2] * @$q[0] + @$q[1] * @$q[3]);
|
$m[2] = 2.0 * (@$q[2] * @$q[0] + @$q[1] * @$q[3]);
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue