Remove targeting bugs

2023-01-06 12:17:34 +00:00
parent b05f86d130
commit 5b9e0c39b5
10 changed files with 49 additions and 51 deletions
@@ -346,7 +346,7 @@ useMod hm = case hm of
        yoff x = fromIntegral x - fromIntegral (n' -1) / 2
        n' = _lasCycle (_itParams it)
    thegapDualBeam = _dbGap . _itParams
-    directedTelPos it cr w = (p, a)
+    directedTelPos _ cr w = (p, a)
      where
        p = fromMaybe (_crPos cr) $ cr ^? crTargeting . ctPos . _Just
        a = argV (mouseWorldPos (w ^. input) (w ^. cWorld . camPos) -.- p)