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,17 +1,18 @@
-module Dodge.Shockwave.Draw
-    where
+module Dodge.Shockwave.Draw where
+
 import Dodge.Data.Shockwave
-import Picture
 import Geometry
+import Picture

 drawShockwave :: Shockwave -> Picture
-drawShockwave sw = setDepth 20 
-    . setLayer BloomLayer
-    . uncurryV translate (_swPos sw) 
-    . color (_swColor sw) 
-    $ thickCircle rad thickness
+drawShockwave sw =
+    setDepth 20
+        . setLayer BloomLayer
+        . uncurryV translate (_swPos sw)
+        . color (_swColor sw)
+        $ thickCircle rad thickness
  where
-    r    = _swRad sw
-    thickness = tFraction**2 * r 
-    rad = r - (3/4) * r * tFraction
+    r = _swRad sw
+    thickness = tFraction ** 2 * r
+    rad = r - (3 / 4) * r * tFraction
    tFraction = fromIntegral (_swTimer sw) / fromIntegral (_swMaxTime sw)