Refactor light sources

2022-07-21 16:21:35 +01:00
parent cf5ec4a261
commit aabd8a2cb8
8 changed files with 71 additions and 45 deletions
@@ -0,0 +1,13 @@
+module Dodge.LightSource.Draw where
+import Dodge.Data.LightSource
+import Picture
+import Geometry.Data
+
+drawLightSource :: LightSourceDraw -> LightSource -> Picture
+drawLightSource lsd = case lsd of
+    DefaultLightSourceDraw -> defLSPic
+defLSPic :: LightSource -> Picture
+defLSPic ls = setLayer BloomNoZWrite . translate3 (_lsPos $ _lsParam ls) . color col $ circleSolid 4
+  where
+    col = V4 r g b 2
+    V3 r g b = _lsCol $ _lsParam ls