From 1a01aff2002d935129d499046fd4079f84b8f2bb Mon Sep 17 00:00:00 2001
From: Don Bright <hugh.m.bright@gmail.com>
Date: Sun, 18 Dec 2011 13:03:12 -0600
Subject: fix zoomed-in panning (per Triffid Hunter bug report)


diff --git a/src/glview.cc b/src/glview.cc
index c96fe01..fb69f27 100644
--- a/src/glview.cc
+++ b/src/glview.cc
@@ -594,8 +594,8 @@ void GLView::mouseMoveEvent(QMouseEvent *event)
 			if ((QApplication::keyboardModifiers() & Qt::ShiftModifier) != 0) {
 				viewer_distance += (GLdouble)dy;
 			} else {
-				object_trans_x += dx;
-				object_trans_z -= dy;
+				object_trans_x += dx * viewer_distance/1000;
+				object_trans_z -= dy * viewer_distance/1000;
 			}
 		}
 		updateGL();
-- 
cgit v0.10.1