Continue bullet refactor

2022-07-17 10:57:29 +01:00
parent 7d6407bebc
commit b860de70a7
12 changed files with 81 additions and 106 deletions
@@ -0,0 +1,13 @@
+module Dodge.Bullet.Draw
+    ( drawBul
+    ) where
+import Dodge.Data
+import Picture
+
+import Linear
+
+drawBul :: Bullet -> Picture
+drawBul pt = setLayer BloomNoZWrite
+    . setDepth 20 
+    . color (V4 200 200 200 2)
+    $ thickLine (_buWidth pt) [_buOldPos pt, _buPos pt]