Delete cruft, add Reader monad to some internal ai

2021-05-16 21:42:11 +02:00
parent 0798cc0b0e
commit d7fcdbf550
69 changed files with 721 additions and 2894 deletions
@@ -96,7 +96,7 @@ mvRadar x p w pt =
    )
  where 
    pic = onLayerL [levLayer ShadowLayer, 1] $ pictures sweepPics
-    putBlips = over worldEvents ( ( over particles (blips ++) ) . )
+    putBlips = over worldEvents ( over particles (blips ++) . )
    blips = map (\p -> blipAt p (withAlpha (0.5*globalAlpha) red) 50) circPoints
    circPoints = mapMaybe (\wl -> uncurry collidePointCircCorrect (_wlLine wl) r p)
        $ map (over wlLine swp) (IM.elems $ wallsAlongCirc p r w)