16 lines
381 B
Haskell
16 lines
381 B
Haskell
{-# LANGUAGE StrictData #-}
|
|
{- | GameRooms contain information about given positions in the world
|
|
-}
|
|
module Dodge.GameRoom
|
|
where
|
|
import Geometry
|
|
|
|
data GameRoom = GameRoom
|
|
{ _grViewpoints :: [Point2]
|
|
, _grViewpointsEx :: [Point2]
|
|
, _grBound :: [Point2]
|
|
, _grDir :: Float -- ^ gives direction of room
|
|
, _grLinkDirs :: [Float]
|
|
, _grName :: String
|
|
}
|