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