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
@@ -98,7 +98,7 @@ boostPoint x cr w = case mayp2 of
  where
    cpos = _crPos cr
    r = 1.5 * _crRad cr
-    p1 = cpos +.+ x *.* squashNormalizeV (mouseWorldPos w -.- cpos)
+    p1 = cpos +.+ x *.* squashNormalizeV (mouseWorldPos (w ^. input) (w ^. cWorld . lWorld . camPos) -.- cpos)
    mayp2 = bouncePoint (const True) 1 cpos p1 w

 addBoostShockwave ::