Cleanup

2024-11-26 13:19:03 +00:00
parent cc302a6846
commit 029c61efc8
13 changed files with 8 additions and 82 deletions
@@ -4,9 +4,8 @@ import Dodge.Data.LightSource
 import Geometry.Data
 import Picture

-drawLightSource :: LightSourceDraw -> LightSource -> Picture
-drawLightSource lsd = case lsd of
-    DefaultLightSourceDraw -> defLSPic
+drawLightSource :: LightSource -> Picture
+drawLightSource = defLSPic

 defLSPic :: LightSource -> Picture
 defLSPic ls = setLayer BloomNoZWrite . translate3 (_lsPos $ _lsParam ls) . color col $ circleSolid 4
@@ -1,25 +0,0 @@
-module Dodge.LightSource.Update where
-
-import Control.Lens
-import Dodge.Data.LightSource
-import Geometry
-
--updateTempLightSource :: TLSUpdate -> TempLightSource -> Maybe TempLightSource
--updateTempLightSource tlsu = case tlsu of
--    DestroyTLS -> const Nothing
--    TimerTLS -> timerTLS
--    IntensityTLS ConstantIntensity -> updateTempLightSource TimerTLS
--    IntensityTLS (TLSFade startcol x) -> fadeTLS startcol x
--
--fadeTLS :: Point3 -> Int -> TempLightSource -> Maybe TempLightSource
--fadeTLS startcol x tls
--    | t < 1 = Nothing
--    | t < x = Just $ tls & tlsParam . lsCol .~ (1 / fromIntegral (x - t)) *.*.* startcol
--    | otherwise = Just $ tls & tlsParam . lsCol .~ startcol -- this is wasteful, should be set once at begining
--  where
--    t = _tlsTime tls
--
--timerTLS :: TempLightSource -> Maybe TempLightSource
--timerTLS t
--    | _tlsTime t <= 0 = Nothing
--    | otherwise = Just $ t & tlsTime -~ 1