Further tweak bullet modules

2023-01-12 13:08:09 +00:00
parent 37e26f53e6
commit 3508d9c266
9 changed files with 34 additions and 20 deletions
@@ -13,3 +13,10 @@ displayBulletPayload ebt = case ebt of
    IncBall -> "INCENDIARY" 
    TeslaBall -> "STATIC"
    ConcBall -> "CONCUSSIVE"
+
+displayBulletTraj :: BulletTrajectoryType -> String
+displayBulletTraj x = case x of
+    BasicBulletTrajectoryType-> "BTRAJ-shouldn't display"
+    BezierTrajectoryType     -> "MAGNET"
+    FlechetteTrajectoryType  -> "FLECHETTE"
+    MagnetTrajectoryType     -> "BEZIER CURVE"