Cleanup

2024-11-26 13:19:03 +00:00
parent cc302a6846
commit 029c61efc8
13 changed files with 8 additions and 82 deletions
@@ -13,17 +13,6 @@ import Geometry
 data LightSourceDraw = DefaultLightSourceDraw
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

--data TLSIntensity
--    = ConstantIntensity
--    | TLSFade Point3 Int
--    deriving (Eq, Ord, Show, Read) --Generic, Flat)
--
--data TLSUpdate
--    = DestroyTLS
--    | TimerTLS
--    | IntensityTLS TLSIntensity
--    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
 data LSParam = LSParam -- LSPosRadCol
    { _lsPos :: !Point3
    , _lsRad :: !Float
@@ -34,24 +23,13 @@ data LSParam = LSParam -- LSPosRadCol
 data LightSource = LS
    { _lsID :: Int
    , _lsParam :: LSParam
-    , _lsDir :: Float
-    , _lsPict :: LightSourceDraw --LightSource -> Picture
+--    , _lsDir :: Float
+--    , _lsPict :: LightSourceDraw --LightSource -> Picture
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

--data TempLightSource = TLS
--    { _tlsParam :: LSParam
--    , _tlsUpdate :: TLSUpdate --TempLightSource -> Maybe TempLightSource
--    , _tlsTime :: Int
--    }
--    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
 makeLenses ''LSParam
 makeLenses ''LightSource
--makeLenses ''TempLightSource
 deriveJSON defaultOptions ''LightSourceDraw
--deriveJSON defaultOptions ''TLSIntensity
--deriveJSON defaultOptions ''TLSUpdate
 deriveJSON defaultOptions ''LSParam
 deriveJSON defaultOptions ''LightSource
--deriveJSON defaultOptions ''TempLightSource