diff --git a/src/Test.hs b/src/Test.hs
index e16ca9a..26d9633 100644
--- a/src/Test.hs
+++ b/src/Test.hs
@@ -63,8 +63,8 @@ mouseToPlayer :: V2 Int32 -> Affection UserData ()
 mouseToPlayer mv2 = do
   ud <- getAffection
   rela@(V2 rx ry) <- liftIO $ relativizeMouseCoords mv2
-  let dr = ry + rx
-      dc = rx - ry / 2
+  let dr = (ry / sin (atan (1/2)) / 2) + rx
+      dc = rx - (ry / sin (atan (1/2)) / 2)
   (nws, nworld) <- yieldSystemT (worldState ud) $ do
     emap $ do
       with player