Refactor window size, update selection cursor on new screen

src/Dodge/TestString.hs

@@ -1,5 +1,9 @@
 module Dodge.TestString where
 
+import HelpNum
+import Dodge.Base.Coordinate
+import Geometry.Vector
+import Data.Maybe
 import Dodge.Render.Lights
 import Data.Aeson (ToJSON)
 import Data.ByteString.Lazy.Char8 (unpack)
@@ -11,12 +15,21 @@ import Dodge.Data.Universe
 --import qualified Data.Map.Strict as M
 --import qualified IntMapHelp as IM
 testStringInit :: Universe -> [String]
-testStringInit u = [show $ length $ lightsToRender (u ^. uvConfig) (u ^. uvWorld . cWorld . camPos) 
+testStringInit u = [show $ length $ lightsToRender (u ^. uvConfig) (u ^. uvWorld . cWorld . cwCamPos) 
         (u ^. uvWorld . cWorld . lWorld)
+        , show a
+        , show $ u ^. uvWorld . input . mousePos
         , show $ u ^. uvConfig . windowX
         , show $ u ^. uvConfig . windowY
         , show $ u ^. uvWorld . input . scrollTestInt
         ]
+  where
+    w = u ^. uvWorld
+    a = fromMaybe 0 $ do 
+        cpos <- w ^? cWorld . lWorld . creatures . ix 0 . crPos
+        return . toClosestMultiple (pi/ 8) $ argV (mouseWorldPos (w ^. input) (w ^. cWorld . cwCamPos) -.- cpos)
+            - w ^. cWorld . cwCamPos . camRot
+
     --[show $ u ^? uvWorld . hud . hudElement . diSections . sssExtra . sssSelPos . _Just]
 --    [show $ fmap IM.keys $ u ^? uvWorld . hud . hudElement . subInventory . ciSections . sssSections]