21 lines
438 B
Haskell
21 lines
438 B
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
module Dodge.Room.Data
|
|
where
|
|
import Dodge.LevelGen.Data
|
|
import Geometry
|
|
|
|
import Control.Lens
|
|
|
|
data Room = Room
|
|
{ _rmPolys :: [ [Point2] ]
|
|
, _rmLinks :: [(Point2,Float)]
|
|
, _rmPath :: [(Point2, Point2)]
|
|
, _rmPS :: [PlacementSpot]
|
|
, _rmBound :: [Point2]
|
|
}
|
|
data RoomLink = RL {_rlPos :: Point2, _rlRot :: Float}
|
|
|
|
makeLenses ''Room
|
|
makeLenses ''RoomLink
|