From 2f583d8a8a83fd6a2d9295204e108daef9871373 Mon Sep 17 00:00:00 2001
From: jgk <justin.g.kruger@gmail.com>
Date: Fri, 26 Mar 2021 19:43:58 +0100
Subject: [PATCH] Add file

---
 src/Dodge/Creature/LookupStatus.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 src/Dodge/Creature/LookupStatus.hs

diff --git a/src/Dodge/Creature/LookupStatus.hs b/src/Dodge/Creature/LookupStatus.hs
new file mode 100644
index 000000000..0144993bd
--- /dev/null
+++ b/src/Dodge/Creature/LookupStatus.hs
@@ -0,0 +1,14 @@
+module Dodge.Creature.LookupStatus
+    where
+import Dodge.Data
+
+import Geometry
+
+import Control.Lens
+
+-- isArmouredFrom :: Point2 -> Creature -> Bool
+-- isArmouredFrom p cr 
+--     = p /= _crPos cr 
+--         && any (\it -> it ^? itIdentity == Just FrontArmour) (_crInv cr)
+--         && angleVV (unitVectorAtAngle $ _crDir cr) (p -.- _crPos cr) < pi/2
+-- even though angleVV can generate NaN, the comparison seems to deal with it