module Dodge.Default.Wall
    where
import Dodge.Data
import Picture
import Geometry.Data
{- Indestructible wall.  -}
defaultWall :: Wall
defaultWall = Wall 
    { _wlLine = (V2 0 0,V2 50 0)
    , _wlID = 0
    , _wlColor = greyN 0.6
    , _wlSeen = False
    , _wlOpacity    = Opaque
    , _wlPathable   = False
    , _wlFireThrough = False
    , _wlReflect = False
    , _wlDraw = True
    , _wlRotateTo = True
    , _wlStructure = StandaloneWall
    , _wlWalkable = False
    , _wlHeight = 100
    }
{- Indestructible see-through wall.  -}
defaultCrystalWall :: Wall
defaultCrystalWall = defaultWall 
    { _wlColor = withAlpha 0.5 aquamarine
    , _wlOpacity = SeeThrough
    }
defaultMachineWall :: Wall
defaultMachineWall = defaultWall
    { _wlOpacity = SeeAbove
    , _wlDraw = False
    , _wlRotateTo = False
    , _wlStructure = MachinePart 0
    }
