Minor tweaking, argument refining

2022-10-29 12:20:19 +01:00
parent af6cdff063
commit afaef480db
17 changed files with 59 additions and 56 deletions
@@ -61,7 +61,7 @@ wasdWithAiming w speed cr
    movAbs = rotateV (w ^. cWorld . lWorld . camPos . camRot) $ normalizeV movDir
    isAiming = _posture (_crStance cr) == Aiming
    mouseDir = case cr ^? crInv . ix (crSel cr) . itScope . scopePos of
-        Just _ -> argV $ mouseWorldPos w -.- _crPos cr
+        Just _ -> argV $ mouseWorldPos (w ^. input) (w ^. cWorld . lWorld . camPos) -.- _crPos cr
        _ -> argV (_mousePos (_input w)) + (w ^. cWorld . lWorld . camPos . camRot)

 wasdM :: SDL.Scancode -> Point2