Refactor bullet particles

2021-05-19 13:46:19 +02:00
parent 44f239c673
commit 4463dc7716
29 changed files with 637 additions and 535 deletions
@@ -0,0 +1,10 @@
+module Dodge.Particle.Bullet.Draw
+    ( drawBul
+    ) where
+import Dodge.Data
+import Picture
+
+drawBul :: Particle -> Picture
+drawBul pt = setLayer 1 . color thecolor $ thickLine (take 2 $ _btTrail' pt) (_btWidth' pt)
+  where
+    thecolor = _btColor' pt