44 lines
981 B
Haskell
44 lines
981 B
Haskell
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE DeriveAnyClass #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Dodge.Data.Cloud where
|
|
|
|
import Data.Binary
|
|
import Flat
|
|
import Color
|
|
import Control.Lens
|
|
import Data.Aeson
|
|
import Data.Aeson.TH
|
|
import Geometry
|
|
|
|
data CloudDraw
|
|
= CloudColor Float Float Color -- radius-multiply fade-time color
|
|
| DrawGasCloud Color
|
|
deriving (Eq, Ord, Show, Read, Generic, Flat)
|
|
instance Binary CloudDraw
|
|
|
|
data Cloud = Cloud
|
|
{ _clPos :: Point3
|
|
, _clVel :: Point3
|
|
, _clPict :: CloudDraw
|
|
, _clRad :: Float
|
|
, _clAlt :: Float
|
|
, _clTimer :: Int
|
|
, _clType :: CloudType
|
|
}
|
|
deriving (Eq, Ord, Show, Read, Generic, Flat)
|
|
instance Binary Cloud
|
|
|
|
data CloudType
|
|
= SmokeCloud
|
|
| GasCloud
|
|
deriving (Eq, Ord, Show, Read, Generic, Flat)
|
|
instance Binary CloudType
|
|
|
|
makeLenses ''Cloud
|
|
deriveJSON defaultOptions ''CloudDraw
|
|
deriveJSON defaultOptions ''Cloud
|
|
deriveJSON defaultOptions ''CloudType
|