70 lines
1.8 KiB
Haskell
70 lines
1.8 KiB
Haskell
--{-# LANGUAGE DeriveGeneric #-}
|
|
--{-# LANGUAGE DeriveAnyClass #-}
|
|
--{-# LANGUAGE DeriveGeneric #-}
|
|
--{-# LANGUAGE ScopedTypeVariables #-}
|
|
--{-# LANGUAGE StandaloneDeriving #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
--{-# LANGUAGE FlexibleInstances #-}
|
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
|
|
|
{- |
|
|
WARNING: orphan instances concerning Aeson classes and FGL datatypes have been introduced.
|
|
The warnings have been disabled.
|
|
-}
|
|
module Dodge.Data.PathGraph where
|
|
|
|
import Control.Lens
|
|
import Data.Aeson
|
|
import Data.Aeson.TH
|
|
import Data.Graph.Inductive
|
|
import Data.Map.Strict (Map)
|
|
import qualified Data.Set as Set
|
|
import Geometry.Data
|
|
|
|
data PathGraph = PathGraph
|
|
{ _pgGraph :: Gr Point2 PathEdge
|
|
, _pgNodeMap :: Map Point2 Int
|
|
, _pgNodeCount :: Int
|
|
, _pgEdgeMap :: Map (V2 Point2) PathEdgeNodes
|
|
}
|
|
deriving (Eq, Show, Read) --, Generic)
|
|
|
|
data PathEdgeNodes = PathEdgeNodes
|
|
{ _penStart :: Int
|
|
, _penEnd :: Int
|
|
, _penPathEdge :: PathEdge
|
|
}
|
|
deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
|
|
|
data PathEdge = PathEdge
|
|
{ _peStart :: Point2
|
|
, _peEnd :: Point2
|
|
, _peDist :: Float
|
|
, _peObstacles :: Set.Set EdgeObstacle
|
|
}
|
|
deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
|
|
|
data EdgeObstacle
|
|
= BlockObstacle
|
|
| DoorObstacle
|
|
| AutoDoorObstacle
|
|
| WallObstacle
|
|
deriving (Eq, Ord, Show, Bounded, Enum, Read) --Generic, Flat)
|
|
|
|
--instance (ToJSON a, ToJSON b) => ToJSON (Gr a b) where
|
|
-- toEncoding = genericToEncoding defaultOptions
|
|
--
|
|
--instance (FromJSON a, FromJSON b) => FromJSON (Gr a b)
|
|
|
|
--deriving instance (Flat (Gr Point2 PathEdge))
|
|
|
|
makeLenses ''PathGraph
|
|
makeLenses ''PathEdge
|
|
makeLenses ''PathEdgeNodes
|
|
deriveJSON defaultOptions ''EdgeObstacle
|
|
deriveJSON defaultOptions ''PathEdge
|
|
deriveJSON defaultOptions ''PathEdgeNodes
|
|
deriveJSON defaultOptions ''Gr
|
|
deriveJSON defaultOptions ''PathGraph
|