Simplify sparks

2025-06-07 10:07:16 +01:00
parent 7bee1549bf
commit b4bdfbf2c3
13 changed files with 101 additions and 102 deletions
@@ -1,11 +1,18 @@
-module Dodge.Spark.Draw where
+module Dodge.Spark.Draw (drawSpark) where

 import Dodge.Data.Spark
 import Picture
+import Linear

 drawSpark :: Spark -> Picture
 drawSpark pt =
    setLayer BloomNoZWrite
        . setDepth 20
-        . color (_skColor pt)
-        $ thickLine (_skWidth pt) [_skOldPos pt, _skPos pt]
+        . color (skColor pt)
+        $ thickLine 3 [_skOldPos pt, _skPos pt, _skPos pt + _skVel pt]
+
+skColor :: Spark -> Color
+skColor sk = case _skType sk of
+    ElectricSpark -> brightX 100 1.5 cyan
+    FireSpark -> V4 20 (-5) 0 1
+    NormalSpark -> V4 2 1.5 0.5 2