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,26 +1,14 @@
-module Dodge.Laser.Draw
-    where
+module Dodge.Laser.Draw where
+
 import Dodge.Data.Laser
 import Picture

--drawLaser :: Particle -> Picture
----drawLaser pt = setLayer BloomNoZWrite $ pictures
--    --[ setDepth 19   . color (brightX 0 0.5 col) $ thickLine 20 ps
--drawLaser pt =
--    setLayer BloomNoZWrite $ pictures
----    [ setDepth 19   . color (brightX 1 0.5 col) $ thickLine 20 ps
--    [ setDepth 19.5 . color (brightX 10 1 col)  $ thickLine 3  ps
--    ]
--  where
--    col = _ptColor pt
--    ps = _ptPoints pt
-
-
 drawLaser :: Laser -> Picture
 drawLaser pt =
-    setLayer BloomNoZWrite $ pictures
-    [ setDepth 19.5 . color (brightX 10 1 col)  $ thickLine 3  ps
-    ]
+    setLayer BloomNoZWrite $
+        pictures
+            [ setDepth 19.5 . color (brightX 10 1 col) $ thickLine 3 ps
+            ]
  where
    col = _laColor pt
-    ps  = _laPoints pt
+    ps = _laPoints pt