25 lines
534 B
Haskell
25 lines
534 B
Haskell
{-
|
|
Rooms that connect other rooms, blocking sight.
|
|
-}
|
|
module Dodge.Room.Door
|
|
where
|
|
import Geometry
|
|
import Dodge.Room.Data
|
|
import Dodge.Default.Room
|
|
import Dodge.Placements
|
|
|
|
door :: Room
|
|
door = defaultRoom
|
|
{ _rmPolys = [rectNSWE 40 0 0 40]
|
|
, _rmLinks = lnks
|
|
, _rmPath = [(V2 20 35,V2 20 5)]
|
|
-- door extends into side walls (for shadows as rendered 12/03)
|
|
, _rmPS = [putAutoDoor (V2 0 20) (V2 40 20)]
|
|
, _rmBound = []
|
|
}
|
|
where lnks = [(V2 20 35,0)
|
|
,(V2 20 5,pi)
|
|
]
|
|
|
|
|