Reversed mouse wheel zooming in 3D once more. #2478

This commit is contained in:
Alessandro Ranellucci 2015-01-06 21:08:33 +01:00
parent 49817aac34
commit 0de1c235a9

View File

@ -90,7 +90,7 @@ sub new {
my $zoom = $e->GetWheelRotation() / $e->GetWheelDelta();
$zoom = max(min($zoom, 4), -4);
$zoom /= 10;
$self->_zoom($self->_zoom * (1-$zoom));
$self->_zoom($self->_zoom / (1-$zoom));
# In order to zoom around the mouse point we need to translate
# the camera target