26 lines
460 B
Haskell
26 lines
460 B
Haskell
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
|