Add file

2022-03-25 14:04:42 +00:00
parent 1607879014
commit e98ecfffb3
5 changed files with 168 additions and 0 deletions
@@ -0,0 +1,26 @@
+module Dodge.Particle.Update where
+import Dodge.Data
+import LensHelp
+import Geometry
+
+mvPt :: Particle -> Maybe Particle
+mvPt pt = Just $ pt
+    & ptTrail %~ f
+    & ptTimer -~ 1
+    & ptCrIgnore .~ Nothing
+  where
+    f trl = head trl +.+ _ptVel pt : trl
+
+destroyAt :: Point2 -> Particle -> Maybe Particle
+destroyAt hitp pt = Just $ pt 
+    & ptUpdate .~ killBulletUpdate
+    & ptTrail  .:~ hitp
+    & ptTimer %~ (min 3 . subtract 1)
+
+killBulletUpdate :: World -> Particle -> (World,Maybe Particle)
+killBulletUpdate w pt 
+    | _ptTimer pt <= 0 = (w,Nothing)
+    | otherwise = (w
+        , Just $ pt & ptTimer -~ 1
+            & ptTrail %~ (\(x:xs) -> x:x:xs)
+        )