From 2c6ac33e442fe21d828b87cc6790e1b01fe04ef9 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Sat, 24 Feb 2018 23:15:16 +0100
Subject: [PATCH] adjust mouse to isometric

---
 src/Test.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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