{-# 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