Cleanup warnings

2021-05-17 22:39:18 +02:00
parent d7fcdbf550
commit 69f915a894
102 changed files with 1243 additions and 1185 deletions
@@ -10,6 +10,7 @@ screenPolygon w = [tr,tl,bl,br]
  where 
    scRot  = rotateV (_cameraRot w)
    scZoom p | _cameraZoom w /= 0 = (1/_cameraZoom w) *.* p
+             | otherwise = p
    scTran p = p +.+ _cameraCenter w
    tr = scTran $ scRot $ scZoom ( halfWidth w, halfHeight w) 
    tl = scTran $ scRot $ scZoom (-halfWidth w, halfHeight w) 
@@ -19,6 +20,6 @@ screenPolygon w = [tr,tl,bl,br]
 halfWidth,halfHeight :: World -> Float
 halfWidth w = getWindowX w / 2
 halfHeight w = getWindowY w / 2
-
+getWindowX ,getWindowY :: World -> Float 
 getWindowX = _windowX . _config
 getWindowY = _windowY . _config