Remove temporary light sources as separate entity

This commit is contained in:
2024-11-26 13:12:55 +00:00
parent e93a804559
commit cc302a6846
17 changed files with 243 additions and 241 deletions
+12 -12
View File
@@ -17,15 +17,15 @@ defaultLS =
, _lsPict = DefaultLightSourceDraw --defLSPic
}
defaultTLS :: TempLightSource
defaultTLS =
TLS
{ _tlsParam =
LSParam
{ _lsPos = 0
, _lsRad = 0
, _lsCol = 0.5
}
, _tlsUpdate = TimerTLS
, _tlsTime = 1
}
--defaultTLS :: TempLightSource
--defaultTLS =
-- TLS
-- { _tlsParam =
-- LSParam
-- { _lsPos = 0
-- , _lsRad = 0
-- , _lsCol = 0.5
-- }
-- , _tlsUpdate = TimerTLS
-- , _tlsTime = 1
-- }
+1 -1
View File
@@ -135,7 +135,7 @@ defaultLWorld =
, _buttons = IM.empty
, _corpses = IM.empty
, _lightSources = IM.empty
, _tempLightSources = []
-- , _tempLightSources = []
, _lights = mempty
, _seenLocations =
IM.fromList