Cleanup

2024-11-26 13:19:03 +00:00
parent cc302a6846
commit 029c61efc8
13 changed files with 8 additions and 82 deletions
@@ -1,4 +1,6 @@
-module Dodge.Default.LightSource where
+module Dodge.Default.LightSource 
+    ( defaultLS
+    ) where

 import Dodge.Data.LightSource
 import Geometry
@@ -13,19 +15,4 @@ defaultLS =
                , _lsRad = 200
                , _lsCol = 0.6
                }
-        , _lsDir = 0
-        , _lsPict = DefaultLightSourceDraw --defLSPic
        }
-
--defaultTLS :: TempLightSource
--defaultTLS =
--    TLS
--        { _tlsParam =
--            LSParam
--                { _lsPos = 0
--                , _lsRad = 0
--                , _lsCol = 0.5
--                }
--        , _tlsUpdate = TimerTLS
--        , _tlsTime = 1
--        }