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
@@ -23,7 +23,7 @@ targetDistanceDraw :: Item -> Creature -> Configuration -> World -> Picture
 targetDistanceDraw itm _ cfig w = fromMaybe mempty $ do
    p <- itm ^? itTargeting . tgPos . _Just
    let p1 = worldPosToScreen cam p
-        mwp = mouseWorldPos w
+        mwp = mouseWorldPos (w ^. input) (w ^. cWorld . lWorld . camPos)
        p2 = worldPosToScreen cam mwp
        thecol = if dist p mwp > 100 then red else white
    return $