Remove creature records

src/Dodge/Creature/Perception.hs

@@ -5,6 +5,7 @@ module Dodge.Creature.Perception (
     visionCheck,
 ) where
 
+import Dodge.Creature.Radius
 import Linear
 import Control.Lens
 import qualified Data.Map.Strict as M
@@ -155,7 +156,7 @@ visionCheck cr tpos = doFloatFloat (_viFOV vi) ang * doFloatFloat (_viDist vi) d
     vi = _cpVision $ _crPerception cr
     cpos = _crPos cr
     dirvec = unitVectorAtAngle (_crDir cr)
-    ang = angleVV dirvec (tpos - (cpos - _crRad cr *^ dirvec))
+    ang = angleVV dirvec (tpos - (cpos - crRad (cr ^. crType) *^ dirvec))
     d = dist tpos cpos