42 lines
880 B
Haskell
42 lines
880 B
Haskell
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE DeriveAnyClass #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Dodge.Data.Cloud where
|
|
|
|
import Dodge.Data.Material
|
|
import Control.Lens
|
|
import Data.Aeson
|
|
import Data.Aeson.TH
|
|
import Geometry
|
|
|
|
data Cloud = Cloud
|
|
{ _clPos :: Point3
|
|
, _clVel :: Point3
|
|
, _clTimer :: Int
|
|
, _clType :: CloudType
|
|
}
|
|
deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
|
|
|
data CloudType
|
|
= Smoke
|
|
| RocketSmoke
|
|
| CryoReleaseCloud
|
|
| GasCloud
|
|
deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
|
|
|
data Dust = Dust
|
|
{ _dsPos :: Point3
|
|
, _dsVel :: Point3
|
|
, _dsTimer :: Int
|
|
, _dsType :: Material
|
|
}
|
|
deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
|
|
|
makeLenses ''Cloud
|
|
deriveJSON defaultOptions ''CloudType
|
|
deriveJSON defaultOptions ''Cloud
|
|
makeLenses ''Dust
|
|
deriveJSON defaultOptions ''Dust
|