Cleanup and reorganise

src/Dodge/Creature/Property.hs

@@ -1,5 +1,7 @@
 module Dodge.Creature.Property
-    where
+    ( crIsArmouredFrom
+    , crNearSeg
+    ) where
 import Dodge.Data
 import Dodge.Item.Data
 import Geometry
@@ -13,8 +15,8 @@ crIsArmouredFrom p cr
         && angleVV (unitVectorAtAngle $ _crDir cr) (p -.- _crPos cr) < pi/2
 -- even though angleVV can generate NaN, the comparison seems to deal with it
 
-crOnSeg :: Point2 -> Point2 -> Creature -> Bool
-crOnSeg p1 p2 cr = circOnSeg p1 p2 (_crPos cr) (_crRad cr)
+--crOnSeg :: Point2 -> Point2 -> Creature -> Bool
+--crOnSeg p1 p2 cr = circOnSeg p1 p2 (_crPos cr) (_crRad cr)
 
 crNearSeg :: Float -> Point2 -> Point2 -> Creature -> Bool
 crNearSeg d p1 p2 cr = circOnSeg p1 p2 (_crPos cr) (_crRad cr + d)