Add blurring of lightmap (and refactoring)

2021-05-01 02:28:04 +02:00
parent 9c0e4425da
commit 7711738b3b
33 changed files with 485 additions and 249 deletions
@@ -1,18 +1,17 @@
 module Dodge.LevelGen.Switch
    where
 import Dodge.Data
-import Dodge.Base
 import Dodge.SoundLogic
-
+import Dodge.Picture.Layer
 import Picture
 import Geometry

 import qualified Data.IntMap.Strict as IM
-
 import Control.Lens
-
-
-makeButton :: Color -> (World -> World) -> Button
+makeButton 
+    :: Color 
+    -> (World -> World) -- ^ Effect when pressed
+    -> Button
 makeButton c eff = Button
    { _btPict = onLayer WlLayer $ color c $ polygon $ rectNSEW 5 (-5) 10 (-10)
    , _btPos = (0,0)