Add untracked files

src/Dodge/LevelGen/WindowBlock.hs

@@ -0,0 +1,25 @@
+module Dodge.LevelGen.WindowBlock
+    (
+    )
+    where
+import Dodge.Data
+
+import Picture
+
+import qualified Data.IntMap as IM
+
+basePane :: Wall
+basePane = Block
+    { _wlLine = []
+    , _wlID = 0
+    , _wlColor = withAlpha 0.5 cyan
+    , _wlDraw = Nothing
+    , _wlSeen = False
+    , _blIDs = []
+    , _blHP = 1
+    , _wlIsSeeThrough = True
+    , _blVisible = True
+    , _blShadows = []
+    , _blDegrades = [5,5]
+    }
+--singleBlock :: [Int] -> IM.IntMap Wall