Tweak basic curvearound magnet

2021-12-09 17:33:59 +00:00
parent 1a053421ef
commit e1a9327c06
2 changed files with 6 additions and 6 deletions
@@ -33,7 +33,7 @@ useMagShield cr invid w = w & magnets . at mgid ?~ themagnet
        {_mgID = mgid
        ,_mgUpdate = Just . (mgUpdate .~ const Nothing)
        ,_mgPos = _crPos cr
-        ,_mgField = curveAroundField
+        ,_mgField = curveAroundField 50 200
        }
    mgid = case it ^? itAttachment . itMInt . _Just of
        Just mgid' -> mgid'