Move sparks into dedicated datatype

2022-07-18 12:15:05 +01:00
parent 13f2255ba7
commit 5495d33389
16 changed files with 99 additions and 104 deletions
@@ -0,0 +1,9 @@
+module Dodge.Spark.Draw where
+import Dodge.Data
+import Picture
+
+drawSpark :: Spark -> Picture
+drawSpark pt = setLayer BloomNoZWrite
+    . setDepth 20 
+    . color (_skColor pt)
+    $ thickLine (_skWidth pt) [_skOldPos pt, _skPos pt]