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