Remove creature records

src/Dodge/Creature/Picture/Awareness.hs

@@ -1,5 +1,6 @@
 module Dodge.Creature.Picture.Awareness where
 
+import Dodge.Creature.Radius
 import qualified Data.Vector as V
 import Dodge.Clock
 import Dodge.Data.World
@@ -32,7 +33,7 @@ creatureDisplayText w cr =
     theScale = 0.15 / (w ^. wCam . camZoom)
     cpos = _crPos cr
     v = cpos -.- campos
-    (V2 x y) = campos +.+ v +.+ _crRad cr *.* normalizeV v
+    (V2 x y) = campos +.+ v +.+ crRad (cr ^. crType) *.* normalizeV v
 
 crDisplayAwareness :: Creature -> String
 crDisplayAwareness cr