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
@@ -169,8 +169,10 @@ ffToDraw w = filter (lineOnScreen w . _ffLine) $
                _forceFields w

 drawFF :: ForceField -> Picture
-drawFF (FF {_ffLine = l, _ffColor = col}) = pictures [color white $ line l, color col 
-                                                        $ lineOfThickness 6 l ]
+drawFF FF{_ffLine = l, _ffColor = col} = pictures 
+    [color white $ line l
+    , color col $ lineOfThickness 6 l 
+    ]

 drawFFShadow :: World -> ForceField -> [Picture]
 drawFFShadow w ff