34 lines
794 B
Haskell
34 lines
794 B
Haskell
{-# LANGUAGE DeriveAnyClass #-}
|
|
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Dodge.Data.LightSource where
|
|
|
|
import Control.Lens
|
|
import Data.Aeson
|
|
import Data.Aeson.TH
|
|
import Geometry
|
|
|
|
data LightSourceDraw = DefaultLightSourceDraw
|
|
deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
|
|
|
data LSParam = LSParam -- LSPosRadCol
|
|
{ _lsPos :: Point3
|
|
, _lsRad :: Float
|
|
, _lsCol :: Point3
|
|
}
|
|
deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
|
|
|
data LightSource = LS
|
|
{ _lsID :: Int
|
|
, _lsParam :: LSParam
|
|
}
|
|
deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
|
|
|
makeLenses ''LSParam
|
|
makeLenses ''LightSource
|
|
deriveJSON defaultOptions ''LightSourceDraw
|
|
deriveJSON defaultOptions ''LSParam
|
|
deriveJSON defaultOptions ''LightSource
|