Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -1,11 +1,13 @@
 module Dodge.LightSource.Draw where
+
 import Dodge.Data.LightSource
-import Picture
 import Geometry.Data
+import Picture

 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