Add file

2022-03-24 08:06:48 +00:00
parent 11d954674c
commit 3aea0db385
2 changed files with 76 additions and 0 deletions
@@ -0,0 +1,29 @@
+module Dodge.Wall.DamageEffect where
+import Dodge.Data
+import Dodge.Particle.Spark
+import Dodge.Wall.Reflect
+import Dodge.Wall.Dust
+import Geometry
+import Color
+
+defaultWallDamage :: Damage -> Wall -> World -> World
+defaultWallDamage dm wl = case _dmType dm of
+    Lasering -> colSpark 8 lSparkCol outTo (reflDirWall sp p wl)
+    Piercing -> colSparkRandDir 0.2 8 pSparkCol outTo (reflDirWall sp p wl)
+        . wlDustAt wl outTo
+    Blunt    -> wlDustAt wl outTo
+    Explosive-> id
+    Cutting -> id
+    SparkDam -> id
+    Flaming  -> id
+    Electrical -> id
+    Concussive -> id
+    TorqueDam -> id
+    PushDam -> id
+    PoisonDam -> id
+  where
+    sp = _dmFrom dm
+    p = _dmTo dm
+    outTo = p +.+ squashNormalizeV (sp -.- p)
+    pSparkCol = brightX 100 1.5 white
+    lSparkCol = V4 20 (-5) 0 1