Block screen during long loading

2022-12-29 00:44:51 +00:00
parent d1f80f1f7f
commit be41d51819
13 changed files with 90 additions and 54 deletions
@@ -54,7 +54,7 @@ teslaBeamCombine (p, (a, b, bm), (x, y, _)) w =
  where
    itid = fromJust $ _bmOrigin bm
    dir = argV (normalizeV (b -.- a) +.+ normalizeV (y -.- x))
-    (w', ip) = shootTeslaArc' (fromJust . _subParams $ _itParams it) p dir w
+    (w', ip) = makeTeslaArc (fromJust . _subParams $ _itParams it) p dir w
    it = case getItem itid w of
        Nothing -> error "tried to get item use teslaBeamCombine that doesn't exist"
        Just itm -> itm